From 0a642e679035e7f63af405b813ed0562785bc43c Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Thu, 27 Jan 2022 20:27:08 -0500
Subject: [PATCH] prevent dragging windows with client side movement into menu
 bar

---
 source/clog-gui.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 791e24d..c1e84a6 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -787,6 +787,9 @@ the window will be set to keep-on-top always."))
 	     (clog::set-on-event win "dragstop"
 				 (lambda (obj)
 				   (declare (ignore obj))
+				   (if (< (parse-integer (top win) :junk-allowed t)
+					  (menu-bar-height obj))
+				       (setf (top win) (unit "px" (menu-bar-height obj))))
 				   (fire-on-window-move-done win)))
 	     (clog::set-on-event win "resizestart"
 				 (lambda (obj)