From f353dba236cd3c48457347a707b4564d411e09f2 Mon Sep 17 00:00:00 2001 From: Philippe Marschall Date: Fri, 12 Jul 2024 20:53:39 +0200 Subject: [PATCH] Fix MCWorkingCopy deprecations Send #allWorkingCopies instead of #allManagers if available. --- .../instance/sortedWorkingCopies.st | 5 ++++- .../monticello.meta/categories.st | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/repository/Seaside-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st b/repository/Seaside-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st index f7ff86cba..20e38be9e 100644 --- a/repository/Seaside-Pharo-Tools-Web.package/WASeasideVersionStatus.class/instance/sortedWorkingCopies.st +++ b/repository/Seaside-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 index 847f47803..8a0e3c849 100644 --- 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: #()!