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

fix drag start point

Browse source
This commit is contained in:
David Botton 2022-07-03 17:11:51 -04:00
parent 8d92d22f07
commit 6e5d273595
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder.lisp
View file

@ -1108,6 +1108,8 @@ of controls and double click to select control."
(set-on-full-screen-change (html-document (connection-body obj)) #'on-size) (set-on-full-screen-change (html-document (connection-body obj)) #'on-size)
(set-on-orientation-change (window (connection-body obj)) #'on-size) (set-on-orientation-change (window (connection-body obj)) #'on-size)
(set-on-pointer-down divider (lambda (obj data) (set-on-pointer-down divider (lambda (obj data)
(setf (getf data :client-y) (+ adj-size
(getf data :client-y)))
(set-on-pointer-up (connection-body obj) (set-on-pointer-up (connection-body obj)
(lambda (obj data) (lambda (obj data)
(declare (ignore data)) (declare (ignore data))
@ -1115,9 +1117,8 @@ of controls and double click to select control."
(set-on-pointer-move (connection-body obj) nil))) (set-on-pointer-move (connection-body obj) nil)))
(set-on-pointer-move (connection-body obj) (set-on-pointer-move (connection-body obj)
(lambda (obj new-data) (lambda (obj new-data)
(setf adj-size (- (getf data :screen-y) (setf adj-size (- (getf data :client-y)
(getf new-data :screen-y))) (getf new-data :client-y)))
(print adj-size)
(on-size obj)))) (on-size obj))))
:capture-pointer t)) :capture-pointer t))
(set-on-click side-panel (lambda (obj) (set-on-click side-panel (lambda (obj)