- Pharo-dev - lists.pharo.org

[Pharo-project] About KeyBindings
by Fernando Olivero Feb. 1, 2011

Feb. 1, 2011

Hi, recently there were some discussion on implementing KeyBindings for our IDE. There are at least 3 frameworks which address this functionality, the last one mentioned is the work done by Guillermo. I've implemented another one, for Gaucho. >From what i understand, the previous work focuses on implementing GLOBAL keybindings . Basically adding behavior to HandMorph or PasteUpMorph or the toolbar ( docking bar) present in the World. My implementation is a generic keybinding for any Morph, which can be applied to any morph. Special cases for the docking bar or the paste up Morph can be easily implemented following this uniform scheme. I didn't have the time to integrate it into Pharo yet, but will do in one week from now. I like to bring up the discussion on which one we should adopt and integrate into Morphic, points in favor of my approach: 1) clean 2) customizable 3) generic: no special cases I believe the other Global keybindings should be a subset of this generic keybinding mechanism. Fernando pd: From a previous mail: "... So for example, if you want to delete any Morph from the system by pressing cmd-w, you have to add the following binding: condition := GMCondition compositeWith: #( #understandsKeyBindingCommandCondition #uneditedCondition ) ). binding := GMKeyBinding actingOn: $w asciiValue modifiedBy: #(#command) satisfying: condition applying: #close. m := Morph new. m addKeyBinding: binding . ... " pd2: Useful and related comment from Stef ".. A classVar Binding and an instance var binding. **All** the methods only access binding binding get initialized with the default table defined in Binding => we can have table binding sharing => we can have instance based customization.

5 7

Re: [Pharo-project] Hudson now Jenkins
by Marcus Denker Jan. 31, 2011

Jan. 31, 2011

On Jan 31, 2011, at 3:04 PM, Geert Claes wrote: > > Since we are using Hudson I was wondering if anyone has been following > Hudson's issues with Oracle at all? > > This is how I understand it; the creator of Hudson (Kohsuke Kawaguchi) and > founder of infradna.com (which has now joined forces with Cloudbees - > offering Hudson support) has had some disagreements with Oracle mainly > regarding the ownership of the "Hudson" name. The Hudson community has > recently voted for the project to be renamed to Jenkins, so hudson-labs.org > is now jenkins-ci.org > > ps. I actually started looking at Hudson because I was baffled at the fact > that the success icon is "blue" rather than a more intuitive "green" and > hey, there is a plugin for that: > http://wiki.hudson-ci.org/display/HUDSON/Green+Balls > Yes, but sadly the installed version of hudson is too old for this plugin. (yes, we need to update. I will ask again) Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

6 7

[Pharo-project] pharo.st should be a permanent domain, I think
by Esteban Lorenzano Jan. 31, 2011

Jan. 31, 2011

Hi, I tried pharo.st to reach pharo. I liked. It's small, concise, beautiful (and it has a .st!) One problem is that as soon as you type pharo.st, you loose the url. I would like to stay in the url I entered to pharo-project. I think this is easily doable with an apache configuration. I'm not an apache guy, but I'm sure if there are some problem with this, and all of you agree this is desirable, someone from the list (cough, cough, DiÃ³genes, cough, cough) can do the job :) Cheers, Esteban

6 8

[Pharo-project] Issue 3472 in pharo: Text selection problem in Pharo-dev 1.2
by pharo＠googlecode.com Jan. 31, 2011

Jan. 31, 2011

