--- a/ViewStyle.st	Tue Sep 08 12:02:25 1998 +0200
+++ b/ViewStyle.st	Tue Sep 08 12:02:57 1998 +0200
@@ -44,11 +44,11 @@
     directory.
 
     [see also:]
-        View
-        ( Configuration & Customization :html: custom/TOP.html#VIEWSTYLE )
+	View
+	( Configuration & Customization :html: custom/TOP.html#VIEWSTYLE )
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 ! !
 
@@ -105,8 +105,8 @@
 
     (self includesKey:aKey) ifTrue:[^ super at:aKey ifAbsent:default].
     (i := aKey indexOf:$.) ~~ 0 ifTrue:[
-        k2 := (aKey copyTo:i-1) , (aKey copyFrom:i+1) asUppercaseFirst.
-        (self includesKey:k2) ifTrue:[^ super at:k2 ifAbsent:default].
+	k2 := (aKey copyTo:i-1) , (aKey copyFrom:i+1) asUppercaseFirst.
+	(self includesKey:k2) ifTrue:[^ super at:k2 ifAbsent:default].
     ].
     ^ default
 
@@ -137,19 +137,19 @@
     device := Display.
     aResource := self at:aKey default:default.
     aResource isNil ifTrue:[
-        aResource := default
+	aResource := default
     ].
     aResource notNil ifTrue:[
-        device notNil ifTrue:[
-            deviceResource := aResource on:device.
-        ]
+	device notNil ifTrue:[
+	    deviceResource := aResource onDevice:device.
+	]
     ].
     deviceResource notNil ifTrue:[
-        ^ deviceResource
+	^ deviceResource
     ].
     ^ aResource
 
-    "Modified: 16.1.1997 / 17:50:15 / cg"
+    "Modified: / 5.9.1998 / 20:25:19 / cg"
 !
 
 doesNotUnderstand:aMessage
@@ -198,5 +198,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.14 1997-10-15 11:34:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.15 1998-09-08 10:02:57 cg Exp $'
 ! !