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

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

Author: douglask
Date: Sun Mar 28 10:16:35 2010
New Revision: 4735

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

Log:
Highlight video thumbnails with CornflowerBlue for MacOS X Tcl/Tk 8.5 vic


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 28 10:16:35 2010
@@ -703,9 +703,12 @@
 	pack $w.r.ctrl -fill x -side top
 	pack $w.r -side left -expand 1 -fill x
 
-	if {$::tk_version > 8.4} {
+	if {$::tk_version > 8.4 && [windowingsystem] != "aqua"} {
 		bind $stamp <Enter> "%W configure -background [$m cget -activebackground]"
 		bind $stamp <Leave> "%W configure -background [$m cget -background]"
+	} elseif {$::tk_version > 8.4 && [windowingsystem] == "aqua"} {
+		bind $stamp <Enter> "%W configure -background CornflowerBlue"
+		bind $stamp <Leave> "%W configure -background [$m cget -background]"
 	} elseif {[windowingsystem] == "aqua"} {
 		bind $stamp <Enter> "%W configure -background CornflowerBlue"
 		bind $stamp <Leave> "%W configure -background [resource background]"