class: Scroller
changed: #initStyle
fetch color via method call instead of class variable
--- 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 $'
! !