StringMorph someInstance printDirectlyToDisplay -> DNU

> VM: Mac OS - intel - 1058 - Squeak3.8.1 of '28 Aug 2006' [latest
> update: #6747] Squeak VM 4.2.1b1
> Image: Pharo1.0beta [Latest update: #10440]
>
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir /Users/ducasse/Workspace/FirstCircle/ActiveResearch/Pharo/
> Pharo/pharo1.0-10440-BETAdev09.09.1
> Trusted Dir /foobar/tooBar/forSqueak/bogus
> Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My
> Squeak
>
> DisplayText(Object)>>doesNotUnderstand: #form:
>        Receiver: a DisplayText
>        Arguments and temporary variables:
>                aMessage:       form: Form(210x20x32)
>                exception:      MessageNotUnderstood: DisplayText>>form:
>                resumeValue:    nil
>        Receiver's instance variables:
>                text:   a Text for 'a StringMorph(133)''Preferences'''
>                textStyle:      a TextStyle DejaVu Sans
>                offset:         0@0
>                form:   nil
>                foreColor:      Color black
>                backColor:      Color white
>
> PSUIManager(MorphicUIManager)>>composeFormFor:
>        Receiver: a PSUIManager
>        Arguments and temporary variables:
>                aDisplayText:   a DisplayText
>                canvas:         a FormCanvas on: Form(210x20x32)
>                tmpText:        a TextMorph(1819)
>        Receiver's instance variables:
>                interactiveParser:      nil
>
> DisplayText>>composeForm
>        Receiver: a DisplayText
>        Arguments and temporary variables:
>
>        Receiver's instance variables:
>                text:   a Text for 'a StringMorph(133)''Preferences'''
>                textStyle:      a TextStyle DejaVu Sans
>                offset:         0@0
>                form:   nil
>                foreColor:      Color black
>                backColor:      Color white
>
> DisplayText>>form
>        Receiver: a DisplayText
>        Arguments and temporary variables:
>
>        Receiver's instance variables:
>                text:   a Text for 'a StringMorph(133)''Preferences'''
>                textStyle:      a TextStyle DejaVu Sans
>                offset:         0@0
>                form:   nil
>                foreColor:      Color black
>                backColor:      Color white
>
> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
>        Receiver: a DisplayText
>        Arguments and temporary variables:
>                aDisplayMedium:         DisplayScreen(1424x848x32)
>                aDisplayPoint:  0@100
>                clipRectangle:  0@0 corner: 1424@848
>                ruleInteger:    3
>                aForm:  nil
>                form1:  nil
>                rule:   nil
>        Receiver's instance variables:
>                text:   a Text for 'a StringMorph(133)''Preferences'''
>                textStyle:      a TextStyle DejaVu Sans
>                offset:         0@0
>                form:   nil
>                foreColor:      Color black
>                backColor:      Color white
>
> DisplayText(DisplayObject)>>displayOn:at:
>        Receiver: a DisplayText
>        Arguments and temporary variables:
>                aDisplayMedium:         DisplayScreen(1424x848x32)
>                aDisplayPoint:  0@100
>        Receiver's instance variables:
>                text:   a Text for 'a StringMorph(133)''Preferences'''
>                textStyle:      a TextStyle DejaVu Sans
>                offset:         0@0
>                form:   nil
>                foreColor:      Color black
>                backColor:      Color white
>
> ByteString(String)>>displayOn:at:textColor:
>        Receiver: 'a StringMorph(133)''Preferences'''
>        Arguments and temporary variables:
>                aDisplayMedium:         DisplayScreen(1424x848x32)
>                aPoint:         0@100
>                aColor:         Color black
>        Receiver's instance variables:
> 'a StringMorph(133)''Preferences'''
>
> ByteString(String)>>displayOn:at:
>        Receiver: 'a StringMorph(133)''Preferences'''
>        Arguments and temporary variables:
>                aDisplayMedium:         DisplayScreen(1424x848x32)
>                aPoint:         0@100
>        Receiver's instance variables:
> 'a StringMorph(133)''Preferences'''
>
> ByteString(String)>>displayAt:
>        Receiver: 'a StringMorph(133)''Preferences'''
>        Arguments and temporary variables:
>                aPoint:         0@100
>        Receiver's instance variables:
> 'a StringMorph(133)''Preferences'''
>
> StringMorph(Object)>>printDirectlyToDisplay
>        Receiver: a StringMorph(133)'Preferences'
>        Arguments and temporary variables:
>
>        Receiver's instance variables:
>                bounds:         0@0 corner: 93@18
>                owner:  an AlignmentMorph(548)
>                submorphs:      #()
>                fullBounds:     nil
>                color:  Color black
>                extension:      nil
>                font:   a LogicalFont
>  familyName: DejaVu Serif
>  emphasis: nil
>  pointSize: 11
>  re...etc...
>                emphasis:       0
>                contents:       'Preferences'
>                hasFocus:       false
>
> Object class>>DoIt
>        Receiver: Object
>        Arguments and temporary variables:
>
>        Receiver's instance variables:
>                superclass:     ProtoObject
>                methodDict:     a MethodDictionary(size 378)
>                format:         2
>                instanceVariables:      nil
>                organization:   ('*Polymorph-EventEnhancements'
> when:send:to:exclusive: when:send...etc...
>                subclasses:     {BalloonState . StandardFileMenuResult .
> UndefinedObject . Boolean ...etc...
>                name:   #Object
>                classPool:      a Dictionary(#DependentsFields->a
> WeakIdentityKeyDictionary(size 154...etc...
>                sharedPools:    nil
>                environment:    Smalltalk
>                category:       #'Kernel-Objects'
>                traitComposition:       nil
>                localSelectors:         nil
>
> Compiler>>evaluate:in:to:notifying:ifFail:logged:
>        Receiver: a Compiler
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                sourceStream:   a ReadWriteStream 'printDirectlyToDisplay
>        "For debugging: write ...etc...
>                requestor:      an OBTextMorphEditorWithShout
>                class:  Object class
>                category:       nil
>                context:        nil
>                parser:         a Parser
>
> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> BlockClosure>>on:do:
>        Receiver: [closure] in
> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>        Arguments and temporary variables:
>                exception:      OutOfScopeNotification
>                handlerAction:  [closure] in
> OBTextMorphEditorWithShout(ParagraphEditor)>>evalua...etc...
>                handlerActive:  true
>        Receiver's instance variables:
>                outerContext:
> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>                startpc:        116
>                numArgs:        0
>
> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                result:         nil
>                rcvr:   Object
>                ctxt:   nil
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout
> (ParagraphEditor)>>terminateAndInitializeAround:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                aBlock:         [closure] in
> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                characterStream:        a WriteStream ''
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                keyEvent:       [keystroke '<Cmd-d>']
>                typeAheadStream:        a WriteStream ''
>                honorCommandKeys:       true
>                keyValue:       100
>                keyChar:        $d
>                char:   $d
>                action:         #doIt:
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                keyEvent:       [keystroke '<Cmd-d>']
>                typeAheadStream:        a WriteStream ''
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                keyEvent:       [keystroke '<Cmd-d>']
>                typeAhead:      a WriteStream ''
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
>        Receiver: an OBTextMorphEditorWithShout
>        Arguments and temporary variables:
>                keyEvent:       [keystroke '<Cmd-d>']
>        Receiver's instance variables:
>                model:  an OBDefinitionPanel
>                paragraph:      a MultiNewParagraph
>                startBlock:     a CharacterBlock with index 257 and character $" and
> rectangle 346....etc...
>                stopBlock:      a CharacterBlock with index 210 and character $S and
> rectangle 7.224...etc...
>                beginTypeInBlock:       nil
>                emphasisHere:   an Array(a TextColor code: (Color r: 0.0 g: 0.5 b:
> 0.0) a TextEmp...etc...
>                initialText:    a Text for 'printDirectlyToDisplay
>        "For debugging: write the rece...etc...
>                selectionShowing:       false
>                otherInterval:  (208 to: 207)
>                lastParentLocation:     nil
>                morph:  an OBTextMorphWithShout(3688)
>                oldInterval:    (210 to: 209)
>                pivotBlock:     a CharacterBlock with index 210 and character $S and
> rectangle 7.22...etc...
>                inBackTo:       nil
>
> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> OBTextMorphWithShout(TextMorph)>>handleInteraction:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                interactionBlock:       [closure] in [] in
> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>                oldEditor:      an OBTextMorphEditorWithShout
>                oldParagraph:   a MultiNewParagraph
>                oldText:        a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver...etc...
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                interActionBlock:       [closure] in [] in
> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                evt:    [keystroke '<Cmd-d>']
>                action:         nil
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
>        Receiver: ECToolSet
>        Arguments and temporary variables:
>                aBlock:         [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>                aTextMorph:     an OBTextMorphWithShout(3688)
>                evt:    [keystroke '<Cmd-d>']
>                completionAllowed:      true
>                editor:         an OBTextMorphEditorWithShout
>                stringHolder:   an OBDefinitionPanel
>        Receiver's instance variables:
>                superclass:     StandardToolSet
>                methodDict:     a MethodDictionary()
>                format:         2
>                instanceVariables:      nil
>                organization:   ('as yet unclassified')
>
>                subclasses:     nil
>                name:   #ECToolSet
>                classPool:      nil
>                sharedPools:    nil
>                environment:    Smalltalk
>                category:       #'Ocompletion-ECSqueak'
>                traitComposition:       nil
>                localSelectors:         nil
>
> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
>        Receiver: DEVToolSet
>        Arguments and temporary variables:
>                aBlock:         [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>                aTextMorph:     an OBTextMorphWithShout(3688)
>                evt:    [keystroke '<Cmd-d>']
>                toolSet:        ECToolSet
>        Receiver's instance variables:
>                superclass:     StandardToolSet
>                methodDict:     a MethodDictionary()
>                format:         2
>                instanceVariables:      nil
>                organization:   ('as yet unclassified')
>
>                subclasses:     nil
>                name:   #DEVToolSet
>                classPool:      nil
>                sharedPools:    nil
>                environment:    Smalltalk
>                category:       #ImageForDevelopers
>                traitComposition:       nil
>                localSelectors:         nil
>
> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
>        Receiver: ToolSet
>        Arguments and temporary variables:
>                aBlock:         [closure] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>                aTextMorph:     an OBTextMorphWithShout(3688)
>                evt:    [keystroke '<Cmd-d>']
>        Receiver's instance variables:
>                superclass:     AppRegistry
>                methodDict:     a MethodDictionary()
>                format:         2
>                instanceVariables:      nil
>                organization:   ('as yet unclassified')
>
>                subclasses:     nil
>                name:   #ToolSet
>                classPool:      nil
>                sharedPools:    nil
>                environment:    Smalltalk
>                category:       #'System-Applications'
>                traitComposition:       nil
>                localSelectors:         nil
>                registeredClasses:      an OrderedCollection(StandardToolSet
> NewInspectorToolSet DEV...etc...
>                default:        DEVToolSet
>
> OBTextMorphWithShout(TextMorph)>>keyStroke:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                evt:    [keystroke '<Cmd-d>']
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                evt:    [keystroke '<Cmd-d>']
>                view:   an OBPluggableTextMorphWithShout(441)
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                anEvent:        [keystroke '<Cmd-d>']
>                pasteUp:        nil
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> KeyboardEvent>>sentTo:
>        Receiver: [keystroke '<Cmd-d>']
>        Arguments and temporary variables:
>                anObject:       an OBTextMorphWithShout(3688)
>        Receiver's instance variables:
>                timeStamp:      1998226
>                source:         a HandMorph(3216)
>                windowIndex:    nil
>                type:   #keystroke
>                buttons:        64
>                position:       346@104
>                handler:        nil
>                wasHandled:     true
>                keyValue:       100
>                charCode:       100
>                scanCode:       2
>
> OBTextMorphWithShout(Morph)>>handleEvent:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                anEvent:        [keystroke '<Cmd-d>']
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> OBTextMorphWithShout(Morph)>>handleFocusEvent:
>        Receiver: an OBTextMorphWithShout(3688)
>        Arguments and temporary variables:
>                anEvent:        [keystroke '<Cmd-d>']
>        Receiver's instance variables:
>                bounds:         0@0 corner: 734@114
>                owner:  a TransformMorph(832)
>                submorphs:      #()
>                fullBounds:     0@0 corner: 734@114
>                color:  Color black
>                extension:      a MorphExtension (835) [other:  (blinkStart -> 2050726)]
>                borderWidth:    0
>                borderColor:    Color black
>                textStyle:      a TextStyle DejaVu Sans Mono
>                text:   a Text for 'printDirectlyToDisplay
>        "For debugging: write the receiver''s...etc...
>                wrapFlag:       true
>                paragraph:      a MultiNewParagraph
>                editor:         an OBTextMorphEditorWithShout
>                container:      nil
>                predecessor:    nil
>                successor:      nil
>                backgroundColor:        nil
>                margins:        nil
>                editHistory:    nil
>                editView:       an OBPluggableTextMorphWithShout(441)
>                acceptOnCR:     false
>
> [] in HandMorph>>sendFocusEvent:to:clear:
>        Receiver: a HandMorph(3216)
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                bounds:         1138@524 corner: 1154@540
>                owner:  a PasteUpMorph(1622) [world]
>                submorphs:      #()
>                fullBounds:     1138@524 corner: 1154@540
>                color:  Color blue
>                extension:      a MorphExtension (539) [eventHandler = an EventHandler]
>                mouseFocus:     nil
>                keyboardFocus:  nil
>                eventListeners:         nil
>                mouseListeners:         nil
>                keyboardListeners:      nil
>                mouseClickState:        nil
>                mouseOverHandler:       a MouseOverHandler
>                lastMouseEvent:         [1138@524 mouseUp 2090376 nil]
>                targetOffset:   35@8
>                damageRecorder:         a DamageRecorder
>                cacheCanvas:    nil
>                cachedCanvasHasHoles:   true
>                temporaryCursor:        nil
>                temporaryCursorOffset:  nil
>                hardwareCursor:         nil
>                hasChanged:     true
>                savedPatch:     nil
>                userInitials:   ''
>                lastEventBuffer:        #(1 2090376 1138 524 0 0 0 1)
>                lastKeyScanCode:        2
>                combinedChar:   nil
>
> [] in PasteUpMorph>>becomeActiveDuring:
>        Receiver: a PasteUpMorph(1622) [world]
>        Arguments and temporary variables:
> <<error during printing>
>        Receiver's instance variables:
>                bounds:         0@0 corner: 1424@848
>                owner:  nil
>                submorphs:      an Array(a TaskbarMorph(3095) a SystemWindow(2431) a
> SystemWindow(40...etc...
>                fullBounds:     0@0 corner: 1424@848
>                color:  (Color r: 0.97 g: 0.98 b: 1.0)
>                extension:      a MorphExtension (2543) [eventHandler = an
> EventHandler]  [other:  (...etc...
>                borderWidth:    0
>                borderColor:    (Color r: 0.03 g: 0.02 b: 0.0)
>                presenter:      a Presenter (1246)
>                model:  a MorphicModel(1926)
>                cursor:         1
>                padding:        3
>                backgroundMorph:        nil
>                isPartsBin:     nil
>                autoLineLayout:         false
>                indicateCursor:         nil
>                resizeToFit:    nil
>                wantsMouseOverHalos:    nil
>                worldState:     a WorldState
>                griddingOn:     nil
>
> BlockClosure>>on:do:
>        Receiver: [closure] in PasteUpMorph>>becomeActiveDuring:
>        Arguments and temporary variables:
>                exception:      Error
>                handlerAction:  [closure] in PasteUpMorph>>becomeActiveDuring:
>                handlerActive:  false
>        Receiver's instance variables:
>                outerContext:   PasteUpMorph>>becomeActiveDuring:
>                startpc:        67
>                numArgs:        0
>
>
> --- The full stack ---
> DisplayText(Object)>>doesNotUnderstand: #form:
> PSUIManager(MorphicUIManager)>>composeFormFor:
> DisplayText>>composeForm
> DisplayText>>form
> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
> DisplayText(DisplayObject)>>displayOn:at:
> ByteString(String)>>displayOn:at:textColor:
> ByteString(String)>>displayOn:at:
> ByteString(String)>>displayAt:
> StringMorph(Object)>>printDirectlyToDisplay
> Object class>>DoIt
> Compiler>>evaluate:in:to:notifying:ifFail:logged:
> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
> BlockClosure>>on:do:
> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
> OBTextMorphEditorWithShout
> (ParagraphEditor)>>terminateAndInitializeAround:
> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
> OBTextMorphWithShout(TextMorph)>>handleInteraction:
> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
> OBTextMorphWithShout(TextMorph)>>keyStroke:
> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
> KeyboardEvent>>sentTo:
> OBTextMorphWithShout(Morph)>>handleEvent:
> OBTextMorphWithShout(Morph)>>handleFocusEvent:
> [] in HandMorph>>sendFocusEvent:to:clear:
> [] in PasteUpMorph>>becomeActiveDuring:
> BlockClosure>>on:do:
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>

> Yep. I notice about in this thread
> http://lists.gforge.inria.fr/pipermail/pharo-project/2009-September/013307.html
>
> On Mon, Sep 14, 2009 at 21:30, Stéphane Ducasse
> <[hidden email]> wrote:
>> VM: Mac OS - intel - 1058 - Squeak3.8.1 of '28 Aug 2006' [latest
>> update: #6747] Squeak VM 4.2.1b1
>> Image: Pharo1.0beta [Latest update: #10440]
>>
>> SecurityManager state:
>> Restricted: false
>> FileAccess: true
>> SocketAccess: true
>> Working Dir /Users/ducasse/Workspace/FirstCircle/ActiveResearch/
>> Pharo/
>> Pharo/pharo1.0-10440-BETAdev09.09.1
>> Trusted Dir /foobar/tooBar/forSqueak/bogus
>> Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My
>> Squeak
>>
>> DisplayText(Object)>>doesNotUnderstand: #form:
>>        Receiver: a DisplayText
>>        Arguments and temporary variables:
>>                aMessage:       form: Form(210x20x32)
>>                exception:      MessageNotUnderstood:  
>> DisplayText>>form:
>>                resumeValue:    nil
>>        Receiver's instance variables:
>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>                textStyle:      a TextStyle DejaVu Sans
>>                offset:         0@0
>>                form:   nil
>>                foreColor:      Color black
>>                backColor:      Color white
>>
>> PSUIManager(MorphicUIManager)>>composeFormFor:
>>        Receiver: a PSUIManager
>>        Arguments and temporary variables:
>>                aDisplayText:   a DisplayText
>>                canvas:         a FormCanvas on: Form(210x20x32)
>>                tmpText:        a TextMorph(1819)
>>        Receiver's instance variables:
>>                interactiveParser:      nil
>>
>> DisplayText>>composeForm
>>        Receiver: a DisplayText
>>        Arguments and temporary variables:
>>
>>        Receiver's instance variables:
>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>                textStyle:      a TextStyle DejaVu Sans
>>                offset:         0@0
>>                form:   nil
>>                foreColor:      Color black
>>                backColor:      Color white
>>
>> DisplayText>>form
>>        Receiver: a DisplayText
>>        Arguments and temporary variables:
>>
>>        Receiver's instance variables:
>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>                textStyle:      a TextStyle DejaVu Sans
>>                offset:         0@0
>>                form:   nil
>>                foreColor:      Color black
>>                backColor:      Color white
>>
>> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
>>        Receiver: a DisplayText
>>        Arguments and temporary variables:
>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>                aDisplayPoint:  0@100
>>                clipRectangle:  0@0 corner: 1424@848
>>                ruleInteger:    3
>>                aForm:  nil
>>                form1:  nil
>>                rule:   nil
>>        Receiver's instance variables:
>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>                textStyle:      a TextStyle DejaVu Sans
>>                offset:         0@0
>>                form:   nil
>>                foreColor:      Color black
>>                backColor:      Color white
>>
>> DisplayText(DisplayObject)>>displayOn:at:
>>        Receiver: a DisplayText
>>        Arguments and temporary variables:
>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>                aDisplayPoint:  0@100
>>        Receiver's instance variables:
>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>                textStyle:      a TextStyle DejaVu Sans
>>                offset:         0@0
>>                form:   nil
>>                foreColor:      Color black
>>                backColor:      Color white
>>
>> ByteString(String)>>displayOn:at:textColor:
>>        Receiver: 'a StringMorph(133)''Preferences'''
>>        Arguments and temporary variables:
>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>                aPoint:         0@100
>>                aColor:         Color black
>>        Receiver's instance variables:
>> 'a StringMorph(133)''Preferences'''
>>
>> ByteString(String)>>displayOn:at:
>>        Receiver: 'a StringMorph(133)''Preferences'''
>>        Arguments and temporary variables:
>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>                aPoint:         0@100
>>        Receiver's instance variables:
>> 'a StringMorph(133)''Preferences'''
>>
>> ByteString(String)>>displayAt:
>>        Receiver: 'a StringMorph(133)''Preferences'''
>>        Arguments and temporary variables:
>>                aPoint:         0@100
>>        Receiver's instance variables:
>> 'a StringMorph(133)''Preferences'''
>>
>> StringMorph(Object)>>printDirectlyToDisplay
>>        Receiver: a StringMorph(133)'Preferences'
>>        Arguments and temporary variables:
>>
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 93@18
>>                owner:  an AlignmentMorph(548)
>>                submorphs:      #()
>>                fullBounds:     nil
>>                color:  Color black
>>                extension:      nil
>>                font:   a LogicalFont
>>  familyName: DejaVu Serif
>>  emphasis: nil
>>  pointSize: 11
>>  re...etc...
>>                emphasis:       0
>>                contents:       'Preferences'
>>                hasFocus:       false
>>
>> Object class>>DoIt
>>        Receiver: Object
>>        Arguments and temporary variables:
>>
>>        Receiver's instance variables:
>>                superclass:     ProtoObject
>>                methodDict:     a MethodDictionary(size 378)
>>                format:         2
>>                instanceVariables:      nil
>>                organization:   ('*Polymorph-EventEnhancements'
>> when:send:to:exclusive: when:send...etc...
>>                subclasses:     {BalloonState .  
>> StandardFileMenuResult .
>> UndefinedObject . Boolean ...etc...
>>                name:   #Object
>>                classPool:      a Dictionary(#DependentsFields->a
>> WeakIdentityKeyDictionary(size 154...etc...
>>                sharedPools:    nil
>>                environment:    Smalltalk
>>                category:       #'Kernel-Objects'
>>                traitComposition:       nil
>>                localSelectors:         nil
>>
>> Compiler>>evaluate:in:to:notifying:ifFail:logged:
>>        Receiver: a Compiler
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                sourceStream:   a ReadWriteStream  
>> 'printDirectlyToDisplay
>>        "For debugging: write ...etc...
>>                requestor:      an OBTextMorphEditorWithShout
>>                class:  Object class
>>                category:       nil
>>                context:        nil
>>                parser:         a Parser
>>
>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> BlockClosure>>on:do:
>>        Receiver: [closure] in
>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>        Arguments and temporary variables:
>>                exception:      OutOfScopeNotification
>>                handlerAction:  [closure] in
>> OBTextMorphEditorWithShout(ParagraphEditor)>>evalua...etc...
>>                handlerActive:  true
>>        Receiver's instance variables:
>>                outerContext:
>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>                startpc:        116
>>                numArgs:        0
>>
>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                result:         nil
>>                rcvr:   Object
>>                ctxt:   nil
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout
>> (ParagraphEditor)>>terminateAndInitializeAround:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                aBlock:         [closure] in
>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                characterStream:        a WriteStream ''
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                keyEvent:       [keystroke '<Cmd-d>']
>>                typeAheadStream:        a WriteStream ''
>>                honorCommandKeys:       true
>>                keyValue:       100
>>                keyChar:        $d
>>                char:   $d
>>                action:         #doIt:
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                keyEvent:       [keystroke '<Cmd-d>']
>>                typeAheadStream:        a WriteStream ''
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                keyEvent:       [keystroke '<Cmd-d>']
>>                typeAhead:      a WriteStream ''
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
>>        Receiver: an OBTextMorphEditorWithShout
>>        Arguments and temporary variables:
>>                keyEvent:       [keystroke '<Cmd-d>']
>>        Receiver's instance variables:
>>                model:  an OBDefinitionPanel
>>                paragraph:      a MultiNewParagraph
>>                startBlock:     a CharacterBlock with index 257 and  
>> character $" and
>> rectangle 346....etc...
>>                stopBlock:      a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.224...etc...
>>                beginTypeInBlock:       nil
>>                emphasisHere:   an Array(a TextColor code: (Color r:  
>> 0.0 g: 0.5 b:
>> 0.0) a TextEmp...etc...
>>                initialText:    a Text for 'printDirectlyToDisplay
>>        "For debugging: write the rece...etc...
>>                selectionShowing:       false
>>                otherInterval:  (208 to: 207)
>>                lastParentLocation:     nil
>>                morph:  an OBTextMorphWithShout(3688)
>>                oldInterval:    (210 to: 209)
>>                pivotBlock:     a CharacterBlock with index 210 and  
>> character $S and
>> rectangle 7.22...etc...
>>                inBackTo:       nil
>>
>> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> OBTextMorphWithShout(TextMorph)>>handleInteraction:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                interactionBlock:       [closure] in [] in
>> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>>                oldEditor:      an OBTextMorphEditorWithShout
>>                oldParagraph:   a MultiNewParagraph
>>                oldText:        a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver...etc...
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                interActionBlock:       [closure] in [] in
>> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                evt:    [keystroke '<Cmd-d>']
>>                action:         nil
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>        Receiver: ECToolSet
>>        Arguments and temporary variables:
>>                aBlock:         [closure] in  
>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>                evt:    [keystroke '<Cmd-d>']
>>                completionAllowed:      true
>>                editor:         an OBTextMorphEditorWithShout
>>                stringHolder:   an OBDefinitionPanel
>>        Receiver's instance variables:
>>                superclass:     StandardToolSet
>>                methodDict:     a MethodDictionary()
>>                format:         2
>>                instanceVariables:      nil
>>                organization:   ('as yet unclassified')
>>
>>                subclasses:     nil
>>                name:   #ECToolSet
>>                classPool:      nil
>>                sharedPools:    nil
>>                environment:    Smalltalk
>>                category:       #'Ocompletion-ECSqueak'
>>                traitComposition:       nil
>>                localSelectors:         nil
>>
>> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>        Receiver: DEVToolSet
>>        Arguments and temporary variables:
>>                aBlock:         [closure] in  
>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>                evt:    [keystroke '<Cmd-d>']
>>                toolSet:        ECToolSet
>>        Receiver's instance variables:
>>                superclass:     StandardToolSet
>>                methodDict:     a MethodDictionary()
>>                format:         2
>>                instanceVariables:      nil
>>                organization:   ('as yet unclassified')
>>
>>                subclasses:     nil
>>                name:   #DEVToolSet
>>                classPool:      nil
>>                sharedPools:    nil
>>                environment:    Smalltalk
>>                category:       #ImageForDevelopers
>>                traitComposition:       nil
>>                localSelectors:         nil
>>
>> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>        Receiver: ToolSet
>>        Arguments and temporary variables:
>>                aBlock:         [closure] in  
>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>                evt:    [keystroke '<Cmd-d>']
>>        Receiver's instance variables:
>>                superclass:     AppRegistry
>>                methodDict:     a MethodDictionary()
>>                format:         2
>>                instanceVariables:      nil
>>                organization:   ('as yet unclassified')
>>
>>                subclasses:     nil
>>                name:   #ToolSet
>>                classPool:      nil
>>                sharedPools:    nil
>>                environment:    Smalltalk
>>                category:       #'System-Applications'
>>                traitComposition:       nil
>>                localSelectors:         nil
>>                registeredClasses:      an  
>> OrderedCollection(StandardToolSet
>> NewInspectorToolSet DEV...etc...
>>                default:        DEVToolSet
>>
>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                evt:    [keystroke '<Cmd-d>']
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                evt:    [keystroke '<Cmd-d>']
>>                view:   an OBPluggableTextMorphWithShout(441)
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                anEvent:        [keystroke '<Cmd-d>']
>>                pasteUp:        nil
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> KeyboardEvent>>sentTo:
>>        Receiver: [keystroke '<Cmd-d>']
>>        Arguments and temporary variables:
>>                anObject:       an OBTextMorphWithShout(3688)
>>        Receiver's instance variables:
>>                timeStamp:      1998226
>>                source:         a HandMorph(3216)
>>                windowIndex:    nil
>>                type:   #keystroke
>>                buttons:        64
>>                position:       346@104
>>                handler:        nil
>>                wasHandled:     true
>>                keyValue:       100
>>                charCode:       100
>>                scanCode:       2
>>
>> OBTextMorphWithShout(Morph)>>handleEvent:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                anEvent:        [keystroke '<Cmd-d>']
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> OBTextMorphWithShout(Morph)>>handleFocusEvent:
>>        Receiver: an OBTextMorphWithShout(3688)
>>        Arguments and temporary variables:
>>                anEvent:        [keystroke '<Cmd-d>']
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 734@114
>>                owner:  a TransformMorph(832)
>>                submorphs:      #()
>>                fullBounds:     0@0 corner: 734@114
>>                color:  Color black
>>                extension:      a MorphExtension (835) [other:  
>> (blinkStart -> 2050726)]
>>                borderWidth:    0
>>                borderColor:    Color black
>>                textStyle:      a TextStyle DejaVu Sans Mono
>>                text:   a Text for 'printDirectlyToDisplay
>>        "For debugging: write the receiver''s...etc...
>>                wrapFlag:       true
>>                paragraph:      a MultiNewParagraph
>>                editor:         an OBTextMorphEditorWithShout
>>                container:      nil
>>                predecessor:    nil
>>                successor:      nil
>>                backgroundColor:        nil
>>                margins:        nil
>>                editHistory:    nil
>>                editView:       an OBPluggableTextMorphWithShout(441)
>>                acceptOnCR:     false
>>
>> [] in HandMorph>>sendFocusEvent:to:clear:
>>        Receiver: a HandMorph(3216)
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                bounds:         1138@524 corner: 1154@540
>>                owner:  a PasteUpMorph(1622) [world]
>>                submorphs:      #()
>>                fullBounds:     1138@524 corner: 1154@540
>>                color:  Color blue
>>                extension:      a MorphExtension (539) [eventHandler  
>> = an EventHandler]
>>                mouseFocus:     nil
>>                keyboardFocus:  nil
>>                eventListeners:         nil
>>                mouseListeners:         nil
>>                keyboardListeners:      nil
>>                mouseClickState:        nil
>>                mouseOverHandler:       a MouseOverHandler
>>                lastMouseEvent:         [1138@524 mouseUp 2090376 nil]
>>                targetOffset:   35@8
>>                damageRecorder:         a DamageRecorder
>>                cacheCanvas:    nil
>>                cachedCanvasHasHoles:   true
>>                temporaryCursor:        nil
>>                temporaryCursorOffset:  nil
>>                hardwareCursor:         nil
>>                hasChanged:     true
>>                savedPatch:     nil
>>                userInitials:   ''
>>                lastEventBuffer:        #(1 2090376 1138 524 0 0 0 1)
>>                lastKeyScanCode:        2
>>                combinedChar:   nil
>>
>> [] in PasteUpMorph>>becomeActiveDuring:
>>        Receiver: a PasteUpMorph(1622) [world]
>>        Arguments and temporary variables:
>> <<error during printing>
>>        Receiver's instance variables:
>>                bounds:         0@0 corner: 1424@848
>>                owner:  nil
>>                submorphs:      an Array(a TaskbarMorph(3095) a  
>> SystemWindow(2431) a
>> SystemWindow(40...etc...
>>                fullBounds:     0@0 corner: 1424@848
>>                color:  (Color r: 0.97 g: 0.98 b: 1.0)
>>                extension:      a MorphExtension (2543)  
>> [eventHandler = an
>> EventHandler]  [other:  (...etc...
>>                borderWidth:    0
>>                borderColor:    (Color r: 0.03 g: 0.02 b: 0.0)
>>                presenter:      a Presenter (1246)
>>                model:  a MorphicModel(1926)
>>                cursor:         1
>>                padding:        3
>>                backgroundMorph:        nil
>>                isPartsBin:     nil
>>                autoLineLayout:         false
>>                indicateCursor:         nil
>>                resizeToFit:    nil
>>                wantsMouseOverHalos:    nil
>>                worldState:     a WorldState
>>                griddingOn:     nil
>>
>> BlockClosure>>on:do:
>>        Receiver: [closure] in PasteUpMorph>>becomeActiveDuring:
>>        Arguments and temporary variables:
>>                exception:      Error
>>                handlerAction:  [closure] in  
>> PasteUpMorph>>becomeActiveDuring:
>>                handlerActive:  false
>>        Receiver's instance variables:
>>                outerContext:   PasteUpMorph>>becomeActiveDuring:
>>                startpc:        67
>>                numArgs:        0
>>
>>
>> --- The full stack ---
>> DisplayText(Object)>>doesNotUnderstand: #form:
>> PSUIManager(MorphicUIManager)>>composeFormFor:
>> DisplayText>>composeForm
>> DisplayText>>form
>> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
>> DisplayText(DisplayObject)>>displayOn:at:
>> ByteString(String)>>displayOn:at:textColor:
>> ByteString(String)>>displayOn:at:
>> ByteString(String)>>displayAt:
>> StringMorph(Object)>>printDirectlyToDisplay
>> Object class>>DoIt
>> Compiler>>evaluate:in:to:notifying:ifFail:logged:
>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>> BlockClosure>>on:do:
>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>> OBTextMorphEditorWithShout
>> (ParagraphEditor)>>terminateAndInitializeAround:
>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
>> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
>> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
>> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
>> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>> OBTextMorphWithShout(TextMorph)>>handleInteraction:
>> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
>> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
>> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
>> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
>> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
>> KeyboardEvent>>sentTo:
>> OBTextMorphWithShout(Morph)>>handleEvent:
>> OBTextMorphWithShout(Morph)>>handleFocusEvent:
>> [] in HandMorph>>sendFocusEvent:to:clear:
>> [] in PasteUpMorph>>becomeActiveDuring:
>> BlockClosure>>on:do:
>>
>> _______________________________________________
>> 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

> thanks.
>
> On Sep 14, 2009, at 8:17 PM, Andrey Larionov wrote:
>
>> Yep. I notice about in this thread
>> http://lists.gforge.inria.fr/pipermail/pharo-project/2009-September/013307.html
>>
>> On Mon, Sep 14, 2009 at 21:30, Stéphane Ducasse
>> <[hidden email]> wrote:
>>> VM: Mac OS - intel - 1058 - Squeak3.8.1 of '28 Aug 2006' [latest
>>> update: #6747] Squeak VM 4.2.1b1
>>> Image: Pharo1.0beta [Latest update: #10440]
>>>
>>> SecurityManager state:
>>> Restricted: false
>>> FileAccess: true
>>> SocketAccess: true
>>> Working Dir /Users/ducasse/Workspace/FirstCircle/ActiveResearch/
>>> Pharo/
>>> Pharo/pharo1.0-10440-BETAdev09.09.1
>>> Trusted Dir /foobar/tooBar/forSqueak/bogus
>>> Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My
>>> Squeak
>>>
>>> DisplayText(Object)>>doesNotUnderstand: #form:
>>>        Receiver: a DisplayText
>>>        Arguments and temporary variables:
>>>                aMessage:       form: Form(210x20x32)
>>>                exception:      MessageNotUnderstood:
>>> DisplayText>>form:
>>>                resumeValue:    nil
>>>        Receiver's instance variables:
>>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>>                textStyle:      a TextStyle DejaVu Sans
>>>                offset:         0@0
>>>                form:   nil
>>>                foreColor:      Color black
>>>                backColor:      Color white
>>>
>>> PSUIManager(MorphicUIManager)>>composeFormFor:
>>>        Receiver: a PSUIManager
>>>        Arguments and temporary variables:
>>>                aDisplayText:   a DisplayText
>>>                canvas:         a FormCanvas on: Form(210x20x32)
>>>                tmpText:        a TextMorph(1819)
>>>        Receiver's instance variables:
>>>                interactiveParser:      nil
>>>
>>> DisplayText>>composeForm
>>>        Receiver: a DisplayText
>>>        Arguments and temporary variables:
>>>
>>>        Receiver's instance variables:
>>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>>                textStyle:      a TextStyle DejaVu Sans
>>>                offset:         0@0
>>>                form:   nil
>>>                foreColor:      Color black
>>>                backColor:      Color white
>>>
>>> DisplayText>>form
>>>        Receiver: a DisplayText
>>>        Arguments and temporary variables:
>>>
>>>        Receiver's instance variables:
>>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>>                textStyle:      a TextStyle DejaVu Sans
>>>                offset:         0@0
>>>                form:   nil
>>>                foreColor:      Color black
>>>                backColor:      Color white
>>>
>>> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
>>>        Receiver: a DisplayText
>>>        Arguments and temporary variables:
>>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>>                aDisplayPoint:  0@100
>>>                clipRectangle:  0@0 corner: 1424@848
>>>                ruleInteger:    3
>>>                aForm:  nil
>>>                form1:  nil
>>>                rule:   nil
>>>        Receiver's instance variables:
>>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>>                textStyle:      a TextStyle DejaVu Sans
>>>                offset:         0@0
>>>                form:   nil
>>>                foreColor:      Color black
>>>                backColor:      Color white
>>>
>>> DisplayText(DisplayObject)>>displayOn:at:
>>>        Receiver: a DisplayText
>>>        Arguments and temporary variables:
>>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>>                aDisplayPoint:  0@100
>>>        Receiver's instance variables:
>>>                text:   a Text for 'a StringMorph(133)''Preferences'''
>>>                textStyle:      a TextStyle DejaVu Sans
>>>                offset:         0@0
>>>                form:   nil
>>>                foreColor:      Color black
>>>                backColor:      Color white
>>>
>>> ByteString(String)>>displayOn:at:textColor:
>>>        Receiver: 'a StringMorph(133)''Preferences'''
>>>        Arguments and temporary variables:
>>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>>                aPoint:         0@100
>>>                aColor:         Color black
>>>        Receiver's instance variables:
>>> 'a StringMorph(133)''Preferences'''
>>>
>>> ByteString(String)>>displayOn:at:
>>>        Receiver: 'a StringMorph(133)''Preferences'''
>>>        Arguments and temporary variables:
>>>                aDisplayMedium:         DisplayScreen(1424x848x32)
>>>                aPoint:         0@100
>>>        Receiver's instance variables:
>>> 'a StringMorph(133)''Preferences'''
>>>
>>> ByteString(String)>>displayAt:
>>>        Receiver: 'a StringMorph(133)''Preferences'''
>>>        Arguments and temporary variables:
>>>                aPoint:         0@100
>>>        Receiver's instance variables:
>>> 'a StringMorph(133)''Preferences'''
>>>
>>> StringMorph(Object)>>printDirectlyToDisplay
>>>        Receiver: a StringMorph(133)'Preferences'
>>>        Arguments and temporary variables:
>>>
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 93@18
>>>                owner:  an AlignmentMorph(548)
>>>                submorphs:      #()
>>>                fullBounds:     nil
>>>                color:  Color black
>>>                extension:      nil
>>>                font:   a LogicalFont
>>>  familyName: DejaVu Serif
>>>  emphasis: nil
>>>  pointSize: 11
>>>  re...etc...
>>>                emphasis:       0
>>>                contents:       'Preferences'
>>>                hasFocus:       false
>>>
>>> Object class>>DoIt
>>>        Receiver: Object
>>>        Arguments and temporary variables:
>>>
>>>        Receiver's instance variables:
>>>                superclass:     ProtoObject
>>>                methodDict:     a MethodDictionary(size 378)
>>>                format:         2
>>>                instanceVariables:      nil
>>>                organization:   ('*Polymorph-EventEnhancements'
>>> when:send:to:exclusive: when:send...etc...
>>>                subclasses:     {BalloonState .
>>> StandardFileMenuResult .
>>> UndefinedObject . Boolean ...etc...
>>>                name:   #Object
>>>                classPool:      a Dictionary(#DependentsFields->a
>>> WeakIdentityKeyDictionary(size 154...etc...
>>>                sharedPools:    nil
>>>                environment:    Smalltalk
>>>                category:       #'Kernel-Objects'
>>>                traitComposition:       nil
>>>                localSelectors:         nil
>>>
>>> Compiler>>evaluate:in:to:notifying:ifFail:logged:
>>>        Receiver: a Compiler
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                sourceStream:   a ReadWriteStream
>>> 'printDirectlyToDisplay
>>>        "For debugging: write ...etc...
>>>                requestor:      an OBTextMorphEditorWithShout
>>>                class:  Object class
>>>                category:       nil
>>>                context:        nil
>>>                parser:         a Parser
>>>
>>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> BlockClosure>>on:do:
>>>        Receiver: [closure] in
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>>        Arguments and temporary variables:
>>>                exception:      OutOfScopeNotification
>>>                handlerAction:  [closure] in
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>evalua...etc...
>>>                handlerActive:  true
>>>        Receiver's instance variables:
>>>                outerContext:
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>>                startpc:        116
>>>                numArgs:        0
>>>
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                result:         nil
>>>                rcvr:   Object
>>>                ctxt:   nil
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout
>>> (ParagraphEditor)>>terminateAndInitializeAround:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                aBlock:         [closure] in
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                characterStream:        a WriteStream ''
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                keyEvent:       [keystroke '<Cmd-d>']
>>>                typeAheadStream:        a WriteStream ''
>>>                honorCommandKeys:       true
>>>                keyValue:       100
>>>                keyChar:        $d
>>>                char:   $d
>>>                action:         #doIt:
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                keyEvent:       [keystroke '<Cmd-d>']
>>>                typeAheadStream:        a WriteStream ''
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                keyEvent:       [keystroke '<Cmd-d>']
>>>                typeAhead:      a WriteStream ''
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
>>>        Receiver: an OBTextMorphEditorWithShout
>>>        Arguments and temporary variables:
>>>                keyEvent:       [keystroke '<Cmd-d>']
>>>        Receiver's instance variables:
>>>                model:  an OBDefinitionPanel
>>>                paragraph:      a MultiNewParagraph
>>>                startBlock:     a CharacterBlock with index 257 and
>>> character $" and
>>> rectangle 346....etc...
>>>                stopBlock:      a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.224...etc...
>>>                beginTypeInBlock:       nil
>>>                emphasisHere:   an Array(a TextColor code: (Color r:
>>> 0.0 g: 0.5 b:
>>> 0.0) a TextEmp...etc...
>>>                initialText:    a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the rece...etc...
>>>                selectionShowing:       false
>>>                otherInterval:  (208 to: 207)
>>>                lastParentLocation:     nil
>>>                morph:  an OBTextMorphWithShout(3688)
>>>                oldInterval:    (210 to: 209)
>>>                pivotBlock:     a CharacterBlock with index 210 and
>>> character $S and
>>> rectangle 7.22...etc...
>>>                inBackTo:       nil
>>>
>>> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> OBTextMorphWithShout(TextMorph)>>handleInteraction:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                interactionBlock:       [closure] in [] in
>>> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>>>                oldEditor:      an OBTextMorphEditorWithShout
>>>                oldParagraph:   a MultiNewParagraph
>>>                oldText:        a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver...etc...
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                interActionBlock:       [closure] in [] in
>>> OBTextMorphWithShout(TextMorph)>>keyStroke...etc...
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                evt:    [keystroke '<Cmd-d>']
>>>                action:         nil
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>>        Receiver: ECToolSet
>>>        Arguments and temporary variables:
>>>                aBlock:         [closure] in
>>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>>                evt:    [keystroke '<Cmd-d>']
>>>                completionAllowed:      true
>>>                editor:         an OBTextMorphEditorWithShout
>>>                stringHolder:   an OBDefinitionPanel
>>>        Receiver's instance variables:
>>>                superclass:     StandardToolSet
>>>                methodDict:     a MethodDictionary()
>>>                format:         2
>>>                instanceVariables:      nil
>>>                organization:   ('as yet unclassified')
>>>
>>>                subclasses:     nil
>>>                name:   #ECToolSet
>>>                classPool:      nil
>>>                sharedPools:    nil
>>>                environment:    Smalltalk
>>>                category:       #'Ocompletion-ECSqueak'
>>>                traitComposition:       nil
>>>                localSelectors:         nil
>>>
>>> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>>        Receiver: DEVToolSet
>>>        Arguments and temporary variables:
>>>                aBlock:         [closure] in
>>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>>                evt:    [keystroke '<Cmd-d>']
>>>                toolSet:        ECToolSet
>>>        Receiver's instance variables:
>>>                superclass:     StandardToolSet
>>>                methodDict:     a MethodDictionary()
>>>                format:         2
>>>                instanceVariables:      nil
>>>                organization:   ('as yet unclassified')
>>>
>>>                subclasses:     nil
>>>                name:   #DEVToolSet
>>>                classPool:      nil
>>>                sharedPools:    nil
>>>                environment:    Smalltalk
>>>                category:       #ImageForDevelopers
>>>                traitComposition:       nil
>>>                localSelectors:         nil
>>>
>>> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>>        Receiver: ToolSet
>>>        Arguments and temporary variables:
>>>                aBlock:         [closure] in
>>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>                aTextMorph:     an OBTextMorphWithShout(3688)
>>>                evt:    [keystroke '<Cmd-d>']
>>>        Receiver's instance variables:
>>>                superclass:     AppRegistry
>>>                methodDict:     a MethodDictionary()
>>>                format:         2
>>>                instanceVariables:      nil
>>>                organization:   ('as yet unclassified')
>>>
>>>                subclasses:     nil
>>>                name:   #ToolSet
>>>                classPool:      nil
>>>                sharedPools:    nil
>>>                environment:    Smalltalk
>>>                category:       #'System-Applications'
>>>                traitComposition:       nil
>>>                localSelectors:         nil
>>>                registeredClasses:      an
>>> OrderedCollection(StandardToolSet
>>> NewInspectorToolSet DEV...etc...
>>>                default:        DEVToolSet
>>>
>>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                evt:    [keystroke '<Cmd-d>']
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                evt:    [keystroke '<Cmd-d>']
>>>                view:   an OBPluggableTextMorphWithShout(441)
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                anEvent:        [keystroke '<Cmd-d>']
>>>                pasteUp:        nil
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> KeyboardEvent>>sentTo:
>>>        Receiver: [keystroke '<Cmd-d>']
>>>        Arguments and temporary variables:
>>>                anObject:       an OBTextMorphWithShout(3688)
>>>        Receiver's instance variables:
>>>                timeStamp:      1998226
>>>                source:         a HandMorph(3216)
>>>                windowIndex:    nil
>>>                type:   #keystroke
>>>                buttons:        64
>>>                position:       346@104
>>>                handler:        nil
>>>                wasHandled:     true
>>>                keyValue:       100
>>>                charCode:       100
>>>                scanCode:       2
>>>
>>> OBTextMorphWithShout(Morph)>>handleEvent:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                anEvent:        [keystroke '<Cmd-d>']
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> OBTextMorphWithShout(Morph)>>handleFocusEvent:
>>>        Receiver: an OBTextMorphWithShout(3688)
>>>        Arguments and temporary variables:
>>>                anEvent:        [keystroke '<Cmd-d>']
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 734@114
>>>                owner:  a TransformMorph(832)
>>>                submorphs:      #()
>>>                fullBounds:     0@0 corner: 734@114
>>>                color:  Color black
>>>                extension:      a MorphExtension (835) [other:
>>> (blinkStart -> 2050726)]
>>>                borderWidth:    0
>>>                borderColor:    Color black
>>>                textStyle:      a TextStyle DejaVu Sans Mono
>>>                text:   a Text for 'printDirectlyToDisplay
>>>        "For debugging: write the receiver''s...etc...
>>>                wrapFlag:       true
>>>                paragraph:      a MultiNewParagraph
>>>                editor:         an OBTextMorphEditorWithShout
>>>                container:      nil
>>>                predecessor:    nil
>>>                successor:      nil
>>>                backgroundColor:        nil
>>>                margins:        nil
>>>                editHistory:    nil
>>>                editView:       an OBPluggableTextMorphWithShout(441)
>>>                acceptOnCR:     false
>>>
>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>>        Receiver: a HandMorph(3216)
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                bounds:         1138@524 corner: 1154@540
>>>                owner:  a PasteUpMorph(1622) [world]
>>>                submorphs:      #()
>>>                fullBounds:     1138@524 corner: 1154@540
>>>                color:  Color blue
>>>                extension:      a MorphExtension (539) [eventHandler
>>> = an EventHandler]
>>>                mouseFocus:     nil
>>>                keyboardFocus:  nil
>>>                eventListeners:         nil
>>>                mouseListeners:         nil
>>>                keyboardListeners:      nil
>>>                mouseClickState:        nil
>>>                mouseOverHandler:       a MouseOverHandler
>>>                lastMouseEvent:         [1138@524 mouseUp 2090376 nil]
>>>                targetOffset:   35@8
>>>                damageRecorder:         a DamageRecorder
>>>                cacheCanvas:    nil
>>>                cachedCanvasHasHoles:   true
>>>                temporaryCursor:        nil
>>>                temporaryCursorOffset:  nil
>>>                hardwareCursor:         nil
>>>                hasChanged:     true
>>>                savedPatch:     nil
>>>                userInitials:   ''
>>>                lastEventBuffer:        #(1 2090376 1138 524 0 0 0 1)
>>>                lastKeyScanCode:        2
>>>                combinedChar:   nil
>>>
>>> [] in PasteUpMorph>>becomeActiveDuring:
>>>        Receiver: a PasteUpMorph(1622) [world]
>>>        Arguments and temporary variables:
>>> <<error during printing>
>>>        Receiver's instance variables:
>>>                bounds:         0@0 corner: 1424@848
>>>                owner:  nil
>>>                submorphs:      an Array(a TaskbarMorph(3095) a
>>> SystemWindow(2431) a
>>> SystemWindow(40...etc...
>>>                fullBounds:     0@0 corner: 1424@848
>>>                color:  (Color r: 0.97 g: 0.98 b: 1.0)
>>>                extension:      a MorphExtension (2543)
>>> [eventHandler = an
>>> EventHandler]  [other:  (...etc...
>>>                borderWidth:    0
>>>                borderColor:    (Color r: 0.03 g: 0.02 b: 0.0)
>>>                presenter:      a Presenter (1246)
>>>                model:  a MorphicModel(1926)
>>>                cursor:         1
>>>                padding:        3
>>>                backgroundMorph:        nil
>>>                isPartsBin:     nil
>>>                autoLineLayout:         false
>>>                indicateCursor:         nil
>>>                resizeToFit:    nil
>>>                wantsMouseOverHalos:    nil
>>>                worldState:     a WorldState
>>>                griddingOn:     nil
>>>
>>> BlockClosure>>on:do:
>>>        Receiver: [closure] in PasteUpMorph>>becomeActiveDuring:
>>>        Arguments and temporary variables:
>>>                exception:      Error
>>>                handlerAction:  [closure] in
>>> PasteUpMorph>>becomeActiveDuring:
>>>                handlerActive:  false
>>>        Receiver's instance variables:
>>>                outerContext:   PasteUpMorph>>becomeActiveDuring:
>>>                startpc:        67
>>>                numArgs:        0
>>>
>>>
>>> --- The full stack ---
>>> DisplayText(Object)>>doesNotUnderstand: #form:
>>> PSUIManager(MorphicUIManager)>>composeFormFor:
>>> DisplayText>>composeForm
>>> DisplayText>>form
>>> DisplayText>>displayOn:at:clippingBox:rule:fillColor:
>>> DisplayText(DisplayObject)>>displayOn:at:
>>> ByteString(String)>>displayOn:at:textColor:
>>> ByteString(String)>>displayOn:at:
>>> ByteString(String)>>displayAt:
>>> StringMorph(Object)>>printDirectlyToDisplay
>>> Object class>>DoIt
>>> Compiler>>evaluate:in:to:notifying:ifFail:logged:
>>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>> BlockClosure>>on:do:
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>evaluateSelection
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt
>>> [] in OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>> OBTextMorphEditorWithShout
>>> (ParagraphEditor)>>terminateAndInitializeAround:
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>doIt:
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>dispatchOnKeyEvent:with:
>>> OBTextMorphEditorWithShout(TextMorphEditor)>>dispatchOnKeyEvent:with:
>>> OBTextMorphEditorWithShout(ParagraphEditor)>>keystroke:
>>> OBTextMorphEditorWithShout(TextMorphEditor)>>keystroke:
>>> [] in [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>> OBTextMorphWithShout(TextMorph)>>handleInteraction:
>>> OBTextMorphWithShout(TextMorphForEditView)>>handleInteraction:
>>> [] in OBTextMorphWithShout(TextMorph)>>keyStroke:
>>> ECToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>> DEVToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>> ToolSet class>>codeCompletionAround:textMorph:keyStroke:
>>> OBTextMorphWithShout(TextMorph)>>keyStroke:
>>> OBTextMorphWithShout(TextMorphForEditView)>>keyStroke:
>>> OBTextMorphWithShout(TextMorph)>>handleKeystroke:
>>> KeyboardEvent>>sentTo:
>>> OBTextMorphWithShout(Morph)>>handleEvent:
>>> OBTextMorphWithShout(Morph)>>handleFocusEvent:
>>> [] in HandMorph>>sendFocusEvent:to:clear:
>>> [] in PasteUpMorph>>becomeActiveDuring:
>>> BlockClosure>>on:do:
>>>
>>> _______________________________________________
>>> 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
>