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

add console to menu

Browse source
This commit is contained in:
David Botton 2024-04-05 16:14:38 -04:00
parent caf52fe44d
commit 583733e564
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,7 @@
(let ((app (connection-data-item obj "builder-app-data")))
(if (console-win app)
(window-focus (console-win app))
(let* ((win (on-open-file obj :title "Console")))
(let* ((win (on-open-file obj :title "CLOG Builder Console")))
(set-on-window-close win (lambda (obj)
(setf (console-win app) nil)))
(setf (console-win app) win)))))