Indeed, as I wrote in a previous email, this is how I got Voyage
installed too in my Pharo4 devel environment, and it went fine too.
Therefore the configuration should be ok. So this is weird.

It should not be package cache related because I build image with a
completely emptied build directory environment. So I am lost.

As A matter of fact, I ran the installation script with a Pharo5 image,
and now I get another error during the installation process. See bug
log. The repo config is the git one, as described in the first email of
this thread.

Hilaire

Le 25/03/2017 à 20:32, Esteban Lorenzano a écrit :
> I just did this: 
> 
> Gofer new
>       smalltalkhubUser: 'Pharo' project: 'MetaRepoForPharo60';
>       configurationOf: 'VoyageMongo';
>       loadStable.
> 
> (which is the same to the one you did)
> 
> in a fresh Pharo4 and it loaded fine. No UnQLite (which is correct).
> Now, I guess Metacello looks for all packages in baseline even if after it 
> will not download them… maybe you are seeing this lookup, but it shouldn’t 
> affect you. 
> 
> So, I guess there is a problem somewhere, but not in the config or the 
> installation. Maybe a package cache problem?
> 
> Esteban

-- 
Dr. Geo
http://drgeo.eu
THERE_BE_DRAGONS_HERE
MessageNotUnderstood: True>>dropDatabase
25 Mars 2017 9:05:56.800497 pm

VM: unix - i686 - linux-gnu - CoInterpreter VMMaker.oscog-eem.1855 uuid: d8e4a3c2-a3bf-4adc-b224-8012903a1ef4 May  4 2016
StackToRegisterMappingCogit VMMaker.oscog-eem.1855 uuid: d8e4a3c2-a3bf-4adc-b224-8012903a1ef4 May  4 2016
https://github.com/pharo-project/pharo-vm.git Commit: b8ec25a570d7539653e1d793e97609adb509aaed Date: 2016-05-04 11:14:22 +0200 By: Esteban Lorenzano <esteba...@gmail.com> Jenkins build #589

