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

correct renaming of the console window and refocus on new project on project window

Browse source
This commit is contained in:
David Botton 2024-04-25 20:59:46 -04:00
parent 1806cfb4a1
commit 4af2cf6a0e
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-builder-eval.lisp
View file

@ -9,6 +9,7 @@
(let* ((win (on-open-file obj :title "CLOG Builder Console"
:is-console t
:editor-use-console-for-evals t)))
(setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")
(set-on-window-can-close win (lambda (obj)
(setf (hiddenp obj) t)
nil))

5
tools/clog-builder-projects.lisp
View file

@ -121,7 +121,7 @@
(or (read-file file-name)
""))
(on-populate-loaded-window content :win win)
(setf (window-title win) (attribute content "data-clog-name"))
(setf (window-title (parent (parent panel))) (attribute content "data-clog-name"))
(write-file (render-clog-code content (bottom-panel box))
render-file-name)
(window-close win)
@ -131,7 +131,7 @@
(let ((app (connection-data-item panel "builder-app-data"))
(already (asdf:already-loaded-systems))
(sel (text-value (project-list panel))))
(setf (window-title (current-window panel))
(setf (window-title (parent (parent panel)))
(format nil "Project - ~A" sel))
(reset-control-pallete panel)
(setf (inner-html (runtime-list panel)) "")
@ -207,6 +207,7 @@
(projects-load (format nil "~A/tools" sel))
(error ()
(projects-load sel)))
(window-focus (parent (parent panel)))
(projects-populate panel))
(t
(setf (current-project app) nil)