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

set *clog-debug-instance* option

Browse source
This commit is contained in:
David Botton 2024-05-22 18:09:25 -04:00
parent 6d3269b62a
commit cbbfe21ca5
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder.lisp
View file

@ -432,6 +432,13 @@ clog-builder window.")
result) result)
:title "SWANK Started (One time connect)"))) :title "SWANK Started (One time connect)")))
:placeholder-value "4005" :default-value "4005" :title "Start SWANK Server")))) :placeholder-value "4005" :default-value "4005" :title "Start SWANK Server"))))
(create-gui-menu-item opts :content "Set *clog-debug-instance*"
:on-click (lambda (obj)
(setf *clog-debug-instance* (connection-body obj))
(alert-toast obj "*clog-debug-instance*"
"This window will be used for future default debug alerts."
:color-class "w3-green"
:time-out 2)))
(create-gui-menu-item opts :content "Update CLOG Builder" :on-click 'on-update-clog) (create-gui-menu-item opts :content "Update CLOG Builder" :on-click 'on-update-clog)
;; Menu -> Windows ;; Menu -> Windows
(create-gui-menu-item win :content "Maximize" :on-click (create-gui-menu-item win :content "Maximize" :on-click