[Pharo-users] Slots in Pharo 5

[Jan Cada]

Hi, 

I started to play with slots and I am observing odd behaviour after the class 
structure gets changed. 

I am having classes:

Object subclass: #CTA
        slots: { #x. #b => ToManyRelationSlot inverse: #a inClass: #CTB }
        classVariables: {  }
        category: ‘ClassTest'

and 

Object subclass: #CTB
        slots: { #x. #a => ToOneRelationSlot inverse: #b inClass: #CTA }
        classVariables: {  }
        category: ‘ClassTest'

then I create instance of CTA and CTB pointing to CTA:

a1 := CTA new x: 1; yourself.
b1 := CTB new x: 1; a: a1; yourself.

the a1 is updated as expected with b having RelationSet with my CTB instance. 

The problem is when I decided to update the class CTA - changing position of 
slot   #b => ToManyRelationSlot inverse: #a inClass: #CTB. 
In the case I drop all the instances of CTA and CTB and recreate new by code 
above, the inverse update always addresses slot on same position as before  and 
not the one with right name.

For example when I change it like :

Object subclass: #CTA
        slots: { #x. #children => ToManyRelationSlot inverse: #parent inClass: 
#CTA. 
                                #b => ToManyRelationSlot inverse: #a inClass: 
#CTB. 
                                #parent => ToOneRelationSlot inverse: #children 
inClass: #CTA }
        classVariables: {  }
        category: ‘ClassTest'

the result of the code 

a1 := CTA new x: 1; yourself.
b1 := CTB new x: 1; a: a1; yourself.

is that slot children gets updated having RelationSet with my CTB instance 
instead of slot b which has empty RelationSet.

The question is: Am I doing something wrong ? Is there any way how to tell 
class to reinit slots as its order has changed ?

Thanks, 

Jan