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

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

Author: piers
Date: Wed Jun 13 16:48:29 2007
New Revision: 4065

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

Log:
Added console hide (using catch for those environments where it's not supported - eg. tcltk80). Reported and a patch submitted by Tom Uram.


Modified: vic/branches/mpeg4/tcl/accessgrid.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/accessgrid.tcl	(original)
+++ vic/branches/mpeg4/tcl/accessgrid.tcl	Wed Jun 13 16:48:29 2007
@@ -637,6 +637,7 @@
     ag_init_resources
     ag_init_window_grid
     ag_init_site_map
+    catch {console hide}
 
     #ag_puts "enable=[option get . ag_enable_window_grid Vic]";
 #    if [yesno ag_enable_window_grid] {