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

fixed forcing html-id to string

Browse source
This commit is contained in:
David Botton 2024-04-15 01:15:15 -04:00
parent 282d6c6c03
commit 16c605aad1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-gui.lisp
View file

@ -1162,7 +1162,7 @@ the browser."))
(defmethod window-close ((obj clog-gui-window)) (defmethod window-close ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui"))) (let ((app (connection-data-item obj "clog-gui")))
(when app (when app
(remhash (format nil "~A" (html-id obj)) (windows app)) (remhash (html-id obj) (windows app))
(when (window-select app) (when (window-select app)
(destroy (window-select-item obj))) (destroy (window-select-item obj)))
(remove-from-dom obj) (remove-from-dom obj)