output proc
Posted to
tcl
by Vadtec at Wed May 09 13:46:48 GMT 2007
view raw
proc
output { where
text
} {
global
debug
if
{
$debug
} {
if
{
$where
eq "log"} {
putlog
$text
}
else
{
putmsg
$where
$text
}
}
}
Recent Posts
tcl by Bombo
3 days ago
tcl by egavilan
11 days ago
tcl by bch
17 days ago
tcl by Bradipo
17 days ago
tcl by aspect
17 days ago
tcl by Bradipo
17 days ago
tcl by Bradipo
17 days ago
tcl by Bradipo
17 days ago
lilypond by Bradipo
19 days ago
tcl by cgm
29 days ago
Submit
New paste
Documentation
From Jabber