BUG 388 and testing bug 389 at the same time... 11 December 2008 7:32:18 pm VM: Win32 - a SmalltalkImage Image: Pharo0.1 [Latest update: #10188] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir C:\Program Files\Squeak\Pharo_2008-09-15 Trusted Dir C:\Program Files\Squeak\Pharo_2008-09-15\Benoit St-Jean Untrusted Dir C:\My Squeak\Benoit St-Jean AbstractObjectsAsMethod(Object)>>doesNotUnderstand: #getSourceFor:in: Receiver: an AbstractObjectsAsMethod Arguments and temporary variables: aMessage: getSourceFor: #answer42 in: TestObjectsAsMethods Receiver's instance variables: an AbstractObjectsAsMethod TestObjectsAsMethods class(Behavior)>>sourceCodeAt: Receiver: TestObjectsAsMethods Arguments and temporary variables: selector: #answer42 Receiver's instance variables: superclass: TestCase methodDict: a MethodDictionary(#add:with:->an ObjectsAsMethodsExample #answer42...etc... format: 132 instanceVariables: nil organization: ('as yet unclassified' testAddNumbers testAnswer42 testDNU) subclasses: nil name: #TestObjectsAsMethods classPool: nil sharedPools: nil environment: Smalltalk category: #'Tests-ObjectsAsMethods' traitComposition: nil localSelectors: nil [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:sel | ((each sourceCodeAt: sel) findString: aString startingAt: 1 ...]} Arguments and temporary variables: aString: 'SystemNavigation' caseSensitive: false list: a Set(a MethodReference Inspector >> #defsOfSelection a MethodReference C...etc... count: 1128 adder: [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:mrClass...etc... mrClass: ChangeSet mrSel: #fileOut bar: [] in SystemProgressMorph>>label:min:max: {[:barVal | return := nil. bar...etc... each: TestObjectsAsMethods sel: #answer42 MethodDictionary>>keysDo: Receiver: a MethodDictionary(#add:with:->an ObjectsAsMethodsExample #answer42->an AbstractObjectsAsM...etc... Arguments and temporary variables: aBlock: [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:sel | ...etc... key: #answer42 i: 2 iLimiT: 8 Receiver's instance variables: tally: 5 array: an Array(a CompiledMethod (3391) an AbstractObjectsAsMethod nil an Objec...etc... --- The full stack --- AbstractObjectsAsMethod(Object)>>doesNotUnderstand: #getSourceFor:in: TestObjectsAsMethods class(Behavior)>>sourceCodeAt: [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:sel | ((each sourceCodeAt: sel) findString: aString startingAt: 1 ...]} MethodDictionary>>keysDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TestObjectsAsMethods class(Behavior)>>selectorsDo: [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:each | bar value: (count := count + 1). each selectorsDo: [:sel | ((ea...]} [] in TestCase class(Behavior)>>allSubclassesDoGently: {[:cl | cl isInMemory ifTrue: [aBlock value: cl. cl allSubclassesDoGentl...]} Array(SequenceableCollection)>>do: TestCase class(Class)>>subclassesDoGently: TestCase class(Behavior)>>allSubclassesDoGently: [] in Object class(Behavior)>>allSubclassesDoGently: {[:cl | cl isInMemory ifTrue: [aBlock value: cl. cl allSubclassesDoGentl...]} Array(SequenceableCollection)>>do: Object class(Class)>>subclassesDoGently: Object class(Behavior)>>allSubclassesDoGently: [] in ProtoObject class(Behavior)>>allSubclassesDoGently: {[:cl | cl isInMemory ifTrue: [aBlock value: cl. cl allSubclassesDoGentl...]} Array(SequenceableCollection)>>do: ProtoObject class(Class)>>subclassesDoGently: ProtoObject class(Behavior)>>allSubclassesDoGently: SystemNavigation>>allBehaviorsDo: [] in SystemNavigation>>allMethodsWithSourceString:matchCase: {[:bar | count := 0. SystemNavigation default allBehaviorsDo: [:each | ...]} [] in ProgressInitiationException>>defaultAction {[result := workBlock value: progress]} BlockContext>>ensure: 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: SystemNavigation>>allMethodsWithSourceString:matchCase: ...etc...