equal
deleted
inserted
replaced
2223 thumbEdgeStyle notNil ifTrue:[ |
2223 thumbEdgeStyle notNil ifTrue:[ |
2224 thumbHalfShadowColor := Color darkGray. |
2224 thumbHalfShadowColor := Color darkGray. |
2225 thumbHalfLightColor := self whiteColor |
2225 thumbHalfLightColor := self whiteColor |
2226 ]. |
2226 ]. |
2227 |
2227 |
2228 thumbShadowColor := Black. |
2228 thumbShadowColor := self blackColor. |
2229 "/ thumbLightColor := White. |
2229 "/ thumbLightColor := White. |
2230 |
2230 |
2231 nm = #motif ifTrue:[ |
2231 nm = #motif ifTrue:[ |
2232 DefaultThumbColor isNil ifTrue:[ |
2232 DefaultThumbColor isNil ifTrue:[ |
2233 thumbColor := self whiteColor. |
2233 thumbColor := self whiteColor. |
2755 ! ! |
2755 ! ! |
2756 |
2756 |
2757 !Scroller class methodsFor:'documentation'! |
2757 !Scroller class methodsFor:'documentation'! |
2758 |
2758 |
2759 version |
2759 version |
2760 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $' |
2760 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $' |
2761 ! |
2761 ! |
2762 |
2762 |
2763 version_CVS |
2763 version_CVS |
2764 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.204 2014-02-18 16:20:37 stefan Exp $' |
2764 ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.205 2014-02-18 16:47:31 stefan Exp $' |
2765 ! ! |
2765 ! ! |
2766 |
2766 |