--- a/View.st	Sat Mar 25 23:17:13 1995 +0100
+++ b/View.st	Sun Mar 26 22:14:10 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/View.st,v 1.37 1995-03-25 22:13:32 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.38 1995-03-26 20:13:34 claus Exp $
 '!
 
 !View class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/View.st,v 1.37 1995-03-25 22:13:32 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.38 1995-03-26 20:13:34 claus Exp $
 "
 !
 
@@ -142,11 +142,20 @@
 !View class methodsFor:'initialization'!
 
 initialize
-    super initialize.
-    Form initialize.
-    Color initialize.
+    DefaultStyle isNil ifTrue:[
+	super initialize.
+
+	Font initialize.
+	Form initialize.
+	Color initialize.
+
+	self defaultStyle:#normal.
+
 "/    self updateStyleCache.
-    Smalltalk addDependent:self   "/ to get language changes
+	self == View ifTrue:[
+	    Smalltalk addDependent:self   "/ to get language changes
+	]
+    ]
 ! !
 
 !View class methodsFor:'change & update'!