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

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

22
tutorial/03-tutorial.lisp
View file

@ -6,20 +6,20 @@
(defun on-new-window (body)
"On-new-window handler."
(setf (title (html-document body)) "Tutorial 3")
(setf (title (html-document body)) "Tutorial 3")
(let ((hello-element
(create-section body :h1 :content "Hello World! (click me!)")))
(create-section body :h1 :content "Hello World! (click me!)")))
(let ((x 0))
(set-on-click hello-element
(lambda (obj)
(declare (ignorable obj))
;; Add to try non-parallel events:
;; (with-sync-event (obj)
(let ((y (incf x)))
(dotimes (n y)
(create-p body
:content (format nil "Clicked ~A times." y))
(sleep y)))))))) ;)
(lambda (obj)
(declare (ignorable obj))
;; Add to try non-parallel events:
;; (with-sync-event (obj)
(let ((y (incf x)))
(dotimes (n y)
(create-p body
:content (format nil "Clicked ~A times." y))
(sleep y)))))))) ;)
;;; Running this version of the last tutorial and clicking quickly on the (click me!)
;;; will demonstrate an important aspect of CLOG, events can happen in _parallel_.