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

style changes

Browse source
This commit is contained in:
David Botton 2021-02-01 12:05:57 -05:00
parent 79a31fba88
commit a46f5dbf6f
8 changed files with 39 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tutorial/03-tutorial.lisp
View file

@ -6,12 +6,9 @@
(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!)")))
(let ((x 0))
(set-on-click hello-element
(lambda (obj)
@ -23,13 +20,11 @@
(sleep x)))))
(run body)))
;; 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_.
;; This means that appropriate precautions to thread protect data should be taken
;; and that events do not wait for previous event handlers to complete.
;;; 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_.
;;; This means that appropriate precautions to thread protect data should be taken
;;; and that events do not wait for previous event handlers to complete.
(defun start-tutorial ()
"Start turtorial."
(initialize #'on-new-window)
(open-browser))