--- a/ViewStyle.st	Thu Jun 24 10:45:34 1999 +0200
+++ b/ViewStyle.st	Thu Jun 24 14:47:57 1999 +0200
@@ -10,10 +10,8 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:22:01 pm'                 !
-
 ResourcePack subclass:#ViewStyle
-	instanceVariableNames:'name is3D'
+	instanceVariableNames:'name is3D viewGrey'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Support'
@@ -184,6 +182,13 @@
 	name := self at:#name default:'noname'.
     ].
     ^ name
+!
+
+viewGrey
+    viewGrey isNil ifTrue:[
+        viewGrey := self at:#viewGrey default:nil.
+    ].
+    ^ viewGrey
 ! !
 
 !ViewStyle methodsFor:'error handling'!
@@ -200,5 +205,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.16 1998-09-18 11:44:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.17 1999-06-24 12:47:57 cg Exp $'
 ! !