From 1583c83d96d5cde6b69c5b45f563c93c60e47860 Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Mon, 27 Oct 2025 08:43:27 +0100 Subject: [PATCH] small improveents in "Execute tcl command" --- src/actions.c | 1 + src/xschem.tcl | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/actions.c b/src/actions.c index c140eb29..f33bae6c 100644 --- a/src/actions.c +++ b/src/actions.c @@ -1866,6 +1866,7 @@ void launcher(void) if(url[0] || (program[0])) { /* open url with appropriate program */ tclvareval("launcher {", url, "} {", program, "}", NULL); } else if(command && command[0]){ + dbg(1, "launcher(): command=%s\n", command); if(Tcl_GlobalEval(interp, command) != TCL_OK) { dbg(0, "%s\n", tclresult()); if(has_x) tclvareval("alert_ {", tclresult(), "} {}", NULL); diff --git a/src/xschem.tcl b/src/xschem.tcl index fb84c147..20df09dd 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -6307,8 +6307,8 @@ proc return_release {window} { proc tclcmd_ok_button {} { global tclcmd_txt tclcmd_puts - set tclcmd_txt [.tclcmd.t get 1.0 end] - regsub {^ *= *} $tclcmd_txt {= } tclcmd_txt + set tclcmd_txt [.tclcmd.t.t get 1.0 end] + regsub -all -line {^ *= *} $tclcmd_txt {= } tclcmd_txt redef_puts catch {uplevel #0 $tclcmd_txt} tclcmd_puts rename puts {} @@ -6336,11 +6336,11 @@ proc tclcmd {} { } frame .tclcmd.t - text .tclcmd.t.t -width 60 -height 4 -font {Monospace 12} -yscrollcommand ".tclcmd.t.yscroll set" + text .tclcmd.t.t -width 60 -height 4 -font {Monospace 10} -yscrollcommand ".tclcmd.t.yscroll set" scrollbar .tclcmd.t.yscroll -command ".tclcmd.t.t yview" frame .tclcmd.r - text .tclcmd.r.r -width 60 -height 5 -font {Monospace 12} -yscrollcommand ".tclcmd.r.yscroll set" + text .tclcmd.r.r -width 60 -height 5 -font {Monospace 10} -yscrollcommand ".tclcmd.r.yscroll set" scrollbar .tclcmd.r.yscroll -command ".tclcmd.r.r yview" .tclcmd.p add .tclcmd.t .tclcmd.r