mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-09 20:30:26 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug in model overlay not being shown

Browse source
This commit is contained in:
David Botton 2024-01-31 12:39:54 -05:00
parent 0398483bdc
commit ceca69e584
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

@ -1173,7 +1173,8 @@ interactions. Use window-end-modal to undo."))
(defmethod window-make-modal ((obj clog-gui-window)) (defmethod window-make-modal ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui"))) (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 (modal-background app) (create-div (body app) :class "w3-overlay"))
(setf (display (modal-background app)) :block)) (setf (display (modal-background app)) :block))
(incf (modal-count app)) (incf (modal-count app))