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

maximize error on drag failure

Browse source
This commit is contained in:
David Botton 2024-07-16 03:50:06 -04:00
parent 17281c97b3
commit a42a99b37d
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
source/clog-gui.lisp
View file

@ -1057,18 +1057,19 @@ 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-body (drag-obj app)))
(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")
(fire-on-window-size-done (drag-obj app))))
(when (drag-obj app)
(cond ((window-maximized-p (drag-obj app))
(window-maximize (drag-obj app) :focus nil))
(t
(let* ((body (connection-body (drag-obj app)))
(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")
(fire-on-window-size-done (drag-obj app)))))
(setf (in-drag app) nil)
(setf (drag-obj app) nil)))