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

prep for 1.6

Browse source
This commit is contained in:
David Botton 2022-08-18 15:59:47 -04:00
parent c9bfb7b041
commit f305d8ca35
6 changed files with 39 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

1
source/clog-gui.lisp
View file

@ -764,6 +764,7 @@ the window will be set to keep-on-top always."))
(setf (content win) (attach-as-child win (format nil "~A-body" html-id)))
(setf (gethash (format nil "~A" html-id) (windows app)) win)
(set-on-click win (lambda (obj)
(declare (ignore obj))
(unless (> (modal-count app) 0)
(window-focus win))))
(if maximize