adrian

did you get a chance to have a look at my fixes?
I did not touch the alias for now.

Stef

On Aug 22, 2008, at 4:18 PM, Stéphane Ducasse wrote:

Hi adrian

I think that I fixed the code and that now you can load it into pharo

<TraitsSharingCM 2.cs>


Then I did

TraitDescription allSubInstancesDo: [ :each |
        each notifyUsersOfChangedSelectors: each selectors ].
TPureBehavior compileAll


and I get no messages when I execute

| behaviorsUsingTraits |

behaviorsUsingTraits := (TraitDescription allSubInstances gather: [:each | each users]) asSet.
behaviorsUsingTraits do: [ :each |
        each selectorsDo: [ :selector |
                (each >> selector) methodClass == each ifFalse: [
Transcript show: each name , '>>' , selector , ' ---methodClass: ' ,
                                (each >> selector) methodClass name ] ] ]

I got one test not working.... in addition that the fileouttest.
I should write some other tests.
        if r is an alias to foo
        (A>>r) selector should return r and not foo

        A>>r class A
        TB>>r class TB


stef


_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to