problem with gui solved
This commit is contained in:
@@ -360,13 +360,13 @@
|
||||
(define agent-frame%
|
||||
(class frame%
|
||||
(super-new)
|
||||
(define/override (on-close)
|
||||
(define/augment (on-close)
|
||||
(stop-worker!)
|
||||
(when audio
|
||||
(with-handlers ((exn:fail? void))
|
||||
(audio-quit! audio)))
|
||||
(safe-delete-file temporary-media)
|
||||
(super on-close))))
|
||||
(inner (void) on-close))))
|
||||
|
||||
(set! frame
|
||||
(new agent-frame%
|
||||
|
||||
Reference in New Issue
Block a user