[Sumover-dev] [svn commit] r4437 - rat/trunk

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

Author: douglask
Date: Wed Apr 22 12:47:54 2009
New Revision: 4437

Modified:
   rat/trunk/ui_audiotool.tcl

Log:
Use -background from another widget to set the disabled color of the scrollbar


Modified: rat/trunk/ui_audiotool.tcl
==============================================================================
--- rat/trunk/ui_audiotool.tcl	(original)
+++ rat/trunk/ui_audiotool.tcl	Wed Apr 22 12:47:54 2009
@@ -1616,14 +1616,7 @@
 if {$::tk_version < 8.5} {
     scrollbar .l.t.scr -relief flat -highlightthickness 0 -command ".l.t.list yview"
 } else {
-    scrollbar .l.t.tmp
-    ttk::style configure TScrollbar \
-	-background  [.l.t.tmp cget -background] \
-	-troughcolor [.l.t.tmp cget -troughcolor] \
-	;
-    ttk::style map TScrollbar \
-	-background [list disabled [.l.t.tmp cget -background]] \
-	;
+    ttk::style map TScrollbar -background [list disabled [.l.t cget -bg]]
 
     ttk::scrollbar .l.t.scr -command ".l.t.list yview"
 }