From 37468d4fa087b915a2eff1afd0711f2c68bcb4df Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Thu, 6 Aug 2026 17:42:14 +0200
Subject: [PATCH] Diverse aanpassingen ivm foutgedrag.

---
 racket-webview.rkt | 13 +++++++++++--
 wv-window.rkt      |  4 +++-
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/racket-webview.rkt b/racket-webview.rkt
index 9f2fa04..4c23d35 100644
--- a/racket-webview.rkt
+++ b/racket-webview.rkt
@@ -729,7 +729,11 @@
     'oke))
 
 (define/contract (webview-bind! wv selector event no-prevent-default)
-  (-> wv-win? (or/c symbol? string?) (or/c symbol? list-of-symbol?) boolean? list?)
+  (-> wv-win?
+      (or/c symbol? string?)
+      (or/c symbol? list-of-symbol?)
+      boolean?
+      (or/c #f list?))
   (let* ((sel (if (symbol? selector)
                   (format "#~a" selector)
                   selector))
@@ -909,7 +913,12 @@
 (wvv webview-value/number number? string->number)
 (wvv webview-value/symbol symbol? string->symbol)
 (wvv webview-value/color rgba? hex->rgba)
-(wvv webview-value/boolean boolean? (λ (e) (if (string=? e "true") #t #f)))
+(wvv webview-value/boolean
+     boolean?
+     (λ (e)
+       (if (boolean? e)
+           e
+           (string-ci=? e "true"))))
 
 
 (define/contract (webview-add-class! wv id-or-selector class)
diff --git a/wv-window.rkt b/wv-window.rkt
index bd44c8e..e99010f 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -384,7 +384,9 @@
 
     (define/public (bind! selector events callback . no-prevent-default)
       (let* ((npd   (if (null? no-prevent-default) #f (car no-prevent-default)))
-             (items (webview-bind! wv selector events npd))
+             (items (or (webview-bind!
+                         wv selector events npd)
+                        '()))
              (events* (if (symbol? events) (list events) events))
              )
         ;(dbg-webview "No-prevent-default = ~a" npd)