mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-04 23:01:50 -08:00
Code Issues Projects Releases Wiki Activity

reset default locations when all windows closed

Browse source
This commit is contained in:
David Botton 2021-02-15 10:17:02 -05:00
parent be7699f0ce
commit e7caf5085b
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-gui.lisp
View file

@ -504,6 +504,10 @@ on-window-resize-done at end of resize."))
(let ((app (connection-data-item obj "clog-gui")))
(unless html-id
(setf html-id (clog-connection:generate-id)))
(when (eql (hash-table-count (windows app)) 0)
;; If previously no open windows reset default position
(setf (last-x app) 0)
(setf (last-y app) 0))
(unless left
;; Generate sensible initial x location
(setf left (last-x app))