-

gui.rkt

@@ -0,0 +1,31 @@
+#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")
+    )
+    )
+  )
+
+