32 lines
445 B
Racket
32 lines
445 B
Racket
#lang racket
|
|
|
|
(require web-racket
|
|
racket/runtime-path
|
|
)
|
|
|
|
(provide
|
|
(all-from-out web-racket)
|
|
rktplayer%
|
|
)
|
|
|
|
(define-runtime-path rktplayer-start "rktplayer.html")
|
|
|
|
(define rktplayer%
|
|
(class ww-webview%
|
|
(inherit-field settings)
|
|
(super-new
|
|
[html-file rktplayer-start]
|
|
)
|
|
|
|
(define/override (html-loaded)
|
|
(super html-loaded)
|
|
)
|
|
|
|
(begin
|
|
(displayln "RktPlayer started")
|
|
)
|
|
)
|
|
)
|
|
|
|
|