Display Pier environment as Seaside component

> Hi,
>
>
>        my goal is to display Pier environment as Seaside subcomponent.
>
>
>        I have some problem  ....
>
>
>        First i create a class:
>
>                        WAComponent subclass: #TestMultiPier
>                        instanceVariableNames: 'pageA pageB tabs task'
>                        classVariableNames: ''
>                        poolDictionaries: ''
>                        category: 'DTR-TestPier'
>
>
>
> the
>                initialize
>
>                super initialize.
>
>                tabs := OrderedCollection new.
>
>                nomeKernel := 'pier'.
>                pageA := PRPierFrame  on: (PRContext kernel: (PRKernel instanceNamed: nomeKernel )).
>
>                self initTopMenuFor
>
>
> the
>                initTopMenuFor
>
>                tabs add: 'PageA' -> pageA.
>
> the
>
>                renderContentOn: html
>
>                html text: 'Prova gestione multi Pier istance'.
>                html paragraph: Time now.
>
>                self renderTopMenuOn: html.
>
>                task  ifNotNil:[ html div id: 'divTabMst';
>
>                                                with:[ html render: task]]
>
>
> the
>
>        renderTopMenuOn: html
>
>        html unorderedList id: 'menu'; with: [
>                tabs do: [ :each |
>                        html listItem: [
>                                html anchor
>                                        class: (task = each value
>                                                ifTrue: [ 'active' ]);
>                                        callback: [ task := each value  ];
>                                        with: each key ] ] ]
>
>
>
>
> Now when clic on the PageA link the system rendering the Pier page correctly.
>
> The error is erase when i click on sub link   ( of the Pier main page    )      Information or Environment.
>
> The system report the error:
>
>
> UndefinedObject(Object)>>doesNotUnderstand: #context:
> PRCurrentContext class>>value:
> [] in PRContext>>activationCallback
> BlockClosure>>valueWithPossibleArguments:
> WAActionCallback>>evaluateWithArgument:
> WAActionCallback(WACallback)>>evaluateWithFieldValues:
> [] in WACallbackRegistry>>handle:
> OrderedCollection>>do:
> WACallbackRegistry>>handle:
> [] in [] in WAActionPhaseContinuation>>runCallbacks
> BlockClosure>>on:do:
> WAActionPhaseContinuation(WARenderLoopContinuation)>>withNotificationHandlerDo:
> [] in WAActionPhaseContinuation>>runCallbacks
> BlockClosure>>ensure:
> WAActionPhaseContinuation>>runCallbacks
> WAActionPhaseContinuation>>handleRequest
> [] in WAActionPhaseContinuation(WASessionContinuation)>>basicValue
> BlockClosure>>on:do:
> WAActionPhaseContinuation(WASessionContinuation)>>withUnregisteredHandlerDo:
> WAActionPhaseContinuation(WASessionContinuation)>>basicValue
>
>
>
> Because this ?
>
>
> Thanks,
>
>        Dario
>
>
>
>
>
> _______________________________________________
> Magritte, Pier and Related Tools ...
> https://www.iam.unibe.ch/mailman/listinfo/smallwiki
>

>>
>>        my goal is to display Pier environment as Seaside subcomponent.
>>
>>
>>        I have some problem  ....
>>
>>
>>        First i create a class:
>>
>>                        WAComponent subclass: #TestMultiPier
>>                        instanceVariableNames: ' siteA siteB tabs task'
>>                        classVariableNames: ''
>>                        poolDictionaries: ''
>>                        category: 'DTR-TestPier'
>>
>>
>>
>> the
>>                initialize
>>
>>                super initialize.
>>
>>                tabs := OrderedCollection new.
>>
>>                nomeKernel := 'pier'.
>>                siteA := PRPierFrame  on: (PRContext kernel: (PRKernel instanceNamed: nomeKernel )).

>>
>> the
>>
>>                renderContentOn: html
>>
>>                html text: 'Prova gestione multi Pier istance'.
>>                html paragraph: Time now.
>>
>>                self renderTopMenuOn: html.
>>
>>                task  ifNotNil:[ html div id: 'divTabMst';
>>
>>                                                with:[ html render: task]]
>>
>>
>> the
>>
>>        renderTopMenuOn: html
>>
>>        html unorderedList id: 'menu'; with: [
>>                tabs do: [ :each |
>>                        html listItem: [
>>                                html anchor
>>                                        class: (task = each value
>>                                                ifTrue: [ 'active' ]);
>>                                        callback: [ task := each value  ];
>>                                        with: each key ] ] ]
>>
>>

> Hi,
>
>> I am not sure if I understand what you are trying to do, but did you see
>>
>>    http://localhost:8080/examples/examplebrowser
>>
>> ? This embeds various Pier components in Seaside application.
>
> I select        from  /examples/examplebrowser  the      PRPierFrame exampleDocumentation .
>
>
>        When select              PRObject  or   MAObject        link  i found the same error.
>
>
>
>
>
> In my test i found the error :   I d'ont implement  the children method
>
>        children
>        ^ Array with: pageA
>
> with it the example work fine.
>
>
>
> Now i have problem when i have the same seaside application but with reference to  2 different pier site
>
>        i change the code to:
>
>>>
>>>        my goal is to display Pier environment as Seaside subcomponent.
>>>
>>>
>>>        I have some problem  ....
>>>
>>>
>>>        First i create a class:
>>>
>>>                        WAComponent subclass: #TestMultiPier
>>>                        instanceVariableNames: ' siteA siteB tabs task'
>>>                        classVariableNames: ''
>>>                        poolDictionaries: ''
>>>                        category: 'DTR-TestPier'
>>>
>>>
>>>
>>> the
>>>                initialize
>>>
>>>                super initialize.
>>>
>>>                tabs := OrderedCollection new.
>>>
>>>                nomeKernel := 'pier'.
>>>                siteA := PRPierFrame  on: (PRContext kernel: (PRKernel instanceNamed: nomeKernel )).
>
>                nomeKernel := 'anowerpier'.
>               siteB:= PRPierFrame  on: (PRContext kernel: (PRKernel instanceNamed: nomeKernel )).
>
>
>>>
>>>                self initTopMenuFor
>>>
>>>
>>> the
>>>                initTopMenuFor
>>>
>>>                tabs add: 'SiteA      > siteA.
>                tabs add: 'SiteB' -> siteB.
>
>>>
>>> the
>>>
>>>                renderContentOn: html
>>>
>>>                html text: 'Prova gestione multi Pier istance'.
>>>                html paragraph: Time now.
>>>
>>>                self renderTopMenuOn: html.
>>>
>>>                task  ifNotNil:[ html div id: 'divTabMst';
>>>
>>>                                                with:[ html render: task]]
>>>
>>>
>>> the
>>>
>>>        renderTopMenuOn: html
>>>
>>>        html unorderedList id: 'menu'; with: [
>>>                tabs do: [ :each |
>>>                        html listItem: [
>>>                                html anchor
>>>                                        class: (task = each value
>>>                                                ifTrue: [ 'active' ]);
>>>                                        callback: [ task := each value  ];
>>>                                        with: each key ] ] ]
>>>
>>>
>
> With it i d'ont found any very debug problem.
>
> The first rendering of siteA and siteB work fine.
>
> But when click on link of siteA         i have interference on           siteB.
>
> The siteB is update to siteA.
>
>
> Any idea ?
>
>
> I can have more PRPierFrame instances in the same application.
>
>
> Thank,
>                Dario
>
>
>
> _______________________________________________
> Magritte, Pier and Related Tools ...
> https://www.iam.unibe.ch/mailman/listinfo/smallwiki
>