auto-save settings in default preferences file

Author: demarey

src/PharoLauncher-Core/PhLOpenSettingsCommand.class.st

@@ -25,7 +25,7 @@ PhLOpenSettingsCommand >> execute [
 
 	^ (PhLSettingsPresenter 
 		newApplication: self application
-		model: PharoLauncherSettings new) open
+		model: PharoLauncherSettings default) open
 ]
 
 { #category : 'initialization' }

src/PharoLauncher-Core/PharoLauncherSettings.class.st

@@ -2,18 +2,49 @@
 I manage Pharo Launcher settings.
 I reuse settings pragma already defined and provide a nice API to set settings.
 I'm used by the Pharo Launcher settings presenter.
+In Pharo Launcher application, the Default instance is used.
 "
 Class {
 	#name : 'PharoLauncherSettings',
 	#superclass : 'Object',
 	#instVars : [
 		'manager'
 	],
+	#classVars : [
+		'Default'
+	],
 	#category : 'PharoLauncher-Core-Settings',
 	#package : 'PharoLauncher-Core',
 	#tag : 'Settings'
 }
 
+{ #category : 'accessing' }
+PharoLauncherSettings class >> default [
+
+	^ Default ifNil: [
+			  Default := self new
+				             preferencesFile: self preferencesFile;
+				             yourself ]
+]
+
+{ #category : 'accessing' }
+PharoLauncherSettings class >> preferencesFile [
+
+	^ (self preferencesFolder / 'settings.ston') asFileReference
+]
+
+{ #category : 'accessing' }
+PharoLauncherSettings class >> preferencesFolder [
+
+	^ FileLocator preferences / 'pharo-launcher'
+]
+
+{ #category : 'resetting' }
+PharoLauncherSettings class >> resetDefault [
+
+	Default := nil
+]
+
 { #category : 'accessing' }
 PharoLauncherSettings >> checkTemplateSourcesUpdate: aBoolean [ 
 
@@ -57,6 +88,12 @@ PharoLauncherSettings >> launchInALoginShell: aBoolean [
 	self setValueOfSettingNamed: '#pharoLauncher#launchInALoginShell' with: aBoolean
 ]
 
+{ #category : 'initialization' }
+PharoLauncherSettings >> preferencesFile: aFileReference [
+
+	manager fileReference: aFileReference
+]
+
 { #category : 'accessing - network' }
 PharoLauncherSettings >> proxyPassword: aString [ 
 

src/PharoLauncher-Spec2/PhLSettingsPresenter.class.st

@@ -25,7 +25,7 @@ PhLSettingsPresenter class >> open [
 
 { #category : 'accessing' }
 PhLSettingsPresenter >> appearenceSettingsPanel [
-	^ self instantiate: PhLAppearanceSettingsPresenter
+	^ self instantiate: PhLAppearanceSettingsPresenter on: self settings
 ]
 
 { #category : 'layout' }