pause functionality

2026-05-11 09:21:37 +02:00
parent 788af0f7aa
commit a6318d7a2f
2 changed files with 19 additions and 3 deletions
@@ -39,6 +39,13 @@
 (define rktplayer-window #f)
 (define rktplayer-tray #f)

+(define (close-off)
+  (send rktplayer-tray close)
+  (send rktplayer-window close)
+  (exit)
+  )
+  
+
 (define (run . no-exit)
  (let* ((ini (new ini% [file 'rktplayer]))
         (context (new wv-context%