mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

reset position of new windows

Browse source
This commit is contained in:
David Botton 2024-05-30 22:37:20 -04:00
parent 6991286150
commit c2d3837f3c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-gui.lisp
View file

@ -1121,9 +1121,13 @@ window-to-top-by-param or window-by-param."))
(unless left (unless left
;; Generate sensible initial x location ;; Generate sensible initial x location
(setf left (last-x app)) (setf left (last-x app))
(when (> (last-x app) 600)
(setf (last-x app) 0))
(incf (last-x app) 10)) (incf (last-x app) 10))
(unless top (unless top
;; Generate sensible initial y location ;; Generate sensible initial y location
(when (> (last-y app) 400)
(setf (last-y app) 0))
(when (eql (last-y app) 0) (when (eql (last-y app) 0)
(setf (last-y app) (menu-bar-height obj))) (setf (last-y app) (menu-bar-height obj)))
(setf top (last-y app)) (setf top (last-y app))