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 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 -------------------------------------------------------------------------------