Posted to tcl by iobates at Sat Aug 29 19:14:59 GMT 2026view pretty
for {set i 1} {$i < 10} {incr i} {
bind .n <Control-$i> {
set spt [split "." $::n]
set new [join [lrange 0 $i] "."]
set ::e_name new
}
}
for {set i 1} {$i < 10} {incr i} {
bind .n <Control-$i> {
set spt [split "." $::n]
set new [join [lrange 0 $i] "."]
set ::e_name new
}
}