[Reflectivity] Links on Slots

Hi,

basis for annotating instanceVariables (Slots) with meta links is now working.
        https://pharo.fogbugz.com/f/cases/16669/MetaLinks-on-Slots

This test is green:

testReifySlotName
    | iVar instance link |
    iVar := ReflectivityExamples slotNamed: #ivar.

    link := MetaLink new
        metaObject: self;
        selector: #tagExec:;
        arguments: #(name).

    iVar link: link.
    self assert: iVar hasMetalink.
    self assert: (ReflectivityExamples >> #exampleIvarRead) class = ReflectiveMethod.
    self assert: (tag isNil).
    instance := ReflectivityExamples new.
    self assert: (instance exampleIvarRead = 33).
    self assert: (tag = #ivar).
    link uninstall.

On 30 Sep 2015, at 17:23, Tudor Girba <[hidden email]> wrote:

Yuppee! This means that we can now implement an inspector refresh properly, right?

The only problem is that the change is only active for new method invocations… so there might be

cases where it would not update if the change is done in a loop, for example, and active on the stack

already…

Cheers,

Doru

On Wed, Sep 30, 2015 at 11:49 AM, Marcus Denker <[hidden email]> wrote:

Hi,

basis for annotating instanceVariables (Slots) with meta links is now working.
        https://pharo.fogbugz.com/f/cases/16669/MetaLinks-on-Slots

This test is green:

testReifySlotName
    | iVar instance link |
    iVar := ReflectivityExamples slotNamed: #ivar.

    link := MetaLink new
        metaObject: self;
        selector: #tagExec:;
        arguments: #(name).

    iVar link: link.
    self assert: iVar hasMetalink.
    self assert: (ReflectivityExamples >> #exampleIvarRead) class = ReflectiveMethod.
    self assert: (tag isNil).
    instance := ReflectivityExamples new.
    self assert: (instance exampleIvarRead = 33).
    self assert: (tag = #ivar).
    link uninstall.

--

www.tudorgirba.com

"Every thing has its own flow"