From b412f797e0266396fbddc49ff81995baaeff6ce4 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 13 Nov 2025 10:11:06 +0100 Subject: [PATCH] Complete example 1 Signed-off-by: Hans Dijkema --- Makefile | 9 +++++++++ example1/example-1-second.html | 20 ++++++++++++++++++++ example1/example-1.html | 4 ++-- example1/example.rkt | 4 ++-- 4 files changed, 33 insertions(+), 4 deletions(-) create mode 100644 Makefile create mode 100644 example1/example-1-second.html diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..a746b47 --- /dev/null +++ b/Makefile @@ -0,0 +1,9 @@ + + +all: + @echo "Use 'make clean' to cleanup racket backup files" + + +clean: + @find . -type f -name "*~" -exec rm -f {} \; + @echo "Cleaned" diff --git a/example1/example-1-second.html b/example1/example-1-second.html new file mode 100644 index 0000000..b552a53 --- /dev/null +++ b/example1/example-1-second.html @@ -0,0 +1,20 @@ + + + + + + + This is test 1 + + +

This is test 1

+

+

+

+
+
  • Back to test1
 +
+ + diff --git a/example1/example-1.html b/example1/example-1.html index 63afb71..3a235e8 100644 --- a/example1/example-1.html +++ b/example1/example-1.html @@ -23,8 +23,8 @@

Opening a second page

- - + +

And some other buttons

diff --git a/example1/example.rkt b/example1/example.rkt index b07538b..4adbb85 100644 --- 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]))) )