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 <dionisi...@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....@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 > > >
