Open a Roassal presentation in Glamour

Here is a possible example:

       | browser |
       browser := GLMTabulator withStatusbar.
       browser column: #one; column: #two.
       browser transmit to: #one; andShow: [ :a |
               a list
                       display: [:x | 1 to: x ];
                       selectionAct: [:list |
                               | value |
                               value := list selection * 10. "simulate some custom setup"
                               (list pane port: #customSelection) value: value ]
                       entitled:  'Multiply by 10 and then send outside'
                       ].
       browser transmit to: #two; from: #one port: #customSelection; andShow: [ :a |
               a roassal
                       title: 'Numbers in Roassal';
                       painting: [:view :number |
                               view shape label.
                               view nodes: (1 to: number).
                               view gridLayout  ]].
       browser openOn: 42

Cheers,
Doru

On Fri, Jun 8, 2012 at 11:20 AM, Alexandre Bergel
<[hidden email]> wrote:
> We will try  to answer you today
>
> Cheers,
> Alexandre
>
>
>
> Le 7 juin 2012 à 17:37, Santiago Vidal <[hidden email]> a
> écrit :
>
> Hi,
> I'm trying to open a Roassal visualization in glamour. I have the following
> script:
>
> | browser action|
> browser := GLMTabulator new.
>
> browser
>   row: [ :r | r column: #columnA; column: #columnB ];
>   row: #seconRow.
> browser transmit to: #columnA; andShow: [ :a |
>        a list display: [#('Value 1' 'Value 2' 'Value 3') ];
> dynamicActionsOnSelection: [:list | self actionsFor: list ]
> ].
> browser transmit from: #columnA; to: #columnB; andShow: [ :a |
>                a list titleIcon: GLMUIThemeExtraIcons glamorousBrowse
> ;title:'Data'; display:#('data A' 'data B' 'data C').
> ].
>
> browser openOn: MooseModel root allModels anyOne.
>
>
> actionsFor: aPresentation
> |actions|
> actions:=OrderedCollection new.
> actions add: ((GLMGenericAction new)
> action: [:each |AMerlinWizard openWizard(each selection)];
> title: 'Open visualization';
> yourself).
> ^actions.
>
> Specifically, when I click in the option "Open visualization" of the popup
> menu (see dynamicActionsOnSelection) a Merlin Wizard is opened (there are
> some options that the user has to select) to create a Roassal (or Mondrian)
> visualization. Currently, I'm creating the visualization in a new view.
> However, I would like to open it in the #seconRow pane. Someone please could
> tell me how I can accomplish this? Thanks
>   Cheers
>     Santiago
>
> --
> Santiago Vidal
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>

--
www.tudorgirba.com

"Every thing has its own flow"

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