Merge pull request #1430 from marschall/all-working-copies

Fix MCWorkingCopy deprecations
SeasideSt · Jul 13, 2024 · c637ccb · c637ccb
2 parents 9ae0073 + f353dba
commit c637ccb
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: #()!