From 65a55b4d83d3804f40eeeb14fdcd1eaffc4c53ea Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 8 Feb 2021 19:46:29 -0500 Subject: [PATCH] Better handling of mouse moves --- demos/03-demo.lisp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/demos/03-demo.lisp b/demos/03-demo.lisp index c403a84..39d0b66 100644 --- a/demos/03-demo.lisp +++ b/demos/03-demo.lisp @@ -70,14 +70,13 @@ (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 - (setf (top drag-obj) (format nil "~Apx" adj-y)) - (setf (left drag-obj) (format nil "~Apx" adj-x))) - (progn - (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))))))) + (cond ((equalp (in-drag app) "m") + (setf (top drag-obj) (format nil "~Apx" adj-y)) + (setf (left drag-obj) (format nil "~Apx" adj-x))) + ((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))))))) (defun on-ide-drag-stop (obj data) (let ((app (connection-data-item obj "app-data")))