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

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

Author: douglask
Date: Sun Mar  7 04:43:32 2010
New Revision: 4678

Modified:
   vic/branches/mpeg4/tcl/ui-main.tcl
   vic/branches/mpeg4/tcl/ui-relate.tcl
   vic/branches/mpeg4/tcl/ui-srclist.tcl
   vic/branches/mpeg4/tcl/ui-util.tcl
   vic/branches/mpeg4/tcl/ui-windows.tcl

Log:
Disable sloppy focus and let the Window manger do the appropriate thing

Modified: vic/branches/mpeg4/tcl/ui-main.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-main.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-main.tcl	Sun Mar  7 04:43:32 2010
@@ -260,7 +260,7 @@
 	#
 	# emulate implicit keyboard focus
 	#
-	bind . <Enter> { focus %W }
+	#bind . <Enter> { focus %W }
 	#wm focusmodel . active
 	bind . <q> { adios }
 	bind . <Control-c> { adios }

Modified: vic/branches/mpeg4/tcl/ui-relate.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-relate.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-relate.tcl	Sun Mar  7 04:43:32 2010
@@ -478,7 +478,7 @@
 	#
 	# emulate implicit keyboard focus
 	#
-	bind . <Enter> { focus %W }
+	#bind . <Enter> { focus %W }
 	#wm focusmodel . active
 	bind . <q> { adios }
 	bind . <Control-c> { adios }

Modified: vic/branches/mpeg4/tcl/ui-srclist.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-srclist.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-srclist.tcl	Sun Mar  7 04:43:32 2010
@@ -33,7 +33,7 @@
 	toplevel $w
 	wm withdraw $w
 	wm geometry $w 300x320
-	bind $w <Enter> "focus $w"
+	#bind $w <Enter> "focus $w"
 	#XXX
 	wm title $w "VIC Members"
 	wm minsize $w 0 0

Modified: vic/branches/mpeg4/tcl/ui-util.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-util.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-util.tcl	Sun Mar  7 04:43:32 2010
@@ -146,7 +146,7 @@
 	wm transient $w .
 	wm title $w $title
 	wm iconname $w $title
-	bind $w <Enter> "focus $w"
+	#bind $w <Enter> "focus $w"
 }
 
 #
@@ -191,7 +191,7 @@
 	wm geom $w +$x+$y
 	wm deiconify $w
 
-	bind $w <Enter> "focus $w"
+	#bind $w <Enter> "focus $w"
 }
 
 proc helpitem { w text } {

Modified: vic/branches/mpeg4/tcl/ui-windows.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-windows.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-windows.tcl	Sun Mar  7 04:43:32 2010
@@ -349,7 +349,7 @@
 		$w.bar.size.menu add cascade -menu $m -label Mode
         }
 
-	bind $w <Enter> { focus %W }
+	#bind $w <Enter> { focus %W }
 	#wm focusmodel $w active
 
 	bind $w <s> "resize $v 176 144; set size$w 176x144"
@@ -570,7 +570,7 @@
 	pack $w.frame.video -anchor c
 	pack $w.frame -expand 1 -fill both
 
-	bind $w <Enter> { focus %W }
+	#bind $w <Enter> { focus %W }
 
 	bind $w <d> "destroy_userwin $v"
 	bind $w <q> "destroy_userwin $v"