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

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

Author: piers
Date: Fri Jul 27 16:30:02 2007
New Revision: 4082

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

Log:
Applied Doug Kosovic patch for autplace window - to capture and handle the WM_DELETE event - ticket #159


Modified: vic/branches/mpeg4/tcl/autoplace_ui.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/autoplace_ui.tcl	(original)
+++ vic/branches/mpeg4/tcl/autoplace_ui.tcl	Fri Jul 27 16:30:02 2007
@@ -196,13 +196,12 @@
 		button $top.bottomframe.controls.quit  -text "Close"            -command "[namespace code {wm withdraw}] $top"
 		pack   $top.bottomframe.controls.apply -side left
 		pack   $top.bottomframe.controls.write -side left
-		pack   $top.bottomframe.controls.quit  -side left	
+		pack   $top.bottomframe.controls.quit  -side left
 		pack   $top.bottomframe.controls       -side right
-		pack $top.bottomframe -side bottom -fill both 
-		
-				
-		
+		pack $top.bottomframe -side bottom -fill both
 
+		# added to catch window close action
+		wm protocol $top WM_DELETE_WINDOW "wm withdraw $top"
 
 		return $top
     }