racket webview qt finalizer next

gui.rkt

@@ -174,7 +174,7 @@
       )
 
     (define/public (update-tabs)
-      (displayln (format "playlist = ~a" playlist))
+      (dbg-rktplayer "playlist = ~a" playlist)
       (let* ((tabs (send playlist tab-count))
              (html "")
              (tab-el (send this element 'tabs))
@@ -342,7 +342,7 @@
       (send this connect-menu! 'm-select-library-dir (λ () (send this select-library)))
       (send this connect-menu! 'm-add-tab (λ () (send this add-tab)))
 
-      (displayln (format "page-loaded, playlist = ~a" playlist))
+      (dbg-rktplayer "page-loaded, playlist = ~a" playlist)
       (send this update-tabs)
       (send this update-library)
       (send this update-playlist)
@@ -532,11 +532,19 @@
       (send player seek percentage)
       )
 
+    (define quit-callback (lambda () #t))
+
+    (define/public (on-quit callback)
+      (set! quit-callback callback))
+
     (define/public (quit)
       (dbg-rktplayer "Quitting")
       (send player quit)
       (set! closed #t)
-      (send this close))
+      (send this close)
+      (quit-callback)
+      (exit)
+      )
 
     (define/public (select-library)
       (let ((dir (send this choose-dir
@@ -556,13 +564,13 @@
       )
 
     (begin
-      (displayln "Initalizing gui")
+      (dbg-rktplayer "Initalizing gui")
       (dbg-rktplayer "ICON: ~a" (get-field icon this))
       (let ((lang (send settings get 'lang 'en)))
         (dbg-rktplayer "RktPlayer started, current language: ~a" lang))
       (set! playlist (new playlist% [settings (send settings clone 'playlists)]))
       (send player set-list! playlist)
-      (displayln (format "playlist = ~a" playlist))
+      (dbg-rktplayer "playlist = ~a" playlist)
       (semaphore-post initialized)
       )
     )