Fix broken parts in Pharo versions older than 12

SeasideSt · Nov 24, 2023 · 72efc26 · 72efc26
1 parent d46d1d1
commit 72efc26
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 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
@@ -9,7 +9,7 @@ defineClass: aClassSymbol superclass: aSuperSymbol
 					superclass: (Smalltalk at: aSuperSymbol);
 					package: self category ] ]
 		ifFalse:[
-			aSuperSymbol , ' subclass: #' , aClassSymbol , '
+			model defineClass: aSuperSymbol , ' subclass: #' , aClassSymbol , '
 				instanceVariableNames: '''' 
 				classVariableNames: ''''
 				poolDictionaries: ''''

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