Just the full source code would do: lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... Nicolas 2009/11/30 Stéphane Ducasse <stephane.ducasse@inria.fr>:
thanks can you let us knw the exact sequence your did?
Stef
On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br 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 Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project