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