Posted to tcl by jima at Sat Oct 12 12:50:32 GMT 2013view raw

  1. switch $wea \
  2. $weaCaseA {
  3. # do stuff
  4. } \
  5. default {
  6. # do stuff
  7. }