class: Scroller
authorStefan Vogel <sv@exept.de>
Tue, 18 Feb 2014 17:47:31 +0100
changeset 4917 75b139264ad4
parent 4916 8773e0c05f1b
child 4918 8fec589c2230
class: Scroller changed: #initStyle fetch color via method call instead of class variable
Scroller.st
--- a/Scroller.st	Tue Feb 18 17:47:16 2014 +0100
+++ b/Scroller.st	Tue Feb 18 17:47:31 2014 +0100
@@ -2225,7 +2225,7 @@
             thumbHalfLightColor := self whiteColor
         ].
 
-        thumbShadowColor := Black.
+        thumbShadowColor := self blackColor.
 "/        thumbLightColor := White.
 
         nm = #motif ifTrue:[
@@ -2757,10 +2757,10 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $'
 ! !