Posted to tcl by iobates at Sat Aug 29 19:53:31 GMT 2026view pretty
for {set i 1} {$i < 10} {incr i} {
bind .n <Control-$i>
[
list take-parts $i
]
}
for {set i 1} {$i < 10} {incr i} {
bind .n <Control-$i>
[
list take-parts $i
]
}