|
findPackages | visible | visible := Set new. self baseClass withAllSubclassesDo: [ :each | each category ifNotNil: [ :category | visible add: category ] ]. ^ Array streamContents: [ :stream | Smalltalk organization categories do: [ :each | ((visible includes: each) and: [ packagePattern isNil or: [ (packagePattern matchesIn: each) isEmpty not]]) ifTrue: [ stream nextPut: each ] ] ].
|
|
|
Priority: 1 – Show Stopper !!!!!!
|
|
Status: Work Needed
|
|
Assigned to: Everyone
|
|
Milestone: Pharo7.0
|
Go to Case
|
|