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

zombie control

Browse source
This commit is contained in:
David Botton 2024-04-10 15:25:55 -04:00
parent 58c9f08880
commit 3e4c62de2f
2 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-files.lisp
View file

@ -44,7 +44,9 @@
(if pop
(let ((app (connection-data-item obj "builder-app-data")))
(setf (connection-data-item pop "builder-app-data") app)
(set-html-on-close pop "Connection Lost")
(clog-gui-initialize pop :parent-desktop-obj obj)
(add-class pop *builder-window-desktop-class*)
(if open-file
(setf (title (html-document pop)) open-file)
(setf (title (html-document pop)) "CLOG Builder Source Editor"))