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 Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project