luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improve tclcmd_ok procedure

This commit is contained in:
stefan schippers 2025-11-10 18:55:44 +01:00
parent 08607afacc
commit 0318905a25
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/xschem.tcl
View File

@ -6315,9 +6315,20 @@ proc tclcmd_ok_button {} {
set tclcmd_txt [.tclcmd.t.t get 1.0 end] set tclcmd_txt [.tclcmd.t.t get 1.0 end]
regsub -all -line {^ *= *} $tclcmd_txt {= } tclcmd_txt regsub -all -line {^ *= *} $tclcmd_txt {= } tclcmd_txt
redef_puts redef_puts
catch {uplevel #0 $tclcmd_txt} tclcmd_puts catch {uplevel #0 $tclcmd_txt} tclcmd_cmd
rename puts {} rename puts {}
rename ::tcl::puts puts rename ::tcl::puts puts
if {$tclcmd_cmd ne {}} {
if {$tclcmd_puts ne {}} {
if {[string index $tclcmd_puts end] != "\n"} {
append tclcmd_puts \n $tclcmd_cmd
} else {
append tclcmd_puts $tclcmd_cmd
}
} else {
set tclcmd_puts $tclcmd_cmd
}
}
if {$tclcmd_puts != {} && [string index $tclcmd_puts end] != "\n"} { if {$tclcmd_puts != {} && [string index $tclcmd_puts end] != "\n"} {
append tclcmd_puts "\n" append tclcmd_puts "\n"
} }