--- a/ViewStyle.st	Thu Jul 25 22:01:04 1996 +0200
+++ b/ViewStyle.st	Thu Jul 25 22:57:46 1996 +0200
@@ -112,7 +112,7 @@
 
     |aResource deviceResource device|
 
-    device := Screen current.
+    device := Display. "/ Screen current.
     aResource := self at:aKey default:default.
     aResource isNil ifTrue:[
 	aResource := default
@@ -123,7 +123,7 @@
     deviceResource notNil ifTrue:[
 	^ deviceResource
     ].
-    ^ nil
+    ^ aResource
 !
 
 doesNotUnderstand:aMessage
@@ -161,5 +161,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.10 1996-04-25 17:31:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.11 1996-07-25 20:57:46 cg Exp $'
 ! !