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

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

Author: piers
Date: Wed May  2 22:54:24 2007
New Revision: 3997

Modified:
   vic/branches/mpeg4/tcl/cf-main.tcl

Log:
Added autoquit from AG-vic


Modified: vic/branches/mpeg4/tcl/cf-main.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/cf-main.tcl	(original)
+++ vic/branches/mpeg4/tcl/cf-main.tcl	Wed May  2 22:54:24 2007
@@ -85,4 +85,9 @@
 		global transmitButton
 		$transmitButton invoke
 	}
+
+	set autoquit [option get . autoquit Vic]
+	if { $autoquit != "" } {
+		after $autoquit adios
+	}
 }