On Sat, Jan 26, 2013 at 2:04 PM, Alexandre Bergel <alexandre.bergel@me.com> wrote:
>       browser transmit to: #two; from: #one; andShow: [ :a |
>               a mondrian
>                       title: 'Numbers in Mondrian list';
>                       painting: [:view :number |
>                       view interaction item: 'Select in tree' action: [:each | ((browser paneNamed: #one) port:#selection) value:41 ].
>                       view interaction on: ROMouseEnter do: [ :n |  ].
>

Using Mondrian with Roassal events?

yep, that was unintended. Here, the one that shows the problem with Roassal.

| browser items |
browser := GLMTabulator withStatusbar.
items := 50.
browser column: #one; column: #two.
browser transmit to: #one; andShow: [ :a |
(a tree)
title: 'Tree';
showOnly: 30;
display: [:each | 1 to: items];
children: [ :item :x :level | level > 1
ifTrue: [ #() ]
ifFalse: [ 1 to: item ]]].
browser transmit to: #two; from: #one; andShow: [ :a |
a roassal 
title: 'Numbers in Mondrian list';
painting: [:view :number |
view interaction item: 'Select in tree' action: [:each | ((browser paneNamed: #one) port:#selection) value:41 ].
view interaction on: ROMouseEnter do: [ :n |  ].
view shape rectangle size: 10.
view nodes: (Collection withAllSubclasses).
view edgesFrom: #superclass.
view treeLayout. 

]
].
browser openOn: 1
 

Alexandre

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev