More robust quit/exit/cleanup/finalizing handling

2026-04-20 09:53:28 +02:00
parent 95a5faa49e
commit 69785e923e
4 changed files with 137 additions and 47 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -265,7 +265,8 @@
      (send this set-menu! test-menu)
      (send this connect-menu! 'm-quit (λ ()
                                         (send this reset-counter)
-                                         (send this close)))
+                                         (send this close)
+                                         (send this quit)))
      (let* ((div-open (send this element 'div-open))
             (c-open 0)
             (div-close (send this element 'div-close))
@@ -321,3 +322,10 @@
                 )
         )
    window))
+
+(define (run)
+  (let ((window (run-example)))
+    (webview-wait-for-quit)
+    (webview-exit)
+    (exit)
+    ))