27 July 2012 4:18:37.397 pm VM: Mac OS - intel - 1068 - CoInterpreter VMMaker-oscog-EstebanLorenzano.160 uuid: bec8cdf0-4e06-4975-8c02-e882fadf4df3 Jun 1 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.160 uuid: bec8cdf0-4e06-4975-8c02-e882fadf4df3 Jun 1 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 2b16c2cfc16ef2e08dbc93113ce9552e810e3e78 Date: Wed May 30 16:16:27 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14457] FAMIXAnnotationType(Object)>>doesNotUnderstand: #yourScope Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: aMessage: yourScope exception: MessageNotUnderstood: FAMIXAnnotationType>>yourScope resumeValue: nil Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... MooseObjectQueryResult>>withoutSelfLoops Receiver: a MooseObjectQueryResult() Arguments and temporary variables: receiverScope: nil Receiver's instance variables: storage: an OrderedCollection() receiver: primitive:module: (AnnotationType) FAMIXAnnotationType(FAMIXType)>>clientClasses Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... [self clientClasses size] in FAMIXAnnotationType(FAMIXType)>>fanIn Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... BlockClosure>>cullValue: Receiver: [self clientClasses size] Arguments and temporary variables: arguments: primitive:module: (AnnotationType) Receiver's instance variables: outerContext: FAMIXAnnotationType(FAMIXType)>>fanIn startpc: 31 numArgs: 0 [aBlock cullValue: self entity] in MooseDefaultState(MooseEntityState)>>cache:initializer: Receiver: a MooseDefaultState Arguments and temporary variables: aBlock: [self clientClasses size] Receiver's instance variables: attributes: an Array(#privateModel->a MooseModel #Network(26949) #argumentsInPa...etc... entity: primitive:module: (AnnotationType) propertyCache: a SmallDictionary(#hierarchyNestingLevel->0) queryCache: a SmallDictionary() SmallDictionary>>at:ifAbsentPut: Receiver: a SmallDictionary(#hierarchyNestingLevel->0) Arguments and temporary variables: key: #fanIn aBlock: [aBlock cullValue: self entity] index: 0 Receiver's instance variables: keys: #(#hierarchyNestingLevel nil) values: #(0 nil) size: 1 MooseDefaultState>>propertyAt:ifAbsentPut: Receiver: a MooseDefaultState Arguments and temporary variables: name: #fanIn aBlock: [aBlock cullValue: self entity] Receiver's instance variables: attributes: an Array(#privateModel->a MooseModel #Network(26949) #argumentsInPa...etc... entity: primitive:module: (AnnotationType) propertyCache: a SmallDictionary(#hierarchyNestingLevel->0) queryCache: a SmallDictionary() MooseDefaultState(MooseEntityState)>>cache:initializer: Receiver: a MooseDefaultState Arguments and temporary variables: selector: #fanIn aBlock: [self clientClasses size] Receiver's instance variables: attributes: an Array(#privateModel->a MooseModel #Network(26949) #argumentsInPa...etc... entity: primitive:module: (AnnotationType) propertyCache: a SmallDictionary(#hierarchyNestingLevel->0) queryCache: a SmallDictionary() FAMIXAnnotationType(MooseEntity)>>lookUpPropertyNamed:computedAs: Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: selector: #fanIn aBlock: [self clientClasses size] Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... FAMIXAnnotationType(FAMIXType)>>fanIn Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... FM3PropertyDescription>>getRawFrom: Receiver: a FM3PropertyDescription[FAMIX.Type.fanIn] Arguments and temporary variables: element: primitive:module: (AnnotationType) Receiver's instance variables: name: #fanIn isContainer: false isDerived: true isMultivalued: false opposite: nil class: a FM3MetaDescription[FAMIX.Type] package: nil type: an AnonymousClass[Number] key: nil implementingSelector: #fanIn FAMIXAnnotationType(Object)>>mmGetProperty: Receiver: primitive:module: (AnnotationType) Arguments and temporary variables: aFM3PropertyDescription: a FM3PropertyDescription[FAMIX.Type.fanIn] Receiver's instance variables: mooseID: 955813 state: a MooseDefaultState sourceAnchor: nil sourceLanguage: nil comments: #() declaredSourceLanguage: nil name: #primitive:module: isStub: false receivingInvocations: #() modifiers: a Set() parentPackage: nil annotationInstances: #() outgoingReferences: #() types: #() incomingReferences: #() subInheritances: #() methods: #() container: nil superInheritances: #() attributes: an Array(primitive:module:.primitive (Attribute) primitive:module:....etc... behavioursWithDeclaredType: #() structuresWithDeclaredType: #() instances: an Array(a FAMIXAnnotationInstance #'primitive:module:(primitiveMake...etc... FM3PropertyDescription>>getFrom: Receiver: a FM3PropertyDescription[FAMIX.Type.fanIn] Arguments and temporary variables: element: primitive:module: (AnnotationType) result: nil Receiver's instance variables: name: #fanIn isContainer: false isDerived: true isMultivalued: false opposite: nil class: a FM3MetaDescription[FAMIX.Type] package: nil type: an AnonymousClass[Number] key: nil implementingSelector: #fanIn FMRepository>>get:element: Receiver: a FMRepository Arguments and temporary variables: propertyOrName: a FM3PropertyDescription[FAMIX.Type.fanIn] element: primitive:module: (AnnotationType) Receiver's instance variables: elements: an IdentitySet(readOnlyFileNamed: -> rFile (Access) mimeEncode -> pha...etc... metamodel: a FMMetaRepository [:property | | values | values := repository get: property element: each. self exportProperty: property withAll: values] in FMRepositoryVisitor>>exportElement: Receiver: a FMRepositoryVisitor Arguments and temporary variables: each: a FM3PropertyDescription[FAMIX.Type.fanIn] property: primitive:module: (AnnotationType) values: nil Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... Array(SequenceableCollection)>>do: Receiver: an Array(a FM3PropertyDescription[FAMIX.NamedEntity.name] a FM3PropertyDescription[FAMIX.N...etc... Arguments and temporary variables: aBlock: [:property | | values | values := repository get: property element: ea...etc... index: 11 indexLimiT: 67 Receiver's instance variables: an Array(a FM3PropertyDescription[FAMIX.NamedEntity.name] a FM3PropertyDescription[FAMIX.N...etc... FMRepositoryVisitor>>exportElement: Receiver: a FMRepositoryVisitor Arguments and temporary variables: each: primitive:module: (AnnotationType) meta: a FM3MetaDescription[FAMIX.AnnotationType] serial: 966 properties: an Array(a FM3PropertyDescription[FAMIX.NamedEntity.name] a FM3Prop...etc... Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... [:each | self exportElement: each] in FMRepositoryVisitor>>basicRun Receiver: a FMRepositoryVisitor Arguments and temporary variables: each: primitive:module: (AnnotationType) Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... Array(SequenceableCollection)>>do: Receiver: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Access) sendData:count...etc... Arguments and temporary variables: aBlock: [:each | self exportElement: each] index: 8410 indexLimiT: 26949 Receiver's instance variables: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Access) sendData:count...etc... FMRepositoryVisitor>>basicRun Receiver: a FMRepositoryVisitor Arguments and temporary variables: Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... [:bar | progBar := bar. self basicRun] in FMRepositoryVisitor>>run Receiver: a FMRepositoryVisitor Arguments and temporary variables: bar: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... [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: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' 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: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' 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: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' 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: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' 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... MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: [[result := workBlock value: progress] on: ProgressNotification do:...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [result := workBlock value: progress] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Writing Network.mse' argPoint: (420@150) argMinVal: 1 argMaxVal: 26949 argWorkBlock: [:bar | progBar := bar. self basicRun] Receiver's instance variables: messageText: nil tag: nil signaler: a MorphicUIManager signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | progBar := bar. self basicRun] maxVal: 26949 minVal: 1 aPoint: (420@150) progressTitle: 'Writing Network.mse' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Writing Network.mse' aPoint: (420@150) minVal: 1 maxVal: 26949 workBlock: [:bar | progBar := bar. self basicRun] 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 MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: titleString: 'Writing Network.mse' aPoint: (420@150) minVal: 1 maxVal: 26949 workBlock: [:bar | progBar := bar. self basicRun] Receiver's instance variables: interactiveParser: nil FMRepositoryVisitor>>run Receiver: a FMRepositoryVisitor Arguments and temporary variables: Receiver's instance variables: repository: a FMRepository wrapperDict: nil printer: a FMMSEPrinter index: an IdentityHashTable(" HTTPSocket useProxySer...stopUsingProxyServer. " ...etc... nb: 8409 progBar: [:barValArg | | barVal return newBarSize | barVal := barValArg. retu...etc... roots: an Array(readOnlyFileNamed: -> rFile (Access) mimeEncode -> phase1 (Acce...etc... FMRepository>>accept: Receiver: a FMRepository Arguments and temporary variables: aParseClient: a FMMSEPrinter visitor: a FMRepositoryVisitor Receiver's instance variables: elements: an IdentitySet(readOnlyFileNamed: -> rFile (Access) mimeEncode -> pha...etc... metamodel: a FMMetaRepository --- The full stack --- FAMIXAnnotationType(Object)>>doesNotUnderstand: #yourScope MooseObjectQueryResult>>withoutSelfLoops FAMIXAnnotationType(FAMIXType)>>clientClasses [self clientClasses size] in FAMIXAnnotationType(FAMIXType)>>fanIn BlockClosure>>cullValue: [aBlock cullValue: self entity] in MooseDefaultState(MooseEntityState)>>cache:initializer: SmallDictionary>>at:ifAbsentPut: MooseDefaultState>>propertyAt:ifAbsentPut: MooseDefaultState(MooseEntityState)>>cache:initializer: FAMIXAnnotationType(MooseEntity)>>lookUpPropertyNamed:computedAs: FAMIXAnnotationType(FAMIXType)>>fanIn FM3PropertyDescription>>getRawFrom: FAMIXAnnotationType(Object)>>mmGetProperty: FM3PropertyDescription>>getFrom: FMRepository>>get:element: [:property | | values | values := repository get: property element: each. self exportProperty: property withAll: values] in FMRepositoryVisitor>>exportElement: Array(SequenceableCollection)>>do: FMRepositoryVisitor>>exportElement: [:each | self exportElement: each] in FMRepositoryVisitor>>basicRun Array(SequenceableCollection)>>do: FMRepositoryVisitor>>basicRun [:bar | progBar := bar. self basicRun] in FMRepositoryVisitor>>run [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: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: MorphicUIManager>>displayProgress:at:from:to:during: FMRepositoryVisitor>>run FMRepository>>accept: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - FMRepository>>exportOn: MooseModel class>>export:withMetamodel:to: MooseModel class>>export:to: MooseModel>>exportToMSEStream: [aModel exportToMSEStream: aStream] in FLMooseBenchmarks>>runMSEWith: Time class>>millisecondsToRun: BlockClosure>>timeToRun FLMooseBenchmarks>>addResultRunning:titled: FLMooseBenchmarks>>runMSEWith: [:aBenchmarkSelector | self runGarbageCollector. self perform: aBenchmarkSelector with: aModel] in FLMooseBenchmarks>>runWith: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1] in [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in Array(Collection)>>do:displayingProgress:every: Array(SequenceableCollection)>>do: [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in Array(Collection)>>do:displayingProgress:every: [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)>>displayProgressFrom:to:during: Array(Collection)>>do:displayingProgress:every: Array(Collection)>>do:displayingProgress: FLMooseBenchmarks>>runWith: FLMooseBenchmarks>>runWithInstalledModelNamed: FLMooseBenchmarks>>runWithModelInstalledWith:name:benchSelectors: 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 [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: 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