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

detect if window is valid before maximize

Browse source
This commit is contained in:
David Botton 2024-04-10 00:59:02 -04:00
parent 660db998d4
commit 32130bb30d
1 changed files with 26 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

51
source/clog-gui.lisp
View file

@ -1153,31 +1153,32 @@ it is removed."
:focus (default t)."))
(defmethod window-maximize ((obj clog-gui-window) &key (focus t))
(bordeaux-threads:with-lock-held ((window-size-mutex obj)) ; prevent race condition of maximize/normalize
(let ((app (connection-data-item obj "clog-gui")))
(when focus
(unless (keep-on-top obj)
(window-focus obj)))
(when (fire-on-window-can-maximize obj)
(unless (window-maximized-p obj)
(setf (last-x obj) (left obj))
(setf (last-y obj) (top obj))
(setf (last-height obj) (height obj))
(setf (last-width obj) (width obj)))
(cond ((connection-data-item obj "clog-popup")
(setf (top obj) (unit :px 0))
(setf (height obj) (inner-height (window (connection-body obj)))))
(t
(setf (top obj) (unit :px (menu-bar-height obj)))
(setf (height obj)
(- (inner-height (window (connection-body obj))) (menu-bar-height obj)))))
(setf (left obj) (unit :px 0))
(setf (width obj) (unit :vw 100))
(setf (left obj) (unit :px (body-left-offset app)))
(setf (width obj) (- (width obj)
(body-left-offset app)
(body-right-offset app)))
(fire-on-window-size-done obj)))))
(when (window-valid-p obj)
(bordeaux-threads:with-lock-held ((window-size-mutex obj)) ; prevent race condition of maximize/normalize
(let ((app (connection-data-item obj "clog-gui")))
(when focus
(unless (keep-on-top obj)
(window-focus obj)))
(when (fire-on-window-can-maximize obj)
(unless (window-maximized-p obj)
(setf (last-x obj) (left obj))
(setf (last-y obj) (top obj))
(setf (last-height obj) (height obj))
(setf (last-width obj) (width obj)))
(cond ((connection-data-item obj "clog-popup")
(setf (top obj) (unit :px 0))
(setf (height obj) (inner-height (window (connection-body obj)))))
(t
(setf (top obj) (unit :px (menu-bar-height obj)))
(setf (height obj)
(- (inner-height (window (connection-body obj))) (menu-bar-height obj)))))
(setf (left obj) (unit :px 0))
(setf (width obj) (unit :vw 100))
(setf (left obj) (unit :px (body-left-offset app)))
(setf (width obj) (- (width obj)
(body-left-offset app)
(body-right-offset app)))
(fire-on-window-size-done obj))))))
;;;;;;;;;;;;;;;;;;;;;;
;; window-normalize ;;