Fix MCWorkingCopy deprecations

Send #allWorkingCopies instead of #allManagers if available.
SeasideSt · Jul 12, 2024 · f353dba · f353dba
1 parent 44e5bb7
commit f353dba
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/...side-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st b/...side-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st
@@ -3,7 +3,10 @@ sortedWorkingCopies
 	| categories packageNames workingCopies |
 	categories := Dictionary new.
 	packageNames := GRPackage grPackages collect: [ :each | each name ].
-	workingCopies := MCWorkingCopy allManagers select: [ :each | packageNames includes: each packageName ].
+	workingCopies := ((MCWorkingCopy respondsTo: #allWorkingCopies)
+		ifTrue: [ MCWorkingCopy allWorkingCopies ]
+		ifFalse: [ MCWorkingCopy allManagers ])
+			select: [ :each | packageNames includes: each packageName ].
 	workingCopies do: 
 		[ :each | 
 		| category |

diff --git a/repository/Seaside-Pharo-Tools-Web.package/monticello.meta/categories.st b/repository/Seaside-Pharo-Tools-Web.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'Seaside-Pharo-Tools-Web'!
+self packageOrganizer ensurePackage: #'Seaside-Pharo-Tools-Web' withTags: #()!