#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)