--- 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.