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

add browser gc property display

Browse source
This commit is contained in:
David Botton 2024-06-20 12:57:16 -04:00
parent 519cadddd4
commit 5436e7a72b
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-builder-control-properties.lisp
View file

@ -30,6 +30,7 @@
"Populate the control properties for the current control" "Populate the control properties for the current control"
;; obj if current-control is nil must be content ;; obj if current-control is nil must be content
(when obj (when obj
(browser-gc obj)
(let ((app (connection-data-item obj "builder-app-data"))) (let ((app (connection-data-item obj "builder-app-data")))
(if clear (if clear
(setf (inner-html (properties-list app)) "") (setf (inner-html (properties-list app)) "")