From 7e8a2439bff3359f4cad28fc53e680beae123d35 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 12 Feb 2021 16:56:06 -0500 Subject: [PATCH] Comments on movement modes. --- clog-gui.lisp | 4 ++++ tutorial/22-tutorial.lisp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/clog-gui.lisp b/clog-gui.lisp index 9b75817..d2e8169 100644 --- a/clog-gui.lisp +++ b/clog-gui.lisp @@ -431,6 +431,10 @@ use jquery-ui to move/resize.")) (jquery-execute win (format nil "draggable({handle:'#~A-title-bar'})" html-id)) (jquery-execute win "resizable({handles:'se'})") (set-on-pointer-down (win-title win) + (lambda (obj data) + (setf (z-index win) (incf (last-z app))) + (fire-on-window-change win app))) + (set-on-pointer-down (sizer win) (lambda (obj data) (setf (z-index win) (incf (last-z app))) (fire-on-window-change win app)))) diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp index bb41881..6e84e46 100644 --- a/tutorial/22-tutorial.lisp +++ b/tutorial/22-tutorial.lisp @@ -13,7 +13,7 @@ ;; for fine control and is best for local applications although will be a bit ;; more choppy cross continent or via satellite. (let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400)) - :client-movement t)) + :client-movement t))) (dotimes (n 100) ;; window-content is the root element for the clog-gui ;; windows