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

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

Author: douglask
Date: Mon Jan 14 10:44:20 2008
New Revision: 4118

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

Log:
Right mouse button bind for the video windows wasn't working since $m was not set in the deferred block (i.e. { and } ) at event time.

Solution involves using %W which is the path name of the window involved in the right mouse button event.


Modified: vic/branches/mpeg4/tcl/ui-windows.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-windows.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-windows.tcl	Mon Jan 14 10:44:20 2008
@@ -378,6 +378,8 @@
 	global button_active vtk_client
 
 	bind $v <Button-3> {
+	    set w [lindex [split %W "."] 1]
+	    set m .$w.bar.size.menu
 	    tk_popup $m %x %y
 	}