-

rktplayer.rkt

@@ -7,14 +7,23 @@
          )
 
 
-(ww-set-custom-webui-wire-command! "/home/hans/src/racket/webui-wire/build/Release/webui-wire")
+(let ((os (system-type 'os)))
+  (cond
+    ((eq? os 'windows)
+     (ww-set-custom-webui-wire-command! "C:/devel/racket/webui-wire/build/Release/webui-wire.exe"))
+    ((eq? os 'unix)
+     (ww-set-custom-webui-wire-command! "/home/hans/src/racket/webui-wire/build/Release/webui-wire"))
+    (else (error "Cannot set custom webui-wire command"))
+    )
+  )
+     
 (ww-set-debug #t)
 ;(ww-tail-log)
 
 (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)
   )