Posted to tcl by Vadtec at Wed May 09 13:46:48 GMT 2007view raw

  1. proc output { where text } {
  2. global debug
  3.  
  4. if {$debug} {
  5. if {$where eq "log"} {
  6. putlog $text
  7. } else {
  8. putmsg $where $text
  9. }
  10. }
  11. }