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

fixes typos in tutorial 18

Browse source 
minor typos
This commit is contained in:
cms 2021-02-05 12:01:04 +00:00
parent 8260004c4c
commit 94bb12e155
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/18-tutorial.lisp
View file

@ -45,7 +45,7 @@
;; 5 the target on-drop event is set ;; 5 the target on-drop event is set
(set-on-drop target1 (lambda (obj data) (set-on-drop target1 (lambda (obj data)
(place-inside-bottom-of target1 object))) (place-inside-bottom-of target1 object)))
;; Set up other box 1 also as targer for returning drag box ;; Set up other box 1 also as target for returning drag box
(set-on-drag-over target2 (lambda (obj)())) (set-on-drag-over target2 (lambda (obj)()))
(set-on-drop target2 (lambda (obj data) (set-on-drop target2 (lambda (obj data)
(print (getf data :drag-data)) (print (getf data :drag-data))
@ -53,6 +53,6 @@
(run body))) (run body)))
(defun start-tutorial () (defun start-tutorial ()
"Start turtorial." "Start tutorial."
(initialize #'on-new-window) (initialize #'on-new-window)
(open-browser)) (open-browser))