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