gray vs. grey
--- a/ScrollBar.st Tue May 28 21:00:16 1996 +0200
+++ b/ScrollBar.st Tue May 28 21:03:25 1996 +0200
@@ -500,7 +500,7 @@
self createElements.
(styleSheet at:'scrollBarDisableButtons' default:false) ifTrue:[
- thumb addDependent:self
+ thumb addDependent:self
].
button1 autoRepeat:true.
@@ -508,45 +508,45 @@
button1 borderWidth:borderWidth.
DefaultScrollerBordered ifFalse:[
- thumb borderWidth:borderWidth.
+ thumb borderWidth:borderWidth.
].
button2 borderWidth:borderWidth.
style := styleSheet name.
((style = #iris) and:[Display hasGreyscales]) ifTrue:[
- "have to change some of Buttons defaults"
- clr := (Color grey:25) on:device.
- button1 offLevel:2.
- button2 offLevel:2.
- button1 foregroundColor:clr.
- button1 activeForegroundColor:clr.
- button1 enteredForegroundColor:clr.
- button2 foregroundColor:clr.
- button2 activeForegroundColor:clr.
- button2 enteredForegroundColor:clr.
+ "have to change some of Buttons defaults"
+ clr := (Color gray:25) on:device.
+ button1 offLevel:2.
+ button2 offLevel:2.
+ button1 foregroundColor:clr.
+ button1 activeForegroundColor:clr.
+ button1 enteredForegroundColor:clr.
+ button2 foregroundColor:clr.
+ button2 activeForegroundColor:clr.
+ button2 enteredForegroundColor:clr.
].
self setElementPositions.
style = #motif ifTrue:[
- clr := thumb thumbColor.
- button1 foregroundColor:clr.
- button2 foregroundColor:clr.
+ clr := thumb thumbColor.
+ button1 foregroundColor:clr.
+ button2 foregroundColor:clr.
- clr := thumb viewBackground.
- button1 viewBackground:clr.
- button2 viewBackground:clr.
- button1 backgroundColor:clr.
- button2 backgroundColor:clr.
- button1 activeBackgroundColor:clr.
- button2 activeBackgroundColor:clr.
- device hasGreyscales ifFalse:[
- button1 activeForegroundColor:Black.
- button2 activeForegroundColor:Black.
- ]
+ clr := thumb viewBackground.
+ button1 viewBackground:clr.
+ button2 viewBackground:clr.
+ button1 backgroundColor:clr.
+ button2 backgroundColor:clr.
+ button1 activeBackgroundColor:clr.
+ button2 activeBackgroundColor:clr.
+ device hasGreyscales ifFalse:[
+ button1 activeForegroundColor:Black.
+ button2 activeForegroundColor:Black.
+ ]
]
- "Modified: 9.2.1996 / 22:42:16 / cg"
+ "Modified: 28.5.1996 / 20:55:18 / cg"
!
reinitialize
@@ -696,5 +696,5 @@
!ScrollBar class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.30 1996-05-03 23:12:39 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.31 1996-05-28 19:03:25 cg Exp $'
! !