sharedPools

Hi guys

I would like to see how we can clean the protocols.

Behavior>>sharedPools
        "Answer a Set of the names of the pools (Dictionaries) that the receiver
        shares.
        9/12/96 tk  sharedPools have an order now"

        ^ OrderedCollection new

=> I will update the comment (this is not a set nor with names!)

=> I would like to move down to classDescription such methods because all the other methods
are defined there or in Class.

Class>>sharedPools
        "Answer a Set of the pool dictionaries declared in the receiver."

        sharedPools == nil
                ifTrue: [^OrderedCollection new]
                ifFalse: [^sharedPools]

=> I will update the comment

TraitBehavior>>sharedPools
        ^ Dictionary new

oops! I would be good to have polymorphic results!
I will return ^ OrderedCollection new

Now I'm not sure if it makes sense (but this is probably better) that RBClass returns also a polymorphic results.
I have the impression that we get an orderedCollection too.

RBClass>>sharedPools
        ^ self allPoolDictionaryNames collect: [ :each | Smalltalk globals at: each asSymbol ifAbsent: [ Dictionary new ] ]

Ring seems to miss sharedPools.



Stef

what a coincidence....since yesterday I have problems when swapping in classes I swapped out and used SharedPools...I am still searching the bug :(




--
Mariano
http://marianopeck.wordpress.com