Status: Accepted Owner: Torsten....(a)astares.de New issue 3472 by Torsten....(a)astares.de: Text selection problem in Pharo-dev 1.2 http://code.google.com/p/pharo/issues/detail?id=3472 - loaded the ConfigurationOfPharo to create a pharo-dev from a core 1.2 - in the welcome workspace evaluate the "ProfStef go" - a new window pops up ("Hello! I'm Professor Stef blah) - run the provided "ProfStef next" from this workspace, the tutorial will change to page (2/27) - now set the cursor behind the provided "ProfStef next." expression and select the text by dragging from right to left -> error: #basicNew: failed Reason: - when selecting the text from right to left a negative size is calculated for the string allocation, see this stack: ByteString class(Object)>>error: Receiver: ByteString Arguments and temporary variables: aString: 'basicNew: failed' Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#asByteArray->(ByteString>>#asByteArray "a Compi...etc... format: 23554 instanceVariables: nil organization: ('accessing' at: at:put: byteAt: byteAt:put: byteSize indexOfAnyO...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed: Receiver: ByteString Arguments and temporary variables: selector: #basicNew: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#asByteArray->(ByteString>>#asByteArray "a Compi...etc... format: 23554 instanceVariables: nil organization: ('accessing' at: at:put: byteAt: byteAt:put: byteSize indexOfAnyO...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed Receiver: ByteString Arguments and temporary variables: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#asByteArray->(ByteString>>#asByteArray "a Compi...etc... format: 23554 instanceVariables: nil organization: ('accessing' at: at:put: byteAt: byteAt:put: byteSize indexOfAnyO...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Behavior)>>basicNew: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#asByteArray->(ByteString>>#asByteArray "a Compi...etc... format: 23554 instanceVariables: nil organization: ('accessing' at: at:put: byteAt: byteAt:put: byteSize indexOfAnyO...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(String class)>>new: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#asByteArray->(ByteString>>#asByteArray "a Compi...etc... format: 23554 instanceVariables: nil organization: ('accessing' at: at:put: byteAt: byteAt:put: byteSize indexOfAnyO...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString(SequenceableCollection)>>copyFrom:to: Receiver: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Arguments and temporary variables: start: 550 stop: 548 newSize: -1 Receiver's instance variables: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Text>>copyFrom:to: Receiver: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which ...etc... Arguments and temporary variables: start: 550 stop: 563 realStart: 550 realStop: 548 Receiver's instance variables: string: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do I...etc... runs: a RunArray runs: #(212 2 1 1 1 1 1 1 2 166 2 4 1 5 1 2 4 1 3 1 2 79 2 14 ...etc... SmalltalkEditor(TextEditor)>>selection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(1029177344) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... aContext: nil receiver: nil aRequestor: a SmalltalkEditor failBlock: [FakeClassPool adopt: nil. ^ #failedDoit] logFlag: true methodNode: DoIt ^ ProfStef next method: (UndefinedObject>>#DoIt "a CompiledMethod(687603712)") value: a LessonView toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... requestor: a SmalltalkEditor class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1029177344) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelection startpc: 116 numArgs: 0 SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1029177344) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor>>doIt Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(1029177344) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState

1 11

[Pharo-project] [update 1.2] #12329
by StÃ©phane Ducasse Jan. 31, 2011

Jan. 31, 2011

12329 ----- - Issue 3472: Text selection problem in Pharo-dev 1.2. Thanks alain Plantec. Stef

1 0

