[Sumover-dev] [svn commit] r4040 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Tue May 29 23:26:19 2007
New Revision: 4040

Modified:
   vic/branches/mpeg4/tcl/accessgrid.tcl

Log:
Disabled stdout window.


Modified: vic/branches/mpeg4/tcl/accessgrid.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/accessgrid.tcl	(original)
+++ vic/branches/mpeg4/tcl/accessgrid.tcl	Tue May 29 23:26:19 2007
@@ -14,7 +14,7 @@
 
 proc ag_stdout_init {} {
     global tcl_platform
-    if { 1 && $tcl_platform(platform) == "windows" } {
+    if { 0 && $tcl_platform(platform) == "windows" } {
 	ag_stdout_init_window
 	ag_puts  "Stdout window initialized ..."
   }
@@ -22,7 +22,7 @@
 
 proc ag_puts s {
     global tcl_platform
-    if { 1 && $tcl_platform(platform) == "windows" } {
+    if { 0 && $tcl_platform(platform) == "windows" } {
 		.stdout.text insert end "$s\n"
 		.stdout.text yview moveto 1
     } else {