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

Fix drop regression

Browse source
This commit is contained in:
David Botton 2022-01-11 18:58:11 -05:00
parent fbc7ffa5e8
commit 22e54a8eca
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tutorial/18-tutorial.lisp
View file

@ -41,7 +41,7 @@
(setf (draggablep object) t)
;; 2 the on-drag-start event is set
(set-on-drag-start object (lambda (obj)(declare (ignore obj))()) :drag-data "some data")
;; 4 the target on-drag-over event is sett
;; 4 the target on-drag-over event is set
(set-on-drag-over target1 (lambda (obj)(declare (ignore obj))()))
;; 5 the target on-drop event is set
(set-on-drop target1 (lambda (obj data)