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

Fix keep on top

Browse source
This commit is contained in:
David Botton 2024-01-31 10:58:12 -05:00
parent 5766fe8d2a
commit 0398483bdc
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
source/clog-gui.lisp
View file

@ -936,8 +936,9 @@ for identifiying the window to use with window-to-top-by-param or window-by-para
(set-on-pointer-down (win-title win)
(lambda (obj data)
(declare (ignore obj data))
(setf (z-index win) (incf (last-z app)))
(fire-on-window-change win app))
(unless (keep-on-top win)
(setf (z-index win) (incf (last-z app)))
(fire-on-window-change win app)))
:capture-pointer t)
(clog::set-on-event win "dragstart"
(lambda (obj)
@ -1017,9 +1018,8 @@ for identifiying the window to use with window-to-top-by-param or window-by-para
(defmethod window-focus ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui")))
(when (keep-on-top obj)
(setf (keep-on-top obj) nil))
(setf (z-index obj) (incf (last-z app)))
(unless (keep-on-top obj)
(setf (z-index obj) (incf (last-z app))))
(fire-on-window-change obj app)))
;;;;;;;;;;;;;;;;;;