Thanks a lot Doru i will try as you said. About the condition i was already
thinking to use it :)
I'll let you know if it works.
Cheers,
Fabrizio
On Mar 14, 2013 9:30 PM, "Tudor Girba" <tudor(a)tudorgirba.com> wrote:
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."
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev