Loading TelePharo on Pharo 7

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
7 messages Options
Reply | Threaded
Open this post in threaded view
|

Loading TelePharo on Pharo 7

sergio_101

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |  
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:




----
peace,
sergio
photographer, journalist, visionary

Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

Denis Kudriashov
Hi Serge.

You need to add option to metacello script onConflict: or onUpgrade: with block [:warn | warn useIncoming].
I do not have computer now to give you exact code.

Problem that telepharo depends on old version of Calypso but image includes the latest one. It needs to be fixed. I will look at it. 

And we should fix install scripts in readme page. It still references my repo but it was moved to pharo-ide org

9 февр. 2019 г. 8:05 PM пользователь "sergio ruiz" <[hidden email]> написал:

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |  
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:




----
peace,
sergio
photographer, journalist, visionary


Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

Denis Kudriashov
Following script will load TelePharo without error:

Metacello new
  baseline: 'TelePharo';
  repository: 'github://pharo-ide/TelePharo';
  onUpgrade: [:ex | ex useIncoming];
  onConflictUseIncoming;
  load.


пн, 11 февр. 2019 г. в 09:11, Denis Kudriashov <[hidden email]>:
Hi Serge.

You need to add option to metacello script onConflict: or onUpgrade: with block [:warn | warn useIncoming].
I do not have computer now to give you exact code.

Problem that telepharo depends on old version of Calypso but image includes the latest one. It needs to be fixed. I will look at it. 

And we should fix install scripts in readme page. It still references my repo but it was moved to pharo-ide org

9 февр. 2019 г. 8:05 PM пользователь "sergio ruiz" <[hidden email]> написал:

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |  
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:




----
peace,
sergio
photographer, journalist, visionary


Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

sergio_101
Thanks, Denis..

Will try this in a minute.. 

On February 12, 2019 at 3:42:06 AM, Denis Kudriashov ([hidden email]) wrote:

Following script will load TelePharo without error:

Metacello new
  baseline: 'TelePharo';
  repository: 'github://pharo-ide/TelePharo';
  onUpgrade: [:ex | ex useIncoming];
  onConflictUseIncoming;
  load.


пн, 11 февр. 2019 г. в 09:11, Denis Kudriashov <[hidden email]>:
Hi Serge.

You need to add option to metacello script onConflict: or onUpgrade: with block [:warn | warn useIncoming].
I do not have computer now to give you exact code.

Problem that telepharo depends on old version of Calypso but image includes the latest one. It needs to be fixed. I will look at it. 

And we should fix install scripts in readme page. It still references my repo but it was moved to pharo-ide org

9 февр. 2019 г. 8:05 PM пользователь "sergio ruiz" <[hidden email]> написал:

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |   
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:



----
peace,
sergio
photographer, journalist, visionary


----
peace,
sergio
photographer, journalist, visionary

Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

sergio_101
In reply to this post by Denis Kudriashov
Hmmm.. I am getting this:



On February 12, 2019 at 3:42:06 AM, Denis Kudriashov ([hidden email]) wrote:

Following script will load TelePharo without error:

Metacello new
  baseline: 'TelePharo';
  repository: 'github://pharo-ide/TelePharo';
  onUpgrade: [:ex | ex useIncoming];
  onConflictUseIncoming;
  load.


пн, 11 февр. 2019 г. в 09:11, Denis Kudriashov <[hidden email]>:
Hi Serge.

You need to add option to metacello script onConflict: or onUpgrade: with block [:warn | warn useIncoming].
I do not have computer now to give you exact code.

Problem that telepharo depends on old version of Calypso but image includes the latest one. It needs to be fixed. I will look at it. 

And we should fix install scripts in readme page. It still references my repo but it was moved to pharo-ide org

9 февр. 2019 г. 8:05 PM пользователь "sergio ruiz" <[hidden email]> написал:

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |   
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:



----
peace,
sergio
photographer, journalist, visionary


----
peace,
sergio
photographer, journalist, visionary

Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

Denis Kudriashov
Try it with closed browsers because it loads different version and it will break live instances of browser components.

Better to do it from scratch image to avoid cached instances

12 февр. 2019 г. 16:18 пользователь "sergio ruiz" <[hidden email]> написал:
Hmmm.. I am getting this:



On February 12, 2019 at 3:42:06 AM, Denis Kudriashov ([hidden email]) wrote:

Following script will load TelePharo without error:

Metacello new
  baseline: 'TelePharo';
  repository: 'github://pharo-ide/TelePharo';
  onUpgrade: [:ex | ex useIncoming];
  onConflictUseIncoming;
  load.


