Posted to tcl by iobates at Sat Aug 29 19:53:31 GMT 2026view raw

  1. for {set i 1} {$i < 10} {incr i} {
  2. bind .n <Control-$i>
  3. [
  4. list take-parts $i
  5. ]
  6. }