Merge pull request #1544 from pharo-spec/deprecations

Remove references to deprecated classes
pharo-spec · May 17, 2024 · 5df6c0e · 5df6c0e
2 parents 1b93c6d + 6a531cb
commit 5df6c0e
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/src/Spec2-CommonWidgets/SpChooserPresenter.class.st b/src/Spec2-CommonWidgets/SpChooserPresenter.class.st
@@ -49,10 +49,10 @@ SpChooserPresenter class >> exampleClasses [
 SpChooserPresenter class >> examplePackages [
 
 	^ (self
-		   sourceItems: RPackageOrganizer default packages
-		   chosenItems:
-		   { (RPackageOrganizer default packageNamed: 'Spec2-CommonWidgets') }
-		   displayBlock: #packageName) open
+		sourceItems: self packageOrganizer packages
+		chosenItems: { (self packageOrganizer packageNamed: 'Spec2-CommonWidgets') }
+		displayBlock: #packageName)
+		  open
 ]
 
 { #category : 'instance creation' }

diff --git a/src/Spec2-Examples/SpTransmissionComponentListExample.class.st b/src/Spec2-Examples/SpTransmissionComponentListExample.class.st
@@ -96,9 +96,9 @@ SpTransmissionComponentListExample >> initializePresenters [
 		display: [ :package | package name ];
 		displayIcon: [ self iconNamed: #package ];
 		sortingBlock: [ :a :b | a name < b name ];
-		items: RPackageOrganizer default packages.
+		items: self class packageOrganizer packages.
 
-	classesPresenter := self newComponentList.
+	classesPresenter := self newComponentList
 ]
 
 { #category : 'initialization' }

diff --git a/src/Spec2-Examples/SpTransmissionExample.class.st b/src/Spec2-Examples/SpTransmissionExample.class.st
@@ -173,7 +173,7 @@ SpTransmissionExample >> initializePackagesPresenter [
 		display: [ :package | package name ];
 		displayIcon: [ self iconNamed: #package ];
 		sortingBlock: [ :a :b | a name < b name ];
-		items: RPackageOrganizer default packages
+		items: self class packageOrganizer packages
 ]
 
 { #category : 'initialization' }

diff --git a/src/Spec2-Morphic-Backend-Tests/SpPresenterBuildTest.class.st b/src/Spec2-Morphic-Backend-Tests/SpPresenterBuildTest.class.st
@@ -32,7 +32,7 @@ SpPresenterBuildTest >> testBuildPresenterWillSetPresenterProperty [
 SpPresenterBuildTest >> testBuildWidgetPresenterWillSetPresenterProperty [
 
 	| package |
-	package := RPackageOrganizer default packageNamed: 'Spec2-Core'.
+	package := self class packageOrganizer packageNamed: 'Spec2-Core'.
 	SpAbstractWidgetPresenter allSubclasses
 		select: [ :each | 
 			each package = package and: [