Posted to tcl by tcleval at Wed Aug 22 19:20:03 GMT 2007view raw

  1. proc hello {cmd msg} {
  2.  
  3. switch -exact $cmd {
  4.  
  5. dog {puts "the dog says: $msg"}
  6. cat {puts "the cat says: $msg"}
  7. }
  8. }