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

15
demos/03-demo.lisp
View file

@ -70,14 +70,13 @@
(adj-y (- y (drag-y app))) (adj-y (- y (drag-y app)))
(adj-x (- x (drag-x app)))) (adj-x (- x (drag-x app))))
(when (and (> adj-x 0) (> adj-y 30)) (when (and (> adj-x 0) (> adj-y 30))
(if (equalp (in-drag app) "m") (cond ((equalp (in-drag app) "m")
(progn (setf (top drag-obj) (format nil "~Apx" adj-y))
(setf (top drag-obj) (format nil "~Apx" adj-y)) (setf (left drag-obj) (format nil "~Apx" adj-x)))
(setf (left drag-obj) (format nil "~Apx" adj-x))) ((equalp (in-drag app) "s")
(progn (js-execute drag-obj (format nil "editor_~A.resize()" (html-id drag-obj)))
(js-execute drag-obj (format nil "editor_~A.resize()" (html-id drag-obj))) (setf (height drag-obj) (format nil "~Apx" adj-y))
(setf (height drag-obj) (format nil "~Apx" adj-y)) (setf (width drag-obj) (format nil "~Apx" adj-x)))))))
(setf (width drag-obj) (format nil "~Apx" adj-x)))))))
(defun on-ide-drag-stop (obj data) (defun on-ide-drag-stop (obj data)
(let ((app (connection-data-item obj "app-data"))) (let ((app (connection-data-item obj "app-data")))