--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ViewStyle.st	Fri Aug 05 03:15:24 1994 +0200
@@ -0,0 +1,100 @@
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+ResourcePack subclass:#ViewStyle 
+         instanceVariableNames:'bgColor fgColor borderWidth'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Support'
+!
+
+ViewStyle comment:'
+COPYRIGHT (c) 1994 by Claus Gittinger
+              All Rights Reserved
+
+$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.1 1994-08-05 01:15:24 claus Exp $
+'!
+
+!ViewStyle class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.1 1994-08-05 01:15:24 claus Exp $
+"
+!
+
+documentation
+"
+    instances of this class keep all view-style specific information.
+    For better performance, they cache some heavily used values in extra
+    instance variables (basically, they are dictionaries).
+"
+! !
+
+!ViewStyle class methodsFor:'instance creation'!
+
+fromFile:aFileName
+    "get the preferences definitions from a file"
+
+    |prefs|
+
+    prefs := super fromFile:aFileName directory:'styles'.
+    ^ prefs
+
+    "ViewStyle fromFile:'motif.style'"
+    "ViewStyle fromFile:'normal.style'"
+    "ViewStyle fromFile:'iris.style'"
+! !
+
+!ViewStyle methodsFor:'accessing'!
+
+backgroundColor
+    bgColor notNil ifTrue:[
+        ^ bgColor
+    ].
+    ^ self at:#backgroundColor ifAbsent:[nil]
+!
+
+foregroundColor
+    fgColor notNil ifTrue:[
+        ^ fgColor
+    ].
+    ^ self at:#foregroundColor ifAbsent:[nil]
+!
+
+borderWidth
+    borderWidth notNil ifTrue:[
+        ^ borderWidth
+    ].
+    ^ self at:#borderWidth ifAbsent:[nil]
+!
+
+doesNotUnderstand:aMessage
+    ^ self at:(aMessage selector) ifAbsent:[nil]
+! !
+
+
+