[Pkg] The Trunk: System-mt.1284.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 13 12:34:00 UTC 2022
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1284.mcz
==================== Summary ====================
Name: System-mt.1284
Author: mt
Time: 13 January 2022, 1:33:55.814863 pm
UUID: 23127222-33d7-0c4d-8a59-c057be3e8c67
Ancestors: System-mt.1283
Complements PackageInfo-Base-mt.75
Fixes slip in #browseClassList:name: ... I don't want to dig into ClassListBrowser for now ... but I think the actual bug is actually in there.
=============== Diff against System-mt.1283 ===============
Item was added:
+ ----- Method: SystemNavigation>>allExtensionClassesOfPackage:localTo: (in category 'query') -----
+ allExtensionClassesOfPackage: packageNameOrInfo localTo: classCategory
+
+ ^ (self packageInfoFor: packageNameOrInfo) extensionClassesLocalTo: classCategory!
Item was added:
+ ----- Method: SystemNavigation>>allExtensionMethodsOfPackage:localTo: (in category 'query') -----
+ allExtensionMethodsOfPackage: packageNameOrInfo localTo: classCategory
+
+ ^ (self packageInfoFor: packageNameOrInfo) extensionMethodsLocalTo: classCategory!
Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionClassesOfPackage:localTo: (in category 'browse') -----
+ browseAllExtensionClassesOfPackage: aPackageInfoOrName localTo: aClassCategory
+ "self default browseAllExtensionClassesOfPackage: #Morphic localTo: 'Morphic-Support' "
+
+ | packageInfo |
+ packageInfo := self packageInfoFor: aPackageInfoOrName.
+ ^ self
+ browseClassList: [self allExtensionClassesOfPackage: packageInfo localTo: aClassCategory]
+ name: ('Extensions of package {1}' translated format: {packageInfo name})!
Item was added:
+ ----- Method: SystemNavigation>>browseAllExtensionMethodsOfPackage:localTo: (in category 'browse') -----
+ browseAllExtensionMethodsOfPackage: aPackageInfoOrName localTo: aClassCategory
+ "self default browseAllExtensionMethodsOfPackage: #Morph localTo: 'Morphic-Support' "
+
+ | packageInfo |
+ packageInfo := self packageInfoFor: aPackageInfoOrName.
+ ^ self
+ browseMessageList: [self allExtensionMethodsOfPackage: packageInfo localTo: aClassCategory]
+ name: ('Extensions of package {1}' translated format: {packageInfo name})!
Item was changed:
----- 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 theNonMetaClass name])
- openClassListBrowser: (classList collect: [:each | each name])
title: aTitle!
More information about the Packages
mailing list