[BUG]UndefinedObject(Object)>>doesNotUnderstand: #<

> I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
>
> 30 November 2009 5:26:40 pm
>
> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179]
> Image: PharoCore1.0rc1 [Latest update: #10498]
>
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir E:\Pharo
> Trusted Dir E:\Pharo\Cesar S. Rabak
> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
>
> UndefinedObject(Object)>>doesNotUnderstand: #<
> Receiver: nil
> Arguments and temporary variables:
> aMessage: < 0
> exception: MessageNotUnderstood: receiver of "<" is nil
> resumeValue: nil
> Receiver's instance variables:
> nil
>
> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
> Receiver: {an EncoderForV3PlusClosures}
> Arguments and temporary variables:
> literalIndex: nil
> Receiver's instance variables:
> comment: nil
> pc: nil
> scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
> nTemps: 0
> supered: false
> requestor: nil
> class: StringTest class
> selector: #lastStoredRun
> literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
> selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
> litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
> litSet: a LiteralDictionary(size 302)
> sourceRanges: a Dictionary(size 309)
> globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
> addedSelectorAndMethodClassLiterals: false
> stream: {an EncoderForV3PlusClosures}
> position: 0
> rootNode: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
> blockExtentsToLocals: nil
>
> EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
> Receiver: {an EncoderForV3PlusClosures}
> Arguments and temporary variables:
> genSelector: #genPushLiteral:
> args: #(nil)
> Receiver's instance variables:
> comment: nil
> pc: nil
> scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
> nTemps: 0
> supered: false
> requestor: nil
> class: StringTest class
> selector: #lastStoredRun
> literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
> selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
> litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
> litSet: a LiteralDictionary(size 302)
> sourceRanges: a Dictionary(size 309)
> globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
> addedSelectorAndMethodClassLiterals: false
> stream: {an EncoderForV3PlusClosures}
> position: 0
> rootNode: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
> blockExtentsToLocals: nil
>
> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
> Receiver: {an EncoderForV3PlusClosures}
> Arguments and temporary variables:
> literalIndex: nil
> Receiver's instance variables:
> comment: nil
> pc: nil
> scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
> nTemps: 0
> supered: false
> requestor: nil
> class: StringTest class
> selector: #lastStoredRun
> literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
> selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
> litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
> litSet: a LiteralDictionary(size 302)
> sourceRanges: a Dictionary(size 309)
> globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
> addedSelectorAndMethodClassLiterals: false
> stream: {an EncoderForV3PlusClosures}
> position: 0
> rootNode: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
> blockExtentsToLocals: nil
>
> LiteralNode>>sizeCodeForValue:
> Receiver: {#testWithWithWithWith}
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> Receiver's instance variables:
> comment: nil
> pc: nil
> key: #testWithWithWithWith
> code: -3
> index: nil
>
> [] in MessageNode>>sizeCodeForValue:
> Receiver: { add: #testWithWithWithWith}
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: nil
> selector: {add:}
> precedence: 3
> special: 0
> arguments: an OrderedCollection({#testWithWithWithWith})
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> OrderedCollection>>collect:
> Receiver: an OrderedCollection({#testWithWithWithWith})
> Arguments and temporary variables:
> aBlock: [closure] in MessageNode>>sizeCodeForValue:
> newCollection: an OrderedCollection()
> index: 3
> Receiver's instance variables:
> array: #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil)
> firstIndex: 3
> lastIndex: 3
>
> MessageNode>>sizeCodeForValue:
> Receiver: { add: #testWithWithWithWith}
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: nil
> selector: {add:}
> precedence: 3
> special: 0
> arguments: an OrderedCollection({#testWithWithWithWith})
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> [] in CascadeNode>>sizeCodeForValue:
> Receiver: {Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollection;
> add: #tes...etc...
> Arguments and temporary variables:
> encoder: { add: #testWithWithWithWith}
> size: {an EncoderForV3PlusClosures}
> aMessage: #(1506)
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {Set new}
> messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
>
> OrderedCollection>>do:
> Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc...
> Arguments and temporary variables:
> aBlock: [closure] in CascadeNode>>sizeCodeForValue:
> index: 252
> Receiver's instance variables:
> array: an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc...
> firstIndex: 1
> lastIndex: 294
>
> CascadeNode>>sizeCodeForValue:
> Receiver: {Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollection;
> add: #tes...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> size: #(1506)
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {Set new}
> messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
>
> [] in MessageNode>>sizeCodeForValue:
> Receiver: {#passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollectio...etc...
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {#passed}
> selector: {->}
> precedence: 2
> special: 0
> arguments: an Array({Set new add: #testAsArray;
> add: #testAsSet;
> add: #test...etc...
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> Array(SequenceableCollection)>>collect:
> Receiver: an Array({Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollection;
> ...etc...
> Arguments and temporary variables:
> aBlock: [closure] in MessageNode>>sizeCodeForValue:
> newCollection: #(nil)
> index: 1
> indexLimiT: 1
> Receiver's instance variables:
> an Array({Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollection;
> ...etc...
>
> MessageNode>>sizeCodeForValue:
> Receiver: {#passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedCollectio...etc...
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {#passed}
> selector: {->}
> precedence: 2
> special: 0
> arguments: an Array({Set new add: #testAsArray;
> add: #testAsSet;
> add: #test...etc...
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> [] in MessageNode>>sizeCodeForValue:
> Receiver: { add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedC...etc...
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: nil
> selector: {add:}
> precedence: 3
> special: 0
> arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray;
> add:...etc...
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> OrderedCollection>>collect:
> Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: #...etc...
> Arguments and temporary variables:
> aBlock: [closure] in MessageNode>>sizeCodeForValue:
> newCollection: an OrderedCollection()
> index: 3
> Receiver's instance variables:
> array: an Array(nil nil {#passed -> (Set new add: #testAsArray;
> add: #testAs...etc...
> firstIndex: 3
> lastIndex: 3
>
> MessageNode>>sizeCodeForValue:
> Receiver: { add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: #testAsSortedC...etc...
> Arguments and temporary variables:
> <<error during printing>
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: nil
> selector: {add:}
> precedence: 3
> special: 0
> arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray;
> add:...etc...
> sizes: #(nil)
> equalNode: nil
> caseErrorNode: nil
>
> [] in CascadeNode>>sizeCodeForValue:
> Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: ...etc...
> Arguments and temporary variables:
> encoder: { add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> ...etc...
> size: {an EncoderForV3PlusClosures}
> aMessage: #(10)
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {Dictionary new}
> messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
> ...etc...
>
> OrderedCollection>>do:
> Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> ...etc...
> Arguments and temporary variables:
> aBlock: [closure] in CascadeNode>>sizeCodeForValue:
> index: 3
> Receiver's instance variables:
> array: an Array(nil nil { add: #passed -> (Set new add: #testAsArray;
> add: ...etc...
> firstIndex: 3
> lastIndex: 7
>
> CascadeNode>>sizeCodeForValue:
> Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: ...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> size: #(10)
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {Dictionary new}
> messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
> ...etc...
>
> CascadeNode(ParseNode)>>sizeCodeForReturn:
> Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add: ...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> Receiver's instance variables:
> comment: nil
> pc: nil
> receiver: {Dictionary new}
> messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
> ...etc...
>
> ReturnNode>>sizeCodeForValue:
> Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> Receiver's instance variables:
> comment: nil
> pc: nil
> expr: {Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #tes...etc...
>
> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
> Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> add...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> Receiver's instance variables:
> comment: nil
> pc: nil
> expr: {Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #tes...etc...
>
> BlockNode>>sizeCodeForEvaluatedValue:
> Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #testAsSet;
> ...etc...
> Arguments and temporary variables:
> encoder: {an EncoderForV3PlusClosures}
> Receiver's instance variables:
> comment: nil
> pc: nil
> arguments: #()
> statements: an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc...
> returns: true
> nArgsNode: nil
> size: nil
> remoteCopyNode: nil
> temporaries: an OrderedCollection()
> optimized: false
> actualScopeIfOptimized: nil
> blockExtent: (0 to: 2)
> remoteTempNode: nil
> copiedValues: nil
> closureCreationNode: nil
> startOfLastStatement: 16
>
> BytecodeAgnosticMethodNode>>generate:
> Receiver: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
> add: #tes...etc...
> Arguments and temporary variables:
> trailer: #(0 0 0 0)
> primErrNode: nil
> blkSize: nil
> nLits: nil
> literals: nil
> stack: nil
> method: nil
> locals: nil
> lit: nil
> Receiver's instance variables:
> comment: nil
> pc: nil
> selectorOrFalse: #lastStoredRun
> precedence: 1
> arguments: #()
> block: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;
> add:...etc...
> primitive: 0
> encoder: {an EncoderForV3PlusClosures}
> temporaries: #()
> properties: an AdditionalMethodState
> sourceText: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
> locationCounter: 3
> localsPool: an IdentitySet()
>
> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
> Receiver: CompiledMethodWithNode
> Arguments and temporary variables:
> aMethodNode: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
> bytes: #(0 0 0 0)
> Receiver's instance variables:
> superclass: Object
> methodDict: a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc...
> format: 134
> instanceVariables: #('node' 'method')
> organization: ('accessing' method node selector)
> ('private' method: node:)
>
> subclasses: nil
> name: #CompiledMethodWithNode
> classPool: nil
> sharedPools: nil
> environment: Smalltalk
> category: #'Compiler-Support'
> traitComposition: nil
> localSelectors: nil
>
> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
> Receiver: StringTest class
> Arguments and temporary variables:
> code: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
> category: 'history'
> requestor: nil
> bytes: #(0 0 0 0)
> failBlock: [closure] in Metaclass(ClassDescription)>>compile:classified:withSta...etc...
> methodNode: lastStoredRun
> ^ Dictionary new add: #passed -> (Set new add: #test...etc...
> Receiver's instance variables:
> superclass: CollectionRootTest class
> methodDict: a MethodDictionary()
> format: 158
> instanceVariables: nil
> organization: ('as yet unclassified')
>
> thisClass: StringTest
> traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
> localSelectors: nil
>
> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
> Receiver: StringTest class
> Arguments and temporary variables:
> text: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
> category: 'history'
> changeStamp: 'CesarRabak 11/30/2009 17:26'
> requestor: nil
> logSource: true
> methodAndNode: nil
> Receiver's instance variables:
> superclass: CollectionRootTest class
> methodDict: a MethodDictionary()
> format: 158
> instanceVariables: nil
> organization: ('as yet unclassified')
>
> thisClass: StringTest
> traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
> localSelectors: nil
>
> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
> Receiver: StringTest class
> Arguments and temporary variables:
> text: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
> category: 'history'
> changeStamp: 'CesarRabak 11/30/2009 17:26'
> requestor: nil
> Receiver's instance variables:
> superclass: CollectionRootTest class
> methodDict: a MethodDictionary()
> format: 158
> instanceVariables: nil
> organization: ('as yet unclassified')
>
> thisClass: StringTest
> traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
> localSelectors: nil
>
> Metaclass(ClassDescription)>>compile:classified:notifying:
> Receiver: StringTest class
> Arguments and temporary variables:
> text: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
> category: 'history'
> requestor: nil
> stamp: 'CesarRabak 11/30/2009 17:26'
> Receiver's instance variables:
> superclass: CollectionRootTest class
> methodDict: a MethodDictionary()
> format: 158
> instanceVariables: nil
> organization: ('as yet unclassified')
>
> thisClass: StringTest
> traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
> localSelectors: nil
>
> Metaclass(ClassDescription)>>compile:classified:
> Receiver: StringTest class
> Arguments and temporary variables:
> code: 'lastStoredRun
> ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
> heading: 'history'
> Receiver's instance variables:
> superclass: CollectionRootTest class
> methodDict: a MethodDictionary()
> format: 158
> instanceVariables: nil
> organization: ('as yet unclassified')
>
> thisClass: StringTest
> traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
> localSelectors: nil
>
> StringTest class(TestCase class)>>generateLastStoredRunMethod
> Receiver: StringTest
> Arguments and temporary variables:
>
> Receiver's instance variables:
> superclass: CollectionRootTest
> methodDict: a MethodDictionary(size 321)
> format: 158
> instanceVariables: #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc...
> organization: ('initialization' setUp)
> ('requirements' aValue anIndex anotherEl...etc...
> subclasses: nil
> name: #StringTest
> classPool: nil
> sharedPools: nil
> environment: Smalltalk
> category: #'CollectionsTests-Text'
> traitComposition: TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc...
> localSelectors: an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc...
> history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
>
> [] in TestRunner>>storeResultIntoTestCases
> Receiver: a TestRunner
> Arguments and temporary variables:
> testCaseCls: StringTest
> Receiver's instance variables:
> categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
> categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
> classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
> classIndex: 0
> classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
> failedList: #()
> failedSelected: nil
> errorList: #()
> errorSelected: nil
> lastUpdate: 3437054762
> result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
> previousRun: nil
>
> Set>>do:
> Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc...
> Arguments and temporary variables:
> aBlock: [closure] in TestRunner>>storeResultIntoTestCases
> index: 364
> each: StringTest
> indexLimiT: 6638
> Receiver's instance variables:
> tally: 49
> array: {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
>
> TestRunner>>storeResultIntoTestCases
> Receiver: a TestRunner
> Arguments and temporary variables:
>
> Receiver's instance variables:
> categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
> categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
> classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
> classIndex: 0
> classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
> failedList: #()
> failedSelected: nil
> errorList: #()
> errorSelected: nil
> lastUpdate: 3437054762
> result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
> previousRun: nil
>
> TestRunner>>perform:orSendTo:
> Receiver: a TestRunner
> Arguments and temporary variables:
> selector: #storeResultIntoTestCases
> otherTarget: a PluggableTextMorphPlus(3170)
> Receiver's instance variables:
> categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
> categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
> classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
> classIndex: 0
> classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
> failedList: #()
> failedSelected: nil
> errorList: #()
> errorSelected: nil
> lastUpdate: 3437054762
> result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
> previousRun: nil
>
> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
> Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference'
> Arguments and temporary variables:
> evt: [675@67 mouseUp 21933765 nil]
> selArgCount: #(2)
> Receiver's instance variables:
> bounds: 613@54 corner: 836@70
> owner: a MenuMorph(2400)
> submorphs: #()
> fullBounds: 613@54 corner: 836@70
> color: Color black
> extension: a MorphExtension (2845) [other:  (layoutProperties -> a LayoutProper...etc...
> font: a LogicalFont
> familyName: DejaVu Sans
> emphasis: nil
> pointSize: 10
> rea...etc...
> emphasis: 0
> contents: 'Store result as progress reference'
> hasFocus: false
> isEnabled: true
> subMenu: nil
> isSelected: false
> target: a TestRunner
> selector: #perform:orSendTo:
> arguments: an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170))
> icon: nil
> getStateSelector: nil
> enablementSelector: nil
> keyText: nil
>
> BlockClosure>>ensure:
> Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
> Arguments and temporary variables:
> aBlock: [closure] in CursorWithMask(Cursor)>>showWhile:
> returnValue: nil
> b: nil
> Receiver's instance variables:
> outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
> startpc: 136
> numArgs: 0
>
> CursorWithMask(Cursor)>>showWhile:
> Receiver: ((CursorWithMask
> extent: 16@16
> depth: 1
> fromArray: #(
> 2r0
> 2r10000000000000000000000...etc...
> Arguments and temporary variables:
> aBlock: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
> oldcursor: ((CursorWithMask
> extent: 16@16
> depth: 1
> fromArray: #(
> 2r0
> 2r1...etc...
> Receiver's instance variables:
> bits: a Bitmap of length 16
> width: 16
> height: 16
> depth: 1
> offset: -1@-1
> maskForm: Form(16x16x1)
>
>
> --- The full stack ---
> UndefinedObject(Object)>>doesNotUnderstand: #<
> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
> EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
> LiteralNode>>sizeCodeForValue:
> [] in MessageNode>>sizeCodeForValue:
> OrderedCollection>>collect:
> MessageNode>>sizeCodeForValue:
> [] in CascadeNode>>sizeCodeForValue:
> OrderedCollection>>do:
> CascadeNode>>sizeCodeForValue:
> [] in MessageNode>>sizeCodeForValue:
> Array(SequenceableCollection)>>collect:
> MessageNode>>sizeCodeForValue:
> [] in MessageNode>>sizeCodeForValue:
> OrderedCollection>>collect:
> MessageNode>>sizeCodeForValue:
> [] in CascadeNode>>sizeCodeForValue:
> OrderedCollection>>do:
> CascadeNode>>sizeCodeForValue:
> CascadeNode(ParseNode)>>sizeCodeForReturn:
> ReturnNode>>sizeCodeForValue:
> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
> BlockNode>>sizeCodeForEvaluatedValue:
> BytecodeAgnosticMethodNode>>generate:
> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
> Metaclass(ClassDescription)>>compile:classified:notifying:
> Metaclass(ClassDescription)>>compile:classified:
> StringTest class(TestCase class)>>generateLastStoredRunMethod
> [] in TestRunner>>storeResultIntoTestCases
> Set>>do:
> TestRunner>>storeResultIntoTestCases
> TestRunner>>perform:orSendTo:
> [] 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:
> [] in HandMorph>>sendFocusEvent:to:clear:
> [] in PasteUpMorph>>becomeActiveDuring:
> BlockClosure>>on:do:
> PasteUpMorph>>becomeActiveDuring:
> HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [] in WorldState>>doOneCycleNowFor:
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> WorldState>>doOneSubCycleFor:
> PasteUpMorph>>doOneSubCycle
> MenuMorph>>invokeModalAt:in:allowKeyboard:
> MenuMorph>>invokeModal:
> MenuMorph>>invokeModal
> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
> TextMorphForEditView>>mouseDown:
> TextMorphForEditView(Morph)>>handleMouseDown:
> MouseButtonEvent>>sentTo:
> TextMorphForEditView(Morph)>>handleEvent:
> MorphicEventDispatcher>>dispatchMouseDown:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> TextMorphForEditView(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchMouseDown:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> TransformMorph(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchMouseDown:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> PluggableTextMorphPlus(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchMouseDown:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> PluggableStandardWindow(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchMouseDown:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> PasteUpMorph(Morph)>>processEvent:using:
> PasteUpMorph>>processEvent:using:
> PasteUpMorph(Morph)>>processEvent:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [] in WorldState>>doOneCycleNowFor:
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> PasteUpMorph>>doOneCycle
> [] in Project class>>spawnNewProcess
> [] in BlockClosure>>newProcess
>
> --
> Cesar Rabak
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

> thanks can you let us knw the exact sequence your did?
>
> Stef
>
> On Nov 30, 2009, at 8:30 PM, [hidden email] wrote:
>
>> I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
>>
>> 30 November 2009 5:26:40 pm
>>
>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179]
>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>
>> SecurityManager state:
>> Restricted: false
>> FileAccess: true
>> SocketAccess: true
>> Working Dir E:\Pharo
>> Trusted Dir E:\Pharo\Cesar S. Rabak
>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
>>
>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>       Receiver: nil
>>       Arguments and temporary variables:
>>               aMessage:       < 0
>>               exception:      MessageNotUnderstood: receiver of "<" is nil
>>               resumeValue:    nil
>>       Receiver's instance variables:
>> nil
>>
>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>       Receiver: {an EncoderForV3PlusClosures}
>>       Arguments and temporary variables:
>>               literalIndex:   nil
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               scopeTable:     a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
>>               nTemps:         0
>>               supered:        false
>>               requestor:      nil
>>               class:  StringTest class
>>               selector:       #lastStoredRun
>>               literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
>>               litIndSet:      a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
>>               litSet:         a LiteralDictionary(size 302)
>>               sourceRanges:   a Dictionary(size 309)
>>               globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
>>               addedSelectorAndMethodClassLiterals:    false
>>               stream:         {an EncoderForV3PlusClosures}
>>               position:       0
>>               rootNode:       lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
>>               blockExtentsToLocals:   nil
>>
>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
>>       Receiver: {an EncoderForV3PlusClosures}
>>       Arguments and temporary variables:
>>               genSelector:    #genPushLiteral:
>>               args:   #(nil)
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               scopeTable:     a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
>>               nTemps:         0
>>               supered:        false
>>               requestor:      nil
>>               class:  StringTest class
>>               selector:       #lastStoredRun
>>               literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
>>               litIndSet:      a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
>>               litSet:         a LiteralDictionary(size 302)
>>               sourceRanges:   a Dictionary(size 309)
>>               globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
>>               addedSelectorAndMethodClassLiterals:    false
>>               stream:         {an EncoderForV3PlusClosures}
>>               position:       0
>>               rootNode:       lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
>>               blockExtentsToLocals:   nil
>>
>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>       Receiver: {an EncoderForV3PlusClosures}
>>       Arguments and temporary variables:
>>               literalIndex:   nil
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               scopeTable:     a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...
>>               nTemps:         0
>>               supered:        false
>>               requestor:      nil
>>               class:  StringTest class
>>               selector:       #lastStoredRun
>>               literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...
>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...
>>               litIndSet:      a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...
>>               litSet:         a LiteralDictionary(size 302)
>>               sourceRanges:   a Dictionary(size 309)
>>               globalSourceRanges:     an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...
>>               addedSelectorAndMethodClassLiterals:    false
>>               stream:         {an EncoderForV3PlusClosures}
>>               position:       0
>>               rootNode:       lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...
>>               blockExtentsToLocals:   nil
>>
>> LiteralNode>>sizeCodeForValue:
>>       Receiver: {#testWithWithWithWith}
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               key:    #testWithWithWithWith
>>               code:   -3
>>               index:  nil
>>
>> [] in MessageNode>>sizeCodeForValue:
>>       Receiver: { add: #testWithWithWithWith}
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       nil
>>               selector:       {add:}
>>               precedence:     3
>>               special:        0
>>               arguments:      an OrderedCollection({#testWithWithWithWith})
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> OrderedCollection>>collect:
>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in MessageNode>>sizeCodeForValue:
>>               newCollection:  an OrderedCollection()
>>               index:  3
>>       Receiver's instance variables:
>>               array:  #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil)
>>               firstIndex:     3
>>               lastIndex:      3
>>
>> MessageNode>>sizeCodeForValue:
>>       Receiver: { add: #testWithWithWithWith}
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       nil
>>               selector:       {add:}
>>               precedence:     3
>>               special:        0
>>               arguments:      an OrderedCollection({#testWithWithWithWith})
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> [] in CascadeNode>>sizeCodeForValue:
>>       Receiver: {Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #testAsSortedCollection;
>>        add: #tes...etc...
>>       Arguments and temporary variables:
>>               encoder:        { add: #testWithWithWithWith}
>>               size:   {an EncoderForV3PlusClosures}
>>               aMessage:       #(1506)
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {Set new}
>>               messages:       an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
>>
>> OrderedCollection>>do:
>>       Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in CascadeNode>>sizeCodeForValue:
>>               index:  252
>>       Receiver's instance variables:
>>               array:  an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc...
>>               firstIndex:     1
>>               lastIndex:      294
>>
>> CascadeNode>>sizeCodeForValue:
>>       Receiver: {Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #testAsSortedCollection;
>>        add: #tes...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>               size:   #(1506)
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {Set new}
>>               messages:       an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
>>
>> [] in MessageNode>>sizeCodeForValue:
>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>                add: #testAsSet;
>>                add: #testAsSortedCollectio...etc...
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {#passed}
>>               selector:       {->}
>>               precedence:     2
>>               special:        0
>>               arguments:      an Array({Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #test...etc...
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> Array(SequenceableCollection)>>collect:
>>       Receiver: an Array({Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #testAsSortedCollection;
>>        ...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in MessageNode>>sizeCodeForValue:
>>               newCollection:  #(nil)
>>               index:  1
>>               indexLimiT:     1
>>       Receiver's instance variables:
>> an Array({Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #testAsSortedCollection;
>>        ...etc...
>>
>> MessageNode>>sizeCodeForValue:
>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>                add: #testAsSet;
>>                add: #testAsSortedCollectio...etc...
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {#passed}
>>               selector:       {->}
>>               precedence:     2
>>               special:        0
>>               arguments:      an Array({Set new add: #testAsArray;
>>        add: #testAsSet;
>>        add: #test...etc...
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> [] in MessageNode>>sizeCodeForValue:
>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add: #testAsSortedC...etc...
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       nil
>>               selector:       {add:}
>>               precedence:     3
>>               special:        0
>>               arguments:      an OrderedCollection({#passed -> (Set new add: #testAsArray;
>>                add:...etc...
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> OrderedCollection>>collect:
>>       Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray;
>>                add: #testAsSet;
>>                add: #...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in MessageNode>>sizeCodeForValue:
>>               newCollection:  an OrderedCollection()
>>               index:  3
>>       Receiver's instance variables:
>>               array:  an Array(nil nil {#passed -> (Set new add: #testAsArray;
>>                add: #testAs...etc...
>>               firstIndex:     3
>>               lastIndex:      3
>>
>> MessageNode>>sizeCodeForValue:
>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add: #testAsSortedC...etc...
>>       Arguments and temporary variables:
>> <<error during printing>
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       nil
>>               selector:       {add:}
>>               precedence:     3
>>               special:        0
>>               arguments:      an OrderedCollection({#passed -> (Set new add: #testAsArray;
>>                add:...etc...
>>               sizes:  #(nil)
>>               equalNode:      nil
>>               caseErrorNode:  nil
>>
>> [] in CascadeNode>>sizeCodeForValue:
>>       Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add: ...etc...
>>       Arguments and temporary variables:
>>               encoder:        { add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                       ...etc...
>>               size:   {an EncoderForV3PlusClosures}
>>               aMessage:       #(10)
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {Dictionary new}
>>               messages:       an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
>>               ...etc...
>>
>> OrderedCollection>>do:
>>       Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>               ...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in CascadeNode>>sizeCodeForValue:
>>               index:  3
>>       Receiver's instance variables:
>>               array:  an Array(nil nil { add: #passed -> (Set new add: #testAsArray;
>>                        add: ...etc...
>>               firstIndex:     3
>>               lastIndex:      7
>>
>> CascadeNode>>sizeCodeForValue:
>>       Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add: ...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>               size:   #(10)
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {Dictionary new}
>>               messages:       an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
>>               ...etc...
>>
>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>       Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add: ...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               receiver:       {Dictionary new}
>>               messages:       an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;
>>               ...etc...
>>
>> ReturnNode>>sizeCodeForValue:
>>       Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               expr:   {Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #tes...etc...
>>
>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>       Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #testAsSet;
>>                        add...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               expr:   {Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                        add: #tes...etc...
>>
>> BlockNode>>sizeCodeForEvaluatedValue:
>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                                add: #testAsSet;
>>                                ...etc...
>>       Arguments and temporary variables:
>>               encoder:        {an EncoderForV3PlusClosures}
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               arguments:      #()
>>               statements:     an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc...
>>               returns:        true
>>               nArgsNode:      nil
>>               size:   nil
>>               remoteCopyNode:         nil
>>               temporaries:    an OrderedCollection()
>>               optimized:      false
>>               actualScopeIfOptimized:         nil
>>               blockExtent:    (0 to: 2)
>>               remoteTempNode:         nil
>>               copiedValues:   nil
>>               closureCreationNode:    nil
>>               startOfLastStatement:   16
>>
>> BytecodeAgnosticMethodNode>>generate:
>>       Receiver: lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                                add: #tes...etc...
>>       Arguments and temporary variables:
>>               trailer:        #(0 0 0 0)
>>               primErrNode:    nil
>>               blkSize:        nil
>>               nLits:  nil
>>               literals:       nil
>>               stack:  nil
>>               method:         nil
>>               locals:         nil
>>               lit:    nil
>>       Receiver's instance variables:
>>               comment:        nil
>>               pc:     nil
>>               selectorOrFalse:        #lastStoredRun
>>               precedence:     1
>>               arguments:      #()
>>               block:  {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>                                add:...etc...
>>               primitive:      0
>>               encoder:        {an EncoderForV3PlusClosures}
>>               temporaries:    #()
>>               properties:     an AdditionalMethodState
>>               sourceText:     'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>               locationCounter:        3
>>               localsPool:     an IdentitySet()
>>
>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>       Receiver: CompiledMethodWithNode
>>       Arguments and temporary variables:
>>               aMethodNode:    lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>               bytes:  #(0 0 0 0)
>>       Receiver's instance variables:
>>               superclass:     Object
>>               methodDict:     a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc...
>>               format:         134
>>               instanceVariables:      #('node' 'method')
>>               organization:   ('accessing' method node selector)
>> ('private' method: node:)
>>
>>               subclasses:     nil
>>               name:   #CompiledMethodWithNode
>>               classPool:      nil
>>               sharedPools:    nil
>>               environment:    Smalltalk
>>               category:       #'Compiler-Support'
>>               traitComposition:       nil
>>               localSelectors:         nil
>>
>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>       Receiver: StringTest class
>>       Arguments and temporary variables:
>>               code:   'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
>>               category:       'history'
>>               requestor:      nil
>>               bytes:  #(0 0 0 0)
>>               failBlock:      [closure] in Metaclass(ClassDescription)>>compile:classified:withSta...etc...
>>               methodNode:     lastStoredRun
>>       ^ Dictionary new add: #passed -> (Set new add: #test...etc...
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest class
>>               methodDict:     a MethodDictionary()
>>               format:         158
>>               instanceVariables:      nil
>>               organization:   ('as yet unclassified')
>>
>>               thisClass:      StringTest
>>               traitComposition:       TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
>>               localSelectors:         nil
>>
>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
>>       Receiver: StringTest class
>>       Arguments and temporary variables:
>>               text:   'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
>>               category:       'history'
>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>               requestor:      nil
>>               logSource:      true
>>               methodAndNode:  nil
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest class
>>               methodDict:     a MethodDictionary()
>>               format:         158
>>               instanceVariables:      nil
>>               organization:   ('as yet unclassified')
>>
>>               thisClass:      StringTest
>>               traitComposition:       TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
>>               localSelectors:         nil
>>
>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>       Receiver: StringTest class
>>       Arguments and temporary variables:
>>               text:   'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
>>               category:       'history'
>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>               requestor:      nil
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest class
>>               methodDict:     a MethodDictionary()
>>               format:         158
>>               instanceVariables:      nil
>>               organization:   ('as yet unclassified')
>>
>>               thisClass:      StringTest
>>               traitComposition:       TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
>>               localSelectors:         nil
>>
>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>       Receiver: StringTest class
>>       Arguments and temporary variables:
>>               text:   'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
>>               category:       'history'
>>               requestor:      nil
>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest class
>>               methodDict:     a MethodDictionary()
>>               format:         158
>>               instanceVariables:      nil
>>               organization:   ('as yet unclassified')
>>
>>               thisClass:      StringTest
>>               traitComposition:       TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
>>               localSelectors:         nil
>>
>> Metaclass(ClassDescription)>>compile:classified:
>>       Receiver: StringTest class
>>       Arguments and temporary variables:
>>               code:   'lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
>>               heading:        'history'
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest class
>>               methodDict:     a MethodDictionary()
>>               format:         158
>>               instanceVariables:      nil
>>               organization:   ('as yet unclassified')
>>
>>               thisClass:      StringTest
>>               traitComposition:       TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...
>>               localSelectors:         nil
>>
>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>       Receiver: StringTest
>>       Arguments and temporary variables:
>>
>>       Receiver's instance variables:
>>               superclass:     CollectionRootTest
>>               methodDict:     a MethodDictionary(size 321)
>>               format:         158
>>               instanceVariables:      #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>               organization:   ('initialization' setUp)
>> ('requirements' aValue anIndex anotherEl...etc...
>>               subclasses:     nil
>>               name:   #StringTest
>>               classPool:      nil
>>               sharedPools:    nil
>>               environment:    Smalltalk
>>               category:       #'CollectionsTests-Text'
>>               traitComposition:       TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc...
>>               localSelectors:         an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc...
>>               history:        a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
>>
>> [] in TestRunner>>storeResultIntoTestCases
>>       Receiver: a TestRunner
>>       Arguments and temporary variables:
>>               testCaseCls:    StringTest
>>       Receiver's instance variables:
>>               categories:     #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>               categoriesSelected:     a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
>>               classes:        {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
>>               classIndex:     0
>>               classesSelected:        a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
>>               failedList:     #()
>>               failedSelected:         nil
>>               errorList:      #()
>>               errorSelected:  nil
>>               lastUpdate:     3437054762
>>               result:         4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
>>               previousRun:    nil
>>
>> Set>>do:
>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in TestRunner>>storeResultIntoTestCases
>>               index:  364
>>               each:   StringTest
>>               indexLimiT:     6638
>>       Receiver's instance variables:
>>               tally:  49
>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
>>
>> TestRunner>>storeResultIntoTestCases
>>       Receiver: a TestRunner
>>       Arguments and temporary variables:
>>
>>       Receiver's instance variables:
>>               categories:     #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>               categoriesSelected:     a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
>>               classes:        {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
>>               classIndex:     0
>>               classesSelected:        a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
>>               failedList:     #()
>>               failedSelected:         nil
>>               errorList:      #()
>>               errorSelected:  nil
>>               lastUpdate:     3437054762
>>               result:         4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
>>               previousRun:    nil
>>
>> TestRunner>>perform:orSendTo:
>>       Receiver: a TestRunner
>>       Arguments and temporary variables:
>>               selector:       #storeResultIntoTestCases
>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>       Receiver's instance variables:
>>               categories:     #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>               categoriesSelected:     a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...
>>               classes:        {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...
>>               classIndex:     0
>>               classesSelected:        a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...
>>               failedList:     #()
>>               failedSelected:         nil
>>               errorList:      #()
>>               errorSelected:  nil
>>               lastUpdate:     3437054762
>>               result:         4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...
>>               previousRun:    nil
>>
>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference'
>>       Arguments and temporary variables:
>>               evt:    [675@67 mouseUp 21933765 nil]
>>               selArgCount:    #(2)
>>       Receiver's instance variables:
>>               bounds:         613@54 corner: 836@70
>>               owner:  a MenuMorph(2400)
>>               submorphs:      #()
>>               fullBounds:     613@54 corner: 836@70
>>               color:  Color black
>>               extension:      a MorphExtension (2845) [other:  (layoutProperties -> a LayoutProper...etc...
>>               font:   a LogicalFont
>> familyName: DejaVu Sans
>> emphasis: nil
>> pointSize: 10
>> rea...etc...
>>               emphasis:       0
>>               contents:       'Store result as progress reference'
>>               hasFocus:       false
>>               isEnabled:      true
>>               subMenu:        nil
>>               isSelected:     false
>>               target:         a TestRunner
>>               selector:       #perform:orSendTo:
>>               arguments:      an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170))
>>               icon:   nil
>>               getStateSelector:       nil
>>               enablementSelector:     nil
>>               keyText:        nil
>>
>> BlockClosure>>ensure:
>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in CursorWithMask(Cursor)>>showWhile:
>>               returnValue:    nil
>>               b:      nil
>>       Receiver's instance variables:
>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>               startpc:        136
>>               numArgs:        0
>>
>> CursorWithMask(Cursor)>>showWhile:
>>       Receiver: ((CursorWithMask
>>       extent: 16@16
>>       depth: 1
>>       fromArray: #(
>>               2r0
>>               2r10000000000000000000000...etc...
>>       Arguments and temporary variables:
>>               aBlock:         [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>               oldcursor:      ((CursorWithMask
>>       extent: 16@16
>>       depth: 1
>>       fromArray: #(
>>               2r0
>>               2r1...etc...
>>       Receiver's instance variables:
>>               bits:   a Bitmap of length 16
>>               width:  16
>>               height:         16
>>               depth:  1
>>               offset:         -1@-1
>>               maskForm:       Form(16x16x1)
>>
>>
>> --- The full stack ---
>> UndefinedObject(Object)>>doesNotUnderstand: #<
>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>> LiteralNode>>sizeCodeForValue:
>> [] in MessageNode>>sizeCodeForValue:
>> OrderedCollection>>collect:
>> MessageNode>>sizeCodeForValue:
>> [] in CascadeNode>>sizeCodeForValue:
>> OrderedCollection>>do:
>> CascadeNode>>sizeCodeForValue:
>> [] in MessageNode>>sizeCodeForValue:
>> Array(SequenceableCollection)>>collect:
>> MessageNode>>sizeCodeForValue:
>> [] in MessageNode>>sizeCodeForValue:
>> OrderedCollection>>collect:
>> MessageNode>>sizeCodeForValue:
>> [] in CascadeNode>>sizeCodeForValue:
>> OrderedCollection>>do:
>> CascadeNode>>sizeCodeForValue:
>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>> ReturnNode>>sizeCodeForValue:
>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>> BlockNode>>sizeCodeForEvaluatedValue:
>> BytecodeAgnosticMethodNode>>generate:
>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:
>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>> Metaclass(ClassDescription)>>compile:classified:notifying:
>> Metaclass(ClassDescription)>>compile:classified:
>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>> [] in TestRunner>>storeResultIntoTestCases
>> Set>>do:
>> TestRunner>>storeResultIntoTestCases
>> TestRunner>>perform:orSendTo:
>> [] 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:
>> [] in HandMorph>>sendFocusEvent:to:clear:
>> [] in PasteUpMorph>>becomeActiveDuring:
>> BlockClosure>>on:do:
>> PasteUpMorph>>becomeActiveDuring:
>> HandMorph>>sendFocusEvent:to:clear:
>> HandMorph>>sendEvent:focus:clear:
>> HandMorph>>sendMouseEvent:
>> HandMorph>>handleEvent:
>> HandMorph>>processEvents
>> [] in WorldState>>doOneCycleNowFor:
>> Array(SequenceableCollection)>>do:
>> WorldState>>handsDo:
>> WorldState>>doOneCycleNowFor:
>> WorldState>>doOneCycleFor:
>> WorldState>>doOneSubCycleFor:
>> PasteUpMorph>>doOneSubCycle
>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>> MenuMorph>>invokeModal:
>> MenuMorph>>invokeModal
>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>> TextMorphForEditView>>mouseDown:
>> TextMorphForEditView(Morph)>>handleMouseDown:
>> MouseButtonEvent>>sentTo:
>> TextMorphForEditView(Morph)>>handleEvent:
>> MorphicEventDispatcher>>dispatchMouseDown:with:
>> MorphicEventDispatcher>>dispatchEvent:with:
>> TextMorphForEditView(Morph)>>processEvent:using:
>> MorphicEventDispatcher>>dispatchMouseDown:with:
>> MorphicEventDispatcher>>dispatchEvent:with:
>> TransformMorph(Morph)>>processEvent:using:
>> MorphicEventDispatcher>>dispatchMouseDown:with:
>> MorphicEventDispatcher>>dispatchEvent:with:
>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>> MorphicEventDispatcher>>dispatchMouseDown:with:
>> MorphicEventDispatcher>>dispatchEvent:with:
>> PluggableStandardWindow(Morph)>>processEvent:using:
>> MorphicEventDispatcher>>dispatchMouseDown:with:
>> MorphicEventDispatcher>>dispatchEvent:with:
>> PasteUpMorph(Morph)>>processEvent:using:
>> PasteUpMorph>>processEvent:using:
>> PasteUpMorph(Morph)>>processEvent:
>> HandMorph>>sendEvent:focus:clear:
>> HandMorph>>sendMouseEvent:
>> HandMorph>>handleEvent:
>> HandMorph>>processEvents
>> [] in WorldState>>doOneCycleNowFor:
>> Array(SequenceableCollection)>>do:
>> WorldState>>handsDo:
>> WorldState>>doOneCycleNowFor:
>> WorldState>>doOneCycleFor:
>> PasteUpMorph>>doOneCycle
>> [] in Project class>>spawnNewProcess
>> [] in BlockClosure>>newProcess
>>
>> --
>> Cesar Rabak
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>

>
> Nicolas
>
> 2009/11/30 Stéphane Ducasse <[hidden email]>:
>> thanks can you let us knw the exact sequence your did?
>>
>> Stef
>>
>> On Nov 30, 2009, at 8:30 PM, [hidden email] wrote:
>>
>>> I got a recent dev-image and ran some tests (all CollectionTests  
>>> if this matter) and attempted to store the result.
>>>
>>> 30 November 2009 5:26:40 pm
>>>
>>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest  
>>> update: #7179]
>>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>>
>>> SecurityManager state:
>>> Restricted: false
>>> FileAccess: true
>>> SocketAccess: true
>>> Working Dir E:\Pharo
>>> Trusted Dir E:\Pharo\Cesar S. Rabak
>>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus  
>>> documentos\My Squeak
>>>
>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>       Receiver: nil
>>>       Arguments and temporary variables:
>>>               aMessage:       < 0
>>>               exception:      MessageNotUnderstood: receiver of  
>>> "<" is nil
>>>               resumeValue:    nil
>>>       Receiver's instance variables:
>>> nil
>>>
>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               literalIndex:   nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary-
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>> >>sizeOpcodeSelector:withArguments:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               genSelector:    #genPushLiteral:
>>>               args:   #(nil)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary-
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>       Receiver: {an EncoderForV3PlusClosures}
>>>       Arguments and temporary variables:
>>>               literalIndex:   nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               scopeTable:     a Dictionary('category'->{category}  
>>> 'classPool'->{classPool} 'envir...etc...
>>>               nTemps:         0
>>>               supered:        false
>>>               requestor:      nil
>>>               class:  StringTest class
>>>               selector:       #lastStoredRun
>>>               literalStream:  a WriteStream {#Dictionary-
>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}  
>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>               litSet:         a LiteralDictionary(size 302)
>>>               sourceRanges:   a Dictionary(size 309)
>>>               globalSourceRanges:     an OrderedCollection
>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>               addedSelectorAndMethodClassLiterals:    false
>>>               stream:         {an EncoderForV3PlusClosures}
>>>               position:       0
>>>               rootNode:       lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>> #testAs...etc...
>>>               blockExtentsToLocals:   nil
>>>
>>> LiteralNode>>sizeCodeForValue:
>>>       Receiver: {#testWithWithWithWith}
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               key:    #testWithWithWithWith
>>>               code:   -3
>>>               index:  nil
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #testWithWithWithWith}
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection
>>> ({#testWithWithWithWith})
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> OrderedCollection>>collect:
>>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  an OrderedCollection()
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  #(nil nil {#testWithWithWithWith} nil nil  
>>> nil nil nil nil nil)
>>>               firstIndex:     3
>>>               lastIndex:      3
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #testWithWithWithWith}
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection
>>> ({#testWithWithWithWith})
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        { add: #testWithWithWithWith}
>>>               size:   {an EncoderForV3PlusClosures}
>>>               aMessage:       #(1506)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Set new}
>>>               messages:       an OrderedCollection({ add:  
>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>
>>> OrderedCollection>>do:
>>>       Receiver: an OrderedCollection({ add: #testAsArray} { add:  
>>> #testAsSet} { add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> CascadeNode>>sizeCodeForValue:
>>>               index:  252
>>>       Receiver's instance variables:
>>>               array:  an Array({ add: #testAsArray} { add:  
>>> #testAsSet} { add: #testAsSortedCol...etc...
>>>               firstIndex:     1
>>>               lastIndex:      294
>>>
>>> CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               size:   #(1506)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Set new}
>>>               messages:       an OrderedCollection({ add:  
>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>                add: #testAsSet;
>>>                add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {#passed}
>>>               selector:       {->}
>>>               precedence:     2
>>>               special:        0
>>>               arguments:      an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #test...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> Array(SequenceableCollection)>>collect:
>>>       Receiver: an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        ...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  #(nil)
>>>               index:  1
>>>               indexLimiT:     1
>>>       Receiver's instance variables:
>>> an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #testAsSortedCollection;
>>>        ...etc...
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>                add: #testAsSet;
>>>                add: #testAsSortedCollectio...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {#passed}
>>>               selector:       {->}
>>>               precedence:     2
>>>               special:        0
>>>               arguments:      an Array({Set new add: #testAsArray;
>>>        add: #testAsSet;
>>>        add: #test...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: #testAsSortedC...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection({#passed ->  
>>> (Set new add: #testAsArray;
>>>                add:...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> OrderedCollection>>collect:
>>>       Receiver: an OrderedCollection({#passed -> (Set new add:  
>>> #testAsArray;
>>>                add: #testAsSet;
>>>                add: #...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> MessageNode>>sizeCodeForValue:
>>>               newCollection:  an OrderedCollection()
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  an Array(nil nil {#passed -> (Set new add:  
>>> #testAsArray;
>>>                add: #testAs...etc...
>>>               firstIndex:     3
>>>               lastIndex:      3
>>>
>>> MessageNode>>sizeCodeForValue:
>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: #testAsSortedC...etc...
>>>       Arguments and temporary variables:
>>> <<error during printing>
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       nil
>>>               selector:       {add:}
>>>               precedence:     3
>>>               special:        0
>>>               arguments:      an OrderedCollection({#passed ->  
>>> (Set new add: #testAsArray;
>>>                add:...etc...
>>>               sizes:  #(nil)
>>>               equalNode:      nil
>>>               caseErrorNode:  nil
>>>
>>> [] in CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        { add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                       ...etc...
>>>               size:   {an EncoderForV3PlusClosures}
>>>               aMessage:       #(10)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed -
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> OrderedCollection>>do:
>>>       Receiver: an OrderedCollection({ add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #testAsSet;
>>>               ...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> CascadeNode>>sizeCodeForValue:
>>>               index:  3
>>>       Receiver's instance variables:
>>>               array:  an Array(nil nil { add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: ...etc...
>>>               firstIndex:     3
>>>               lastIndex:      7
>>>
>>> CascadeNode>>sizeCodeForValue:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               size:   #(10)
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed -
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>       Receiver: {Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add: ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               receiver:       {Dictionary new}
>>>               messages:       an OrderedCollection({ add: #passed -
>>> > (Set new add: #testAsArray;
>>>               ...etc...
>>>
>>> ReturnNode>>sizeCodeForValue:
>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               expr:   {Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #tes...etc...
>>>
>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                        add: #testAsSet;
>>>                        add...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               expr:   {Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                        add: #tes...etc...
>>>
>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add:  
>>> #testAsArray;
>>>                                add: #testAsSet;
>>>                                ...etc...
>>>       Arguments and temporary variables:
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               arguments:      #()
>>>               statements:     an OrderedCollection({^ Dictionary  
>>> new add: #passed -> (Set new add...etc...
>>>               returns:        true
>>>               nArgsNode:      nil
>>>               size:   nil
>>>               remoteCopyNode:         nil
>>>               temporaries:    an OrderedCollection()
>>>               optimized:      false
>>>               actualScopeIfOptimized:         nil
>>>               blockExtent:    (0 to: 2)
>>>               remoteTempNode:         nil
>>>               copiedValues:   nil
>>>               closureCreationNode:    nil
>>>               startOfLastStatement:   16
>>>
>>> BytecodeAgnosticMethodNode>>generate:
>>>       Receiver: lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>>                                add: #tes...etc...
>>>       Arguments and temporary variables:
>>>               trailer:        #(0 0 0 0)
>>>               primErrNode:    nil
>>>               blkSize:        nil
>>>               nLits:  nil
>>>               literals:       nil
>>>               stack:  nil
>>>               method:         nil
>>>               locals:         nil
>>>               lit:    nil
>>>       Receiver's instance variables:
>>>               comment:        nil
>>>               pc:     nil
>>>               selectorOrFalse:        #lastStoredRun
>>>               precedence:     1
>>>               arguments:      #()
>>>               block:  {[^ Dictionary new add: #passed -> (Set new  
>>> add: #testAsArray;
>>>                                add:...etc...
>>>               primitive:      0
>>>               encoder:        {an EncoderForV3PlusClosures}
>>>               temporaries:    #()
>>>               properties:     an AdditionalMethodState
>>>               sourceText:     'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>>               locationCounter:        3
>>>               localsPool:     an IdentitySet()
>>>
>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>       Receiver: CompiledMethodWithNode
>>>       Arguments and temporary variables:
>>>               aMethodNode:    lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>>               bytes:  #(0 0 0 0)
>>>       Receiver's instance variables:
>>>               superclass:     Object
>>>               methodDict:     a MethodDictionary(#method->a  
>>> CompiledMethod(650: CompiledMethodWit...etc...
>>>               format:         134
>>>               instanceVariables:      #('node' 'method')
>>>               organization:   ('accessing' method node selector)
>>> ('private' method: node:)
>>>
>>>               subclasses:     nil
>>>               name:   #CompiledMethodWithNode
>>>               classPool:      nil
>>>               sharedPools:    nil
>>>               environment:    Smalltalk
>>>               category:       #'Compiler-Support'
>>>               traitComposition:       nil
>>>               localSelectors:         nil
>>>
>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               code:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               requestor:      nil
>>>               bytes:  #(0 0 0 0)
>>>               failBlock:      [closure] in Metaclass
>>> (ClassDescription)>>compile:classified:withSta...etc...
>>>               methodNode:     lastStoredRun
>>>       ^ Dictionary new add: #passed -> (Set new add: #test...etc...
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)
>>> >>compile:classified:withStamp:notifying:logSource:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>               requestor:      nil
>>>               logSource:      true
>>>               methodAndNode:  nil
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>               requestor:      nil
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               text:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               category:       'history'
>>>               requestor:      nil
>>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> Metaclass(ClassDescription)>>compile:classified:
>>>       Receiver: StringTest class
>>>       Arguments and temporary variables:
>>>               code:   'lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:  
>>> #testA...etc...
>>>               heading:        'history'
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest class
>>>               methodDict:     a MethodDictionary()
>>>               format:         158
>>>               instanceVariables:      nil
>>>               organization:   ('as yet unclassified')
>>>
>>>               thisClass:      StringTest
>>>               traitComposition:       TIncludesTest classTrait +  
>>> TCloneTest classTrait + TCopyTest ...etc...
>>>               localSelectors:         nil
>>>
>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>       Receiver: StringTest
>>>       Arguments and temporary variables:
>>>
>>>       Receiver's instance variables:
>>>               superclass:     CollectionRootTest
>>>               methodDict:     a MethodDictionary(size 321)
>>>               format:         158
>>>               instanceVariables:      #('string' 'emptyString'  
>>> 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>>               organization:   ('initialization' setUp)
>>> ('requirements' aValue anIndex anotherEl...etc...
>>>               subclasses:     nil
>>>               name:   #StringTest
>>>               classPool:      nil
>>>               sharedPools:    nil
>>>               environment:    Smalltalk
>>>               category:       #'CollectionsTests-Text'
>>>               traitComposition:       TIncludesTest + TCloneTest +  
>>> TCopyTest + TSetArithmetic + TIt...etc...
>>>               localSelectors:         an IdentitySet(#elementNotIn  
>>> #firstIndex #replacementCollection...etc...
>>>               history:        a Dictionary(#errors->a Set()  
>>> #failures->a Set() #passed->a Set(#testA...etc...
>>>
>>> [] in TestRunner>>storeResultIntoTestCases
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>               testCaseCls:    StringTest
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> Set>>do:
>>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest  
>>> WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in  
>>> TestRunner>>storeResultIntoTestCases
>>>               index:  364
>>>               each:   StringTest
>>>               indexLimiT:     6638
>>>       Receiver's instance variables:
>>>               tally:  49
>>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil.  
>>> nil. nil. nil. nil. nil. nil. n...etc...
>>>
>>> TestRunner>>storeResultIntoTestCases
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> TestRunner>>perform:orSendTo:
>>>       Receiver: a TestRunner
>>>       Arguments and temporary variables:
>>>               selector:       #storeResultIntoTestCases
>>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>>       Receiver's instance variables:
>>>               categories:     #(#'AST-Tests'  
>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>> Support' #'CollectionsTests-Weak' ...etc...
>>>               classes:        {Base64MimeConverterTest.  
>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>               classIndex:     0
>>>               classesSelected:        a Set(TextAndTextStreamTest  
>>> WideStringTest WriteStreamTest Ide...etc...
>>>               failedList:     #()
>>>               failedSelected:         nil
>>>               errorList:      #()
>>>               errorSelected:  nil
>>>               lastUpdate:     3437054762
>>>               result:         4978 run, 4978 passes, 0 expected  
>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>               previousRun:    nil
>>>
>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as  
>>> progress reference'
>>>       Arguments and temporary variables:
>>>               evt:    [675@67 mouseUp 21933765 nil]
>>>               selArgCount:    #(2)
>>>       Receiver's instance variables:
>>>               bounds:         613@54 corner: 836@70
>>>               owner:  a MenuMorph(2400)
>>>               submorphs:      #()
>>>               fullBounds:     613@54 corner: 836@70
>>>               color:  Color black
>>>               extension:      a MorphExtension (2845) [other:  
>>> (layoutProperties -> a LayoutProper...etc...
>>>               font:   a LogicalFont
>>> familyName: DejaVu Sans
>>> emphasis: nil
>>> pointSize: 10
>>> rea...etc...
>>>               emphasis:       0
>>>               contents:       'Store result as progress reference'
>>>               hasFocus:       false
>>>               isEnabled:      true
>>>               subMenu:        nil
>>>               isSelected:     false
>>>               target:         a TestRunner
>>>               selector:       #perform:orSendTo:
>>>               arguments:      an Array(#storeResultIntoTestCases a  
>>> PluggableTextMorphPlus(3170))
>>>               icon:   nil
>>>               getStateSelector:       nil
>>>               enablementSelector:     nil
>>>               keyText:        nil
>>>
>>> BlockClosure>>ensure:
>>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
>>> >>invokeWithEvent:
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in CursorWithMask(Cursor)
>>> >>showWhile:
>>>               returnValue:    nil
>>>               b:      nil
>>>       Receiver's instance variables:
>>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph)
>>> >>invokeWithEvent:
>>>               startpc:        136
>>>               numArgs:        0
>>>
>>> CursorWithMask(Cursor)>>showWhile:
>>>       Receiver: ((CursorWithMask
>>>       extent: 16@16
>>>       depth: 1
>>>       fromArray: #(
>>>               2r0
>>>               2r10000000000000000000000...etc...
>>>       Arguments and temporary variables:
>>>               aBlock:         [closure] in ToggleMenuItemMorph
>>> (MenuItemMorph)>>invokeWithEvent:
>>>               oldcursor:      ((CursorWithMask
>>>       extent: 16@16
>>>       depth: 1
>>>       fromArray: #(
>>>               2r0
>>>               2r1...etc...
>>>       Receiver's instance variables:
>>>               bits:   a Bitmap of length 16
>>>               width:  16
>>>               height:         16
>>>               depth:  1
>>>               offset:         -1@-1
>>>               maskForm:       Form(16x16x1)
>>>
>>>
>>> --- The full stack ---
>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>> >>sizeOpcodeSelector:withArguments:
>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>> LiteralNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> OrderedCollection>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in CascadeNode>>sizeCodeForValue:
>>> OrderedCollection>>do:
>>> CascadeNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> Array(SequenceableCollection)>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in MessageNode>>sizeCodeForValue:
>>> OrderedCollection>>collect:
>>> MessageNode>>sizeCodeForValue:
>>> [] in CascadeNode>>sizeCodeForValue:
>>> OrderedCollection>>do:
>>> CascadeNode>>sizeCodeForValue:
>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>> ReturnNode>>sizeCodeForValue:
>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>> BlockNode>>sizeCodeForEvaluatedValue:
>>> BytecodeAgnosticMethodNode>>generate:
>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>> Metaclass(ClassDescription)
>>> >>compile:classified:withStamp:notifying:logSource:
>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>> Metaclass(ClassDescription)>>compile:classified:
>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>> [] in TestRunner>>storeResultIntoTestCases
>>> Set>>do:
>>> TestRunner>>storeResultIntoTestCases
>>> TestRunner>>perform:orSendTo:
>>> [] 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:
>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>> [] in PasteUpMorph>>becomeActiveDuring:
>>> BlockClosure>>on:do:
>>> PasteUpMorph>>becomeActiveDuring:
>>> HandMorph>>sendFocusEvent:to:clear:
>>> HandMorph>>sendEvent:focus:clear:
>>> HandMorph>>sendMouseEvent:
>>> HandMorph>>handleEvent:
>>> HandMorph>>processEvents
>>> [] in WorldState>>doOneCycleNowFor:
>>> Array(SequenceableCollection)>>do:
>>> WorldState>>handsDo:
>>> WorldState>>doOneCycleNowFor:
>>> WorldState>>doOneCycleFor:
>>> WorldState>>doOneSubCycleFor:
>>> PasteUpMorph>>doOneSubCycle
>>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>>> MenuMorph>>invokeModal:
>>> MenuMorph>>invokeModal
>>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>>> TextMorphForEditView>>mouseDown:
>>> TextMorphForEditView(Morph)>>handleMouseDown:
>>> MouseButtonEvent>>sentTo:
>>> TextMorphForEditView(Morph)>>handleEvent:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> TextMorphForEditView(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> TransformMorph(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PluggableStandardWindow(Morph)>>processEvent:using:
>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>> MorphicEventDispatcher>>dispatchEvent:with:
>>> PasteUpMorph(Morph)>>processEvent:using:
>>> PasteUpMorph>>processEvent:using:
>>> PasteUpMorph(Morph)>>processEvent:
>>> HandMorph>>sendEvent:focus:clear:
>>> HandMorph>>sendMouseEvent:
>>> HandMorph>>handleEvent:
>>> HandMorph>>processEvents
>>> [] in WorldState>>doOneCycleNowFor:
>>> Array(SequenceableCollection)>>do:
>>> WorldState>>handsDo:
>>> WorldState>>doOneCycleNowFor:
>>> WorldState>>doOneCycleFor:
>>> PasteUpMorph>>doOneCycle
>>> [] in Project class>>spawnNewProcess
>>> [] in BlockClosure>>newProcess
>>>
>>> --
>>> Cesar Rabak
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> [hidden email]
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

>
> On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
>
>> Just the full source code would do:
>>
>> lastStoredRun
>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>> #testA...etc...
>
>
> Can you be a bit more precise? I feel concerned about this, it's part
> of something we did with Alex.
>

>>
>> Nicolas
>>
>> 2009/11/30 Stéphane Ducasse <[hidden email]>:
>>> thanks can you let us knw the exact sequence your did?
>>>
>>> Stef
>>>
>>> On Nov 30, 2009, at 8:30 PM, [hidden email] wrote:
>>>
>>>> I got a recent dev-image and ran some tests (all CollectionTests
>>>> if this matter) and attempted to store the result.
>>>>
>>>> 30 November 2009 5:26:40 pm
>>>>
>>>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest
>>>> update: #7179]
>>>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>>>
>>>> SecurityManager state:
>>>> Restricted: false
>>>> FileAccess: true
>>>> SocketAccess: true
>>>> Working Dir E:\Pharo
>>>> Trusted Dir E:\Pharo\Cesar S. Rabak
>>>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus
>>>> documentos\My Squeak
>>>>
>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>>       Receiver: nil
>>>>       Arguments and temporary variables:
>>>>               aMessage:       < 0
>>>>               exception:      MessageNotUnderstood: receiver of
>>>> "<" is nil
>>>>               resumeValue:    nil
>>>>       Receiver's instance variables:
>>>> nil
>>>>
>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               literalIndex:   nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>> >>sizeOpcodeSelector:withArguments:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               genSelector:    #genPushLiteral:
>>>>               args:   #(nil)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>       Arguments and temporary variables:
>>>>               literalIndex:   nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               scopeTable:     a Dictionary('category'->{category}
>>>> 'classPool'->{classPool} 'envir...etc...
>>>>               nTemps:         0
>>>>               supered:        false
>>>>               requestor:      nil
>>>>               class:  StringTest class
>>>>               selector:       #lastStoredRun
>>>>               literalStream:  a WriteStream {#Dictionary-
>>>> >Dictionary. #add:. #'->'. #passed. #...etc...
>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>               litIndSet:      a Dictionary(#Dictionary->Dictionary-
>>>> >{Dictionary} #Set->Set->{Set} ...etc...
>>>>               litSet:         a LiteralDictionary(size 302)
>>>>               sourceRanges:   a Dictionary(size 309)
>>>>               globalSourceRanges:     an OrderedCollection
>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>               position:       0
>>>>               rootNode:       lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>> #testAs...etc...
>>>>               blockExtentsToLocals:   nil
>>>>
>>>> LiteralNode>>sizeCodeForValue:
>>>>       Receiver: {#testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               key:    #testWithWithWithWith
>>>>               code:   -3
>>>>               index:  nil
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection
>>>> ({#testWithWithWithWith})
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> OrderedCollection>>collect:
>>>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  an OrderedCollection()
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  #(nil nil {#testWithWithWithWith} nil nil
>>>> nil nil nil nil nil)
>>>>               firstIndex:     3
>>>>               lastIndex:      3
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #testWithWithWithWith}
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection
>>>> ({#testWithWithWithWith})
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        { add: #testWithWithWithWith}
>>>>               size:   {an EncoderForV3PlusClosures}
>>>>               aMessage:       #(1506)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Set new}
>>>>               messages:       an OrderedCollection({ add:
>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>
>>>> OrderedCollection>>do:
>>>>       Receiver: an OrderedCollection({ add: #testAsArray} { add:
>>>> #testAsSet} { add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> CascadeNode>>sizeCodeForValue:
>>>>               index:  252
>>>>       Receiver's instance variables:
>>>>               array:  an Array({ add: #testAsArray} { add:
>>>> #testAsSet} { add: #testAsSortedCol...etc...
>>>>               firstIndex:     1
>>>>               lastIndex:      294
>>>>
>>>> CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               size:   #(1506)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Set new}
>>>>               messages:       an OrderedCollection({ add:
>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {#passed}
>>>>               selector:       {->}
>>>>               precedence:     2
>>>>               special:        0
>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #test...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> Array(SequenceableCollection)>>collect:
>>>>       Receiver: an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        ...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  #(nil)
>>>>               index:  1
>>>>               indexLimiT:     1
>>>>       Receiver's instance variables:
>>>> an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #testAsSortedCollection;
>>>>        ...etc...
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #testAsSortedCollectio...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {#passed}
>>>>               selector:       {->}
>>>>               precedence:     2
>>>>               special:        0
>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>        add: #testAsSet;
>>>>        add: #test...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: #testAsSortedC...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection({#passed ->
>>>> (Set new add: #testAsArray;
>>>>                add:...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> OrderedCollection>>collect:
>>>>       Receiver: an OrderedCollection({#passed -> (Set new add:
>>>> #testAsArray;
>>>>                add: #testAsSet;
>>>>                add: #...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> MessageNode>>sizeCodeForValue:
>>>>               newCollection:  an OrderedCollection()
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  an Array(nil nil {#passed -> (Set new add:
>>>> #testAsArray;
>>>>                add: #testAs...etc...
>>>>               firstIndex:     3
>>>>               lastIndex:      3
>>>>
>>>> MessageNode>>sizeCodeForValue:
>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: #testAsSortedC...etc...
>>>>       Arguments and temporary variables:
>>>> <<error during printing>
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       nil
>>>>               selector:       {add:}
>>>>               precedence:     3
>>>>               special:        0
>>>>               arguments:      an OrderedCollection({#passed ->
>>>> (Set new add: #testAsArray;
>>>>                add:...etc...
>>>>               sizes:  #(nil)
>>>>               equalNode:      nil
>>>>               caseErrorNode:  nil
>>>>
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        { add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                       ...etc...
>>>>               size:   {an EncoderForV3PlusClosures}
>>>>               aMessage:       #(10)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> OrderedCollection>>do:
>>>>       Receiver: an OrderedCollection({ add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #testAsSet;
>>>>               ...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> CascadeNode>>sizeCodeForValue:
>>>>               index:  3
>>>>       Receiver's instance variables:
>>>>               array:  an Array(nil nil { add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: ...etc...
>>>>               firstIndex:     3
>>>>               lastIndex:      7
>>>>
>>>> CascadeNode>>sizeCodeForValue:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               size:   #(10)
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add: ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               receiver:       {Dictionary new}
>>>>               messages:       an OrderedCollection({ add: #passed -
>>>> > (Set new add: #testAsArray;
>>>>               ...etc...
>>>>
>>>> ReturnNode>>sizeCodeForValue:
>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #tes...etc...
>>>>
>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                        add: #testAsSet;
>>>>                        add...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                        add: #tes...etc...
>>>>
>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add:
>>>> #testAsArray;
>>>>                                add: #testAsSet;
>>>>                                ...etc...
>>>>       Arguments and temporary variables:
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               arguments:      #()
>>>>               statements:     an OrderedCollection({^ Dictionary
>>>> new add: #passed -> (Set new add...etc...
>>>>               returns:        true
>>>>               nArgsNode:      nil
>>>>               size:   nil
>>>>               remoteCopyNode:         nil
>>>>               temporaries:    an OrderedCollection()
>>>>               optimized:      false
>>>>               actualScopeIfOptimized:         nil
>>>>               blockExtent:    (0 to: 2)
>>>>               remoteTempNode:         nil
>>>>               copiedValues:   nil
>>>>               closureCreationNode:    nil
>>>>               startOfLastStatement:   16
>>>>
>>>> BytecodeAgnosticMethodNode>>generate:
>>>>       Receiver: lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>>>                                add: #tes...etc...
>>>>       Arguments and temporary variables:
>>>>               trailer:        #(0 0 0 0)
>>>>               primErrNode:    nil
>>>>               blkSize:        nil
>>>>               nLits:  nil
>>>>               literals:       nil
>>>>               stack:  nil
>>>>               method:         nil
>>>>               locals:         nil
>>>>               lit:    nil
>>>>       Receiver's instance variables:
>>>>               comment:        nil
>>>>               pc:     nil
>>>>               selectorOrFalse:        #lastStoredRun
>>>>               precedence:     1
>>>>               arguments:      #()
>>>>               block:  {[^ Dictionary new add: #passed -> (Set new
>>>> add: #testAsArray;
>>>>                                add:...etc...
>>>>               primitive:      0
>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>               temporaries:    #()
>>>>               properties:     an AdditionalMethodState
>>>>               sourceText:     'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>>>               locationCounter:        3
>>>>               localsPool:     an IdentitySet()
>>>>
>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>>       Receiver: CompiledMethodWithNode
>>>>       Arguments and temporary variables:
>>>>               aMethodNode:    lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>>>               bytes:  #(0 0 0 0)
>>>>       Receiver's instance variables:
>>>>               superclass:     Object
>>>>               methodDict:     a MethodDictionary(#method->a
>>>> CompiledMethod(650: CompiledMethodWit...etc...
>>>>               format:         134
>>>>               instanceVariables:      #('node' 'method')
>>>>               organization:   ('accessing' method node selector)
>>>> ('private' method: node:)
>>>>
>>>>               subclasses:     nil
>>>>               name:   #CompiledMethodWithNode
>>>>               classPool:      nil
>>>>               sharedPools:    nil
>>>>               environment:    Smalltalk
>>>>               category:       #'Compiler-Support'
>>>>               traitComposition:       nil
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               code:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               requestor:      nil
>>>>               bytes:  #(0 0 0 0)
>>>>               failBlock:      [closure] in Metaclass
>>>> (ClassDescription)>>compile:classified:withSta...etc...
>>>>               methodNode:     lastStoredRun
>>>>       ^ Dictionary new add: #passed -> (Set new add: #test...etc...
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)
>>>> >>compile:classified:withStamp:notifying:logSource:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>               requestor:      nil
>>>>               logSource:      true
>>>>               methodAndNode:  nil
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>               requestor:      nil
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               text:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               category:       'history'
>>>>               requestor:      nil
>>>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> Metaclass(ClassDescription)>>compile:classified:
>>>>       Receiver: StringTest class
>>>>       Arguments and temporary variables:
>>>>               code:   'lastStoredRun
>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>> #testA...etc...
>>>>               heading:        'history'
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest class
>>>>               methodDict:     a MethodDictionary()
>>>>               format:         158
>>>>               instanceVariables:      nil
>>>>               organization:   ('as yet unclassified')
>>>>
>>>>               thisClass:      StringTest
>>>>               traitComposition:       TIncludesTest classTrait +
>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>               localSelectors:         nil
>>>>
>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>>       Receiver: StringTest
>>>>       Arguments and temporary variables:
>>>>
>>>>       Receiver's instance variables:
>>>>               superclass:     CollectionRootTest
>>>>               methodDict:     a MethodDictionary(size 321)
>>>>               format:         158
>>>>               instanceVariables:      #('string' 'emptyString'
>>>> 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>>>               organization:   ('initialization' setUp)
>>>> ('requirements' aValue anIndex anotherEl...etc...
>>>>               subclasses:     nil
>>>>               name:   #StringTest
>>>>               classPool:      nil
>>>>               sharedPools:    nil
>>>>               environment:    Smalltalk
>>>>               category:       #'CollectionsTests-Text'
>>>>               traitComposition:       TIncludesTest + TCloneTest +
>>>> TCopyTest + TSetArithmetic + TIt...etc...
>>>>               localSelectors:         an IdentitySet(#elementNotIn
>>>> #firstIndex #replacementCollection...etc...
>>>>               history:        a Dictionary(#errors->a Set()
>>>> #failures->a Set() #passed->a Set(#testA...etc...
>>>>
>>>> [] in TestRunner>>storeResultIntoTestCases
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>               testCaseCls:    StringTest
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> Set>>do:
>>>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest
>>>> WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in
>>>> TestRunner>>storeResultIntoTestCases
>>>>               index:  364
>>>>               each:   StringTest
>>>>               indexLimiT:     6638
>>>>       Receiver's instance variables:
>>>>               tally:  49
>>>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil.
>>>> nil. nil. nil. nil. nil. nil. n...etc...
>>>>
>>>> TestRunner>>storeResultIntoTestCases
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> TestRunner>>perform:orSendTo:
>>>>       Receiver: a TestRunner
>>>>       Arguments and temporary variables:
>>>>               selector:       #storeResultIntoTestCases
>>>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>>>       Receiver's instance variables:
>>>>               categories:     #(#'AST-Tests'
>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>               classes:        {Base64MimeConverterTest.
>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>               classIndex:     0
>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>               failedList:     #()
>>>>               failedSelected:         nil
>>>>               errorList:      #()
>>>>               errorSelected:  nil
>>>>               lastUpdate:     3437054762
>>>>               result:         4978 run, 4978 passes, 0 expected
>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>               previousRun:    nil
>>>>
>>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as
>>>> progress reference'
>>>>       Arguments and temporary variables:
>>>>               evt:    [675@67 mouseUp 21933765 nil]
>>>>               selArgCount:    #(2)
>>>>       Receiver's instance variables:
>>>>               bounds:         613@54 corner: 836@70
>>>>               owner:  a MenuMorph(2400)
>>>>               submorphs:      #()
>>>>               fullBounds:     613@54 corner: 836@70
>>>>               color:  Color black
>>>>               extension:      a MorphExtension (2845) [other:
>>>> (layoutProperties -> a LayoutProper...etc...
>>>>               font:   a LogicalFont
>>>> familyName: DejaVu Sans
>>>> emphasis: nil
>>>> pointSize: 10
>>>> rea...etc...
>>>>               emphasis:       0
>>>>               contents:       'Store result as progress reference'
>>>>               hasFocus:       false
>>>>               isEnabled:      true
>>>>               subMenu:        nil
>>>>               isSelected:     false
>>>>               target:         a TestRunner
>>>>               selector:       #perform:orSendTo:
>>>>               arguments:      an Array(#storeResultIntoTestCases a
>>>> PluggableTextMorphPlus(3170))
>>>>               icon:   nil
>>>>               getStateSelector:       nil
>>>>               enablementSelector:     nil
>>>>               keyText:        nil
>>>>
>>>> BlockClosure>>ensure:
>>>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
>>>> >>invokeWithEvent:
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in CursorWithMask(Cursor)
>>>> >>showWhile:
>>>>               returnValue:    nil
>>>>               b:      nil
>>>>       Receiver's instance variables:
>>>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph)
>>>> >>invokeWithEvent:
>>>>               startpc:        136
>>>>               numArgs:        0
>>>>
>>>> CursorWithMask(Cursor)>>showWhile:
>>>>       Receiver: ((CursorWithMask
>>>>       extent: 16@16
>>>>       depth: 1
>>>>       fromArray: #(
>>>>               2r0
>>>>               2r10000000000000000000000...etc...
>>>>       Arguments and temporary variables:
>>>>               aBlock:         [closure] in ToggleMenuItemMorph
>>>> (MenuItemMorph)>>invokeWithEvent:
>>>>               oldcursor:      ((CursorWithMask
>>>>       extent: 16@16
>>>>       depth: 1
>>>>       fromArray: #(
>>>>               2r0
>>>>               2r1...etc...
>>>>       Receiver's instance variables:
>>>>               bits:   a Bitmap of length 16
>>>>               width:  16
>>>>               height:         16
>>>>               depth:  1
>>>>               offset:         -1@-1
>>>>               maskForm:       Form(16x16x1)
>>>>
>>>>
>>>> --- The full stack ---
>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>> >>sizeOpcodeSelector:withArguments:
>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>> LiteralNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> OrderedCollection>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>> OrderedCollection>>do:
>>>> CascadeNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> Array(SequenceableCollection)>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in MessageNode>>sizeCodeForValue:
>>>> OrderedCollection>>collect:
>>>> MessageNode>>sizeCodeForValue:
>>>> [] in CascadeNode>>sizeCodeForValue:
>>>> OrderedCollection>>do:
>>>> CascadeNode>>sizeCodeForValue:
>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>> ReturnNode>>sizeCodeForValue:
>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>> BytecodeAgnosticMethodNode>>generate:
>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>> Metaclass(ClassDescription)
>>>> >>compile:classified:withStamp:notifying:logSource:
>>>> Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:
>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>> Metaclass(ClassDescription)>>compile:classified:
>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>> [] in TestRunner>>storeResultIntoTestCases
>>>> Set>>do:
>>>> TestRunner>>storeResultIntoTestCases
>>>> TestRunner>>perform:orSendTo:
>>>> [] 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:
>>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>>> [] in PasteUpMorph>>becomeActiveDuring:
>>>> BlockClosure>>on:do:
>>>> PasteUpMorph>>becomeActiveDuring:
>>>> HandMorph>>sendFocusEvent:to:clear:
>>>> HandMorph>>sendEvent:focus:clear:
>>>> HandMorph>>sendMouseEvent:
>>>> HandMorph>>handleEvent:
>>>> HandMorph>>processEvents
>>>> [] in WorldState>>doOneCycleNowFor:
>>>> Array(SequenceableCollection)>>do:
>>>> WorldState>>handsDo:
>>>> WorldState>>doOneCycleNowFor:
>>>> WorldState>>doOneCycleFor:
>>>> WorldState>>doOneSubCycleFor:
>>>> PasteUpMorph>>doOneSubCycle
>>>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>>>> MenuMorph>>invokeModal:
>>>> MenuMorph>>invokeModal
>>>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>>>> TextMorphForEditView>>mouseDown:
>>>> TextMorphForEditView(Morph)>>handleMouseDown:
>>>> MouseButtonEvent>>sentTo:
>>>> TextMorphForEditView(Morph)>>handleEvent:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> TextMorphForEditView(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> TransformMorph(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PluggableStandardWindow(Morph)>>processEvent:using:
>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>> PasteUpMorph(Morph)>>processEvent:using:
>>>> PasteUpMorph>>processEvent:using:
>>>> PasteUpMorph(Morph)>>processEvent:
>>>> HandMorph>>sendEvent:focus:clear:
>>>> HandMorph>>sendMouseEvent:
>>>> HandMorph>>handleEvent:
>>>> HandMorph>>processEvents
>>>> [] in WorldState>>doOneCycleNowFor:
>>>> Array(SequenceableCollection)>>do:
>>>> WorldState>>handsDo:
>>>> WorldState>>doOneCycleNowFor:
>>>> WorldState>>doOneCycleFor:
>>>> PasteUpMorph>>doOneCycle
>>>> [] in Project class>>spawnNewProcess
>>>> [] in BlockClosure>>newProcess
>>>>
>>>> --
>>>> Cesar Rabak
>>>>
>>>> _______________________________________________
>>>> Pharo-project mailing list
>>>> [hidden email]
>>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> [hidden email]
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
> --
>  Simon
>
>
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>

> 2009/11/30 Simon Denier <[hidden email]>:
>>
>> On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
>>
>>> Just the full source code would do:
>>>
>>> lastStoredRun
>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>> #testA...etc...
>>
>>
>> Can you be a bit more precise? I feel concerned about this, it's part
>> of something we did with Alex.
>>
>
> Are these auto-generated ?

>
> Nicolas
>
>>>
>>> Nicolas
>>>
>>> 2009/11/30 Stéphane Ducasse <[hidden email]>:
>>>> thanks can you let us knw the exact sequence your did?
>>>>
>>>> Stef
>>>>
>>>> On Nov 30, 2009, at 8:30 PM, [hidden email] wrote:
>>>>
>>>>> I got a recent dev-image and ran some tests (all CollectionTests
>>>>> if this matter) and attempted to store the result.
>>>>>
>>>>> 30 November 2009 5:26:40 pm
>>>>>
>>>>> VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest
>>>>> update: #7179]
>>>>> Image: PharoCore1.0rc1 [Latest update: #10498]
>>>>>
>>>>> SecurityManager state:
>>>>> Restricted: false
>>>>> FileAccess: true
>>>>> SocketAccess: true
>>>>> Working Dir E:\Pharo
>>>>> Trusted Dir E:\Pharo\Cesar S. Rabak
>>>>> Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus
>>>>> documentos\My Squeak
>>>>>
>>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>>>       Receiver: nil
>>>>>       Arguments and temporary variables:
>>>>>               aMessage:       < 0
>>>>>               exception:      MessageNotUnderstood: receiver of
>>>>> "<" is nil
>>>>>               resumeValue:    nil
>>>>>       Receiver's instance variables:
>>>>> nil
>>>>>
>>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>>       Arguments and temporary variables:
>>>>>               literalIndex:   nil
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               scopeTable:     a Dictionary('category'->{category}
>>>>> 'classPool'->{classPool} 'envir...etc...
>>>>>               nTemps:         0
>>>>>               supered:        false
>>>>>               requestor:      nil
>>>>>               class:  StringTest class
>>>>>               selector:       #lastStoredRun
>>>>>               literalStream:  a WriteStream {#Dictionary-
>>>>>> Dictionary. #add:. #'->'. #passed. #...etc...
>>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>>               litIndSet:      a Dictionary(#Dictionary-
>>>>> >Dictionary-
>>>>>> {Dictionary} #Set->Set->{Set} ...etc...
>>>>>               litSet:         a LiteralDictionary(size 302)
>>>>>               sourceRanges:   a Dictionary(size 309)
>>>>>               globalSourceRanges:     an OrderedCollection
>>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>>               position:       0
>>>>>               rootNode:       lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAs...etc...
>>>>>               blockExtentsToLocals:   nil
>>>>>
>>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>>>>> sizeOpcodeSelector:withArguments:
>>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>>       Arguments and temporary variables:
>>>>>               genSelector:    #genPushLiteral:
>>>>>               args:   #(nil)
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               scopeTable:     a Dictionary('category'->{category}
>>>>> 'classPool'->{classPool} 'envir...etc...
>>>>>               nTemps:         0
>>>>>               supered:        false
>>>>>               requestor:      nil
>>>>>               class:  StringTest class
>>>>>               selector:       #lastStoredRun
>>>>>               literalStream:  a WriteStream {#Dictionary-
>>>>>> Dictionary. #add:. #'->'. #passed. #...etc...
>>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>>               litIndSet:      a Dictionary(#Dictionary-
>>>>> >Dictionary-
>>>>>> {Dictionary} #Set->Set->{Set} ...etc...
>>>>>               litSet:         a LiteralDictionary(size 302)
>>>>>               sourceRanges:   a Dictionary(size 309)
>>>>>               globalSourceRanges:     an OrderedCollection
>>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>>               position:       0
>>>>>               rootNode:       lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAs...etc...
>>>>>               blockExtentsToLocals:   nil
>>>>>
>>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>>>       Receiver: {an EncoderForV3PlusClosures}
>>>>>       Arguments and temporary variables:
>>>>>               literalIndex:   nil
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               scopeTable:     a Dictionary('category'->{category}
>>>>> 'classPool'->{classPool} 'envir...etc...
>>>>>               nTemps:         0
>>>>>               supered:        false
>>>>>               requestor:      nil
>>>>>               class:  StringTest class
>>>>>               selector:       #lastStoredRun
>>>>>               literalStream:  a WriteStream {#Dictionary-
>>>>>> Dictionary. #add:. #'->'. #passed. #...etc...
>>>>>               selectorSet:    a Dictionary(#*->{*} #+->{+} #-->{-}
>>>>> #'->'->{->} #/->{/} #'//'->{/...etc...
>>>>>               litIndSet:      a Dictionary(#Dictionary-
>>>>> >Dictionary-
>>>>>> {Dictionary} #Set->Set->{Set} ...etc...
>>>>>               litSet:         a LiteralDictionary(size 302)
>>>>>               sourceRanges:   a Dictionary(size 309)
>>>>>               globalSourceRanges:     an OrderedCollection
>>>>> ({'Dictionary'. (20 to: 29). false} {'S...etc...
>>>>>               addedSelectorAndMethodClassLiterals:    false
>>>>>               stream:         {an EncoderForV3PlusClosures}
>>>>>               position:       0
>>>>>               rootNode:       lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAs...etc...
>>>>>               blockExtentsToLocals:   nil
>>>>>
>>>>> LiteralNode>>sizeCodeForValue:
>>>>>       Receiver: {#testWithWithWithWith}
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               key:    #testWithWithWithWith
>>>>>               code:   -3
>>>>>               index:  nil
>>>>>
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>>       Receiver: { add: #testWithWithWithWith}
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       nil
>>>>>               selector:       {add:}
>>>>>               precedence:     3
>>>>>               special:        0
>>>>>               arguments:      an OrderedCollection
>>>>> ({#testWithWithWithWith})
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> OrderedCollection>>collect:
>>>>>       Receiver: an OrderedCollection({#testWithWithWithWith})
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> MessageNode>>sizeCodeForValue:
>>>>>               newCollection:  an OrderedCollection()
>>>>>               index:  3
>>>>>       Receiver's instance variables:
>>>>>               array:  #(nil nil {#testWithWithWithWith} nil nil
>>>>> nil nil nil nil nil)
>>>>>               firstIndex:     3
>>>>>               lastIndex:      3
>>>>>
>>>>> MessageNode>>sizeCodeForValue:
>>>>>       Receiver: { add: #testWithWithWithWith}
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       nil
>>>>>               selector:       {add:}
>>>>>               precedence:     3
>>>>>               special:        0
>>>>>               arguments:      an OrderedCollection
>>>>> ({#testWithWithWithWith})
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>>       Receiver: {Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #testAsSortedCollection;
>>>>>        add: #tes...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        { add: #testWithWithWithWith}
>>>>>               size:   {an EncoderForV3PlusClosures}
>>>>>               aMessage:       #(1506)
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {Set new}
>>>>>               messages:       an OrderedCollection({ add:
>>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>>
>>>>> OrderedCollection>>do:
>>>>>       Receiver: an OrderedCollection({ add: #testAsArray} { add:
>>>>> #testAsSet} { add: #testAsSortedCollectio...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> CascadeNode>>sizeCodeForValue:
>>>>>               index:  252
>>>>>       Receiver's instance variables:
>>>>>               array:  an Array({ add: #testAsArray} { add:
>>>>> #testAsSet} { add: #testAsSortedCol...etc...
>>>>>               firstIndex:     1
>>>>>               lastIndex:      294
>>>>>
>>>>> CascadeNode>>sizeCodeForValue:
>>>>>       Receiver: {Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #testAsSortedCollection;
>>>>>        add: #tes...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>               size:   #(1506)
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {Set new}
>>>>>               messages:       an OrderedCollection({ add:
>>>>> #testAsArray} { add: #testAsSet} { add: #...etc...
>>>>>
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>>                add: #testAsSet;
>>>>>                add: #testAsSortedCollectio...etc...
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {#passed}
>>>>>               selector:       {->}
>>>>>               precedence:     2
>>>>>               special:        0
>>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #test...etc...
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> Array(SequenceableCollection)>>collect:
>>>>>       Receiver: an Array({Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #testAsSortedCollection;
>>>>>        ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> MessageNode>>sizeCodeForValue:
>>>>>               newCollection:  #(nil)
>>>>>               index:  1
>>>>>               indexLimiT:     1
>>>>>       Receiver's instance variables:
>>>>> an Array({Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #testAsSortedCollection;
>>>>>        ...etc...
>>>>>
>>>>> MessageNode>>sizeCodeForValue:
>>>>>       Receiver: {#passed -> (Set new add: #testAsArray;
>>>>>                add: #testAsSet;
>>>>>                add: #testAsSortedCollectio...etc...
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {#passed}
>>>>>               selector:       {->}
>>>>>               precedence:     2
>>>>>               special:        0
>>>>>               arguments:      an Array({Set new add: #testAsArray;
>>>>>        add: #testAsSet;
>>>>>        add: #test...etc...
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add: #testAsSortedC...etc...
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       nil
>>>>>               selector:       {add:}
>>>>>               precedence:     3
>>>>>               special:        0
>>>>>               arguments:      an OrderedCollection({#passed ->
>>>>> (Set new add: #testAsArray;
>>>>>                add:...etc...
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> OrderedCollection>>collect:
>>>>>       Receiver: an OrderedCollection({#passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                add: #testAsSet;
>>>>>                add: #...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> MessageNode>>sizeCodeForValue:
>>>>>               newCollection:  an OrderedCollection()
>>>>>               index:  3
>>>>>       Receiver's instance variables:
>>>>>               array:  an Array(nil nil {#passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                add: #testAs...etc...
>>>>>               firstIndex:     3
>>>>>               lastIndex:      3
>>>>>
>>>>> MessageNode>>sizeCodeForValue:
>>>>>       Receiver: { add: #passed -> (Set new add: #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add: #testAsSortedC...etc...
>>>>>       Arguments and temporary variables:
>>>>> <<error during printing>
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       nil
>>>>>               selector:       {add:}
>>>>>               precedence:     3
>>>>>               special:        0
>>>>>               arguments:      an OrderedCollection({#passed ->
>>>>> (Set new add: #testAsArray;
>>>>>                add:...etc...
>>>>>               sizes:  #(nil)
>>>>>               equalNode:      nil
>>>>>               caseErrorNode:  nil
>>>>>
>>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add: ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        { add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                       ...etc...
>>>>>               size:   {an EncoderForV3PlusClosures}
>>>>>               aMessage:       #(10)
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {Dictionary new}
>>>>>               messages:       an OrderedCollection({ add:  
>>>>> #passed -
>>>>>> (Set new add: #testAsArray;
>>>>>               ...etc...
>>>>>
>>>>> OrderedCollection>>do:
>>>>>       Receiver: an OrderedCollection({ add: #passed -> (Set new
>>>>> add: #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>               ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> CascadeNode>>sizeCodeForValue:
>>>>>               index:  3
>>>>>       Receiver's instance variables:
>>>>>               array:  an Array(nil nil { add: #passed -> (Set new
>>>>> add: #testAsArray;
>>>>>                        add: ...etc...
>>>>>               firstIndex:     3
>>>>>               lastIndex:      7
>>>>>
>>>>> CascadeNode>>sizeCodeForValue:
>>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add: ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>               size:   #(10)
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {Dictionary new}
>>>>>               messages:       an OrderedCollection({ add:  
>>>>> #passed -
>>>>>> (Set new add: #testAsArray;
>>>>>               ...etc...
>>>>>
>>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>>>       Receiver: {Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add: ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               receiver:       {Dictionary new}
>>>>>               messages:       an OrderedCollection({ add:  
>>>>> #passed -
>>>>>> (Set new add: #testAsArray;
>>>>>               ...etc...
>>>>>
>>>>> ReturnNode>>sizeCodeForValue:
>>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>>> add: #testAsArray;
>>>>>                        add: #tes...etc...
>>>>>
>>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>>>       Receiver: {^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                        add: #testAsSet;
>>>>>                        add...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               expr:   {Dictionary new add: #passed -> (Set new
>>>>> add: #testAsArray;
>>>>>                        add: #tes...etc...
>>>>>
>>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>>>       Receiver: {[^ Dictionary new add: #passed -> (Set new add:
>>>>> #testAsArray;
>>>>>                                add: #testAsSet;
>>>>>                                ...etc...
>>>>>       Arguments and temporary variables:
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               arguments:      #()
>>>>>               statements:     an OrderedCollection({^ Dictionary
>>>>> new add: #passed -> (Set new add...etc...
>>>>>               returns:        true
>>>>>               nArgsNode:      nil
>>>>>               size:   nil
>>>>>               remoteCopyNode:         nil
>>>>>               temporaries:    an OrderedCollection()
>>>>>               optimized:      false
>>>>>               actualScopeIfOptimized:         nil
>>>>>               blockExtent:    (0 to: 2)
>>>>>               remoteTempNode:         nil
>>>>>               copiedValues:   nil
>>>>>               closureCreationNode:    nil
>>>>>               startOfLastStatement:   16
>>>>>
>>>>> BytecodeAgnosticMethodNode>>generate:
>>>>>       Receiver: lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add: #testAsArray;
>>>>>                                add: #tes...etc...
>>>>>       Arguments and temporary variables:
>>>>>               trailer:        #(0 0 0 0)
>>>>>               primErrNode:    nil
>>>>>               blkSize:        nil
>>>>>               nLits:  nil
>>>>>               literals:       nil
>>>>>               stack:  nil
>>>>>               method:         nil
>>>>>               locals:         nil
>>>>>               lit:    nil
>>>>>       Receiver's instance variables:
>>>>>               comment:        nil
>>>>>               pc:     nil
>>>>>               selectorOrFalse:        #lastStoredRun
>>>>>               precedence:     1
>>>>>               arguments:      #()
>>>>>               block:  {[^ Dictionary new add: #passed -> (Set new
>>>>> add: #testAsArray;
>>>>>                                add:...etc...
>>>>>               primitive:      0
>>>>>               encoder:        {an EncoderForV3PlusClosures}
>>>>>               temporaries:    #()
>>>>>               properties:     an AdditionalMethodState
>>>>>               sourceText:     'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...
>>>>>               locationCounter:        3
>>>>>               localsPool:     an IdentitySet()
>>>>>
>>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>>>       Receiver: CompiledMethodWithNode
>>>>>       Arguments and temporary variables:
>>>>>               aMethodNode:    lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add: #tes...etc...
>>>>>               bytes:  #(0 0 0 0)
>>>>>       Receiver's instance variables:
>>>>>               superclass:     Object
>>>>>               methodDict:     a MethodDictionary(#method->a
>>>>> CompiledMethod(650: CompiledMethodWit...etc...
>>>>>               format:         134
>>>>>               instanceVariables:      #('node' 'method')
>>>>>               organization:   ('accessing' method node selector)
>>>>> ('private' method: node:)
>>>>>
>>>>>               subclasses:     nil
>>>>>               name:   #CompiledMethodWithNode
>>>>>               classPool:      nil
>>>>>               sharedPools:    nil
>>>>>               environment:    Smalltalk
>>>>>               category:       #'Compiler-Support'
>>>>>               traitComposition:       nil
>>>>>               localSelectors:         nil
>>>>>
>>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>>>       Receiver: StringTest class
>>>>>       Arguments and temporary variables:
>>>>>               code:   'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>>> #testA...etc...
>>>>>               category:       'history'
>>>>>               requestor:      nil
>>>>>               bytes:  #(0 0 0 0)
>>>>>               failBlock:      [closure] in Metaclass
>>>>> (ClassDescription)>>compile:classified:withSta...etc...
>>>>>               methodNode:     lastStoredRun
>>>>>       ^ Dictionary new add: #passed -> (Set new add:  
>>>>> #test...etc...
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest class
>>>>>               methodDict:     a MethodDictionary()
>>>>>               format:         158
>>>>>               instanceVariables:      nil
>>>>>               organization:   ('as yet unclassified')
>>>>>
>>>>>               thisClass:      StringTest
>>>>>               traitComposition:       TIncludesTest classTrait +
>>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>>               localSelectors:         nil
>>>>>
>>>>> Metaclass(ClassDescription)
>>>>>>> compile:classified:withStamp:notifying:logSource:
>>>>>       Receiver: StringTest class
>>>>>       Arguments and temporary variables:
>>>>>               text:   'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>>> #testA...etc...
>>>>>               category:       'history'
>>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>>               requestor:      nil
>>>>>               logSource:      true
>>>>>               methodAndNode:  nil
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest class
>>>>>               methodDict:     a MethodDictionary()
>>>>>               format:         158
>>>>>               instanceVariables:      nil
>>>>>               organization:   ('as yet unclassified')
>>>>>
>>>>>               thisClass:      StringTest
>>>>>               traitComposition:       TIncludesTest classTrait +
>>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>>               localSelectors:         nil
>>>>>
>>>>> Metaclass(ClassDescription)
>>>>> >>compile:classified:withStamp:notifying:
>>>>>       Receiver: StringTest class
>>>>>       Arguments and temporary variables:
>>>>>               text:   'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>>> #testA...etc...
>>>>>               category:       'history'
>>>>>               changeStamp:    'CesarRabak 11/30/2009 17:26'
>>>>>               requestor:      nil
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest class
>>>>>               methodDict:     a MethodDictionary()
>>>>>               format:         158
>>>>>               instanceVariables:      nil
>>>>>               organization:   ('as yet unclassified')
>>>>>
>>>>>               thisClass:      StringTest
>>>>>               traitComposition:       TIncludesTest classTrait +
>>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>>               localSelectors:         nil
>>>>>
>>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>>>       Receiver: StringTest class
>>>>>       Arguments and temporary variables:
>>>>>               text:   'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>>> #testA...etc...
>>>>>               category:       'history'
>>>>>               requestor:      nil
>>>>>               stamp:  'CesarRabak 11/30/2009 17:26'
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest class
>>>>>               methodDict:     a MethodDictionary()
>>>>>               format:         158
>>>>>               instanceVariables:      nil
>>>>>               organization:   ('as yet unclassified')
>>>>>
>>>>>               thisClass:      StringTest
>>>>>               traitComposition:       TIncludesTest classTrait +
>>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>>               localSelectors:         nil
>>>>>
>>>>> Metaclass(ClassDescription)>>compile:classified:
>>>>>       Receiver: StringTest class
>>>>>       Arguments and temporary variables:
>>>>>               code:   'lastStoredRun
>>>>>       ^ ((Dictionary new) add: (#passed->((Set new) add:
>>>>> #testA...etc...
>>>>>               heading:        'history'
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest class
>>>>>               methodDict:     a MethodDictionary()
>>>>>               format:         158
>>>>>               instanceVariables:      nil
>>>>>               organization:   ('as yet unclassified')
>>>>>
>>>>>               thisClass:      StringTest
>>>>>               traitComposition:       TIncludesTest classTrait +
>>>>> TCloneTest classTrait + TCopyTest ...etc...
>>>>>               localSelectors:         nil
>>>>>
>>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>>>       Receiver: StringTest
>>>>>       Arguments and temporary variables:
>>>>>
>>>>>       Receiver's instance variables:
>>>>>               superclass:     CollectionRootTest
>>>>>               methodDict:     a MethodDictionary(size 321)
>>>>>               format:         158
>>>>>               instanceVariables:      #('string' 'emptyString'
>>>>> 'elementInNonEmpty' 'notIn' 'subcol...etc...
>>>>>               organization:   ('initialization' setUp)
>>>>> ('requirements' aValue anIndex anotherEl...etc...
>>>>>               subclasses:     nil
>>>>>               name:   #StringTest
>>>>>               classPool:      nil
>>>>>               sharedPools:    nil
>>>>>               environment:    Smalltalk
>>>>>               category:       #'CollectionsTests-Text'
>>>>>               traitComposition:       TIncludesTest + TCloneTest +
>>>>> TCopyTest + TSetArithmetic + TIt...etc...
>>>>>               localSelectors:         an IdentitySet(#elementNotIn
>>>>> #firstIndex #replacementCollection...etc...
>>>>>               history:        a Dictionary(#errors->a Set()
>>>>> #failures->a Set() #passed->a Set(#testA...etc...
>>>>>
>>>>> [] in TestRunner>>storeResultIntoTestCases
>>>>>       Receiver: a TestRunner
>>>>>       Arguments and temporary variables:
>>>>>               testCaseCls:    StringTest
>>>>>       Receiver's instance variables:
>>>>>               categories:     #(#'AST-Tests'
>>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>>               classes:        {Base64MimeConverterTest.
>>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>>               classIndex:     0
>>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>>               failedList:     #()
>>>>>               failedSelected:         nil
>>>>>               errorList:      #()
>>>>>               errorSelected:  nil
>>>>>               lastUpdate:     3437054762
>>>>>               result:         4978 run, 4978 passes, 0 expected
>>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>>               previousRun:    nil
>>>>>
>>>>> Set>>do:
>>>>>       Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest
>>>>> WeakKeyToCollectionDictionaryTest ArrayT...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in
>>>>> TestRunner>>storeResultIntoTestCases
>>>>>               index:  364
>>>>>               each:   StringTest
>>>>>               indexLimiT:     6638
>>>>>       Receiver's instance variables:
>>>>>               tally:  49
>>>>>               array:  {nil. nil. nil. nil. nil. nil. nil. nil.
>>>>> nil. nil. nil. nil. nil. nil. n...etc...
>>>>>
>>>>> TestRunner>>storeResultIntoTestCases
>>>>>       Receiver: a TestRunner
>>>>>       Arguments and temporary variables:
>>>>>
>>>>>       Receiver's instance variables:
>>>>>               categories:     #(#'AST-Tests'
>>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>>               classes:        {Base64MimeConverterTest.
>>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>>               classIndex:     0
>>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>>               failedList:     #()
>>>>>               failedSelected:         nil
>>>>>               errorList:      #()
>>>>>               errorSelected:  nil
>>>>>               lastUpdate:     3437054762
>>>>>               result:         4978 run, 4978 passes, 0 expected
>>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>>               previousRun:    nil
>>>>>
>>>>> TestRunner>>perform:orSendTo:
>>>>>       Receiver: a TestRunner
>>>>>       Arguments and temporary variables:
>>>>>               selector:       #storeResultIntoTestCases
>>>>>               otherTarget:    a PluggableTextMorphPlus(3170)
>>>>>       Receiver's instance variables:
>>>>>               categories:     #(#'AST-Tests'
>>>>> #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...
>>>>>               categoriesSelected:     a Set(#'CollectionsTests-
>>>>> Support' #'CollectionsTests-Weak' ...etc...
>>>>>               classes:        {Base64MimeConverterTest.
>>>>> ByteArrayTest. CharacterSetTest. Association...etc...
>>>>>               classIndex:     0
>>>>>               classesSelected:        a Set(TextAndTextStreamTest
>>>>> WideStringTest WriteStreamTest Ide...etc...
>>>>>               failedList:     #()
>>>>>               failedSelected:         nil
>>>>>               errorList:      #()
>>>>>               errorSelected:  nil
>>>>>               lastUpdate:     3437054762
>>>>>               result:         4978 run, 4978 passes, 0 expected
>>>>> failures, 0 failures, 0 errors, 0 une...etc...
>>>>>               previousRun:    nil
>>>>>
>>>>> [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
>>>>>       Receiver: a ToggleMenuItemMorph(2690)'Store result as
>>>>> progress reference'
>>>>>       Arguments and temporary variables:
>>>>>               evt:    [675@67 mouseUp 21933765 nil]
>>>>>               selArgCount:    #(2)
>>>>>       Receiver's instance variables:
>>>>>               bounds:         613@54 corner: 836@70
>>>>>               owner:  a MenuMorph(2400)
>>>>>               submorphs:      #()
>>>>>               fullBounds:     613@54 corner: 836@70
>>>>>               color:  Color black
>>>>>               extension:      a MorphExtension (2845) [other:
>>>>> (layoutProperties -> a LayoutProper...etc...
>>>>>               font:   a LogicalFont
>>>>> familyName: DejaVu Sans
>>>>> emphasis: nil
>>>>> pointSize: 10
>>>>> rea...etc...
>>>>>               emphasis:       0
>>>>>               contents:       'Store result as progress reference'
>>>>>               hasFocus:       false
>>>>>               isEnabled:      true
>>>>>               subMenu:        nil
>>>>>               isSelected:     false
>>>>>               target:         a TestRunner
>>>>>               selector:       #perform:orSendTo:
>>>>>               arguments:      an Array(#storeResultIntoTestCases a
>>>>> PluggableTextMorphPlus(3170))
>>>>>               icon:   nil
>>>>>               getStateSelector:       nil
>>>>>               enablementSelector:     nil
>>>>>               keyText:        nil
>>>>>
>>>>> BlockClosure>>ensure:
>>>>>       Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
>>>>>>> invokeWithEvent:
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in CursorWithMask(Cursor)
>>>>>>> showWhile:
>>>>>               returnValue:    nil
>>>>>               b:      nil
>>>>>       Receiver's instance variables:
>>>>>               outerContext:   ToggleMenuItemMorph(MenuItemMorph)
>>>>>>> invokeWithEvent:
>>>>>               startpc:        136
>>>>>               numArgs:        0
>>>>>
>>>>> CursorWithMask(Cursor)>>showWhile:
>>>>>       Receiver: ((CursorWithMask
>>>>>       extent: 16@16
>>>>>       depth: 1
>>>>>       fromArray: #(
>>>>>               2r0
>>>>>               2r10000000000000000000000...etc...
>>>>>       Arguments and temporary variables:
>>>>>               aBlock:         [closure] in ToggleMenuItemMorph
>>>>> (MenuItemMorph)>>invokeWithEvent:
>>>>>               oldcursor:      ((CursorWithMask
>>>>>       extent: 16@16
>>>>>       depth: 1
>>>>>       fromArray: #(
>>>>>               2r0
>>>>>               2r1...etc...
>>>>>       Receiver's instance variables:
>>>>>               bits:   a Bitmap of length 16
>>>>>               width:  16
>>>>>               height:         16
>>>>>               depth:  1
>>>>>               offset:         -1@-1
>>>>>               maskForm:       Form(16x16x1)
>>>>>
>>>>>
>>>>> --- The full stack ---
>>>>> UndefinedObject(Object)>>doesNotUnderstand: #<
>>>>> EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
>>>>> EncoderForV3PlusClosures(BytecodeEncoder)
>>>>>>> sizeOpcodeSelector:withArguments:
>>>>> EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
>>>>> LiteralNode>>sizeCodeForValue:
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>> OrderedCollection>>collect:
>>>>> MessageNode>>sizeCodeForValue:
>>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>> OrderedCollection>>do:
>>>>> CascadeNode>>sizeCodeForValue:
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>> Array(SequenceableCollection)>>collect:
>>>>> MessageNode>>sizeCodeForValue:
>>>>> [] in MessageNode>>sizeCodeForValue:
>>>>> OrderedCollection>>collect:
>>>>> MessageNode>>sizeCodeForValue:
>>>>> [] in CascadeNode>>sizeCodeForValue:
>>>>> OrderedCollection>>do:
>>>>> CascadeNode>>sizeCodeForValue:
>>>>> CascadeNode(ParseNode)>>sizeCodeForReturn:
>>>>> ReturnNode>>sizeCodeForValue:
>>>>> ReturnNode(ParseNode)>>sizeCodeForBlockValue:
>>>>> BlockNode>>sizeCodeForEvaluatedValue:
>>>>> BytecodeAgnosticMethodNode>>generate:
>>>>> CompiledMethodWithNode class>>generateMethodFromNode:trailer:
>>>>> Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:
>>>>> Metaclass(ClassDescription)
>>>>>>> compile:classified:withStamp:notifying:logSource:
>>>>> Metaclass(ClassDescription)
>>>>> >>compile:classified:withStamp:notifying:
>>>>> Metaclass(ClassDescription)>>compile:classified:notifying:
>>>>> Metaclass(ClassDescription)>>compile:classified:
>>>>> StringTest class(TestCase class)>>generateLastStoredRunMethod
>>>>> [] in TestRunner>>storeResultIntoTestCases
>>>>> Set>>do:
>>>>> TestRunner>>storeResultIntoTestCases
>>>>> TestRunner>>perform:orSendTo:
>>>>> [] 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:
>>>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>>>> [] in PasteUpMorph>>becomeActiveDuring:
>>>>> BlockClosure>>on:do:
>>>>> PasteUpMorph>>becomeActiveDuring:
>>>>> HandMorph>>sendFocusEvent:to:clear:
>>>>> HandMorph>>sendEvent:focus:clear:
>>>>> HandMorph>>sendMouseEvent:
>>>>> HandMorph>>handleEvent:
>>>>> HandMorph>>processEvents
>>>>> [] in WorldState>>doOneCycleNowFor:
>>>>> Array(SequenceableCollection)>>do:
>>>>> WorldState>>handsDo:
>>>>> WorldState>>doOneCycleNowFor:
>>>>> WorldState>>doOneCycleFor:
>>>>> WorldState>>doOneSubCycleFor:
>>>>> PasteUpMorph>>doOneSubCycle
>>>>> MenuMorph>>invokeModalAt:in:allowKeyboard:
>>>>> MenuMorph>>invokeModal:
>>>>> MenuMorph>>invokeModal
>>>>> PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity:
>>>>> TextMorphForEditView>>mouseDown:
>>>>> TextMorphForEditView(Morph)>>handleMouseDown:
>>>>> MouseButtonEvent>>sentTo:
>>>>> TextMorphForEditView(Morph)>>handleEvent:
>>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>>> TextMorphForEditView(Morph)>>processEvent:using:
>>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>>> TransformMorph(Morph)>>processEvent:using:
>>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>>> PluggableTextMorphPlus(Morph)>>processEvent:using:
>>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>>> PluggableStandardWindow(Morph)>>processEvent:using:
>>>>> MorphicEventDispatcher>>dispatchMouseDown:with:
>>>>> MorphicEventDispatcher>>dispatchEvent:with:
>>>>> PasteUpMorph(Morph)>>processEvent:using:
>>>>> PasteUpMorph>>processEvent:using:
>>>>> PasteUpMorph(Morph)>>processEvent:
>>>>> HandMorph>>sendEvent:focus:clear:
>>>>> HandMorph>>sendMouseEvent:
>>>>> HandMorph>>handleEvent:
>>>>> HandMorph>>processEvents
>>>>> [] in WorldState>>doOneCycleNowFor:
>>>>> Array(SequenceableCollection)>>do:
>>>>> WorldState>>handsDo:
>>>>> WorldState>>doOneCycleNowFor:
>>>>> WorldState>>doOneCycleFor:
>>>>> PasteUpMorph>>doOneCycle
>>>>> [] in Project class>>spawnNewProcess
>>>>> [] in BlockClosure>>newProcess
>>>>>
>>>>> --
>>>>> Cesar Rabak
>>>>>
>>>>> _______________________________________________
>>>>> Pharo-project mailing list
>>>>> [hidden email]
>>>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo- 
>>>>> project
>>>>
>>>>
>>>> _______________________________________________
>>>> Pharo-project mailing list
>>>> [hidden email]
>>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>>>
>>>
>>> _______________________________________________
>>> Pharo-project mailing list
>>> [hidden email]
>>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>> --
>>  Simon
>>
>>
>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project