Posted to tcl by tarwich at Thu Sep 13 16:38:46 GMT 2012view raw

  1. proc example {} {
  2. showMenu {
  3. "a" {
  4. showMenu {
  5. "x" { return 1; }
  6. "y" { return 2; }
  7. "z" { return 3; }
  8. }
  9. }
  10. "b" {
  11. exit 0;
  12. }
  13. }
  14. }
  15.  
  16. proc showStuff {args} {
  17.  
  18. }
  19.  
  20. example;
  21.