-

gui.rkt

@@ -20,6 +20,19 @@
 
     (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