Posted to tcl by iobates at Sat Aug 29 19:14:59 GMT 2026view raw

  1. for {set i 1} {$i < 10} {incr i} {
  2. bind .n <Control-$i> {
  3. set spt [split "." $::n]
  4. set new [join [lrange 0 $i] "."]
  5. set ::e_name new
  6. }
  7. }

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