mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-30 05:41:36 -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)))))

1
tools/clog-builder.lisp
View file

@ -384,6 +384,7 @@ clog-builder window.")
(create-gui-menu-item tools :content "List Callees" :on-click 'on-show-callees)
(create-gui-menu-item tools :content "Thread Viewer" :on-click 'on-show-thread-viewer)
(create-gui-menu-item tools :content "CLOG Builder REPL" :on-click 'on-repl)
(create-gui-menu-item tools :content "CLOG Builder Console" :on-click 'on-open-console)
(create-gui-menu-item tools :content "Copy/Cut History" :on-click 'on-show-copy-history-win)
(unless *clogframe-mode*
(create-gui-menu-item tools :content "Image to HTML Data" :on-click 'on-image-to-data))