January 2011 - Pharo-dev - lists.pharo.org

[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

[Pharo-project] Hudson now Jenkins
by Geert Claes Jan. 31, 2011

Jan. 31, 2011

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 -- View this message in context: http://forum.world.st/Hudson-now-Jenkins-tp3248782p3248782.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

2 1

[Pharo-project] Issue 3637 in pharo: [Hudson] archive builds automatically every 20 updates
by pharo＠googlecode.com Jan. 31, 2011

Jan. 31, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3637 by marcus.d...(a)gmail.com: [Hudson] archive builds automatically every 20 updates http://code.google.com/p/pharo/issues/detail?id=3637 We should archive the image all 20 updates to gforge so that they are available here: http://www.pharo-project.org/pharo-download/unstable-core http://www.pharo-project.org/pharo-download/stable-core

1 0

[Pharo-project] Issue 3634 in pharo: [Hudson] set background on Full images
by pharo＠googlecode.com Jan. 31, 2011

Jan. 31, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3634 by marcus.d...(a)gmail.com: [Hudson] set background on Full images http://code.google.com/p/pharo/issues/detail?id=3634 World backgroundImage: (ImageReadWriter formFromFileNamed: 'pharoBackground.png') layout: #scaled. Of course, you can get the picture from some other place. You can download the pciture from here: https://gforge.inria.fr/frs/download.php/26996/pharoBackground.png

1 0

[Pharo-project] how to control the native window size and position
by Tudor Girba Jan. 31, 2011

Jan. 31, 2011

Hi, Is there a way to control the size and screen position of the parent window? I would need this for controlling the size of screencasts. I am particularly interested in a solution for Mac. Cheers, Doru -- www.tudorgirba.com "Some battles are better lost than fought."

2 2

Jan. 31, 2011

13033 ----- - Issue 3630: Add ensureCr convenience method. - Issue 3562: Deferred UI messages executed slowly. Thanks Ricardo Moran!! Sef

1 0

[Pharo-project] Issue 3562 in pharo: Deferred UI messages executed slowly
by pharo＠googlecode.com Jan. 31, 2011

Jan. 31, 2011

Status: New Owner: ---- New issue 3562 by richi.mo...(a)gmail.com: Deferred UI messages executed slowly http://code.google.com/p/pharo/issues/detail?id=3562 Pharo1.2rc1 Latest update: #12313 Processing deferred ui messages seems to be really slow. You can test it by executing this: | rnd | rnd := Random new. 100 timesRepeat: [ WorldState addDeferredUIMessage: [ Morph new openInWorld; center: rnd next @ rnd next * Display extent. ] ]. You'll notice it takes a couple of seconds to finish opening all the morphs, but if you remove the #addDeferredUIMessage: send, it is instantaneous. In Squeak and Etoys both versions are equally fast. I think the bug is in WorldState>>#runStepsMethodsIn:. It seems it only executes one deferred ui message per step. With the implementation below the problem is fixed. WorldState>>#runStepMethodsIn: aWorld "Perform periodic activity inbetween event cycles" | queue nextInQueue| "If available dispatch some deferred UI Message" queue := self class deferredUIMessages. [(nextInQueue := queue nextOrNil) isNil] whileFalse: [ nextInQueue value]. self runLocalStepMethodsIn: aWorld.

1 3