Hi Mark, I have introduced a class RTIdentityGroup. You can do: -=-=-= -=-=-= -=-=-= -=-=-= ast := RBParser parseExpression: 'self foo. self foo'. builder := RTMondrian new. builder shape ellipse size: 15. nodes := builder nodes: ast allChildren. builder edges elements: nodes asIdentityGroup; connectFrom: #parent. builder layout tree. builder -=-=-= -=-=-= -=-=-= -=-=-= You obtain this: Maybe Marcus will have the same problem. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Jul 30, 2015, at 11:47 AM, Mark Rizun <mrizun@gmail.com> wrote:
Pretty much; there is test for equality
RTGroup>>elementFromModel: anObject ^ self detect: [ :el | el model = anObject ] ifNone: [ nil ]
and equality is more often than not wanted.
So solution might be to tell Mondrian that you want to compare by identity and not equality?
Exactly! I'd like to have an option to select how I want to compare objects.
