Merge pull request SeasideSt#172 from SeasideSt/pharo12

Johan Brichau · web-flow · commit c854800856ff · 2024-02-04T17:30:24.000+01:00
Address Pharo12 deprecations
diff --git a/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo110-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st
diff --git a/repository/Grease-Pharo110-Slime.package/monticello.meta/categories.st b/repository/Grease-Pharo110-Slime.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-Pharo110-Slime'!
+self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime' withTags: #()!
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st
@@ -11,5 +11,5 @@ testCompileIntoClassified
 		classified: protocol.
 	
 	[ self assert: (self class selectors includes: selector).
-	selectors := self class organization listAtCategoryNamed: protocol.
+	selectors := self class selectorsInProtocol: protocol.
 	self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelector: selector ]
diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-Tests-Pharo-Core'!
+self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Core' withTags: #()!
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st
@@ -1,20 +1,4 @@
 accessing-code
 defineSubClassOf: aSuperSymbol
 
-	| class |
-	class := SystemVersion current major >= 12
-		         ifTrue: [
-			         factory make: [ :aBuilder |
-				         aBuilder
-					         superclass: (Smalltalk at: aSuperSymbol);
-					         package: self category ] ]
-		         ifFalse: [
-			         factory
-				         newSubclassOf: (Smalltalk at: aSuperSymbol)
-				         instanceVariableNames: ''
-				         classVariableNames: 'classVarsString'
-				         category: self category ].
-	environment
-		addClass: class;
-		addClass: class classSide.
-	^ class
+	^ self defineSubClassOf: aSuperSymbol inPackage: self category
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st
@@ -0,0 +1,20 @@
+accessing-code
+defineSubClassOf: aSuperSymbol inPackage: packageName
+
+	| class |
+	class := SystemVersion current major >= 12
+		         ifTrue: [
+			         factory make: [ :aBuilder |
+				         aBuilder
+					         superclass: (Smalltalk at: aSuperSymbol);
+					         package: packageName ] ]
+		         ifFalse: [
+			         factory
+				         newSubclassOf: (Smalltalk at: aSuperSymbol)
+				         instanceVariableNames: ''
+				         classVariableNames: 'classVarsString'
+				         category: packageName ].
+	environment
+		addClass: class;
+		addClass: class classSide.
+	^ class
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st
@@ -2,8 +2,7 @@ tests-block
 testReferencesNotPortableClass
 
 	| class |
-	class := self defineSubClassOf: #GRObject.
-	class category: 'SomeCategory'.
+	class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'.
 	self compile: 'invalid ^ Semaphore new' in: class.
 	self compile: 'valid ^ GRObject new' in: class.
 	self 
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st
@@ -2,8 +2,7 @@ tests-block
 testSubclassesNotPortableClass
 
 	| class |
-	class := self defineSubClassOf: #Mutex.
-	class category: 'SomeCategory'.
+	class := self defineSubClassOf: #Mutex inPackage: 'SomeCategory'.
 	self 
 		assertRule: GRSubclassesNotPortableClassRule
 		matches: { class }
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st
@@ -6,5 +6,4 @@ testTestCaseFailRule
 	self compile: 'testMethod self fail' in: class.
 	self 
 		runTransformation: GRTestAssertionsRule
-		changes: #(
-			'testMethod self assert: false' )
+		changes: #( 'testMethod self assert: false' )
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st
@@ -2,8 +2,7 @@ tests-block
 testUsesNotPortableClass
 
 	| class |
-	class := self defineSubClassOf: #GRObject.
-	class category: 'SomeCategory'.
+	class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'.
 	self compile: 'invalid ^ Semaphore new' in: class.
 	self compile: 'valid ^ GRObject new' in: class.
 	self 
diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Grease-Tests-Pharo-Slime'!
+self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Slime' withTags: #()!

Original file line number	Diff line number	Diff line change
`@@ -1 +1 @@`
`1`		`-SystemOrganization addCategory: #'Grease-Pharo110-Slime'!`
	`1`	`+self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime' withTags: #()!`