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 - !
squeak-dev@lists.squeakfoundation.org