Posted to tcl by iobates at Sat Aug 29 19:34:58 GMT 2026view raw

  1. for {set i 1} {$i < 10} {incr i} {
  2. bind .n <Control-$i> {
  3. list take-parts $i
  4. }
  5. }
  6.  
  7. proc take-parts {n} {
  8. puts $n
  9. set ::e_name [join [lrange [split $::e_name "."] 0 $n] "." ]
  10. }
  11.