1 package provide Display 1.0
2 package require Tcl 8.4
4 namespace eval ::Display {
16 proc ::Display::display {msg} {
20 proc ::Display::debug {msg} {
23 if {$Display::debug} {
28 proc ::Display::error {msg} {
33 proc ::Display::verbose {msg} {
36 if {$Display::verbose} {
41 proc ::Display::set_debug {newValue} {
44 set oldValue $Display::debug
46 set Display::debug $newValue
51 proc ::Display::set_verbose {newValue} {
54 set oldValue $Display::verbose
56 set Display::verbose $newValue