menu generator menthods like this. i.e. the CriticBrowser>packagesGroup: can be optimized the same way.
packagesGroup: aBuilder
<nautilusGlobalGroupMenu>
(aBuilder item: #'Critics Browser')
action: [��
| packages target env rules group |
target := aBuilder model.
group := target selectedGroups.
packages := OrderedCollection new.
group
do: [ :each | each classes do: [ :cl | MCWorkingCopy managersForClass: cl do: [ :package | packages add: package ] ] ].
rules := RBCompositeLintRule allGoodRules.
env := RBPackageEnvironment new packages: packages.
self openOnRule: rules onEnvironment: env ];
help: 'Running critics rules on this group'