fix older pharo versions

SeasideSt · Dec 27, 2023 · b156b53 · b156b53
1 parent daaf85e
commit b156b53
Showing 1 changed file with 12 additions and 4 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
@@ -2,10 +2,18 @@ accessing-code
 defineClass: aClassSymbol superclass: aSuperSymbol
 
 	| class |
-	class := factory silentlyMake: [ :aBuilder |
-		         aBuilder
-			         superclass: (Smalltalk at: aSuperSymbol);
-			         package: self category ].
+	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 theMetaClass.