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

tclcmd improvements

This commit is contained in:
stefan schippers 2025-10-27 23:13:14 +01:00
parent 1583c83d96
commit 129e194bc5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/xschem.tcl
View File

@ -665,7 +665,8 @@ proc to_eng {args} {
}
proc = {args} {
ev7 $args
set r [ev7 $args]
puts $r
}
## evaluate expression with 7 significant digits.
@ -6268,9 +6269,11 @@ proc enter_text {textlabel {preserve_disabled disabled}} {
# will redefine puts to output into tclcmd_puts
proc redef_puts {} {
global tclcmd_puts
set tclcmd_puts {}
if ![llength [info command ::tcl::puts]] {
rename puts ::tcl::puts
proc puts args {
global tclcmd_puts
set la [llength $args]
if {$la<1 || $la>3} {
error "usage: puts ?-nonewline? ?channel? string"
@ -6360,6 +6363,9 @@ proc tclcmd {} {
button .tclcmd.b.ok -text Evaluate -command {tclcmd_ok_button}
# bind .tclcmd.t <Shift-KeyPress-Return> { .tclcmd.b.ok invoke }
bind .tclcmd.t.t <Shift-KeyRelease-Return> {return_release %W; .tclcmd.b.ok invoke }
bind .tclcmd.t.t <Shift-Delete> {
.tclcmd.r.r delete 1.0 end
}
bind .tclcmd <Escape> {.tclcmd.b.close invoke}
pack .tclcmd.txtlab -side top -fill x
pack .tclcmd.b -side bottom -fill x