пн, 11 февр. 2019 г. в 09:11, Denis Kudriashov <[hidden email]>:
Hi Serge.

You need to add option to metacello script onConflict: or onUpgrade: with block [:warn | warn useIncoming].
I do not have computer now to give you exact code.

Problem that telepharo depends on old version of Calypso but image includes the latest one. It needs to be fixed. I will look at it. 

And we should fix install scripts in readme page. It still references my repo but it was moved to pharo-ide org

9 февр. 2019 г. 8:05 PM пользователь "sergio ruiz" <[hidden email]> написал:

Hi, all..

I am looking to install TelePharo on my 7.01 image using the setup found at :

https://github.com/pharo-ide/TelePharo

like

Metacello new
  baseline: 'TelePharo';
  repository: 'github://dionisiydk/TelePharo';
  load: 'Server’.

and running into the following error. Any ideas?

Thanks!

MetacelloAllowConflictingProjectUpgrade>>defaultAction
UndefinedObject>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>pass
[ ^ exception pass ] in MetacelloScriptEngine>>handleConflict: in Block: [ ^ exception pass ]
Dictionary>>at:ifAbsent:
MetacelloScriptEngine>>handleConflict:
MetacelloAllowConflictingProjectUpgrade>>handleResolutionFor:
[ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "option handlers need to be outermost set ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
MetacelloAllowConflictingProjectUpgrade(Exception)>>signal
[ :existing :new |   
(existing hasLoadConflicts: new)
    ifTrue: [ ((existing canUpgradeTo: new)
            ifTrue: [ MetacelloAllowProjectUpgrade new ]
            ifFalse: [ (existing canDowngradeTo: new)
                    ifTrue: [ MetacelloAllowProjectDowngrade new ]
                    ifFalse: [ MetacelloAllowConflictingProjectUpgrade new ] ])
            existingProjectRegistration: existing;
            newProjectRegistration: new;
            signal ]
    ifFalse: [ new ] ] in MetacelloScriptEngine>>lookupProjectSpecFor: in Block: [ :existing :new | ...
[ :existing | ^ presentBlock value: existing value: newRegistration ] in MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent: in Block: [ :existing | ^ presentBlock value: existing value...etc...
[ :existing | ^ presentBlock value: existing ] in MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent: in Block: [ :existing | ^ presentBlock value: existing ]
BlockClosure>>cull:
Dictionary>>at:ifPresent:
MetacelloProjectRegistry>>registrationFor:ifPresent:ifAbsent:
MetacelloProjectRegistration class>>registrationForProjectSpec:ifAbsent:ifPresent:
MetacelloScriptEngine>>lookupProjectSpecFor:
MetacelloScriptEngine>>handleLookupProjectSpec:
MetacelloLookupProjectSpec>>handleResolutionFor:
[ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] in [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ] in [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ] in [ [ [ actionBlock
    on:
        MetacelloLookupProjectSpec , MetacelloLookupProjectSpecForLoad
            , MetacelloProjectSpecLoadedNotification
            , MetacelloScriptEnsureProjectLoadedForDevelopment
            , MetacelloLookupBaselineSpecForEnsureLoad
    do:
        [ :ex | "lookup and registration handlers need to be innermost set of handlers ...they may throw option notifications" ex handleResolutionFor: self ] ]
    on:
        MetacelloAllowProjectDowngrade , MetacelloAllowProjectUpgrade
            , MetacelloAllowConflictingProjectUpgrade
    do:
        [ :ex | "option handlers need to be outermost set of handlers ... last line of defense before users are involved" ex handleResolutionFor: self ] ]
    on: MetacelloAllowLockedProjectChange
    do:
        [ :ex | "MetacelloAllowLockedProjectChange need to be outermost handler ... since it is signaled from second line of handlers" ex handleResolutionFor: self ] ] in MetacelloScriptEngine>>handleNotificationsForAction: in Block: [ :ex | "lookup and registration handlers need to ...etc...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
Context>>handleSignal:



----
peace,
sergio
photographer, journalist, visionary


----
peace,
sergio
photographer, journalist, visionary



DF678886-BEC3-4790-997E-AB2F6761C9B6.png (934K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: Loading TelePharo on Pharo 7

sergio_101
Yes! correct..

i just built a new work image from scratch, and it works fine.

Connecting to my remote now..

Thanks!

On February 12, 2019 at 12:20:50 PM, Denis Kudriashov ([hidden email]) wrote:

Try it with closed browsers because it loads different version and it will break live instances of browser components.

Better to do it from scratch image to avoid cached instances
----
peace,
sergio
photographer, journalist, visionary