Adapt application hooks to conform Spec application rules

pharo-spec · Nov 2, 2024 · f0536fa · f0536fa
1 parent 5cf0dcf
commit f0536fa
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 20 deletions.
diff --git a/src/NewTools-SettingsBrowser/StSettingsAbstractPresenter.class.st b/src/NewTools-SettingsBrowser/StSettingsAbstractPresenter.class.st
@@ -28,5 +28,5 @@ StSettingsAbstractPresenter >> sectionTitleString [
 StSettingsAbstractPresenter >> settingsTree [
 	"Answer the receiver's <StSettingsTree>, the settings model"
 
-	^ self application settingsTree.
+	^ self application propertyAt: #settingsTree.
 ]
diff --git a/src/NewTools-SettingsBrowser/StSettingsCategoryItemPresenter.class.st b/src/NewTools-SettingsBrowser/StSettingsCategoryItemPresenter.class.st
@@ -29,7 +29,7 @@ StSettingsCategoryItemPresenter >> defaultLayout [
 StSettingsCategoryItemPresenter >> iconMapAt: aString [ 
 	"Answer a <Symbol> representing an icon selector matching aString"
 
-	^ self application iconMapAt: aString
+	^ (self application propertyAt: #iconMap) at: aString
 ]
 
 { #category : 'accessing' }

diff --git a/src/NewTools-SettingsBrowser/StSettingsMainPresenter.class.st b/src/NewTools-SettingsBrowser/StSettingsMainPresenter.class.st
@@ -28,12 +28,11 @@ Class {
 { #category : 'accessing' }
 StSettingsMainPresenter class >> application [
 
-	self haltOnce.
 	^ StPharoApplication current
-		propertyAt: #settingsStree put: StSettingsTree new;
-		"propertyAt: #iconMap put: self iconMap;"
+		propertyAt: #settingsTree put: StSettingsTree new;
+		propertyAt: #iconMap put: self iconMap;
 		styleSheet: self styleSheet;
-		"iconProvider: self iconProvider;"
+		iconProvider: StSettingsBrowserIconProvider new;
 		yourself.
 
 ]
@@ -60,13 +59,6 @@ StSettingsMainPresenter class >> iconMapAt: aString [
 		ifAbsent: [ #info ]
 ]
 
-{ #category : 'accessing' }
-StSettingsMainPresenter class >> iconProvider [
-
-	^ iconProvider
-		ifNil: [ iconProvider := self newIconProvider ]
-]
-
 { #category : 'accessing' }
 StSettingsMainPresenter class >> initializeIconMap [
 
@@ -97,13 +89,6 @@ StSettingsMainPresenter class >> menuSettingsBrowserCommandOn: aBuilder [
 		order: 3
 ]
 
-{ #category : 'world menu' }
-StSettingsMainPresenter class >> newApplication: anApplication [
-
-	self haltOnce.
-	super newApplication: anApplication
-]
-
 { #category : 'accessing - icons' }
 StSettingsMainPresenter class >> newIconProvider [