Integrating quit/exit/cleanup mechanism.
This commit is contained in:
@@ -532,19 +532,12 @@
|
||||
(send player seek percentage)
|
||||
)
|
||||
|
||||
(define quit-callback (lambda () #t))
|
||||
|
||||
(define/public (on-quit callback)
|
||||
(set! quit-callback callback))
|
||||
|
||||
(define/public (quit)
|
||||
(define/override (quit)
|
||||
(dbg-rktplayer "Quitting")
|
||||
(send player quit)
|
||||
(set! closed #t)
|
||||
(send this close)
|
||||
(webview-exit)
|
||||
(quit-callback)
|
||||
(exit)
|
||||
(super quit)
|
||||
)
|
||||
|
||||
(define/public (select-library)
|
||||
|
||||
Reference in New Issue
Block a user