Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1283.mcz

==================== Summary ====================

Name: System-mt.1283
Author: mt
Time: 13 January 2022, 11:29:09.691863 am
UUID: 4584fbc9-e9ee-404e-be7a-ecd572134419
Ancestors: System-mt.1282

Adds query/browse messages about package extensions to system navigation. Treats System-ct.1245 from Inbox.

Note that pure system categories have no relationship with package extensions. Such extensions are a Monticello thing.

=============== Diff against System-mt.1282 ===============

Item was added:
+ ----- Method: SystemNavigation>>allExtensionClassesOfPackage: (in category 'query') -----
+ allExtensionClassesOfPackage: packageNameOrInfo
+ 
+ 	^ (self packageInfoFor: packageNameOrInfo) extensionClasses!

Item was added:
+ ----- Method: SystemNavigation>>allExtensionMethodsOfPackage: (in category 'query') -----
+ allExtensionMethodsOfPackage: packageNameOrInfo
+ 
+ 	^ (self packageInfoFor: packageNameOrInfo) extensionMethods!

Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage: (in category 'browse') -----
+ browseAllExtensionClassesOfPackage: aPackageInfoOrName
+ 	"self default browseAllExtensionClassesOfPackage: #Morphic"
+ 
+ 	| packageInfo |
+ 	packageInfo := self packageInfoFor: aPackageInfoOrName.
+ 	^ self
+ 		browseClassList: [self allExtensionClassesOfPackage: packageInfo]
+ 		name: ('Extensions of package {1}' translated format: {packageInfo name})!

Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage: (in category 'browse') -----
+ browseAllExtensionMethodsOfPackage: aPackageInfoOrName
+ 	"self default browseAllExtensionMethodsOfPackage: #Morph"
+ 
+ 	| packageInfo |
+ 	packageInfo := self packageInfoFor: aPackageInfoOrName.
+ 	^ self
+ 		browseMessageList: [self allExtensionMethodsOfPackage: packageInfo]
+ 		name: ('Extensions of package {1}' translated format: {packageInfo name})!

Item was added:
+ ----- Method: SystemNavigation>>browseClassList:name: (in category 'browse') -----
+ browseClassList: classListOrBlock name: aTitle
+ 
+ 	| classList |
+ 	classList := classListOrBlock isBlock
+ 		ifTrue: [ Cursor wait showWhile: classListOrBlock ]
+ 		ifFalse: [ classListOrBlock ].
+ 	classList size = 0 ifTrue: [
+ 		^self inform: 'There are no', String cr, aTitle ].
+ 	^ ToolSet
+ 		openClassListBrowser: (classList collect: [:each | each name])
+ 		title: aTitle!