Omnibrowser - SystemBrowser - display all methods by default when selecting a class

Cédrick Béler cbeler at enit.fr
Wed Jun 27 09:04:00 UTC 2007


>
>
> 1) In the system browser, I'd like to display all methods when 
> selecting a class - Alexandre Bergel posted a cs for that but I can't 
> find it anymore and I can't do it by myself too. Does someone have 
> this change set or can you tell me where to look at... What is the 
> "action" done when selecting a class (probably an announcment related 
> update...) ?
just found.... 
(http://lists.squeakfoundation.org/pipermail/squeak-dev/2006-May/104731.html)

"Here are the changes I did:
    - Instead of sending #nodeChanged, #nodeChanged: theSelectedNode is 
sent
    - OBPanel>>nodeChanged: aNode  ^ self nodeChanged
    - OBBrowser>>nodeChanged: aNode ^ self nodeChanged
    - OBSystemBrowser>>nodeChanged: aNode
    | methodCategoryColumn |
    super nodeChanged: aNode.
    
    (aNode isKindOf: OBClassNode)
        ifTrue: [
            methodCategoryColumn :=
                (panels select: [:p| p isKindOf: OBColumnPanel]) first 
columns third.
            (methodCategoryColumn getChildren first) ifNotNil: [
                methodCategoryColumn select: (methodCategoryColumn 
getChildren first).]]

I am not sure about this last method. Looks like a hack now... But it 
works fine. "

I'll see if it works...
>
> 2) also when displaying all methods, I'd like to color each list item 
> according to a category color. Is it feasible ? Can you point me where 
> to look at ?
>
> Thanks
>
> Cédrick
>




More information about the Squeak-dev mailing list