The Trunk: System-mt.1091.mcz

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

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

Name: System-mt.1091
Author: mt
Time: 4 September 2019, 7:43:00.370989 pm
UUID: c032bb01-3d1e-40c2-a329-3268b1f2284c
Ancestors: System-pre.1090

Cherry pick class query for system organization from rb repository.

=============== Diff against System-pre.1090 ===============

Item was added:
+ ----- Method: SystemOrganizer>>classesIn: (in category 'query') -----
+ classesIn: categoryName
+
+ | classes |
+ classes := OrderedCollection new.
+ self categories withIndexCollect: [:cat :idx |
+ (categoryName match: cat)
+ ifTrue: [classes addAll: (self listAtCategoryNumber: idx)]
+ ifFalse: [nil]].
+ ^ classes collect: [:clsName | Smalltalk classNamed: clsName]!

Item was changed:
  ----- Method: SystemOrganizer>>uncommentedClassesIn: (in category 'query') -----
  uncommentedClassesIn: categoryName
 
  "SystemOrganization uncommentedClassesIn: 'Morphic*'"
 
+ ^ (self classesIn: categoryName) select: [:cls | cls hasComment not]!
- | classes |
- classes := OrderedCollection new.
- self categories withIndexCollect: [:cat :idx |
- (categoryName match: cat)
- ifTrue: [classes addAll: (self listAtCategoryNumber: idx)]
- ifFalse: [nil]].
- ^ (classes collect: [:clsName | Smalltalk at: clsName]
- thenSelect: [:cls | cls hasComment not]) asArray
- !