--- a/SimpleView.st	Mon Apr 22 19:50:16 1996 +0200
+++ b/SimpleView.st	Mon Apr 22 23:39:59 1996 +0200
@@ -877,10 +877,14 @@
 !SimpleView class methodsFor:'defaults'!
 
 defaultExtent
-    "define the default extent"
+    "return the default extent of my instances.
+     The value returned here is usually ignored, and
+     the value from preferredExtent taken instead."
 
     CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
     ^ CentPoint
+
+    "Modified: 22.4.1996 / 23:38:39 / cg"
 !
 
 defaultFont
@@ -3981,9 +3985,12 @@
 !
 
 defaultExtent
+    "return the default extent of my instances."
+
     ^ self class defaultExtent
 
     "Created: 1.3.1996 / 19:20:46 / cg"
+    "Modified: 22.4.1996 / 23:38:27 / cg"
 !
 
 initEvents
@@ -6181,6 +6188,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.78 1996-04-22 17:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.79 1996-04-22 21:39:59 cg Exp $'
 ! !
 SimpleView initialize!