From a42a99b37d1d124909e3672d0cbaa1719b5a8c94 Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 16 Jul 2024 03:50:06 -0400 Subject: [PATCH] maximize error on drag failure --- source/clog-gui.lisp | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index 8d2a4aa..2b9789b 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -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)))