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

proc output { where text } {
	global debug
	
	if {$debug} {
		if {$where eq "log"} {
			putlog $text
		} else {
			putmsg $where $text
		}
	}
}