--- a/TextView.st	Wed Dec 18 19:08:28 1996 +0100
+++ b/TextView.st	Thu Dec 19 14:38:46 1996 +0100
@@ -103,6 +103,14 @@
 
 !TextView class methodsFor:'defaults'!
 
+defaultIcon
+    "return the icon if started as a topView"
+
+    ^ Image fromFile:'bitmaps/Editor.xbm' resolution:100
+
+    "Created: 1.1.1970 / 14:12:18 / cg"
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -183,16 +191,16 @@
     |top frame label|
 
     label := 'unnamed'.
-    top := StandardSystemView 
-		label:label
-		 icon:(Form fromFile:'Editor.xbm' resolution:100).
+    top := StandardSystemView label:label icon:self defaultIcon.
 
     frame := HVScrollableView 
-		for:self 
-		miniScrollerH:true miniScrollerV:false
-		in:top.
+                for:self 
+                miniScrollerH:true miniScrollerV:false
+                in:top.
     frame origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
     ^ frame scrolledView
+
+    "Modified: 23.5.1965 / 14:12:32 / cg"
 !
 
 setupOn:aFileName
@@ -2269,5 +2277,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.70 1996-11-01 17:32:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.71 1996-12-19 13:38:46 cg Exp $'
 ! !