Complete example 1

Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>
2025-11-13 10:11:06 +01:00
parent 47ad7243d1
commit b412f797e0
4 changed files with 33 additions and 4 deletions
--- a/example1/example.rkt
+++ b/example1/example.rkt
@@ -70,9 +70,9 @@
      (super html-loaded)

      (ww-debug "CONNECTING BUTTONS")
-      (let* ((dialog-btn (send this element 'app-button))
+      (let* ((dialog-btn (send this element 'dialog-button))
             )
-        (send dialog-btn connect  'click (λ (data)
+        (send dialog-btn connect 'click (λ (data)
                                           (new example-1-dialog% [parent this])))
        )