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

fix modal window regression

Browse source
This commit is contained in:
David Botton 2022-07-31 12:52:51 -04:00
parent b88b73a6d0
commit 84c75135ff
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-gui.lisp
View file

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