gray vs. grey
authorClaus Gittinger <cg@exept.de>
Tue, 28 May 1996 21:03:25 +0200
changeset 706 54115626d33b
parent 705 e2e7e718eb93
child 707 9e5ed6312943
gray vs. grey
ScrollBar.st
--- 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 $'
 ! !