SystemWindow Shared Variable depends on the SpClosedWindowListPresent…

…er with those changes
pharo-spec · Feb 7, 2025 · 8f50b2d · 8f50b2d
1 parent 51ed6bb
commit 8f50b2d
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 3 deletions.
diff --git a/src/BaselineOfNewTools/BaselineOfNewTools.class.st b/src/BaselineOfNewTools/BaselineOfNewTools.class.st
@@ -265,7 +265,8 @@ BaselineOfNewTools >> postload: loader package: packageSpec [
 
 	MCMethodDefinition initializersEnabled: initializersEnabled.
 	self loadThemeImages.
-	SystemWindow useHideForClose: true
+
+
 ]
 
 { #category : 'actions' }

diff --git a/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st b/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st
@@ -53,6 +53,14 @@ SpClosedWindowListPresenter class >> defaultPreferredExtent [
 	^ 310 @ 185
 ]
 
+{ #category : 'accessing' }
+SpClosedWindowListPresenter class >> enableCloseWindow [
+
+	EnableCloseWindow ifNil: [ EnableCloseWindow := true ].
+	SystemWindow useHideForClose: EnableCloseWindow.
+	^ EnableCloseWindow
+]
+
 { #category : 'class initialization' }
 SpClosedWindowListPresenter class >> initialize [
 
@@ -79,8 +87,9 @@ SpClosedWindowListPresenter class >> settingOn: aBuilder [
 	(aBuilder setting: #useHideForClose)
 		parent: #tools;
 		order: 1;
-		default: SystemWindow useHideForClose;
-		target: SystemWindow;
+		default: self enableCloseWindow ;
+		target: self;
+		selector: #enableCloseWindow;
 		description:
 			'If closed windows will be stored in SpClosedWindowListPresenter';
 		label: 'Use last closed windows'