ApplicationModel.st
changeset 3670 21de0f66fa8e
parent 3666 e65ca937cdbd
child 3671 52c3c5a35e73
child 3677 1fd6bb99c343
--- a/ApplicationModel.st	Sun May 08 03:59:17 2016 +0200
+++ b/ApplicationModel.st	Sun May 08 09:57:19 2016 +0200
@@ -517,12 +517,17 @@
 !ApplicationModel class methodsFor:'defaults'!
 
 defaultExtentFor:anApplicationClass
+    "return a default extent for an app-class or nil.
+     If the user has the corresponding userPreference set,
+     previous extents are remembered (at close time)
+     and used as default for the next opening."
+     
     DefaultExtents notNil ifTrue:[
-	UserPreferences current shouldRememberLastExtent ifTrue:[
-	    ^ DefaultExtents at:anApplicationClass name ifAbsent:nil
-	] ifFalse:[
-	    DefaultExtents := nil.
-	]
+        UserPreferences current shouldRememberLastExtent ifTrue:[
+            ^ DefaultExtents at:anApplicationClass name ifAbsent:nil
+        ].
+        "/ flush remebered values
+        DefaultExtents := nil.
     ].
     ^ nil.