-

rktplayer.rkt

@@ -1,6 +1,7 @@
 #lang racket
 
-(require "gui.rkt"
+(require racket/gui
+         "gui.rkt"
          simple-ini/class
          web-racket
          racket-sound
@@ -21,12 +22,14 @@
 (ww-set-log-level 'warning)
 ;(ww-tail-log)
 ;(ww-tail-log)
-(ao-set-async-mode! 'scheme)
+;(ao-set-async-mode! 'scheme)
+;(collect-garbage 'incremental)
+(ao-set-async-mode! 'ffi)
 
 (define (run)
   (let* ((ini (new ini% [file 'rktplayer]))
          (settings (new ww-simple-ini% [ini ini] [section 'player]))
-         (window (new rktplayer% [settings settings] [use-browser #t]))
+         (window (new rktplayer% [settings settings] [use-browser #f]))
          )
     window)
   )