14 Mar
2013
14 Mar
'13
9:28 p.m.
The ListPresentation does not work well with dictionaries due to MorphTreeMorph.
What you can do is to use the associations:
| dic myBrowser |
dic := Dictionary new.
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 1 with: 2
with: 3)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 4 with: 5
with: 6)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 7 with: 8
with: 9)).
myBrowser := GLMTabulator new.
myBrowser
row: #methods;
row: #info.
myBrowser transmit to: #methods; andShow: [:a |
a custom: (MooseFinder new first startOn: (dic associations collect: #key)
asMooseGroup) ].
myBrowser transmit to: #info; from: #methods; andShow: [:a |
a list
title: 'Columns to map';
display: [:method | (self result at: method) ]].
myBrowser openOn: dic associations.
But, when using the Finder, you might end up clicking on an object that is not a method,
and in this case, the second transmission might fail. At least, you should put a condition
on the transmission.
Cheers,
Doru
On Mar 14, 2013, at 7:40 PM, Fabrizio Perin <fabrizio.perin(a)gmail.com> wrote:
Hi,
I was writing a report in Arki. The result of the report is a dictionary. An entry of the
dictionary has as key a FAMIXMethod and as value an ordered collection with inside one or
more ordered collections.
What I want to do is to have a browser with two rows, in the top row I want a MooseFinder
opening on the keys of the dictionary, on the bottom row I want to see the content of the
dictionary at the selected key.
The problem is that I'm not able to make the MooseFinder opening on the keys of the
element.
Here a script that reproduce this scenario:
| dic myBrowser |
dic := Dictionary new.
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 1 with: 2
with: 3)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 4 with: 5
with: 6)).
dic at: FAMIXMethod new put: (OrderedCollection with: (OrderedCollection with: 7 with: 8
with: 9)).
myBrowser := GLMTabulator new.
myBrowser
row: #methods;
row: #info.
myBrowser transmit to: #methods; andShow: [:a |
a custom: (MooseFinder new first startOn: dic keys asMooseGroup) ].
myBrowser transmit to: #info; from: #methods; andShow: [:a |
a list
title: 'Columns to map';
display: [:method | (self result at: method) ]].
myBrowser openOn: dic.
Any suggestion will be more than welcome. Thanks.
Cheers,
Fabrizio
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Obvious things are difficult to teach."