[Pharo-project] would be nice if configuration comment always contain how to load them :(
by StÃ©phane Ducasse Jan. 31, 2011

Jan. 31, 2011

6 8

[Pharo-project] Text Selection problem in 1.2 dev
by StÃ©phane Ducasse Jan. 31, 2011

Jan. 31, 2011

hi guys in 1.2 dev when I play with ProfStef go I get an error after a couple of screens normally 3. I do not understand why but it looks really a problem with text selection https://pharo-ic.lille.inria.fr/hudson/view/Pharo/job/Pharo%201.2/ Stef 31 January 2011 2:22 pm VM: Mac OS - intel - 1064 - Pharo1.1.1 of 12 September 2010 [Latest update: #11414] 21.0 Image: Pharo1.2rc2 [Latest update: #12327]31 January 2011 2:22 pm VM: Mac OS - intel - 1064 - Pharo1.1.1 of 12 September 2010 [Latest update: #11414] 21.0 Image: Pharo1.2rc2 [Latest update: #12327] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Data/Downloads/Pharo-1.2 Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My Squeak/ ByteString class(Object)>>error: Receiver: ByteString Arguments and temporary variables: aString: 'basicNew: failed' Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed: Receiver: ByteString Arguments and temporary variables: selector: #basicNew: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed Receiver: ByteString Arguments and temporary variables: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Behavior)>>basicNew: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(String class)>>new: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString(SequenceableCollection)>>copyFrom:to: Receiver: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Arguments and temporary variables: start: 550 stop: 548 newSize: -1 Receiver's instance variables: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Text>>copyFrom:to: Receiver: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which ...etc... Arguments and temporary variables: start: 550 stop: 563 realStart: 550 realStop: 548 Receiver's instance variables: string: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do I...etc... runs: a RunArray runs: #(212 2 1 1 1 1 1 1 2 166 2 4 1 5 1 2 4 1 3 1 2 79 2 14 ...etc... SmalltalkEditor(TextEditor)>>selection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... aContext: nil receiver: nil aRequestor: a SmalltalkEditor failBlock: [FakeClassPool adopt: nil. ^ #failedDoit] logFlag: true methodNode: DoIt ^ ProfStef next method: (UndefinedObject>>#DoIt "a CompiledMethod(656408576)") value: a LessonView toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... requestor: a SmalltalkEditor class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelection startpc: 116 numArgs: 0 SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor>>doIt Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor>>doIt: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>dispatchOn: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] asciiValue: 100 honorCommandKeys: true char: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>processKeyStroke: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>keystroke: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState [editor keystroke: evt] in [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(TextMorph)>>handleInteraction: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: interactionBlock: [editor keystroke: evt] oldEditor: a SmalltalkEditor oldParagraph: a MultiNewParagraph oldText: a Text for '"Cool ! (I like to say Cooool :) ). You''ve just executed ...etc... Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView>>handleInteraction: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: interActionBlock: [editor keystroke: evt] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] action: nil Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false ECToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ECToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) evt: [keystroke '<Cmd-d>'] completionAllowed: false editor: a SmalltalkEditor stringHolder: a LessonView 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: a SystemDictionary(lots of globals) category: #'Ocompletion-ECSqueak' traitComposition: {} localSelectors: nil DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: DEVToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) 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: a SystemDictionary(lots of globals) category: #ImageForDevelopers traitComposition: {} localSelectors: nil ToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) 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: a SystemDictionary(lots of globals) category: #'System-Applications' traitComposition: nil localSelectors: nil registeredClasses: an OrderedCollection(StandardToolSet ECToolSet DEVToolSet) default: DEVToolSet TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] view: a PluggableShoutMorph(1061158912) Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] pasteUp: nil Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false KeyboardEvent>>sentTo: Receiver: [keystroke '<Cmd-d>'] Arguments and temporary variables: anObject: a TextMorphForEditView(786432) Receiver's instance variables: timeStamp: 12927 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: 15@310 handler: nil wasHandled: true keyValue: 100 charCode: 100 scanCode: 2 TextMorphForEditView(Morph)>>handleEvent: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(Morph)>>handleFocusEvent: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) result: #(nil) Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: 0@0 corner: 976@662 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(599785472) a Syste...etc... fullBounds: 0@0 corner: 976@662 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: 0@0 corner: 976@662 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(599785472) a Syste...etc... fullBounds: 0@0 corner: 976@662 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] evt: [keystroke '<Cmd-d>'] ofs: nil Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] evtBuf: #(2 12927 100 0 8 100 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil --- The full stack --- ByteString class(Object)>>error: ByteString class(Object)>>primitiveFailed: ByteString class(Object)>>primitiveFailed ByteString class(Behavior)>>basicNew: ByteString class(String class)>>new: ByteString(SequenceableCollection)>>copyFrom:to: Text>>copyFrom:to: SmalltalkEditor(TextEditor)>>selection Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection BlockClosure>>on:do: SmalltalkEditor>>evaluateSelection SmalltalkEditor>>doIt SmalltalkEditor>>doIt: SmalltalkEditor(TextEditor)>>dispatchOn: SmalltalkEditor(TextEditor)>>processKeyStroke: SmalltalkEditor(TextEditor)>>keystroke: [editor keystroke: evt] in [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView(TextMorph)>>handleInteraction: TextMorphForEditView>>handleInteraction: [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: ECToolSet class>>codeCompletionAround:textMorph:keyStroke: DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: ToolSet class>>codeCompletionAround:textMorph:keyStroke: TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView>>keyStroke: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in Project class>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Data/Downloads/Pharo-1.2 Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /Users/ducasse/Library/Preferences/Squeak/Internet/My Squeak/ ByteString class(Object)>>error: Receiver: ByteString Arguments and temporary variables: aString: 'basicNew: failed' Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed: Receiver: ByteString Arguments and temporary variables: selector: #basicNew: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Object)>>primitiveFailed Receiver: ByteString Arguments and temporary variables: Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(Behavior)>>basicNew: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString class(String class)>>new: Receiver: ByteString Arguments and temporary variables: sizeRequested: -1 Receiver's instance variables: superclass: String methodDict: a MethodDictionary(#applyLanguageInfomation:->(ByteString>>#applyLa...etc... format: 23554 instanceVariables: nil organization: ('*xml-parser' applyLanguageInfomation:) ('accessing' at: at:put:...etc... subclasses: nil name: #ByteString classPool: a Dictionary(#NonAsciiMap->#[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil ByteString(SequenceableCollection)>>copyFrom:to: Receiver: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Arguments and temporary variables: start: 550 stop: 548 newSize: -1 Receiver's instance variables: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which prints the ...etc... Text>>copyFrom:to: Receiver: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do It which ...etc... Arguments and temporary variables: start: 550 stop: 563 realStart: 550 realStop: 548 Receiver's instance variables: string: '"Now you''re a Do It master ! Let''s talk about printing. It''s a Do I...etc... runs: a RunArray runs: #(212 2 1 1 1 1 1 1 2 166 2 4 1 5 1 2 4 1 3 1 2 79 2 14 ...etc... SmalltalkEditor(TextEditor)>>selection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... aContext: nil receiver: nil aRequestor: a SmalltalkEditor failBlock: [FakeClassPool adopt: nil. ^ #failedDoit] logFlag: true methodNode: DoIt ^ ProfStef next method: (UndefinedObject>>#DoIt "a CompiledMethod(656408576)") value: a LessonView toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream '"Cool ! (I like to say Cooool :) ). You''ve ju...etc... requestor: a SmalltalkEditor class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelection startpc: 116 numArgs: 0 SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor>>doIt Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor>>doIt: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>dispatchOn: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] asciiValue: 100 honorCommandKeys: true char: nil Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>processKeyStroke: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState SmalltalkEditor(TextEditor)>>keystroke: Receiver: a SmalltalkEditor Arguments and temporary variables: aKeyboardEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: morph: a TextMorphForEditView(786432) selectionShowing: true model: a LessonView editingState: a SmalltalkEditingState [editor keystroke: evt] in [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(TextMorph)>>handleInteraction: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: interactionBlock: [editor keystroke: evt] oldEditor: a SmalltalkEditor oldParagraph: a MultiNewParagraph oldText: a Text for '"Cool ! (I like to say Cooool :) ). You''ve just executed ...etc... Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView>>handleInteraction: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: interActionBlock: [editor keystroke: evt] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] action: nil Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false ECToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ECToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) evt: [keystroke '<Cmd-d>'] completionAllowed: false editor: a SmalltalkEditor stringHolder: a LessonView 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: a SystemDictionary(lots of globals) category: #'Ocompletion-ECSqueak' traitComposition: {} localSelectors: nil DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: DEVToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) 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: a SystemDictionary(lots of globals) category: #ImageForDevelopers traitComposition: {} localSelectors: nil ToolSet class>>codeCompletionAround:textMorph:keyStroke: Receiver: ToolSet Arguments and temporary variables: aBlock: [| action | evt keyValue = 13 ifTrue: [action := self crAction. ac...etc... aTextMorph: a TextMorphForEditView(786432) 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: a SystemDictionary(lots of globals) category: #'System-Applications' traitComposition: nil localSelectors: nil registeredClasses: an OrderedCollection(StandardToolSet ECToolSet DEVToolSet) default: DEVToolSet TextMorphForEditView(TextMorph)>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView>>keyStroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] view: a PluggableShoutMorph(1061158912) Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] pasteUp: nil Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false KeyboardEvent>>sentTo: Receiver: [keystroke '<Cmd-d>'] Arguments and temporary variables: anObject: a TextMorphForEditView(786432) Receiver's instance variables: timeStamp: 12927 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: 15@310 handler: nil wasHandled: true keyValue: 100 charCode: 100 scanCode: 2 TextMorphForEditView(Morph)>>handleEvent: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false TextMorphForEditView(Morph)>>handleFocusEvent: Receiver: a TextMorphForEditView(786432) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 0@0 corner: 450@354 owner: a TransformMorph(1005322240) submorphs: #() fullBounds: 0@0 corner: 450@354 color: Color black extension: a MorphExtension (975437824) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for '"Now you''re a Do It master ! Let''s talk about printing. It'...etc... wrapFlag: true paragraph: a MultiNewParagraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: nil editView: a PluggableShoutMorph(1061158912) acceptOnCR: false [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) result: #(nil) Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: 0@0 corner: 976@662 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(599785472) a Syste...etc... fullBounds: 0@0 corner: 976@662 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: 0@0 corner: 976@662 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(599785472) a Syste...etc... fullBounds: 0@0 corner: 976@662 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] focusHolder: a TextMorphForEditView(786432) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke '<Cmd-d>'] evt: [keystroke '<Cmd-d>'] ofs: nil Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke '<Cmd-d>'] evtBuf: #(2 12927 100 0 8 100 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: 435@557 corner: 451@573 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 435@557 corner: 451@573 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [438@556 435@557 mouseMove 41062 nil] targetOffset: 93@0 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 41062 437 557 0 0 0 1) lastKeyScanCode: 36 combinedChar: nil --- The full stack --- ByteString class(Object)>>error: ByteString class(Object)>>primitiveFailed: ByteString class(Object)>>primitiveFailed ByteString class(Behavior)>>basicNew: ByteString class(String class)>>new: ByteString(SequenceableCollection)>>copyFrom:to: Text>>copyFrom:to: SmalltalkEditor(TextEditor)>>selection Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection BlockClosure>>on:do: SmalltalkEditor>>evaluateSelection SmalltalkEditor>>doIt SmalltalkEditor>>doIt: SmalltalkEditor(TextEditor)>>dispatchOn: SmalltalkEditor(TextEditor)>>processKeyStroke: SmalltalkEditor(TextEditor)>>keystroke: [editor keystroke: evt] in [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView(TextMorph)>>handleInteraction: TextMorphForEditView>>handleInteraction: [| action | evt keyValue = 13 ifTrue: [action := self crAction. action ifNotNil: [evt hand newKeyboardFocus: nil. ^ action value]]. self handleInteraction: [editor keystroke: evt]. self updateFromParagraph. super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke: ECToolSet class>>codeCompletionAround:textMorph:keyStroke: DEVToolSet class>>codeCompletionAround:textMorph:keyStroke: ToolSet class>>codeCompletionAround:textMorph:keyStroke: TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView>>keyStroke: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in Project class>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

2 9

[Pharo-project] TODO 1.2
by Marcus Denker Jan. 31, 2011

Jan. 31, 2011

Hi, So for a release, we need to fix the following bugs: http://code.google.com/p/pharo/issues/list?can=2&q=milestone=1.2-DevImage Now as these are all problems of packages, not of the Core, I can not just commit to core. So we need to actually fix the package in the place where the package is loaded from. (potentially by discussion this with the maintainer) This is something anyone can do. We do not need to wait for Mariano to ne back from holiday (which will be in 3 weeks), nor will I do this. I am a bit sick of 1.2... Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

4 3

[Pharo-project] [OT] stic'11 streaming?
by Esteban Lorenzano Jan. 31, 2011

Jan. 31, 2011

Hi, Does anybody knows if STIC'11 will be streaming the talks? Cheers, Esteban

1 0

[Pharo-project] Smalltalk Stammtisch ZÃ¼rich Februar: 09.02.
by Philippe Marschall Jan. 31, 2011

Jan. 31, 2011

Hallo, Der Stammtisch findet statt am - Mittwoch, 09.02.2011, 18h - Steinfels ZÃ¼rich , http://www.steinfels-zuerich.ch/ - http://maps.google.com/maps?ie=UTF8&q=restaurant+steinfels+z%C3%BCrich&fb=1… Wer kommen will soll sich bitte per EMail melden damit wir wissen fÃ¼r wie viele Leute wir reservieren mÃ¼ssen. Nein, es gibt keine RÃ¶sti. Philippe ============================================ Smalltalk Beer-trinking event: - Wednesday, 09.02.2011, 18h - Steinfels ZÃ¼rich , http://www.steinfels-zuerich.ch/ - http://maps.google.com/maps?ie=UTF8&q=restaurant+steinfels+z%C3%BCrich&fb=1… If you plan to attend please send a mail. No, there won't be any RÃ¶sti. Philippe

1 0