Make it working in P13.

pharo-contributions · Oct 17, 2024 · 15b2d11 · 15b2d11
1 parent a66d42d
commit 15b2d11
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/BaselineOfSoup.package/BaselineOfSoup.class/instance/isGTImage.st b/src/BaselineOfSoup.package/BaselineOfSoup.class/instance/isGTImage.st
@@ -1,5 +1,7 @@
 testing
 isGTImage
 
-	^ RPackageOrganizer default packageNames anySatisfy: [ :pn | pn beginsWith: 'Lepiter-' ].
+	Smalltalk globals at: #RPackageOrganizer ifPresent: [ :p | ^ p default packageNames anySatisfy: [ :pn | pn beginsWith: 'Lepiter-' ]].
+	Smalltalk globals at: #PackageOrganizer ifPresent: [ :p | ^ p default packageNames anySatisfy: [ :pn | pn beginsWith: 'Lepiter-' ]].	
+	^ false.
 	"Implementation note: used to check for GToolkit prefix, but P7 has a GToolkit-Examples package. Lepiter, OTOH, could only be loaded in a GT image"
diff --git a/src/BaselineOfSoup.package/monticello.meta/categories.st b/src/BaselineOfSoup.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #BaselineOfSoup!
+self packageOrganizer ensurePackage: #BaselineOfSoup withTags: #()!