Could you please provide a link to the MSE file so that we can reproduce the problem? Cheers, Doru On 24 May 2011, at 15:22, Stéphane Ducasse wrote: > From: ss > To: Pharo-project(a)lists.gforge.inria.fr > Subject: [BUG]FAMIXEnum(Object)>>doesNotUnderstand: #lookUp: > > here insert explanation of what you were doing, suspect changes you've made and so forth. > > 24 May 2011 3:22:18 pm > > VM: Mac OS - intel - 1067 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.51] Moose Suite 4.4 > Image: Pharo1.2.1 [Latest update: #12345] > > SecurityManager state: > Restricted: false > FileAccess: true > SocketAccess: true > Working Dir /Users/ducasse/Workspace/FirstCircle/Moose/StartUp-ClearVue/2011-05-27-Aix-Stef/Moose.app/Contents/Resources > Trusted Dir /foobar/tooBar/forSqueak/bogus > Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My Squeak > > FAMIXEnum(Object)>>doesNotUnderstand: #lookUp: > Receiver: Planet in ad_hoc (Type) > Arguments and temporary variables: > aMessage: lookUp: 'radius()' > exception: MessageNotUnderstood: FAMIXEnum>>lookUp: > resumeValue: nil > Receiver's instance variables: > mooseID: 2324 > state: a MooseDefaultState > sourceAnchor: nil > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'Planet' > isStub: false > receivingInvocations: an Array(main -> Planet#values() (Invocation)) > modifiers: a Set(#isFinal #isPublic) > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > subInheritances: #() > methods: an Array(Planet>>surfaceWeight(double) (Method) Planet>>toString() (Me...etc... > container: ad_hoc (Namespace) > superInheritances: #() > attributes: an Array(Planet.radius (Attribute) Planet.mass (Attribute) Planet.G...etc... > values: an Array(a FAMIXEnumValue #JUPITER a FAMIXEnumValue #SATURN a FAMIXEnum...etc... > > [:each | | invokedMtd | each isASureInvocation > ifTrue: [invokedMtd := each getReceivingFAMIXClass lookUp: each signature. > invokedMtd isNil > ifFalse: [(invokedMtd isAbstract > or: [invokedMtd = self]) > ifFalse: [sureInvokedMtdsSet add: invokedMtd]]]] in FAMIXMethod>>privateSureInvokedMethods > Receiver: Planet>>surfaceGravity() (Method) > Arguments and temporary variables: > sureInvokedMtdsSet: surfaceGravity -> self#radius() (Invocation) > each: a Set() > invokedMtd: nil > Receiver's instance variables: > mooseID: 3985 > state: a MooseDefaultState > sourceAnchor: a FAMIXFileAnchor #'/Users/ducasse/Workspace/FirstCircle/Moose/St...etc... > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'surfaceGravity' > isStub: false > receivingInvocations: #() > modifiers: a Set() > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > outgoingInvocations: an Array(surfaceGravity -> self#radius() (Invocation) surf...etc... > incomingInvocations: an Array(surfaceWeight -> self#surfaceGravity() (Invocatio...etc... > localVariables: #() > parameters: #() > signature: 'surfaceGravity()' > accesses: an Array(surfaceGravity -> G (Access)) > declaredType: double (Type) > kind: nil > parentType: Planet in ad_hoc (Type) > > OrderedCollection>>do: > Receiver: an OrderedCollection(surfaceGravity -> self#radius() (Invocation) surfaceGravity -> self#r...etc... > Arguments and temporary variables: > aBlock: [:each | | invokedMtd | each isASureInvocation > ifTrue: [invokedMtd :=...etc... > index: 3 > Receiver's instance variables: > array: an Array(nil nil surfaceGravity -> self#radius() (Invocation) surfaceGra...etc... > firstIndex: 3 > lastIndex: 5 > > FMMultivalueLink>>do: > Receiver: an Array(surfaceGravity -> self#radius() (Invocation) surfaceGravity -> self#radius() (Inv...etc... > Arguments and temporary variables: > aBlock: [:each | | invokedMtd | each isASureInvocation > ifTrue: [invokedMtd :=...etc... > Receiver's instance variables: > values: an OrderedCollection(surfaceGravity -> self#radius() (Invocation) surfa...etc... > owner: Planet>>surfaceGravity() (Method) > opposite: #sender: > > FAMIXMethod>>privateSureInvokedMethods > Receiver: Planet>>surfaceGravity() (Method) > Arguments and temporary variables: > outgoingInvo: an Array(surfaceGravity -> self#radius() (Invocation) surfaceGrav...etc... > sureInvokedMtdsSet: a Set() > Receiver's instance variables: > mooseID: 3985 > state: a MooseDefaultState > sourceAnchor: a FAMIXFileAnchor #'/Users/ducasse/Workspace/FirstCircle/Moose/St...etc... > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'surfaceGravity' > isStub: false > receivingInvocations: #() > modifiers: a Set() > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > outgoingInvocations: an Array(surfaceGravity -> self#radius() (Invocation) surf...etc... > incomingInvocations: an Array(surfaceWeight -> self#surfaceGravity() (Invocatio...etc... > localVariables: #() > parameters: #() > signature: 'surfaceGravity()' > accesses: an Array(surfaceGravity -> G (Access)) > declaredType: double (Type) > kind: nil > parentType: Planet in ad_hoc (Type) > > [self privateSureInvokedMethods] in FAMIXMethod>>sureInvokedMethods > Receiver: Planet>>surfaceGravity() (Method) > Arguments and temporary variables: > > Receiver's instance variables: > mooseID: 3985 > state: a MooseDefaultState > sourceAnchor: a FAMIXFileAnchor #'/Users/ducasse/Workspace/FirstCircle/Moose/St...etc... > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'surfaceGravity' > isStub: false > receivingInvocations: #() > modifiers: a Set() > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > outgoingInvocations: an Array(surfaceGravity -> self#radius() (Invocation) surf...etc... > incomingInvocations: an Array(surfaceWeight -> self#surfaceGravity() (Invocatio...etc... > localVariables: #() > parameters: #() > signature: 'surfaceGravity()' > accesses: an Array(surfaceGravity -> G (Access)) > declaredType: double (Type) > kind: nil > parentType: Planet in ad_hoc (Type) > > SmallDictionary>>at:ifAbsentPut: > Receiver: a SmallDictionary() > Arguments and temporary variables: > key: #sureInvokedMethods > aBlock: [self privateSureInvokedMethods] > index: 0 > Receiver's instance variables: > keys: #(nil nil) > values: #(nil nil) > size: 0 > > MooseDefaultState>>cacheAt:ifAbsentPut: > Receiver: a MooseDefaultState > Arguments and temporary variables: > name: #sureInvokedMethods > aBlock: [self privateSureInvokedMethods] > Receiver's instance variables: > attributes: an Array(#privateModel->a MooseModel #'verveine.extractor.java'(582...etc... > entity: Planet>>surfaceGravity() (Method) > propertyCache: a SmallDictionary('CYCLO'->1 'NOS'->4 #LOC->3) > queryCache: a SmallDictionary() > > FAMIXMethod>>sureInvokedMethods > Receiver: Planet>>surfaceGravity() (Method) > Arguments and temporary variables: > > Receiver's instance variables: > mooseID: 3985 > state: a MooseDefaultState > sourceAnchor: a FAMIXFileAnchor #'/Users/ducasse/Workspace/FirstCircle/Moose/St...etc... > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'surfaceGravity' > isStub: false > receivingInvocations: #() > modifiers: a Set() > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > outgoingInvocations: an Array(surfaceGravity -> self#radius() (Invocation) surf...etc... > incomingInvocations: an Array(surfaceWeight -> self#surfaceGravity() (Invocatio...etc... > localVariables: #() > parameters: #() > signature: 'surfaceGravity()' > accesses: an Array(surfaceGravity -> G (Access)) > declaredType: double (Type) > kind: nil > parentType: Planet in ad_hoc (Type) > > FAMIXMethod>>invokedMethods > Receiver: Planet>>surfaceGravity() (Method) > Arguments and temporary variables: > > Receiver's instance variables: > mooseID: 3985 > state: a MooseDefaultState > sourceAnchor: a FAMIXFileAnchor #'/Users/ducasse/Workspace/FirstCircle/Moose/St...etc... > sourceLanguage: nil > comments: #() > declaredSourceLanguage: nil > name: 'surfaceGravity' > isStub: false > receivingInvocations: #() > modifiers: a Set() > parentPackage: nil > outgoingReferences: #() > types: #() > incomingReferences: #() > outgoingInvocations: an Array(surfaceGravity -> self#radius() (Invocation) surf...etc... > incomingInvocations: an Array(surfaceWeight -> self#surfaceGravity() (Invocatio...etc... > localVariables: #() > parameters: #() > signature: 'surfaceGravity()' > accesses: an Array(surfaceGravity -> G (Access)) > declaredType: double (Type) > kind: nil > parentType: Planet in ad_hoc (Type) > > [:each | each invokedMethods size] in [:bar | > allModelMethods := aMooseModel allMethods > select: [:each | each isStub not]. > bar increment. > allModelClasses := aMooseModel allModelClasses. > bar increment. > nop := aMooseModel allModelPackages size. > bar increment. > noc := allModelClasses size. > bar increment. > nom := allModelMethods size. > bar increment. > loc := allModelMethods sum: #numberOfLinesOfCode. > bar increment. > cyclo := allModelMethods sum: #cyclomaticComplexity. > bar increment. > fanout := allModelClasses sum: #fanOut. > bar increment. > calls := allModelMethods > sum: [:each | each invokedMethods size]. > bar increment. > andc := (allModelClasses > sum: [:class | class directSubclasses size]) > / noc. > bar increment. > ahh := allModelClasses average: #hierarchyNestingLevel. > bar increment] in OverviewPyramidMetrics>>model: > Receiver: an OverviewPyramidMetrics > Arguments and temporary variables: > each: Planet>>surfaceGravity() (Method) > Receiver's instance variables: > nop: 0 > noc: 27 > nom: 238 > loc: 4230 > cyclo: 760 > fanout: 81 > calls: nil > andc: nil > ahh: nil > > [:sum :each | sum > + (aSymbolOrBlock value: each)] in FAMIXMethodGroup(MooseGroup)>>sum: > Receiver: Group (238 FAMIXMethods) > Arguments and temporary variables: > aSymbolOrBlock: 442 > sum: Planet>>surfaceGravity() (Method) > each: [:each | each invokedMethods size] > Receiver's instance variables: > mooseID: 13709 > state: a MooseDefaultState > storage: a MooseGroupRuntimeStorage(Dictionary>>Dictionary(Repository) (Method)...etc... > > [:each | nextValue := binaryBlock value: nextValue value: each] in OrderedCollection(Collection)>>inject:into: > Receiver: an OrderedCollection(Dictionary>>Dictionary(Repository) (Method) VerveineVisitor>>endVisit...etc... > Arguments and temporary variables: > binaryBlock: Planet>>surfaceGravity() (Method) > nextValue: [:sum :each | sum > + (aSymbolOrBlock value: each)] > each: #(442) > Receiver's instance variables: > array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... > firstIndex: 333 > lastIndex: 570 > > OrderedCollection>>do: > Receiver: an OrderedCollection(Dictionary>>Dictionary(Repository) (Method) VerveineVisitor>>endVisit...etc... > Arguments and temporary variables: > aBlock: [:each | nextValue := binaryBlock value: nextValue value: each] > index: 408 > Receiver's instance variables: > array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... > firstIndex: 333 > lastIndex: 570 > > OrderedCollection(Collection)>>inject:into: > Receiver: an OrderedCollection(Dictionary>>Dictionary(Repository) (Method) VerveineVisitor>>endVisit...etc... > Arguments and temporary variables: > thisValue: 0 > binaryBlock: [:sum :each | sum > + (aSymbolOrBlock value: each)] > nextValue: #(442) > Receiver's instance variables: > array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... > firstIndex: 333 > lastIndex: 570 > > FAMIXMethodGroup(MooseAbstractGroup)>>inject:into: > Receiver: Group (238 FAMIXMethods) > Arguments and temporary variables: > neutral: 0 > aBinaryBlock: [:sum :each | sum > + (aSymbolOrBlock value: each)] > Receiver's instance variables: > mooseID: 13709 > state: a MooseDefaultState > storage: a MooseGroupRuntimeStorage(Dictionary>>Dictionary(Repository) (Method)...etc... > > FAMIXMethodGroup(MooseGroup)>>sum: > Receiver: Group (238 FAMIXMethods) > Arguments and temporary variables: > aSymbolOrBlock: [:each | each invokedMethods size] > Receiver's instance variables: > mooseID: 13709 > state: a MooseDefaultState > storage: a MooseGroupRuntimeStorage(Dictionary>>Dictionary(Repository) (Method)...etc... > > [:bar | > allModelMethods := aMooseModel allMethods > select: [:each | each isStub not]. > bar increment. > allModelClasses := aMooseModel allModelClasses. > bar increment. > nop := aMooseModel allModelPackages size. > bar increment. > noc := allModelClasses size. > bar increment. > nom := allModelMethods size. > bar increment. > loc := allModelMethods sum: #numberOfLinesOfCode. > bar increment. > cyclo := allModelMethods sum: #cyclomaticComplexity. > bar increment. > fanout := allModelClasses sum: #fanOut. > bar increment. > calls := allModelMethods > sum: [:each | each invokedMethods size]. > bar increment. > andc := (allModelClasses > sum: [:class | class directSubclasses size]) > / noc. > bar increment. > ahh := allModelClasses average: #hierarchyNestingLevel. > bar increment] in OverviewPyramidMetrics>>model: > Receiver: an OverviewPyramidMetrics > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > nop: 0 > noc: 27 > nom: 238 > loc: 4230 > cyclo: 760 > fanout: 81 > calls: nil > andc: nil > ahh: nil > > MooseCustomTask>>basicRun > Receiver: a MooseCustomTask > Arguments and temporary variables: > > Receiver's instance variables: > progBar: [:barValArg | > | barVal return newBarSize | > barVal := barValArg. > retu...etc... > nb: 8 > computation: [:bar | > allModelMethods := aMooseModel allMethods > select: [:e...etc... > description: 'OverviewPyramid - computing metrics' > length: 11 > > [:bar | > progBar := bar. > result := self basicRun] in [self setUp. > nb := 0. > UIManager default > displayProgress: self description > at: Sensor cursorPoint > from: 1 > to: self length > during: [:bar | > progBar := bar. > result := self basicRun]] in MooseCustomTask(MooseTask)>>runWithProgress > Receiver: a MooseCustomTask > Arguments and temporary variables: > result: [:barValArg | > | barVal return newBarSize | > barVal := barValArg. > retur...etc... > bar: #(nil) > Receiver's instance variables: > progBar: [:barValArg | > | barVal return newBarSize | > barVal := barValArg. > retu...etc... > nb: 8 > computation: [:bar | > allModelMethods := aMooseModel allMethods > select: [:e...etc... > description: 'OverviewPyramid - computing metrics' > length: 11 > > [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 > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > 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: 83 > 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 > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > 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: 77 > 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 > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > 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 > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > 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(25427968)") > closureOrNil: nil > receiver: [aBlock value] > > ProgressInitiationException(Exception)>>signal > Receiver: ProgressInitiationException: > Arguments and temporary variables: > > Receiver's instance variables: > messageText: nil > tag: nil > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > ProgressInitiationException>>display:at:from:to:during: > Receiver: ProgressInitiationException: > Arguments and temporary variables: > argString: 'OverviewPyramid - computing metrics' > argPoint: 296@172 > argMinVal: 1 > argMaxVal: 11 > argWorkBlock: [:bar | > progBar := bar. > result := self basicRun] > Receiver's instance variables: > messageText: nil > tag: nil > signalContext: ProgressInitiationException(Exception)>>signal > handlerContext: nil > outerContext: nil > workBlock: [:bar | > progBar := bar. > result := self basicRun] > maxVal: 11 > minVal: 1 > aPoint: 296@172 > progressTitle: 'OverviewPyramid - computing metrics' > > ProgressInitiationException class>>display:at:from:to:during: > Receiver: ProgressInitiationException > Arguments and temporary variables: > aString: 'OverviewPyramid - computing metrics' > aPoint: 296@172 > minVal: 1 > maxVal: 11 > workBlock: [:bar | > progBar := bar. > result := self basicRun] > Receiver's instance variables: > superclass: Exception > methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... > format: 150 > 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: {} > localSelectors: nil > > MorphicUIManager>>displayProgress:at:from:to:during: > Receiver: a MorphicUIManager > Arguments and temporary variables: > titleString: 'OverviewPyramid - computing metrics' > aPoint: 296@172 > minVal: 1 > maxVal: 11 > workBlock: [:bar | > progBar := bar. > result := self basicRun] > Receiver's instance variables: > interactiveParser: nil > > [self setUp. > nb := 0. > UIManager default > displayProgress: self description > at: Sensor cursorPoint > from: 1 > to: self length > during: [:bar | > progBar := bar. > result := self basicRun]] in MooseCustomTask(MooseTask)>>runWithProgress > Receiver: a MooseCustomTask > Arguments and temporary variables: > result: #(nil) > Receiver's instance variables: > progBar: [:barValArg | > | barVal return newBarSize | > barVal := barValArg. > retu...etc... > nb: 8 > computation: [:bar | > allModelMethods := aMooseModel allMethods > select: [:e...etc... > description: 'OverviewPyramid - computing metrics' > length: 11 > > BlockClosure>>ensure: > Receiver: [self setUp. > nb := 0. > UIManager default > displayProgress: self description > at: Sensor...etc... > Arguments and temporary variables: > aBlock: [self tearDown] > complete: nil > returnValue: nil > Receiver's instance variables: > outerContext: MooseCustomTask(MooseTask)>>runWithProgress > startpc: 65 > numArgs: 0 > > MooseCustomTask(MooseTask)>>runWithProgress > Receiver: a MooseCustomTask > Arguments and temporary variables: > result: #(nil) > Receiver's instance variables: > progBar: [:barValArg | > | barVal return newBarSize | > barVal := barValArg. > retu...etc... > nb: 8 > computation: [:bar | > allModelMethods := aMooseModel allMethods > select: [:e...etc... > description: 'OverviewPyramid - computing metrics' > length: 11 > > MooseCustomTask class>>runWithProgress:description:length: > Receiver: MooseCustomTask > Arguments and temporary variables: > aBlock: [:bar | > allModelMethods := aMooseModel allMethods > select: [:each |...etc... > aDescription: 'OverviewPyramid - computing metrics' > aNumber: 11 > Receiver's instance variables: > superclass: MooseTask > methodDict: a MethodDictionary(#basicRun->(MooseCustomTask>>#basicRun "a Compil...etc... > format: 140 > instanceVariables: #('computation' 'description' 'length') > organization: ('as yet unclassified' basicRun description length with:descripti...etc... > subclasses: nil > name: #MooseCustomTask > classPool: nil > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'Moose-Core' > traitComposition: {} > localSelectors: nil > > OverviewPyramidMetrics>>model: > Receiver: an OverviewPyramidMetrics > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > nop: 0 > noc: 27 > nom: 238 > loc: 4230 > cyclo: 760 > fanout: 81 > calls: nil > andc: nil > ahh: nil > > OverviewPyramidMetrics class>>on: > Receiver: OverviewPyramidMetrics > Arguments and temporary variables: > aMooseModel: a MooseModel #'verveine.extractor.java'(5820) > Receiver's instance variables: > superclass: Object > methodDict: a MethodDictionary(#ahh->(OverviewPyramidMetrics>>#ahh "a CompiledM...etc... > format: 148 > instanceVariables: #('nop' 'noc' 'nom' 'loc' 'cyclo' 'fanout' 'calls' 'andc' 'a...etc... > organization: ('accessing' ahh: andc: calls: cyclo: fanout: loc: noc: nom: nop:...etc... > subclasses: nil > name: #OverviewPyramidMetrics > classPool: nil > sharedPools: nil > environment: a SystemDictionary(lots of globals) > category: #'Famix-Extensions' > traitComposition: {} > localSelectors: nil > > > --- The full stack --- > FAMIXEnum(Object)>>doesNotUnderstand: #lookUp: > [:each | | invokedMtd | each isASureInvocation > ifTrue: [invokedMtd := each getReceivingFAMIXClass lookUp: each signature. > invokedMtd isNil > ifFalse: [(invokedMtd isAbstract > or: [invokedMtd = self]) > ifFalse: [sureInvokedMtdsSet add: invokedMtd]]]] in FAMIXMethod>>privateSureInvokedMethods > OrderedCollection>>do: > FMMultivalueLink>>do: > FAMIXMethod>>privateSureInvokedMethods > [self privateSureInvokedMethods] in FAMIXMethod>>sureInvokedMethods > SmallDictionary>>at:ifAbsentPut: > MooseDefaultState>>cacheAt:ifAbsentPut: > FAMIXMethod>>sureInvokedMethods > FAMIXMethod>>invokedMethods > [:each | each invokedMethods size] in [:bar | > allModelMethods := aMooseModel allMethods > select: [:each | each isStub not]. > bar increment. > allModelClasses := aMooseModel allModelClasses. > bar increment. > nop := aMooseModel allModelPackages size. > bar increment. > noc := allModelClasses size. > bar increment. > nom := allModelMethods size. > bar increment. > loc := allModelMethods sum: #numberOfLinesOfCode. > bar increment. > cyclo := allModelMethods sum: #cyclomaticComplexity. > bar increment. > fanout := allModelClasses sum: #fanOut. > bar increment. > calls := allModelMethods > sum: [:each | each invokedMethods size]. > bar increment. > andc := (allModelClasses > sum: [:class | class directSubclasses size]) > / noc. > bar increment. > ahh := allModelClasses average: #hierarchyNestingLevel. > bar increment] in OverviewPyramidMetrics>>model: > [:sum :each | sum > + (aSymbolOrBlock value: each)] in FAMIXMethodGroup(MooseGroup)>>sum: > [:each | nextValue := binaryBlock value: nextValue value: each] in OrderedCollection(Collection)>>inject:into: > OrderedCollection>>do: > OrderedCollection(Collection)>>inject:into: > FAMIXMethodGroup(MooseAbstractGroup)>>inject:into: > FAMIXMethodGroup(MooseGroup)>>sum: > [:bar | > allModelMethods := aMooseModel allMethods > select: [:each | each isStub not]. > bar increment. > allModelClasses := aMooseModel allModelClasses. > bar increment. > nop := aMooseModel allModelPackages size. > bar increment. > noc := allModelClasses size. > bar increment. > nom := allModelMethods size. > bar increment. > loc := allModelMethods sum: #numberOfLinesOfCode. > bar increment. > cyclo := allModelMethods sum: #cyclomaticComplexity. > bar increment. > fanout := allModelClasses sum: #fanOut. > bar increment. > calls := allModelMethods > sum: [:each | each invokedMethods size]. > bar increment. > andc := (allModelClasses > sum: [:class | class directSubclasses size]) > / noc. > bar increment. > ahh := allModelClasses average: #hierarchyNestingLevel. > bar increment] in OverviewPyramidMetrics>>model: > MooseCustomTask>>basicRun > [:bar | > progBar := bar. > result := self basicRun] in [self setUp. > nb := 0. > UIManager default > displayProgress: self description > at: Sensor cursorPoint > from: 1 > to: self length > during: [:bar | > progBar := bar. > result := self basicRun]] in MooseCustomTask(MooseTask)>>runWithProgress > [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: > ProgressInitiationException(Exception)>>signal > ProgressInitiationException>>display:at:from:to:during: > ProgressInitiationException class>>display:at:from:to:during: > MorphicUIManager>>displayProgress:at:from:to:during: > [self setUp. > nb := 0. > UIManager default > displayProgress: self description > at: Sensor cursorPoint > from: 1 > to: self length > during: [:bar | > progBar := bar. > result := self basicRun]] in MooseCustomTask(MooseTask)>>runWithProgress > BlockClosure>>ensure: > MooseCustomTask(MooseTask)>>runWithProgress > MooseCustomTask class>>runWithProgress:description:length: > OverviewPyramidMetrics>>model: > OverviewPyramidMetrics class>>on: > - - - - - - - - - - - - - - - > - - - - - - - - - - - - - - - - - - > [OverviewPyramidMetrics on: self] in MooseModel>>overviewPyramidMetrics > SmallDictionary>>at:ifAbsentPut: > MooseDefaultState>>propertyAt:ifAbsentPut: > MooseModel>>overviewPyramidMetrics > OverviewPyramid>>initializeWith: > OverviewPyramid class>>on: > MooseModel>>viewOverviewPyramidMap > [:x | self perform: eachPragma selector] in [:eachPragma | GLMGenericAction new > action: [:x | self perform: eachPragma selector]; > > title: (eachPragma argumentAt: 1); > > category: (eachPragma argumentAt: 2)] in [:eachClass | > categorized := (Pragma allNamed: #menuItem:category: in: eachClass) > collect: [:eachPragma | GLMGenericAction new > action: [:x | self perform: eachPragma selector]; > > title: (eachPragma argumentAt: 1); > > category: (eachPragma argumentAt: 2)]. > simple := (Pragma allNamed: #menuItem: in: eachClass) > collect: [:eachPragma | GLMGenericAction new > action: [:x | self perform: eachPragma selector]; > > title: (eachPragma argumentAt: 1)]. > categorized , simple] in MooseModel(Object)>>mooseFinderActions > BlockClosure>>glamourValueWithArgs: > GLMGenericAction(GLMAction)>>actOn: > [:ann | ann action actOn: aPresentation] in GLMMorphicListRenderer(GLMMorphicWidgetRenderer)>>installActionsOnUI:fromPresentation: > [:each | answer := each valueWithArguments: anArray] in ActionSequence>>valueWithArguments: > ActionSequence(SequenceableCollection)>>do: > ActionSequence>>valueWithArguments: > [:class :actions | (class handles: announcement) > ifTrue: [actions > valueWithArguments: (Array with: announcement)]] in GLMAnnouncer>>announce: > [:assoc | aBlock value: assoc key value: assoc value] in IdentityDictionary(Dictionary)>>keysAndValuesDo: > [:each | each > ifNotNil: [aBlock value: each]] in IdentityDictionary(Dictionary)>>associationsDo: > Array(SequenceableCollection)>>do: > IdentityDictionary(Dictionary)>>associationsDo: > IdentityDictionary(Dictionary)>>keysAndValuesDo: > GLMAnnouncer>>announce: > GLMTreeMorphModel>>announce: > GLMTreeMorphNodeModel>>executeMenuAction: > [| selArgCount | (selArgCount := selector numArgs) = 0 > ifTrue: [target perform: selector] > ifFalse: [selArgCount = arguments size > ifTrue: [target perform: selector withArguments: arguments] > ifFalse: [target > perform: selector > withArguments: (arguments copyWith: evt)]]] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: > BlockClosure>>ensure: > CursorWithMask(Cursor)>>showWhile: > ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: > ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: > ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: > MouseButtonEvent>>sentTo: > ToggleMenuItemMorph(Morph)>>handleEvent: > MorphicEventDispatcher>>dispatchDefault:with: > MorphicEventDispatcher>>dispatchEvent:with: > ToggleMenuItemMorph(Morph)>>processEvent:using: > MorphicEventDispatcher>>dispatchDefault:with: > MorphicEventDispatcher>>dispatchEvent:with: > MenuMorph(Morph)>>processEvent:using: > MenuMorph(Morph)>>processEvent: > MenuMorph>>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>>sendMouseEvent: > 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 Project class>>spawnNewProcess > [self value. > Processor terminateActive] in BlockClosure>>newProcess > > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- www.tudorgirba.com "What is more important: To be happy, or to make happy?" _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev

I reported the pyramid. After there were in my flow so I closed them. Now I can take 10 min on browsing verveineJ model and produce them. I imagine that somebody has to use this interface. I think that we should all think if we want to succeed or not. I mean yes I can do what I'm told (cyrille), or do my experience (jannik), or fix mondrian (alex) but if nobody spend 1 hour to try to analyse a Java project then we will have bugs.