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 <mri...@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.
