hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Complete example 1

Browse Source 
Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>
This commit is contained in:
Hans Dijkema
2025-11-13 10:11:06 +01:00
parent 47ad7243d1
commit b412f797e0
4 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Makefile Normal file
View File

@@ -0,0 +1,9 @@
all:
@echo "Use 'make clean' to cleanup racket backup files"
clean:
@find . -type f -name "*~" -exec rm -f {} \;
@echo "Cleaned"

20
example1/example-1-second.html Normal file
View File

@@ -0,0 +1,20 @@
<!DOCTYPE html>
<html>
<head>
<!--<script type="javascript" src="https://code.jquery.com/jquery-3.7.1.min.js" />-->
<link rel="stylesheet" href="styles.css" />
<meta charset="UTF-8" />
<title>This is test 1</title>
</head>
<body>
<h1>This is test 1</h1>
<p>
<ul>
<li><a href="https://wikipedia.org">To Wikipedia</a></li>
</ul>
</p>
<div class="buttons">
<a href="example-1.html"><b><ul><li style="color:red;">Back to test1</li></ul></b></a>
</div>
</body>
</html>

4
example1/example-1.html
View File

@@ -23,8 +23,8 @@
</p>
<h2>Opening a second page</h2>
<div class="buttons">
<button class="btn-1" onclick="window.location.href='example-second.html';">Open the second page using javascript</button>
<button class="btn-2"><a href="example-second.html" id="click-url" style="color:green;">Open the second page uring url</a></button>
<button class="btn-1" onclick="window.location.href='example-1-second.html';">Open the second page using javascript</button>
<button class="btn-2"><a href="example-1-second.html" id="click-url" style="color:green;">Open the second page uring url</a></button>
</div>
<h2>And some other buttons</h2>
<div class="buttons">

4
example1/example.rkt
View File

@@ -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])))
)