QtWebEngine select popup rendering issue observed with older Qt 6.x.

Symptom: native HTML <select> popup keeps growing/repainting while open;
QtWebEngine process busy, Racket process idle.
Resolved by upgrading to Qt 6.11.1.

README.md

@@ -1,3 +1,11 @@
 # racket-webview
 
 Webview integration for racket
+
+## Release v0.1.8
+
+Uses release v0.2.2 of racket-webview-qt. 
+QtWebEngine select popup rendering issue observed with older Qt 6.x.
+Symptom: native HTML <select> popup keeps growing/repainting while open;
+QtWebEngine process busy, Racket process idle.
+Resolved by upgrading to Qt 6.11.1.

example1/example-1.html

@@ -19,6 +19,11 @@
 	</div>
 	<p><span id="pos">screen coöords</span></p>
 	<h2>Opening a link to some website</h2>
+	<label for="sel-lang">Hoi:</label>
+	<select id="sel-lang">
+		<option value="nl" selected="selected">Nederlands</option>
+		<option value="en">English</option>
+	</select>
 	<p>
 	<ul>
 		<li><a href="https://wikipedia.org">To Wikipedia</a></li>

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.1.7")
+(define version "0.1.8")
 (define license 'MIT)   
 (define collection "racket-webview")
 (define pkg-desc "racket-webview - A Web Based GUI library, based on a Qt WebEngine backend")

racket-webview-downloader.rkt

@@ -26,7 +26,7 @@
 
 (define rkt-qt-version-major 0)
 (define rkt-qt-version-minor 2)
-(define rkt-qt-version-patch 1)
+(define rkt-qt-version-patch (if (eq? (system-type 'os) 'windows) 2 1))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal functions

racket-webview.rkt

@@ -784,7 +784,7 @@
 
 (define/contract (webview-call-js wv js)
   (-> wv-win? string? (or/c string? list? boolean? hash? symbol? number?))
-  (displayln js)
+  ;(displayln js)
   (let ((result (rkt-webview-call-js (wv-win-handle wv) js)))
     (if (webview-call-js-result? result)
         (if (eq? (car result) 'oke)
@@ -822,8 +822,8 @@
   (webview-run-js wv
                   (with-id->el id el
                     (if (or
-                         (= (js-dot el type) "checkbox")
+                         (== (js-dot el type) "checkbox")
-                         (= (js-dot el type) "radio"))
+                         (== (js-dot el type) "radio"))
                         (set! (js-dot el checked)
                               (eval
                                (if (eq? val #f) #f #t)))
@@ -869,8 +869,8 @@
   (-> wv-win? symbol? (or/c string? boolean?))
   (let ((v (webview-call-js wv
                             (with-id->el id el
-                              (if (or (= (js-dot el type) "checkbox")
+                              (if (or (== (js-dot el type) "checkbox")
-                                      (= (js-dot el type) "radio"))
+                                      (== (js-dot el type) "radio"))
                                   (return (js-dot el checked))
                                   (return (js-dot el value)))))))
                             ;(with-id id el
@@ -1121,7 +1121,7 @@
           ;(cl (mk-js-array ae**))
          (cl ae**)
         )
-    (display cl)
+    ;(display cl)
     (webview-call-js wv
                      (with-selector sel
                        (λ (id el)