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

Check data carefully.

Browse source
This commit is contained in:
Jingtao Xu 2024-01-16 10:28:47 +08:00
parent f5420f9f24
commit d284e7571b
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-gui.lisp
View file

@ -1117,7 +1117,7 @@ interactions. Use window-end-modal to undo."))
(defmethod window-make-modal ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui")))
(when (= (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))