Revision as of 20:35, 3 June 2009 (view source) rosettacode>Dkf (→‎Tcl: Added implementation) ← Older edit		Revision as of 20:37, 3 June 2009 (view source) rosettacode>Dkf (→‎{{header\|Tcl}}: increase Tcl-ishness) Newer edit →
Line 102: set numWidth [string length $nc] while true { ~~for {~~set i 0~~} {$i<$nc} {} {~~ ~~set~~ foreach s ~~[lindex~~ $choices ~~$i]~~{ puts [format " %-d: %s" $numWidth [incr i] $s] ~~puts [format " %-d: %s" $numWidth $i $s]~~ } puts -nonewline "$prompt: "

Menu: Difference between revisions

Menu (view source)