Much work, using Qt 6.10 on Linux for better https support

private/racket-webview.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 
 (require "racket-webview-qt.rkt"
+         "racket-webview-version.rkt"
          "utils.rkt"
          "mimetypes.rkt"
          "rgba.rkt"
@@ -99,6 +100,11 @@
          
          webview-standard-file-getter
 
+         webview-version
+
+         wv-base-url
+         wv-window-nr
+
          test
          )
 
@@ -393,12 +399,13 @@
          (cert (generate-self-signed-cert 2048 365 '("127.0.0.1" "localhost")
                                           "NL" "Dijkema"
                                           #:ou (wv-cert-ou-token h)))
+         (server-cert (certificate cert))
          (event-processor (λ (wv evt)
                             (event-callback h (util-parse-event evt))))
          (close-callback (λ ()
                            (remove-cert-files h)))
          (ph (if (wv? p) (wv-handle p) #f))
-         (wv (let ((internal-handle (rkt-webview-create ph event-processor close-callback)))
+         (wv (let ((internal-handle (rkt-webview-create ph event-processor close-callback server-cert)))
                (set-wv-handle! h internal-handle)
                (set-wv-window-nr! h (rkt-wv-win internal-handle))
                internal-handle))
@@ -870,7 +877,11 @@
 (wva webview-attr/date g:date? string->date)
 (wva webview-attr/time g:time? string->time)
 (wva webview-attr/datetime g:datetime string->datetime)
-(wvv webview-attr/boolean boolean? (λ (e) (if (string=? e "true") #t #f)))
+(wva webview-attr/boolean boolean? (λ (e) (if (string=? e "true") #t #f)))
+
+(define (webview-version)
+  (cons (list 'webview webview-major webview-minor webview-patch)
+        (rkt-webview-version)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; testing