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

Updates to tuts and new with-sync-event

Browse source
This commit is contained in:
David Botton 2022-02-10 20:44:11 -05:00
parent ec81e5fb2b
commit 18a5f8d78e
33 changed files with 157 additions and 104 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/07-tutorial.lisp
View file

@ -34,7 +34,7 @@
(set-bounds))))
;; Setup our "mover". Darth
(setf (positioning mover) :fixed)
(set-on-click mover #'on-click)
(set-on-click mover 'on-click)
;; Get Darth moving!
(bordeaux-threads:make-thread ; In addtion to the main task (the on-new-window)
(lambda () ; and the task created for each event like clicks
@ -80,5 +80,5 @@
(defun start-tutorial ()
"Start turtorial."
(initialize #'on-new-window)
(initialize 'on-new-window)
(open-browser))