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

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

Author: piers
Date: Thu May  3 11:55:09 2007
New Revision: 4005

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

Log:
Fixes for error when the Apply button is push before a layout area has been assigned. It will just do nothing till the layout region has been drawn.


Modified: vic/branches/mpeg4/tcl/autoplace_ui.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/autoplace_ui.tcl	(original)
+++ vic/branches/mpeg4/tcl/autoplace_ui.tcl	Thu May  3 11:55:09 2007
@@ -169,6 +169,8 @@
 	variable grid_top_x
 	variable grid_top_y
 
+	if ![ info exists grid_top_x ] { return }
+
 	set ag_window_grid_base_x $grid_top_x
 	set ag_window_grid_base_y $grid_top_y
 
@@ -194,6 +196,8 @@
 
 	global ag_window_grid_mode
 
+	if ![ info exists grid_top_x ] { return }
+
 	if { $ap_active} { set a "true" } else { set a "false" }
 
 	set fh [open "vic.prefs" "w"]