mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -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
source/clog-base.lisp
View file

@ -307,7 +307,7 @@ result or if time out DEFAULT-ANSWER (Private)"))
(defparameter drop-event-script
"+ (e.clientX - e.currentTarget.getBoundingClientRect().left + e.currentTarget.scrollLeft) + ':' +
(e.clientY - e.currentTarget.getBoundingClientRect().top + e.currentTarget.scrollTop + ':' +
(e.clientY - e.currentTarget.getBoundingClientRect().top + e.currentTarget.scrollTop) + ':' +
encodeURIComponent(e.originalEvent.dataTransfer.getData('~A'))"
"JavaScript to collect drop event data from browser.")

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)