glamour question

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 <[hidden email]> 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
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
www.tudorgirba.com

"Obvious things are difficult to teach."




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev