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. }

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week