innerHTmL problems. Not synchronous?

2026-04-15 23:19:27 +02:00
parent 3602d9bb3a
commit b86744a699
1 changed files with 3 additions and 3 deletions
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -108,9 +108,9 @@
                                             id)))
              (set! type (if (eq? js-type #f)
                             #f
-                             (if (= js-type -1)
+                             (if (string? js-type)
-                                 'unknown
+                                 (string->symbol (string-downcase js-type))
-                                 (string->symbol (string-downcase js-type))))))
+                                 'unknown)))
            )
          (let ((cl (cond
                      ((eq? type 'text) wv-input/text%)