Image: Pharo5.0 [Latest update: #50771]

True(Object)>>doesNotUnderstand: #dropDatabase
	Receiver: true
	Arguments and temporary variables: 
		aMessage: 	dropDatabase
		exception: 	MessageNotUnderstood: True>>dropDatabase
		resumeValue: 	nil
	Receiver's instance variables: 
true

MongoReplicationTestResources class>>cleanUp:
	Receiver: MongoReplicationTestResources
	Arguments and temporary variables: 
		aRepository: 	true
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#_manual_set_up_->MongoReplicationTestResources>...etc...
		format: 	0
		layout: 	a FixedLayout
		instanceVariables: 	nil
		organization: 	a ClassOrganization
		subclasses: 	nil
		name: 	#MongoReplicationTestResources
		classPool: 	a Dictionary()
		sharedPools: 	an OrderedCollection()
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Mongo-Tests-Core-Replication'
		traitComposition: 	{}
		localSelectors: 	nil
		isTestScenarioAvailable: 	nil


[ :aClass | aClass cleanUp: aggressive ] in SmalltalkImage>>cleanUp:except:confirming:
	Receiver: Smalltalk
	Arguments and temporary variables: 
		aggressive: 	true
		exclusions: 	#()
		aBool: 	false
		classes: 	an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindRe...etc...
		aClass: 	MongoReplicationTestResources
	Receiver's instance variables: 
		globals: 	a SystemDictionary(lots of globals)
		deferredStartupActions: 	an OrderedCollection()
		specialObjectsArray: 	an Array(nil false true #Processor->Processor Bitmap Small...etc...
		session: 	an Object
		vm: 	a VirtualMachine


[ :each | 
| newLabel |
"Special handling for first and last element"
(count = 0
	or: [ count + 1 = size
			or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
	ifTrue: [ bar current: count.
		oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
			ifFalse: [ bar label: newLabel.
				oldLabel := newLabel ].
		lastUpdate := Time millisecondClockValue ].
aBlock value: each.
count := count + 1 ] in [ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aStringOrBlock.
		[ :dummyItem | aStringOrBlock ] ]
	ifFalse: [ aStringOrBlock ].
self
	do: [ :each | 
		| newLabel |
		"Special handling for first and last element"
		(count = 0
			or: [ count + 1 = size
					or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
			ifTrue: [ bar current: count.
				oldLabel
					= (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
					ifFalse: [ bar label: newLabel.
						oldLabel := newLabel ].
				lastUpdate := Time millisecondClockValue ].
		aBlock value: each.
		count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindReplaceDialogWindow Ev...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :aClass | aClass cleanUp: aggressive ]
		aStringOrBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		msecs: 	20
		size: 	65
		bar: 	a Job
		count: 	32
		labelBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		oldLabel: 	'Cleaning up in MCMethodDefinition'
		lastUpdate: 	251061
		each: 	MongoReplicationTestResources
		newLabel: 	nil
	Receiver's instance variables: 
		array: 	{Behavior. BitBlt. Breakpoint. ChangeSet. EditorFindReplaceDialogWindow....etc...
		firstIndex: 	1
		lastIndex: 	65


OrderedCollection>>do:
	Receiver: an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindReplaceDialogWindow Ev...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :each | 
| newLabel |
"Special handling for first and last element"
(...etc...
		index: 	33
	Receiver's instance variables: 
		array: 	{Behavior. BitBlt. Breakpoint. ChangeSet. EditorFindReplaceDialogWindow....etc...
		firstIndex: 	1
		lastIndex: 	65


[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aStringOrBlock.
		[ :dummyItem | aStringOrBlock ] ]
	ifFalse: [ aStringOrBlock ].
self
	do: [ :each | 
		| newLabel |
		"Special handling for first and last element"
		(count = 0
			or: [ count + 1 = size
					or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
			ifTrue: [ bar current: count.
				oldLabel
					= (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
					ifFalse: [ bar label: newLabel.
						oldLabel := newLabel ].
				lastUpdate := Time millisecondClockValue ].
		aBlock value: each.
		count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindReplaceDialogWindow Ev...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :aClass | aClass cleanUp: aggressive ]
		aStringOrBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		msecs: 	20
		size: 	65
		count: 	32
		labelBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		oldLabel: 	'Cleaning up in MCMethodDefinition'
		lastUpdate: 	251061
		bar: 	a Job
	Receiver's instance variables: 
		array: 	{Behavior. BitBlt. Breakpoint. ChangeSet. EditorFindReplaceDialogWindow....etc...
		firstIndex: 	1
		lastIndex: 	65


BlockClosure>>cull:
	Receiver: [ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aStringOrBlock.
		[ ...etc...
	Arguments and temporary variables: 
		anArg: 	a Job
	Receiver's instance variables: 
		outerContext: 	OrderedCollection(Collection)>>do:displayingProgress:every:
		startpc: 	106
		numArgs: 	1


[ ^ block cull: self ] in [ self prepareForRunning.
CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
	Receiver: a Job
	Arguments and temporary variables: 

	Receiver's instance variables: 
		block: 	[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aS...etc...
		currentValue: 	30
		min: 	0
		max: 	65
		title: 	'Cleaning up in MCMethodDefinition'
		children: 	an OrderedCollection()
		isRunning: 	true
		parent: 	nil
		process: 	a Process in nil


[ p psValueAt: index put: anObject.
aBlock value ] in CurrentJob(DynamicVariable)>>value:during:
	Receiver: a CurrentJob
	Arguments and temporary variables: 
		anObject: 	a Job
		aBlock: 	[ ^ block cull: self ]
		p: 	a Process in nil
		oldValue: 	nil
	Receiver's instance variables: 
		index: 	8


BlockClosure>>ensure:
	Receiver: [ p psValueAt: index put: anObject.
aBlock value ]
	Arguments and temporary variables: 
		aBlock: 	[ p psValueAt: index put: oldValue ]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	CurrentJob(DynamicVariable)>>value:during:
		startpc: 	62
		numArgs: 	0


CurrentJob(DynamicVariable)>>value:during:
	Receiver: a CurrentJob
	Arguments and temporary variables: 
		anObject: 	a Job
		aBlock: 	[ ^ block cull: self ]
		p: 	a Process in nil
		oldValue: 	nil
	Receiver's instance variables: 
		index: 	8


CurrentJob class(DynamicVariable class)>>value:during:
	Receiver: CurrentJob
	Arguments and temporary variables: 
		anObject: 	a Job
		aBlock: 	[ ^ block cull: self ]
	Receiver's instance variables: 
		superclass: 	DynamicVariable
		methodDict: 	a MethodDictionary()
		format: 	65537
		layout: 	a FixedLayout
		instanceVariables: 	nil
		organization: 	a ClassOrganization
		subclasses: 	nil
		name: 	#CurrentJob
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#'Jobs-Base'
		traitComposition: 	{}
		localSelectors: 	nil
		soleInstance: 	a CurrentJob


[ self prepareForRunning.
CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
	Receiver: a Job
	Arguments and temporary variables: 

	Receiver's instance variables: 
		block: 	[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aS...etc...
		currentValue: 	30
		min: 	0
		max: 	65
		title: 	'Cleaning up in MCMethodDefinition'
		children: 	an OrderedCollection()
		isRunning: 	true
		parent: 	nil
		process: 	a Process in nil


BlockClosure>>ensure:
	Receiver: [ self prepareForRunning.
CurrentJob value: self during: [ ^ block cull: self ] ]
	Arguments and temporary variables: 
		aBlock: 	[ self cleanupAfterRunning ]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	Job>>run
		startpc: 	41
		numArgs: 	0


Job>>run
	Receiver: a Job
	Arguments and temporary variables: 

	Receiver's instance variables: 
		block: 	[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aS...etc...
		currentValue: 	30
		min: 	0
		max: 	65
		title: 	'Cleaning up in MCMethodDefinition'
		children: 	an OrderedCollection()
		isRunning: 	true
		parent: 	nil
		process: 	a Process in nil


MorphicUIManager(UIManager)>>displayProgress:from:to:during:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
		titleString: 	''
		minVal: 	0
		maxVal: 	65
		workBlock: 	[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label...etc...
	Receiver's instance variables: 
		interactiveParser: 	nil
		activeTranscript: 	nil


ByteString(String)>>displayProgressFrom:to:during:
	Receiver: ''
	Arguments and temporary variables: 
		minVal: 	0
		maxVal: 	65
		workBlock: 	[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label...etc...
	Receiver's instance variables: 
''

OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindReplaceDialogWindow Ev...etc...
	Arguments and temporary variables: 
		count: 	32
		labelBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		oldLabel: 	'Cleaning up in MCMethodDefinition'
		lastUpdate: 	251061
		aBlock: 	[ :aClass | aClass cleanUp: aggressive ]
		aStringOrBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
		msecs: 	20
		size: 	65
	Receiver's instance variables: 
		array: 	{Behavior. BitBlt. Breakpoint. ChangeSet. EditorFindReplaceDialogWindow....etc...
		firstIndex: 	1
		lastIndex: 	65


OrderedCollection(Collection)>>do:displayingProgress:
	Receiver: an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindReplaceDialogWindow Ev...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :aClass | aClass cleanUp: aggressive ]
		aStringOrBlock: 	[ :aClass | 'Cleaning up in ' , aClass name ]
	Receiver's instance variables: 
		array: 	{Behavior. BitBlt. Breakpoint. ChangeSet. EditorFindReplaceDialogWindow....etc...
		firstIndex: 	1
		lastIndex: 	65


SmalltalkImage>>cleanUp:except:confirming:
	Receiver: Smalltalk
	Arguments and temporary variables: 
		aggressive: 	true
		exclusions: 	#()
		aBool: 	false
		classes: 	an OrderedCollection(Behavior BitBlt Breakpoint ChangeSet EditorFindRe...etc...
	Receiver's instance variables: 
		globals: 	a SystemDictionary(lots of globals)
		deferredStartupActions: 	an OrderedCollection()
		specialObjectsArray: 	an Array(nil false true #Processor->Processor Bitmap Small...etc...
		session: 	an Object
		vm: 	a VirtualMachine


UndefinedObject>>DoIt
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil

OpalCompiler>>evaluate
	Receiver: an OpalCompiler
	Arguments and temporary variables: 
		value: 	nil
		selectedSource: 	a ReadStream
		itsSelection: 	nil
		itsSelectionString: 	nil
	Receiver's instance variables: 
		ast: 	DoIt
	Gofer new
		url: 'http://ss3.gemstone.com/ss/cofilair'
			username: ...etc...
		source: 	a ReadStream
		context: 	nil
		receiver: 	nil
		compilationContext: 	a CompilationContext
		compilationContextClass: 	nil


DoItChunk>>importFor:
	Receiver: a DoItChunk(Gofer new
   url: 'http://ss3.gemstone.com/ss/cofilair'
   username: 'hilairef...etc...
	Arguments and temporary variables: 
		requestor: 	a FileCompilerRequestor
	Receiver's instance variables: 
		contents: 	'Gofer new
   url: ''http://ss3.gemstone.com/ss/cofilair''
   usernam...etc...


[ :declaration | 
requestor ifNotNil: [ requestor contents: declaration contents ].
value := declaration importFor: requestor ] in CodeImporter>>evaluate
	Receiver: a CodeImporter
	Arguments and temporary variables: 
		value: 	nil
		declaration: 	a DoItChunk(Gofer new
   url: 'http://ss3.gemstone.com/ss/cofilair...etc...
	Receiver's instance variables: 
		readStream: 	MultiByteFileStream: '/home/hilaire/Travaux/Developpement/Cofilair/...etc...
		codeDeclarations: 	an OrderedCollection(a DoItChunk(Gofer new
   url: 'http://ss...etc...
		parserClass: 	ChunkFileFormatParser
		requestor: 	a FileCompilerRequestor


OrderedCollection>>do:
	Receiver: an OrderedCollection(a DoItChunk(Gofer new
   url: 'http://ss3.gemstone.com/ss/cofilair'
 ...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :declaration | 
requestor ifNotNil: [ requestor contents: declaration...etc...
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(a DoItChunk(Gofer new
   url: 'http://ss3.gemstone.com/ss/cofil...etc...
		firstIndex: 	1
		lastIndex: 	1


CodeImporter>>evaluate
	Receiver: a CodeImporter
	Arguments and temporary variables: 
		value: 	nil
	Receiver's instance variables: 
		readStream: 	MultiByteFileStream: '/home/hilaire/Travaux/Developpement/Cofilair/...etc...
		codeDeclarations: 	an OrderedCollection(a DoItChunk(Gofer new
   url: 'http://ss...etc...
		parserClass: 	ChunkFileFormatParser
		requestor: 	a FileCompilerRequestor


[ codeImporter evaluate ] in STCommandLineHandler>>installSourceFile:
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 
		aReference: 	File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/scripts/pr...etc...
		codeImporter: 	a CodeImporter
	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


BlockClosure>>on:do:
	Receiver: [ codeImporter evaluate ]
	Arguments and temporary variables: 
		exception: 	an ExceptionSet
		handlerAction: 	[ :e | self handleError: e reference: aReference ]
	Receiver's instance variables: 
		outerContext: 	STCommandLineHandler>>installSourceFile:
		startpc: 	81
		numArgs: 	0


STCommandLineHandler>>handleErrorsDuring:reference:
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 
		aBlock: 	[ codeImporter evaluate ]
		aReference: 	File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/scripts/pr...etc...
	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


STCommandLineHandler>>installSourceFile:
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 
		codeImporter: 	a CodeImporter
		aReference: 	File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/scripts/pr...etc...
	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


[ :reference | self installSourceFile: reference ] in [ sourceFiles do: [ :reference | self installSourceFile: reference ] ] in STCommandLineHandler>>installSourceFiles
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 
		reference: 	File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/scripts/pre...etc...
	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


OrderedCollection>>do:
	Receiver: an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/scripts/prep...etc...
	Arguments and temporary variables: 
		aBlock: 	[ :reference | self installSourceFile: reference ]
		index: 	1
	Receiver's instance variables: 
		array: 	an Array(File @ /home/hilaire/Travaux/Developpement/Cofilair/repo/script...etc...
		firstIndex: 	1
		lastIndex: 	1


[ sourceFiles do: [ :reference | self installSourceFile: reference ] ] in STCommandLineHandler>>installSourceFiles
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 

	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


BlockClosure>>ensure:
	Receiver: [ sourceFiles do: [ :reference | self installSourceFile: reference ] ]
	Arguments and temporary variables: 
		aBlock: 	[ sourceFiles := nil ]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	STCommandLineHandler>>installSourceFiles
		startpc: 	34
		numArgs: 	0


STCommandLineHandler>>installSourceFiles
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 

	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


STCommandLineHandler>>activate
	Receiver: a STCommandLineHandler
	Arguments and temporary variables: 

	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver
		sourceFiles: 	an OrderedCollection(File @ /home/hilaire/Travaux/Developpement/Co...etc...


STCommandLineHandler class(CommandLineHandler class)>>activateWith:
	Receiver: STCommandLineHandler
	Arguments and temporary variables: 
		aCommandLine: 	a CommandLineArguments
	Receiver's instance variables: 
		superclass: 	CommandLineHandler
		methodDict: 	a MethodDictionary(#activate->STCommandLineHandler>>#activate #end-...etc...
		format: 	65541
		layout: 	a FixedLayout
		instanceVariables: 	nil
		organization: 	a ClassOrganization
		subclasses: 	{EvaluateCommandLineHandler}
		name: 	#STCommandLineHandler
		classPool: 	a Dictionary()
		sharedPools: 	an OrderedCollection()
		environment: 	a SystemDictionary(lots of globals)
		category: 	#CodeImportCommandLineHandlers
		traitComposition: 	{}
		localSelectors: 	nil


[ aCommandLinehandler activateWith: commandLine ] in PharoCommandLineHandler(BasicCommandLineHandler)>>activateSubCommand:
	Receiver: a PharoCommandLineHandler
	Arguments and temporary variables: 
		aCommandLinehandler: 	STCommandLineHandler
	Receiver's instance variables: 
		commandLine: 	a CommandLineArguments
		session: 	a WorkingSession
		stdout: 	a VTermOutputDriver
		stderr: 	a VTermOutputDriver


BlockClosure>>on:do:
	Receiver: [ aCommandLinehandler activateWith: commandLine ]
	Arguments and temporary variables: 
		exception: 	Exit
		handlerAction: 	[ :exit | ^ self handleExit: exit for: aCommandLinehandler ]
	Receiver's instance variables: 
		outerContext: 	PharoCommandLineHandler(BasicCommandLineHandler)>>activateSubComm...etc...
		startpc: 	34
		numArgs: 	0



--- The full stack ---
True(Object)>>doesNotUnderstand: #dropDatabase
MongoReplicationTestResources class>>cleanUp:
[ :aClass | aClass cleanUp: aggressive ] in SmalltalkImage>>cleanUp:except:confirming:
[ :each | 
| newLabel |
"Special handling for first and last element"
(count = 0
	or: [ count + 1 = size
			or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
	ifTrue: [ bar current: count.
		oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
			ifFalse: [ bar label: newLabel.
				oldLabel := newLabel ].
		lastUpdate := Time millisecondClockValue ].
aBlock value: each.
count := count + 1 ] in [ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aStringOrBlock.
		[ :dummyItem | aStringOrBlock ] ]
	ifFalse: [ aStringOrBlock ].
self
	do: [ :each | 
		| newLabel |
		"Special handling for first and last element"
		(count = 0
			or: [ count + 1 = size
					or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
			ifTrue: [ bar current: count.
				oldLabel
					= (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
					ifFalse: [ bar label: newLabel.
						oldLabel := newLabel ].
				lastUpdate := Time millisecondClockValue ].
		aBlock value: each.
		count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection>>do:
[ :bar | 
labelBlock := aStringOrBlock isString
	ifTrue: [ bar label: aStringOrBlock.
		[ :dummyItem | aStringOrBlock ] ]
	ifFalse: [ aStringOrBlock ].
self
	do: [ :each | 
		| newLabel |
		"Special handling for first and last element"
		(count = 0
			or: [ count + 1 = size
					or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ])
			ifTrue: [ bar current: count.
				oldLabel
					= (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ])
					ifFalse: [ bar label: newLabel.
						oldLabel := newLabel ].
				lastUpdate := Time millisecondClockValue ].
		aBlock value: each.
		count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every:
BlockClosure>>cull:
[ ^ block cull: self ] in [ self prepareForRunning.
CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
[ p psValueAt: index put: anObject.
aBlock value ] in CurrentJob(DynamicVariable)>>value:during:
BlockClosure>>ensure:
CurrentJob(DynamicVariable)>>value:during:
CurrentJob class(DynamicVariable class)>>value:during:
[ self prepareForRunning.
CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run
BlockClosure>>ensure:
Job>>run
MorphicUIManager(UIManager)>>displayProgress:from:to:during:
ByteString(String)>>displayProgressFrom:to:during:
OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection(Collection)>>do:displayingProgress:
SmalltalkImage>>cleanUp:except:confirming:
UndefinedObject>>DoIt
OpalCompiler>>evaluate
DoItChunk>>importFor:
[ :declaration | 
requestor ifNotNil: [ requestor contents: declaration contents ].
value := declaration importFor: requestor ] in CodeImporter>>evaluate
OrderedCollection>>do:
CodeImporter>>evaluate
[ codeImporter evaluate ] in STCommandLineHandler>>installSourceFile:
BlockClosure>>on:do:
STCommandLineHandler>>handleErrorsDuring:reference:
STCommandLineHandler>>installSourceFile:
[ :reference | self installSourceFile: reference ] in [ sourceFiles do: [ :reference | self installSourceFile: reference ] ] in STCommandLineHandler>>installSourceFiles
OrderedCollection>>do:
[ sourceFiles do: [ :reference | self installSourceFile: reference ] ] in STCommandLineHandler>>installSourceFiles
BlockClosure>>ensure:
STCommandLineHandler>>installSourceFiles
STCommandLineHandler>>activate
STCommandLineHandler class(CommandLineHandler class)>>activateWith:
[ aCommandLinehandler activateWith: commandLine ] in PharoCommandLineHandler(BasicCommandLineHandler)>>activateSubCommand:
BlockClosure>>on:do:
 - - - - - - - - - - - - - - -  
			- - - - - - - - - - - - - - - - - -
PharoCommandLineHandler(BasicCommandLineHandler)>>activateSubCommand:
PharoCommandLineHandler(BasicCommandLineHandler)>>handleSubcommand
PharoCommandLineHandler(BasicCommandLineHandler)>>handleArgument:
[ self
	handleArgument:
		(self arguments
			ifEmpty: [ '' ]
			ifNotEmpty: [ :arguments | arguments first ]) ] in PharoCommandLineHandler(BasicCommandLineHandler)>>activate
BlockClosure>>on:do:
PharoCommandLineHandler(BasicCommandLineHandler)>>activate
PharoCommandLineHandler>>activate
PharoCommandLineHandler class(CommandLineHandler class)>>activateWith:
[ super activateWith: aCommandLine ] in PharoCommandLineHandler class>>activateWith:
WorldState>>runStepMethodsIn:
WorldMorph>>runStepMethods
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
WorldMorph>>doOneCycle
[ [ World doOneCycle.
Processor yield.
false ] whileFalse: [  ] ] in MorphicUIManager>>spawnNewProcess
[ self value.
Processor terminateActive ] in BlockClosure>>newProcess
-------------------------------------------------------------------------------

Reply via email to