Please enter the commit message for your changes. Lines starting

[eos/hostdependX86LINUX64.git] / lib / tclUtil.wish

diff --git a/lib/tclUtil.wish b/lib/tclUtil.wish
index 1cac1d5..f723812 100644 (file)
--- a/lib/tclUtil.wish
+++ b/lib/tclUtil.wish
@@ -1,3 +1,14 @@
+
 proc NotSupportedCommand { } {
        puts stderr "Not supported command"
 }
+
+proc debugPrint { s } {
+       global debugMode  
+
+       if { $debugMode == 1} {
+               puts stderr $s; flush stderr
+       } else {
+
+       }
+}