Keep maximize window when world extent changed.

src/FromScratch/SpScratchApp.class.st

@@ -64,6 +64,16 @@ SpScratchApp class >> initialize [
 	Settings := nil
 ]
 
+{ #category : #accessing }
+SpScratchApp class >> keepMaximize [
+	^ self settings at: #keepMaximize ifAbsentPut: [ false ]
+]
+
+{ #category : #accessing }
+SpScratchApp class >> keepMaximize: aBoolean [
+	self settings at: #keepMaximize put: aBoolean
+]
+
 { #category : #accessing }
 SpScratchApp class >> loadSettings [
 	| fr dict |
@@ -84,6 +94,8 @@ SpScratchApp class >> optionsFor: aSymbol [
 		ifTrue: [ ^ {true . false} ].
 	aSymbol = #dontClose
 		ifTrue: [ ^ {true . false} ].
+	aSymbol = #keepMaximize
+		ifTrue: [ ^ {true . false} ].
 	^ #()
 ]
 
@@ -319,6 +331,13 @@ SpScratchApp >> deserializeFrom: aString [
 	^ obj
 ]
 
+{ #category : #'change reporting' }
+SpScratchApp >> displayExtentChanged [
+	self class keepMaximize
+		ifFalse: [ ^ self ].
+	presenter window window fullscreen
+]
+
 { #category : #'menu actions' }
 SpScratchApp >> duplicateBlock: aBlockMorph [
 	| code obj |

src/FromScratch/SpScratchFrame.class.st

@@ -148,7 +148,8 @@ SpScratchFrame >> initializeWindow: aWindow [
 		aboutText: application aboutAppString;
 		whenClosedDo: [ application windowClosing ].
 	application class stickyWindow
-		ifTrue: [ aWindow window beSticky ]
+		ifTrue: [ aWindow window beSticky ].
+	self updateDontCloseSetting
 ]
 
 { #category : #private }

src/FromScratch/SpWindow.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #SpWindow }
+
+{ #category : #'*FromScratch' }
+SpWindow >> displayExtentChanged [
+	self model ifNil: [ ^ self ].
+	(self model application respondsTo: #displayExtentChanged)
+		ifFalse: [ ^ self ].
+	self model application displayExtentChanged
+]