45 lines
745 B
Racket
45 lines
745 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)
|
|
|
|
(displayln "html loaded")
|
|
|
|
(let* ((play-btn (send this element 'play)))
|
|
(send play-btn connect 'click
|
|
(λ (data)
|
|
(displayln "ja?")
|
|
(send this play))))
|
|
|
|
)
|
|
|
|
(define/public (play)
|
|
(displayln "Play button clicked")
|
|
)
|
|
|
|
(begin
|
|
(displayln "RktPlayer started")
|
|
)
|
|
)
|
|
)
|
|
|
|
|