--- a/TopView.st	Thu May 30 11:19:23 2019 +0200
+++ b/TopView.st	Thu May 30 11:20:05 2019 +0200
@@ -800,16 +800,17 @@
     dev := device.                      "/ and device ...
     super destroy.                      "/ ... since destroy nils em
 
-"/    dev notNil ifTrue:[
-"/        dev flush
-"/    ].
+    "/    dev notNil ifTrue:[
+    "/        dev flush
+    "/    ].
 
     "/
     "/ destroy slaves and partners
     "/
     self masterSlaveMessage:#destroy inGroup:wg
 
-    "Modified: 20.3.1997 / 22:14:16 / cg"
+    "Modified: / 20-03-1997 / 22:14:16 / cg"
+    "Modified (format): / 30-05-2019 / 11:04:21 / Claus Gittinger"
 !
 
 initialize
@@ -858,6 +859,22 @@
 	keyboardProcessor := nil.
     ].
     super release
+!
+
+rememberLastExtent
+    "can be redefined in subclasses to return true 
+     iff the default size should be the same as the size when last closed.
+     If false is returned, the default size is computed from the contents.
+     Remembering is useful for file-selection boxes, 
+     when the user resized the box for many files.
+     It is NOT useful for generic box (like information:) which should just
+     adopt to their contents.
+     Here, false is returned as default, because I am abstract, not knowing what is
+     shown in me."
+     
+    ^ false
+
+    "Created: / 30-05-2019 / 10:58:08 / Claus Gittinger"
 ! !
 
 !TopView methodsFor:'misc'!