4 December 2011 11:50:32 pm VM: Win32 - IX86 - 6.1 - Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.138] r2519 http://www.squeakvm.org/svn/squeak/branches/Cog Image: Pharo1.4a [Latest update: #14244] MetacelloMCProjectSpec>>loadVersion: Receiver: spec name: 'Fuel'; className: 'ConfigurationOfFuelMooseExtension'; versionString: #'st...etc... Arguments and temporary variables: aVersionOrNil: nil vrsn: nil mcLoader: nil list: nil Receiver's instance variables: project: ConfigurationOfMoose(coreDefault [ConfigurationOfMoose], default [Conf...etc... loader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfM...etc... name: 'Fuel' className: 'ConfigurationOfFuelMooseExtension' versionString: #stable operator: nil loads: nil preLoadDoIt: nil postLoadDoIt: nil projectPackage: spec name: 'ConfigurationOfFuelMooseExtension'; file: 'Confi...etc... MetacelloMCProjectSpec>>load Receiver: spec name: 'Fuel'; className: 'ConfigurationOfFuelMooseExtension'; versionString: #'st...etc... Arguments and temporary variables: displayString: 'Project: Fuel stable' Receiver's instance variables: project: ConfigurationOfMoose(coreDefault [ConfigurationOfMoose], default [Conf...etc... loader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfM...etc... name: 'Fuel' className: 'ConfigurationOfFuelMooseExtension' versionString: #stable operator: nil loads: nil preLoadDoIt: nil postLoadDoIt: nil projectPackage: spec name: 'ConfigurationOfFuelMooseExtension'; file: 'Confi...etc... MetacelloProjectReferenceSpec>>loadUsing:gofer: Receiver: spec name: 'Fuel'; projectReference: [ spec className: 'ConfigurationOfFuelMooseEx...etc... Arguments and temporary variables: aLoader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOf...etc... ignored: a MetacelloGofer required: spec name: 'Fuel'; className: 'ConfigurationOfFuelMooseExtension';...etc... Receiver's instance variables: project: ConfigurationOfMoose(coreDefault [ConfigurationOfMoose], default [Conf...etc... loader: nil name: 'Fuel' requires: #() includes: #() answers: nil projectReference: spec name: 'Fuel'; className: 'ConfigurationOfFuelMooseExt...etc... [:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: Receiver: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfMoose] load : RoelT...etc... Arguments and temporary variables: gofer: spec name: 'Fuel'; projectReference: [ spec className: 'Configur...etc... pkg: a MetacelloGofer Receiver's instance variables: spec: a MetacelloMCVersionSpecLoader operator: nil loaderPolicy: a MetacelloLoaderPolicy disablePackageCache: false OrderedCollection>>do: Receiver: an OrderedCollection(spec name: 'RoelTyper'; repository: 'http://www.squeaksource.com/R...etc... Arguments and temporary variables: aBlock: [:pkg | pkg loadUsing: self gofer: gofer] index: 84 Receiver's instance variables: array: an Array(spec name: 'RoelTyper'; repository: 'http://www.squeaksource...etc... firstIndex: 1 lastIndex: 85 MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: Receiver: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfMoose] load : RoelT...etc... Arguments and temporary variables: packageSpecs: an OrderedCollection(spec name: 'RoelTyper'; repository: 'http...etc... repositories: an OrderedCollection(a MCHttpRepository(http://www.squeaksource.c...etc... gofer: a MetacelloGofer Receiver's instance variables: spec: a MetacelloMCVersionSpecLoader operator: nil loaderPolicy: a MetacelloLoaderPolicy disablePackageCache: false [super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: Receiver: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfMoose] load : RoelT...etc... Arguments and temporary variables: packageSpecs: an OrderedCollection(spec name: 'RoelTyper'; repository: 'http...etc... repositories: an OrderedCollection(a MCHttpRepository(http://www.squeaksource.c...etc... Receiver's instance variables: spec: a MetacelloMCVersionSpecLoader operator: nil loaderPolicy: a MetacelloLoaderPolicy disablePackageCache: false BlockClosure>>ensure: Receiver: [super linearLoadPackageSpecs: packageSpecs repositories: repositories] Arguments and temporary variables: aBlock: [loadDirective := oldRoot] complete: nil returnValue: nil Receiver's instance variables: outerContext: MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositorie...etc... startpc: 33 numArgs: 0 MetacelloLoaderPolicy>>pushLoadDirective:during: Receiver: a MetacelloLoaderPolicy Arguments and temporary variables: aLoaderDirective: atomic load : default [ConfigurationOfMoose] load : RoelType...etc... aBlock: [super linearLoadPackageSpecs: packageSpecs repositories: repositories]...etc... oldRoot: linear load : explicit load : default [ConfigurationOfMoose] load ...etc... Receiver's instance variables: overrideRepositories: nil repositoryMap: a Dictionary(size 208) ensuredMap: a Dictionary('DSM for Moose'->#present 'EyeSee'->#present 'EyeSee f...etc... cacheRepository: a MCDictionaryRepository(cache) cacheGofer: nil ignoreImage: false loadData: a MetacelloLoadData loadDirective: atomic load : default [ConfigurationOfMoose] load : RoelTyper-A...etc... silently: false MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for: Receiver: a MetacelloLoaderPolicy Arguments and temporary variables: aBlock: [super linearLoadPackageSpecs: packageSpecs repositories: repositories]...etc... aLoader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOf...etc... Receiver's instance variables: overrideRepositories: nil repositoryMap: a Dictionary(size 208) ensuredMap: a Dictionary('DSM for Moose'->#present 'EyeSee'->#present 'EyeSee f...etc... cacheRepository: a MCDictionaryRepository(cache) cacheGofer: nil ignoreImage: false loadData: a MetacelloLoadData loadDirective: atomic load : default [ConfigurationOfMoose] load : RoelTyper-A...etc... silently: false MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: Receiver: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfMoose] load : RoelT...etc... Arguments and temporary variables: packageSpecs: an OrderedCollection(spec name: 'RoelTyper'; repository: 'http...etc... repositories: an OrderedCollection(a MCHttpRepository(http://www.squeaksource.c...etc... Receiver's instance variables: spec: a MetacelloMCVersionSpecLoader operator: nil loaderPolicy: a MetacelloLoaderPolicy disablePackageCache: false MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load Receiver: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfMoose] load : RoelT...etc... Arguments and temporary variables: repos: an OrderedCollection(a MCHttpRepository(http://www.squeaksource.com/Moos...etc... Receiver's instance variables: spec: a MetacelloMCVersionSpecLoader operator: nil loaderPolicy: a MetacelloLoaderPolicy disablePackageCache: false MetacelloMCVersionSpecLoader>>load Receiver: a MetacelloMCVersionSpecLoader Arguments and temporary variables: mcLoader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationO...etc... Receiver's instance variables: versionSpec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksou...etc... required: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-...etc... packages: a Dictionary('Arki-Reporter-Browser'->spec name: 'Arki-Reporter-Bro...etc... loader: a MetacelloFetchingMCSpecLoader(atomic load : default [ConfigurationOfM...etc... loaderPolicy: a MetacelloLoaderPolicy MetacelloMCVersion>>executeLoadFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-K...etc... loader: a MetacelloMCVersionSpecLoader mcLoader: nil Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy [:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Dictionary(#ancestors->a Dictionary(size 1304) #goferRepository->an ...etc... dict: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-KGB-...etc... Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy [^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: Receiver: a MetacelloPharoPlatform Arguments and temporary variables: aBlock: [:dict | ^ self executeLoadFromArray: anArray] dict: a Dictionary(#ancestors->a Dictionary(size 1304) #goferRepository->an Ide...etc... Receiver's instance variables: bypassProgressBars: false bypassGoferLoadUpdateCategories: false BlockClosure>>on:do: Receiver: [^ aBlock value: dict] Arguments and temporary variables: exception: an ExceptionSet handlerAction: [:ex | | keys | (ex isKindOf: MetacelloStackCacheNotification) ...etc... handlerActive: true Receiver's instance variables: outerContext: MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:de...etc... startpc: 100 numArgs: 0 MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: Receiver: a MetacelloPharoPlatform Arguments and temporary variables: aBlock: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: a Dictionary(#ancestors->a Dictionary(size 1304) #goferRepos...etc... dict: a Dictionary(#ancestors->a Dictionary(size 1304) #goferRepository->an Ide...etc... Receiver's instance variables: bypassProgressBars: false bypassGoferLoadUpdateCategories: false [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-K...etc... newLoader: a MetacelloFetchingMCSpecLoader(linear load : ) Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy BlockClosure>>ensure: Receiver: [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:d...etc... Arguments and temporary variables: aBlock: [self versionSpec loader: originalLoader] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self versionSpec loader: newLoader. MetacelloPlatform current ...etc... startpc: 120 numArgs: 0 [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-K...etc... originalLoader: a MetacelloLoadingMCSpecLoader newLoader: a MetacelloFetchingMCSpecLoader(linear load : ) Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy [:bar | bar value: 1. aBlock value. bar value: 2] in MetacelloPharoPlatform>>do:displaying: Receiver: a MetacelloPharoPlatform Arguments and temporary variables: aBlock: [:barValArg | | barVal return newBarSize | barVal := barValArg. retur...etc... bar: [[self versionSpec loader: newLoader. MetacelloPlatform current useStac...etc... Receiver's instance variables: bypassProgressBars: false bypassGoferLoadUpdateCategories: false [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: SmalltalkEditor>>evaluateSelectionAndDo: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStr...etc... ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Fetching default of ConfigurationOfMoose' argPoint: (424@218) argMinVal: 0 argMaxVal: 2 argWorkBlock: [:bar | bar value: 1. aBlock value. bar value: 2] Receiver's instance variables: messageText: nil tag: nil signaler: 'Fetching default of ConfigurationOfMoose' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] maxVal: 2 minVal: 0 aPoint: (424@218) progressTitle: 'Fetching default of ConfigurationOfMoose' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Fetching default of ConfigurationOfMoose' aPoint: (424@218) minVal: 0 maxVal: 2 workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressAt:from:to:during: Receiver: 'Fetching default of ConfigurationOfMoose' Arguments and temporary variables: aPoint: (424@218) minVal: 0 maxVal: 2 workBlock: [:bar | bar value: 1. aBlock value. bar value: 2] Receiver's instance variables: 'Fetching default of ConfigurationOfMoose' MetacelloPharoPlatform>>do:displaying: Receiver: a MetacelloPharoPlatform Arguments and temporary variables: aBlock: [[self versionSpec loader: newLoader. MetacelloPlatform current useS...etc... aString: 'Fetching default of ConfigurationOfMoose' Receiver's instance variables: bypassProgressBars: false bypassGoferLoadUpdateCategories: false MetacelloMCVersion>>fetchRequiredFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Set('Moose-TestResources-PackageBlueprint-P1' 'Moose-TestResources-K...etc... originalLoader: a MetacelloLoadingMCSpecLoader displayString: 'Fetching default of ConfigurationOfMoose' newLoader: a MetacelloFetchingMCSpecLoader(linear load : ) Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy [| fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [fetchLoader doLoad] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: Receiver: default [ConfigurationOfMoose] Arguments and temporary variables: anArray: a Set('Moose-TestResources-KGB-P9FullReferencer' 'Moose-TestResources-...etc... displayString: 'default of ConfigurationOfMoose' fetchLoader: nil Receiver's instance variables: spec: spec blessing: #'baseline'. spec repository: 'http://www.squeaksource.com...etc... versionNumber: default importedVersions: nil versionStatus: #noStatus loaderPolicy: a MetacelloLoaderPolicy --- The full stack --- MetacelloMCProjectSpec>>loadVersion: MetacelloMCProjectSpec>>load MetacelloProjectReferenceSpec>>loadUsing:gofer: [:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: OrderedCollection>>do: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: [super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: BlockClosure>>ensure: MetacelloLoaderPolicy>>pushLoadDirective:during: MetacelloLoaderPolicy>>pushAtomicLoadDirectivesDuring:for: MetacelloFetchingMCSpecLoader>>atomicLoadPackageSpecs:repositories: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load MetacelloMCVersionSpecLoader>>load MetacelloMCVersion>>executeLoadFromArray: [:dict | ^ self executeLoadFromArray: anArray] in [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: [^ aBlock value: dict] in MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: BlockClosure>>on:do: MetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: [self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] in [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: BlockClosure>>ensure: [[self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [:dict | ^ self executeLoadFromArray: anArray] defaultDictionary: Dictionary new] ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: [:bar | bar value: 1. aBlock value. bar value: 2] in MetacelloPharoPlatform>>do:displaying: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: MetacelloPharoPlatform>>do:displaying: MetacelloMCVersion>>fetchRequiredFromArray: [| fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [fetchLoader doLoad] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>ensure: MetacelloMCVersion>>doLoadRequiredFromArray: MetacelloMCVersion>>load ConfigurationOfMoose class>>loadDefault UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection SmalltalkEditor>>doIt SmalltalkEditor>>doIt: SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return: SmalltalkEditor(TextEditor)>>dispatchCommandOn:return: SmalltalkEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke: SmalltalkEditor(TextEditor)>>handleKeystrokeAction: SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: SmalltalkEditor(TextEditor)>>keystroke: [editor keystroke: evt] in [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView(TextMorph)>>handleInteraction: TextMorphForEditView>>handleInteraction: [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke: TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView>>keyStroke: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess