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

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

3
source/clog-gui.lisp
View file

@ -1057,6 +1057,7 @@ The on-window-change clog-obj received is the new window"))
(set-on-pointer-move obj nil) (set-on-pointer-move obj nil)
(set-on-pointer-cancel obj nil) (set-on-pointer-cancel obj nil)
(set-on-pointer-up obj nil) (set-on-pointer-up obj nil)
(when (drag-obj app)
(cond ((window-maximized-p (drag-obj app)) (cond ((window-maximized-p (drag-obj app))
(window-maximize (drag-obj app) :focus nil)) (window-maximize (drag-obj app) :focus nil))
(t (t
@ -1068,7 +1069,7 @@ The on-window-change clog-obj received is the new window"))
(cond ((equalp (in-drag app) "m") (cond ((equalp (in-drag app) "m")
(fire-on-window-move-done (drag-obj app))) (fire-on-window-move-done (drag-obj app)))
((equalp (in-drag app) "s") ((equalp (in-drag app) "s")
(fire-on-window-size-done (drag-obj app)))) (fire-on-window-size-done (drag-obj app)))))
(setf (in-drag app) nil) (setf (in-drag app) nil)
(setf (drag-obj app) nil))) (setf (drag-obj app) nil)))