Artifact 48394c38c819c5a540c33646fdaadcfce3228197:

• Executable file examples/ask-choose — part of check-in [1eeef53431] at 2014-05-23 21:51:43 on branch trunk — cmdr::ask - Fixed a syntax problem. Fixed scope issue (string command). Tweaked the prompt setup. Plus example apps (also for interactive testing). (user: andreask size: 334)

#!/usr/bin/env tclsh
# -*- tcl -*-
package require Tcl 8.5
package require cmdr::ask

lappend fruit apple
lappend fruit cherry
lappend fruit plum
lappend fruit peach
lappend fruit banana
lappend fruit pear

set rand [lindex $fruit [expr {int(0.1+(rand()*([llength $fruit])))}]]

puts [cmdr ask choose {Which fruit} $fruit $rand]
exit