From 84c75135ff55341f66f6ab0e4a1ce3586be7ce89 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 31 Jul 2022 12:52:51 -0400 Subject: [PATCH] fix modal window regression --- source/clog-gui.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index fb9dd3b..7a9e71d 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -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 (gethash (format nil "~A" html-id) (windows app)) win) (set-on-click win (lambda (obj) - (window-focus win))) + (unless (> (modal-count app) 0) + (window-focus win)))) (if maximize (window-maximize win) (fire-on-window-change win app))