use class factory in all pharo versions

SeasideSt · Dec 27, 2023 · bcb000b · bcb000b
1 parent 5b89188
commit bcb000b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 18 deletions.
diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st
@@ -1,20 +1,11 @@
 accessing-code
 defineClass: aClassSymbol superclass: aSuperSymbol
-	| class |
 
-	SystemVersion current major >= 12
-		ifTrue:[
-			class := factory silentlyMake: [ :aBuilder | 
-				aBuilder
-					superclass: (Smalltalk at: aSuperSymbol);
-					package: self category ] ]
-		ifFalse:[
-			model defineClass: aSuperSymbol , ' subclass: #' , aClassSymbol , '
-				instanceVariableNames: '''' 
-				classVariableNames: ''''
-				poolDictionaries: ''''
-				category: ''' , self category , ''''.
-			class := model classNamed: aClassSymbol ].
+	| class |
+	class := factory silentlyMake: [ :aBuilder |
+		         aBuilder
+			         superclass: (Smalltalk at: aSuperSymbol);
+			         package: self category ].
 	environment
 		addClass: class;
 		addClass: class theMetaClass.

diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st
@@ -2,7 +2,4 @@ running
 tearDown
 
 	super tearDown.
-	factory cleanUp.
-	SystemVersion current major >= 12 ifFalse:[
-		(Smalltalk organization listAtCategoryNamed: self category) do:[ :e | SmalltalkImage current removeClassNamed: e ].
-		Smalltalk organization removeCategory: self category ]
+	factory cleanUp