From ceca69e5847d3bc2471037f6cfb3b122e2c90e15 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 31 Jan 2024 12:39:54 -0500 Subject: [PATCH] Fix bug in model overlay not being shown --- 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 5165f09..547bc17 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -1173,7 +1173,8 @@ interactions. Use window-end-modal to undo.")) (defmethod window-make-modal ((obj clog-gui-window)) (let ((app (connection-data-item obj "clog-gui"))) - (when (and app (= (modal-count app) 0)) + (when (and app + (<= (modal-count app) 0)) (setf (modal-background app) (create-div (body app) :class "w3-overlay")) (setf (display (modal-background app)) :block)) (incf (modal-count app))