lib/tclUtil.wish

   1
   2 proc NotSupportedCommand { } {
   3         puts stderr "Not supported command"
   4 }
   5
   6 proc debugPrint { s } {
   7         global debugMode
   8
   9         if { $debugMode == 1} {
  10                 puts stderr $s; flush stderr
  11         } else {
  12
  13         }
  14 }