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

clog-gui mix in

Browse source
This commit is contained in:
David Botton 2021-02-21 23:15:50 -05:00
parent 9276e279a1
commit 08d5f03248
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/23-tutorial.lisp
View file

@ -32,7 +32,8 @@
(set-on-click (create-button body :content
"Click for my question. You have 10 seconds to answer.")
(lambda (obj)
(declare (ignore obj))
(declare (ignore obj))
(setf (disabledp obj) t)
;; ask returns once an answer is given or times out
(create-div body :content (ask body))
;; once ask returns with its answer (yes no or nil for timeout)
@ -45,7 +46,8 @@
(create-div body :content "Next time be sure!"))
(bordeaux-threads:signal-semaphore hold)))
(bordeaux-threads:wait-on-semaphore hold :timeout 60)
(create-div body :content "Thank you for answering!"))))
(create-div body :content "Thank you for answering!")))
:one-time t)
(run body))
(defun start-tutorial ()