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

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

Author: piers
Date: Thu Jun 14 17:36:33 2007
New Revision: 4066

Modified:
   vic/branches/mpeg4/tcl/ui-windows.tcl

Log:
Added keybinding to remove window decorations - "z" removes them, "Z" puts them back (so you can move the window)


Modified: vic/branches/mpeg4/tcl/ui-windows.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-windows.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-windows.tcl	Thu Jun 14 17:36:33 2007
@@ -348,6 +348,9 @@
 	bind $w <e> "resize $v 1000 750"
 	bind $w <E> "resize $v 1024 768"
 	bind $w <x> "resize $v 640 240"
+	bind $w <z> "catch { wm overrideredirect $w 1; wm withdraw $w; wm deiconify $w}"
+	bind $w <Z> "catch { wm overrideredirect $w 0; wm withdraw $w; wm deiconify $w}"
+
 
 	bind $w <d> "destroy_userwin $v"
 	bind $w <q> "destroy_userwin $v"