Re: [Pharo-users] Loading TelePharo on Pharo 7

Feb. 12, 2019

      Thanks, Denis..

Will try this in a minute..

On February 12, 2019 at 3:42:06 AM, Denis Kudriashov (dionisiydk@gmail.com)
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 <dionisiydk@gmail.com>:
...
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" <sergio.rrd@gmail.com>
Ð½Ð°Ð¿Ð¸ÑÐ°Ð»:
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
Public Key: http://bit.ly/29z9fG0
#BitMessage BM-NBaswViL21xqgg9STRJjaJaUoyiNe2dV
http://www.codeandmusic.com
http://www.twitter.com/sergio_101
http://www.facebook.com/sergio101
----
peace,
sergio
photographer, journalist, visionary
Public Key: http://bit.ly/29z9fG0
#BitMessage BM-NBaswViL21xqgg9STRJjaJaUoyiNe2dV
http://www.codeandmusic.com
http://www.twitter.com/sergio_101
http://www.facebook.com/sergio101