mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Updates to tuts and new with-sync-event

Browse source
This commit is contained in:
David Botton 2022-02-10 20:44:11 -05:00
parent ec81e5fb2b
commit 18a5f8d78e
33 changed files with 157 additions and 104 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/11-tutorial.lisp
View file

@ -66,11 +66,11 @@
(reset form)))
;; We need to override the boostrap default to submit the form html style
(set-on-submit form (lambda (obj)(declare (ignore obj))()))
(set-on-click good-button #'on-click-good)
(set-on-click scary-button #'on-click-scary))
(set-on-click good-button 'on-click-good)
(set-on-click scary-button 'on-click-scary))
(run body)))
(defun start-tutorial ()
"Start tutorial."
(initialize #'on-new-window)
(initialize 'on-new-window)
(open-browser :url "http://127.0.0.1:8080/tutorial/tut-11.html"))