Corrected self signed certificate

racket-webview-qt.rkt

@@ -345,7 +345,7 @@
 ;RKTWEBVIEW_QT_EXPORT rkt_wv_context_t rkt_webview_new_context(const char *boilerplate_js,
 ;                                                               const char *optional_server_cert_pem);
 (define-rktwebview rkt_webview_new_context
-  (_fun _string/utf-8 _bytes -> _int))
+  (_fun _string/utf-8 _string/utf-8 -> _int))
 
 ;RKTWEBVIEW_QT_EXPORT void rkt_webview_process_events(int for_ms);
 ;(define-rktwebview rkt_webview_process_events
@@ -647,6 +647,8 @@
 |#
 
 (define (rkt-webview-new-context boilerplate-js server-cert)
+  ;(dbg-webview (format "boilerplate js: ~a" boilerplate-js))
+  ;(dbg-webview (format "server-cert   : ~a" server-cert))
   (let ((r (rkt_webview_new_context boilerplate-js server-cert)))
     r))
 
@@ -809,6 +811,20 @@
           #f
           #t)))
 
+
+(define (rkt-webview-finalizer rkt-wv-store close-windows message)
+  (when close-windows
+    (let ((open-windows (hash->list rkt-wv-store)))
+      (for-each (λ (kv)
+                  (let ((win (car kv))
+                        (handle (cdr kv)))
+                    (rkt-webview-close handle)))
+                open-windows)))
+  (rkt_webview_cleanup)
+  (unless (eq? message #f) (error message))
+  (stop-event-processing)
+  )
+
 (define (rkt-webview-exit . args)
   (let ((cl-w (if (null? args) #t (car args)))
         (msg (if (null? args) #f
@@ -816,28 +832,25 @@
                      #f
                      (cadr args))))
         )
-    (when cl-w
-      (let ((open-windows (hash->list rkt-wv-store)))
-        (for-each (λ (kv)
-                    (let ((win (car kv))
-                          (handle (cdr kv)))
-                      (rkt-webview-close handle)))
-                  open-windows)))
-    (rkt_webview_cleanup)
-    (unless (eq? msg #f)
-      (error msg))
-    )
-    (stop-event-processing)
-  )
+    (rkt-webview-finalizer rkt-wv-store cl-w msg)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Cleanup on exit
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+#|
 (set! quiet-call
       (plumber-add-flush! (current-plumber)
                           (λ (handle)
                             (rkt-webview-exit))))
+|#
+
+(define custodian-finalizer
+  (register-custodian-shutdown rkt-wv-store
+                               (λ (rkt-wv-store)
+                                 (rkt-webview-finalizer rkt-wv-store #t #f))
+                               #:at-exit? #t)
+  )