mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 12:20:27 -08:00
Code Issues Projects Releases Wiki Activity

Comments on movement modes.

Browse source
This commit is contained in:
David Botton 2021-02-12 16:56:06 -05:00
parent c529bfd651
commit 7e8a2439bf
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-gui.lisp
View file

@ -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))))