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

prevent dragging windows with client side movement into menu bar

Browse source
This commit is contained in:
David Botton 2022-01-27 20:27:08 -05:00
parent 8cbf1a23ab
commit 0a642e6790
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-gui.lisp
View file

@ -787,6 +787,9 @@ the window will be set to keep-on-top always."))
(clog::set-on-event win "dragstop" (clog::set-on-event win "dragstop"
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(if (< (parse-integer (top win) :junk-allowed t)
(menu-bar-height obj))
(setf (top win) (unit "px" (menu-bar-height obj))))
(fire-on-window-move-done win))) (fire-on-window-move-done win)))
(clog::set-on-event win "resizestart" (clog::set-on-event win "resizestart"
(lambda (obj) (lambda (obj)