On Sat, Jan 26, 2013 at 2:04 PM, Alexandre Bergel alexandre.bergel@me.comwrote:
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