mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

updates to use specifc element types

Browse source
This commit is contained in:
David Botton 2021-01-29 01:16:05 -05:00
parent 264cef0db2
commit 04b2fd316f
7 changed files with 27 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/06-tutorial.lisp
View file

@ -15,9 +15,9 @@
(loop
(if (and (validp obj) (connection-data-item obj "isRunning"))
(progn
(setf (color obj) "green")
(setf (color obj) :green)
(sleep 0.3)
(setf (color obj) "red")
(setf (color obj) :red)
(sleep 0.3))
(return))))
(setf (connection-data-item obj "isRunning") nil)
@ -30,7 +30,7 @@
(setf (title (html-document body)) "Tutorial 6")
(set-on-click (create-child body "<h1>(click me to start!)</h1>")
(set-on-click (create-section body :h1 :content "(click me to start!)")
#'my-on-click)
(run body))