--- a/ApplicationModel.st	Wed Jul 31 18:12:54 2013 +0200
+++ b/ApplicationModel.st	Wed Jul 31 18:21:11 2013 +0200
@@ -499,6 +499,19 @@
 
 !ApplicationModel class methodsFor:'defaults'!
 
+defaultExtentFor:anApplicationClass
+    DefaultExtents notNil ifTrue:[
+        UserPreferences current shouldRememberLastExtent ifTrue:[
+            ^ DefaultExtents at:anApplicationClass name ifAbsent:nil
+        ] ifFalse:[
+            DefaultExtents := nil.
+        ] 
+    ].
+    ^ nil.
+
+    "Modified: / 31-07-2013 / 18:20:28 / cg"
+!
+
 defaultHttpServerPort
     "this is only used for web-applications"
 
@@ -641,13 +654,6 @@
 
 !ApplicationModel class methodsFor:'queries'!
 
-defaultExtentFor:anApplicationClass
-    DefaultExtents notNil ifTrue:[
-        ^ DefaultExtents at:anApplicationClass name ifAbsent:nil
-    ].
-    ^ nil.
-!
-
 interfaceSpecFor:aSelector
     "return an interface spec"
     
@@ -3576,7 +3582,6 @@
     |window|
 
     window := self window.
-
     (window notNil and:[window isTopView]) ifTrue:[
         DefaultExtents isNil ifTrue:[
             DefaultExtents := Dictionary new.
@@ -4004,11 +4009,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.345 2013-07-31 16:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.346 2013-07-31 16:21:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.345 2013-07-31 16:12:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.346 2013-07-31 16:21:11 cg Exp $'
 ! !