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

reset default names on panel after load

Browse source
This commit is contained in:
David Botton 2022-07-06 17:00:13 -04:00
parent daa7fa5afa
commit 5071f9f3dc
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder.lisp
View file

@ -1351,6 +1351,7 @@ of controls and double click to select control."
(window-focus win)
(when fname
(setf file-name fname)
(setf render-file-name "")
(setf (inner-html content)
(escape-string (read-file fname)))
(clrhash (get-control-list app panel-id))
@ -1663,6 +1664,7 @@ of controls and double click to select control."
(window-focus win)
(when fname
(setf file-name fname)
(setf render-file-name "")
(setf (inner-html content)
(escape-string (read-file fname)))
(clrhash (get-control-list app panel-id))