From e19afc324af690c579e14ad5299bfc5cb09df07f Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 15 Apr 2026 20:41:19 +0200
Subject: [PATCH] innerHTmL problems. Not synchronous?

---
 wv-window.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/wv-window.rkt b/wv-window.rkt
index 98b471c..39ab214 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -105,11 +105,12 @@
                                               "    }"
                                               "  }\n"
                                               "}")
-                                             id))))
+                                             id)))
               (set! type (if (eq? js-type #f)
+                             #f
                              (if (= js-type -1)
                                  'unknown
-                                 (string->symbol (string-downcase js-type)))))
+                                 (string->symbol (string-downcase js-type))))))
             (let ((cl (cond
                         ((eq? type 'text) wv-input/text%)
                         ((eq? type 'date) wv-input/date%)