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

update documentation, remove tabs

Browse source
This commit is contained in:
David Botton 2022-07-18 22:26:37 -04:00
parent 2c9ce0864f
commit 25a9462f1f
84 changed files with 2163 additions and 2278 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tutorial/06-tutorial.lisp
View file

@ -13,12 +13,12 @@
;; valid to close down the event or thread.
(loop
(if (and (validp obj) (connection-data-item obj "isRunning"))
(progn
(setf (color obj) :green)
(sleep 0.3)
(setf (color obj) :red)
(sleep 0.3))
(return))))
(progn
(setf (color obj) :green)
(sleep 0.3)
(setf (color obj) :red)
(sleep 0.3))
(return))))
(setf (connection-data-item obj "isRunning") nil)
(setf (text obj) "(click me to start!)")
(setf (color obj) "black")
@ -28,7 +28,7 @@
"On-new-window handler."
(setf (title (html-document body)) "Tutorial 6")
(set-on-click (create-section body :h1 :content "(click me to start!)")
'my-on-click))
'my-on-click))
(defun start-tutorial ()
"Start turtorial."