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