From 734d583d4e780fa511d78358d567fd35462e3e8f Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 17 Feb 2026 14:23:18 +0100
Subject: [PATCH] -

---
 gui.rkt | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gui.rkt b/gui.rkt
index 5900fa7..68f67cf 100644
--- a/gui.rkt
+++ b/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