37 lines
886 B
Racket
37 lines
886 B
Racket
#lang racket
|
|
|
|
(require racket/gui
|
|
"gui.rkt"
|
|
simple-ini/class
|
|
web-racket
|
|
racket-sound
|
|
)
|
|
|
|
|
|
(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 #f)
|
|
(ww-set-log-level 'info)
|
|
;(ww-tail-log)
|
|
;(ww-tail-log)
|
|
(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)
|
|
)
|
|
|
|
;(run) |