On 11/17/05, Marcus Pedersén <marcus.pedersen at comhem.se> wrote:
>
> Hi!
> How do I get all classnames in a specific category, codewise?
> I am after something like:
> Categories classnamesInCategory: 'My Category'.
> ...and I want a collection returned with all classnames in that category.
>
> Many thanks in advance!

| category classNames |
category := 'Foo*'.
classNames := OrderedCollection new.
SystemOrganization categories withIndexCollect: [:cat :idx |
    (category match: cat)
        ifTrue: [classNames addAll: (SystemOrganization
listAtCategoryNumber: idx)]
        ifFalse: [nil]].
classNames explore.

--
Jason Rogers

"I am crucified with Christ: nevertheless I live; yet not I,
but Christ liveth in me: and the life which I now live in
the flesh I live by the faith of the Son of God, who loved
me, and gave himself for me."
    Galatians 2:20