Artifact 3777686aec99c27ac8feb312c4736b8b347f1660:
- Executable file examples/ask-yn — 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: 159)
#!/usr/bin/env tclsh # -*- tcl -*- package require Tcl 8.5 package require cmdr::ask puts [cmdr ask yn {Is this ok ?}] puts [cmdr ask yn {Really ?} no] exit