mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Prevent flicker on resize and fix race condition on clicks to max/norm

Browse source
This commit is contained in:
David Botton 2024-01-31 10:21:48 -05:00
parent b305779e22
commit 5766fe8d2a
1 changed files with 41 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

24
source/clog-gui.lisp
View file

@ -386,7 +386,6 @@ in on-resize, on-full-screen-change and on-orientation-change events."))
(maphash (lambda (key value)
(declare (ignore key))
(cond ((window-maximized-p value)
(window-normalize value :focus nil)
(window-maximize value :focus nil))
(t
(make-in-bounds value mbh bh bw))))
@ -784,6 +783,14 @@ The on-window-change clog-obj received is the new window"))
(set-on-pointer-move obj nil)
(set-on-pointer-cancel obj nil)
(set-on-pointer-up obj nil)
(cond ((window-maximized-p (drag-obj app))
(window-maximize (drag-obj app) :focus nil))
(t
(let* ((body (connection-data-item (drag-obj app) "clog-body"))
(mbh (menu-bar-height (drag-obj app)))
(bh (height (html-document body)))
(bw (width (html-document body))))
(make-in-bounds (drag-obj app) mbh bh bw))))
(cond ((equalp (in-drag app) "m")
(fire-on-window-move-done (drag-obj app)))
((equalp (in-drag app) "s")
@ -1053,6 +1060,7 @@ the browser."))
:focus (default t)."))
(defmethod window-maximize ((obj clog-gui-window) &key (focus t))
(with-sync-event (obj) ; prevent race condition of maximize/normalize
(let ((app (connection-data-item obj "clog-gui")))
(when focus
(unless (keep-on-top obj)
@ -1072,7 +1080,7 @@ the browser."))
(body-right-offset app)))
(setf (height obj)
(- (inner-height (window (body app))) (menu-bar-height obj)))
(fire-on-window-size-done obj))))
(fire-on-window-size-done obj)))))
;;;;;;;;;;;;;;;;;;;;;;
;; window-normalize ;;
@ -1083,6 +1091,7 @@ the browser."))
:focus (default t)."))
(defmethod window-normalize ((obj clog-gui-window) &key (focus t))
(with-sync-event (obj) ; prevent race condition of maximize/normalize
(when focus
(unless (keep-on-top obj)
(window-focus obj)))
@ -1093,7 +1102,7 @@ the browser."))
(setf (top obj) (last-y obj))
(setf (left obj) (last-x obj))
(setf (last-width obj) nil)
(fire-on-window-size-done obj))))
(fire-on-window-size-done obj)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window-toggle-maximize ;;
@ -1399,15 +1408,6 @@ interactions. Use window-end-modal to undo."))
(setf (on-window-move-done obj) handler))
(defmethod fire-on-window-move-done ((obj clog-gui-window))
(cond ((window-maximized-p obj)
(window-normalize obj :focus nil)
(window-maximize obj :focus nil))
(t
(let* ((body (connection-data-item obj "clog-body"))
(mbh (menu-bar-height obj))
(bh (height (html-document body)))
(bw (width (html-document body))))
(make-in-bounds obj mbh bh bw))))
(when (on-window-move-done obj)
(funcall (on-window-move-done obj) obj)))