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

Better handling of mouse moves

Browse source
This commit is contained in:
David Botton 2021-02-08 19:46:29 -05:00
parent 527bbb8c3d
commit 65a55b4d83
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
demos/03-demo.lisp
View file

@ -70,11 +70,10 @@
(adj-y (- y (drag-y app)))
(adj-x (- x (drag-x app))))
(when (and (> adj-x 0) (> adj-y 30))
(if (equalp (in-drag app) "m")
(progn
(cond ((equalp (in-drag app) "m")
(setf (top drag-obj) (format nil "~Apx" adj-y))
(setf (left drag-obj) (format nil "~Apx" adj-x)))
(progn
((equalp (in-drag app) "s")
(js-execute drag-obj (format nil "editor_~A.resize()" (html-id drag-obj)))
(setf (height drag-obj) (format nil "~Apx" adj-y))
(setf (width drag-obj) (format nil "~Apx" adj-x)))))))