From c2d3837f3c57cdb7eaac236b7db71a6f36982be9 Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 30 May 2024 22:37:20 -0400 Subject: [PATCH] reset position of new windows --- source/clog-gui.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index 75954f9..be1fa93 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -1121,9 +1121,13 @@ window-to-top-by-param or window-by-param.")) (unless left ;; Generate sensible initial x location (setf left (last-x app)) + (when (> (last-x app) 600) + (setf (last-x app) 0)) (incf (last-x app) 10)) (unless top ;; Generate sensible initial y location + (when (> (last-y app) 400) + (setf (last-y app) 0)) (when (eql (last-y app) 0) (setf (last-y app) (menu-bar-height obj))) (setf top (last-y app))