From cbbfe21ca573826ecd4de25138fcfab4ae12e689 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 22 May 2024 18:09:25 -0400 Subject: [PATCH] set *clog-debug-instance* option --- tools/clog-builder.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index a56e670..a00fb96 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -432,6 +432,13 @@ clog-builder window.") result) :title "SWANK Started (One time connect)"))) :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) ;; Menu -> Windows (create-gui-menu-item win :content "Maximize" :on-click