- Pharo-dev - lists.pharo.org

[Pharo-project] EventInterceptor and MessageSendTree

by HernÃ¡n Morales Durand

Dear all, I've attached a little cool tool for intercepting Morphic events I just resurrected today, from the class comments: This morph is a button which, when pressed, begins listening to the hand's event stream. When an even of the appropriate type is encountered, this morph intercepts it and traces the dispatch of the event using MessageSendTree, and opens a SendTreeExplorer on the results. This is useful for debugging parts of the UI process which are otherwise difficult to trace. The eventType can be any of the Morphic event types, but #mouseUp, #mouseDown, and #keystroke are by far the most useful because they are the triggers for the majority of actual UI activity. This is a list of morphic events to try: #mouseDown #mouseMove #mouseUp #mouseOver #mouseEnter #mouseLeave #mouseLeaveDragging #keystroke #keyDown #keyUp #unknown #click To install it load first MessageSendTree. The original author is Jesse Welton http://jwelton.v-space.org/squeak/ Cheers, HernÃ¡n

Dec. 6, 2009

Re: [Pharo-project] squeak VM 5.0

by Laval Jannik

Hi John, How do you have these messages ? When I try to load the 64bits image, I have a white screen and it is really difficult to fix something... Is there a parameter to add when loading the vm ? I added the part of code that you send, but I have the same thing. I modify also the code of SystemTracer. Cheers, Jannik On Dec 6, 2009, at 03:17 , John M McIntosh wrote: > >> >> hacking a bit more gets you to >> <PastedGraphic-1.tiff> > > In a few spare moments as I await the Arctic front to bury us in snow... > > I consider the > return: error > > has to be related to the move from BlockContext to BlockClosure > so in > object:allFieldsWithIndex:collect: > > I added > object class = BlockClosure ifTrue: > [(object instVarAt: 3) ifNotNil: > ["May need to adjust PC and startPC if changing wordSize..." > results at: 2 put: (block value: (object instVarAt: 2)+(self pcDeltaForMethod: object method) value: 2)]]. > > mmm try that get this more interesting error > > > THERE_BE_DRAGONS_HERE > Unwind error during termination > 5 December 2009 6:13:31 pm > > VM: Mac OS - intel - 1062 - Squeak3.8.1 of '28 Aug 2006' [latest update: #6747] 9.0 > Image: PharoCore1.0rc1 [Latest update: #10496] > > SecurityManager state: > Restricted: false > FileAccess: true > SocketAccess: true > Working Dir /Volumes/px2/business/SqueakiPhone/SqueakObjCBasedForOSXAndIPhone/SqueakNoOGLIPhoneOSX/testingImages/64bittracingchangesets > Trusted Dir /foobar/tooBar/forSqueak/bogus/ > Untrusted Dir /foobar/tooBar/forSqueak/bogus/ > > Array(Object)>>error: > Receiver: #() > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > #() > > Array(Object)>>errorSubscriptBounds: > Receiver: #() > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > #() > > Array(Object)>>at: > Receiver: #() > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > #() > > Decompiler>>pushTemporaryVariable: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler(InstructionStream)>>interpretNextInstructionFor: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler>>interpretNextInstructionFor: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler>>statementsTo: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler>>blockTo: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler>>decompile:in:method:using: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > Decompiler>>decompile:in:method: > Receiver: a Decompiler > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) > pc: 29 > constructor: {a DecompilerConstructor} > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > instVars: an Array({sender} {pc}) > tempVars: #() > constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) > stack: an OrderedCollection({pc} {sender > debuggerMap (sender blockCopy: sender...etc... > statements: an OrderedCollection() > lastPc: 28 > exit: nil > caseExits: an OrderedCollection() > lastJumpPc: nil > lastReturnPc: nil > limit: 45 > hasValue: nil > blockStackBase: 0 > numLocalTemps: 0 > blockStartsToTempVars: nil > tempVarCount: 0 > > CompiledMethod>>getSourceFor:in: > Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > a CompiledMethod(1253: InstructionStream>>debuggerMap) > > CompiledMethod>>methodNode > Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > a CompiledMethod(1253: InstructionStream>>debuggerMap) > > [] in DebuggerMethodMap class>>forMethod: > Receiver: DebuggerMethodMap > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Object > methodDict: a MethodDictionary(#abstractSourceMap->a CompiledMethod(3330: Debug...etc... > format: 140 > instanceVariables: #('timestamp' 'methodReference' 'methodNode' 'abstractSource...etc... > organization: ('accessing' markRecentlyUsed method namedTempAt:in: namedTempAt:...etc... > subclasses: {DebuggerMethodMapForBlueBookMethods. DebuggerMethodMapForClosureCo...etc... > name: #DebuggerMethodMap > classPool: a Dictionary(#MapCache->a WeakIdentityKeyDictionary(a CompiledMethod...etc... > sharedPools: nil > environment: Smalltalk > category: #'Tools-Debugger' > traitComposition: nil > localSelectors: nil > > WeakIdentityKeyDictionary(Dictionary)>>at:ifAbsent: > Receiver: a WeakIdentityKeyDictionary(a CompiledMethod(1410: HandMorph>>handleEvent:)->a DebuggerMet...etc... > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > tally: 16 > array: an Array(a CompiledMethod(3440: Morph>>processEvent:)->a DebuggerMethodM...etc... > > DebuggerMethodMap class>>forMethod: > Receiver: DebuggerMethodMap > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > superclass: Object > methodDict: a MethodDictionary(#abstractSourceMap->a CompiledMethod(3330: Debug...etc... > format: 140 > instanceVariables: #('timestamp' 'methodReference' 'methodNode' 'abstractSource...etc... > organization: ('accessing' markRecentlyUsed method namedTempAt:in: namedTempAt:...etc... > subclasses: {DebuggerMethodMapForBlueBookMethods. DebuggerMethodMapForClosureCo...etc... > name: #DebuggerMethodMap > classPool: a Dictionary(#MapCache->a WeakIdentityKeyDictionary(a CompiledMethod...etc... > sharedPools: nil > environment: Smalltalk > category: #'Tools-Debugger' > traitComposition: nil > localSelectors: nil > > CompiledMethod>>debuggerMap > Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > a CompiledMethod(1253: InstructionStream>>debuggerMap) > > MethodContext(InstructionStream)>>debuggerMap > Receiver: MethodContext(InstructionStream)>>debuggerMap > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > sender: Debugger>>selectedMessage > pc: 44 > stackp: 0 > method: a CompiledMethod(1253: InstructionStream>>debuggerMap) > closureOrNil: nil > receiver: CompiledMethod>>methodNode > > Debugger>>selectedMessage > Receiver: a Debugger > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... > contents: nil > currentCompiledMethod: nil > contentsSymbol: #source > interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... > interruptedController: nil > contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... > contextStackTop: CompiledMethod(Object)>>error: > contextStackIndex: 17 > contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... > receiverInspector: an Inspector > contextVariablesInspector: a ContextVariablesInspector > externalInterrupt: false > proceedValue: nil > selectingPC: true > debuggerMap: nil > savedCursor: ((CursorWithMask > extent: 16@16 > depth: 1 > fromArray: #( > 2r0 > 2...etc... > isolationHead: nil > failedProject: nil > errorWasInUIProcess: true > labelString: nil > > Debugger>>contextStackIndex:oldContextWas: > Receiver: a Debugger > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... > contents: nil > currentCompiledMethod: nil > contentsSymbol: #source > interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... > interruptedController: nil > contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... > contextStackTop: CompiledMethod(Object)>>error: > contextStackIndex: 17 > contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... > receiverInspector: an Inspector > contextVariablesInspector: a ContextVariablesInspector > externalInterrupt: false > proceedValue: nil > selectingPC: true > debuggerMap: nil > savedCursor: ((CursorWithMask > extent: 16@16 > depth: 1 > fromArray: #( > 2r0 > 2...etc... > isolationHead: nil > failedProject: nil > errorWasInUIProcess: true > labelString: nil > > Debugger>>toggleContextStackIndex: > Receiver: a Debugger > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... > contents: nil > currentCompiledMethod: nil > contentsSymbol: #source > interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... > interruptedController: nil > contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... > contextStackTop: CompiledMethod(Object)>>error: > contextStackIndex: 17 > contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... > receiverInspector: an Inspector > contextVariablesInspector: a ContextVariablesInspector > externalInterrupt: false > proceedValue: nil > selectingPC: true > debuggerMap: nil > savedCursor: ((CursorWithMask > extent: 16@16 > depth: 1 > fromArray: #( > 2r0 > 2...etc... > isolationHead: nil > failedProject: nil > errorWasInUIProcess: true > labelString: nil > > PluggableListMorph>>changeModelSelection: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > PluggableListMorph>>mouseUp: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > PluggableListMorph(Morph)>>handleMouseUp: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > MouseButtonEvent>>sentTo: > Receiver: [206@151 mouseUp 103652 nil] > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > timeStamp: 103652 > source: a HandMorph(3216) > windowIndex: nil > type: #mouseUp > buttons: 0 > position: 206@151 > handler: nil > wasHandled: true > whichButton: 4 > > PluggableListMorph(Morph)>>handleEvent: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > MorphicEventDispatcher>>dispatchDefault:with: > Receiver: a MorphicEventDispatcher > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > lastType: #mouseUp > lastDispatch: #dispatchDefault:with: > > MorphicEventDispatcher>>dispatchEvent:with: > Receiver: a MorphicEventDispatcher > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > lastType: #mouseUp > lastDispatch: #dispatchDefault:with: > > PluggableListMorph(Morph)>>processEvent:using: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > PluggableListMorph(Morph)>>processEvent: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > PluggableListMorph>>handleFocusEvent: > Receiver: a PluggableListMorph(1072) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 18@31 corner: 608@201 > owner: a SystemWindow(3468) > submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) > fullBounds: nil > color: Color white > extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... > borderWidth: 1 > borderColor: (Color r: 0.667 g: 0.667 b: 0.667) > model: a Debugger > slotName: nil > open: false > scrollBar: a ScrollBar(3011) > scroller: a TransformMorph(3775) > retractableScrollBar: false > scrollBarOnLeft: false > getMenuSelector: #contextStackMenu:shifted: > getMenuTitleSelector: #messageListSelectorTitle > hasFocus: true > hScrollBar: a ScrollBar(2791) > list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... > getListSelector: #contextStackList > getListSizeSelector: nil > getListElementSelector: nil > getIndexSelector: #contextStackIndex > setIndexSelector: #toggleContextStackIndex: > keystrokeActionSelector: #contextStackKey:from: > autoDeselect: true > lastKeystrokeTime: 0 > lastKeystrokes: '' > doubleClickSelector: nil > handlesBasicKeys: nil > potentialDropRow: nil > listMorph: a LazyListMorph(1316) > hScrollRangeCache: nil > > [] in HandMorph>>sendFocusEvent:to:clear: > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > [] in PasteUpMorph>>becomeActiveDuring: > Receiver: a PasteUpMorph(1622) [world] > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 0@0 corner: 1102@896 > owner: nil > submorphs: an Array(a TaskbarMorph(3095) a SystemProgressMorph(3746) a PreDebug...etc... > fullBounds: nil > color: (Color r: 0.97 g: 0.98 b: 1.0) > extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... > borderWidth: 0 > borderColor: (Color r: 0.03 g: 0.02 b: 0.0) > presenter: a Presenter (1246) > model: a MorphicModel(1926) > cursor: 1 > padding: 3 > backgroundMorph: nil > isPartsBin: nil > autoLineLayout: false > indicateCursor: nil > resizeToFit: nil > wantsMouseOverHalos: nil > worldState: a WorldState > griddingOn: nil > > BlockClosure>>on:do: > Receiver: [closure] in PasteUpMorph>>becomeActiveDuring: > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > outerContext: PasteUpMorph>>becomeActiveDuring: > startpc: 111 > numArgs: 0 > > PasteUpMorph>>becomeActiveDuring: > Receiver: a PasteUpMorph(1622) [world] > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 0@0 corner: 1102@896 > owner: nil > submorphs: an Array(a TaskbarMorph(3095) a SystemProgressMorph(3746) a PreDebug...etc... > fullBounds: nil > color: (Color r: 0.97 g: 0.98 b: 1.0) > extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... > borderWidth: 0 > borderColor: (Color r: 0.03 g: 0.02 b: 0.0) > presenter: a Presenter (1246) > model: a MorphicModel(1926) > cursor: 1 > padding: 3 > backgroundMorph: nil > isPartsBin: nil > autoLineLayout: false > indicateCursor: nil > resizeToFit: nil > wantsMouseOverHalos: nil > worldState: a WorldState > griddingOn: nil > > HandMorph>>sendFocusEvent:to:clear: > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > HandMorph>>sendEvent:focus:clear: > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > HandMorph>>sendMouseEvent: > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > HandMorph>>handleEvent: > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > HandMorph>>processEvents > Receiver: a HandMorph(3216) > Arguments and temporary variables: > <<error during printing> > Receiver's instance variables: > bounds: 352@84 corner: 368@100 > owner: a PasteUpMorph(1622) [world] > submorphs: #() > fullBounds: 352@84 corner: 368@100 > color: Color blue > extension: a MorphExtension (539) [eventHandler = an EventHandler] > mouseFocus: nil > keyboardFocus: a PluggableButtonMorph(1282) > eventListeners: nil > mouseListeners: nil > keyboardListeners: nil > mouseClickState: nil > mouseOverHandler: a MouseOverHandler > lastMouseEvent: [352@84 mouseUp 109252 nil] > targetOffset: 40@23 > damageRecorder: a DamageRecorder > cacheCanvas: nil > cachedCanvasHasHoles: true > temporaryCursor: nil > temporaryCursorOffset: nil > hardwareCursor: nil > hasChanged: true > savedPatch: nil > userInitials: '' > lastEventBuffer: #(1 109252 352 84 0 0 0 1) > lastKeyScanCode: 2 > combinedChar: nil > > > --- The full stack --- > Array(Object)>>error: > Array(Object)>>errorSubscriptBounds: > Array(Object)>>at: > Decompiler>>pushTemporaryVariable: > Decompiler(InstructionStream)>>interpretNextInstructionFor: > Decompiler>>interpretNextInstructionFor: > Decompiler>>statementsTo: > Decompiler>>blockTo: > Decompiler>>decompile:in:method:using: > Decompiler>>decompile:in:method: > CompiledMethod>>getSourceFor:in: > CompiledMethod>>methodNode > [] in DebuggerMethodMap class>>forMethod: > WeakIdentityKeyDictionary(Dictionary)>>at:ifAbsent: > DebuggerMethodMap class>>forMethod: > CompiledMethod>>debuggerMap > MethodContext(InstructionStream)>>debuggerMap > Debugger>>selectedMessage > Debugger>>contextStackIndex:oldContextWas: > Debugger>>toggleContextStackIndex: > PluggableListMorph>>changeModelSelection: > PluggableListMorph>>mouseUp: > PluggableListMorph(Morph)>>handleMouseUp: > MouseButtonEvent>>sentTo: > PluggableListMorph(Morph)>>handleEvent: > MorphicEventDispatcher>>dispatchDefault:with: > MorphicEventDispatcher>>dispatchEvent:with: > PluggableListMorph(Morph)>>processEvent:using: > PluggableListMorph(Morph)>>processEvent: > PluggableListMorph>>handleFocusEvent: > [] in HandMorph>>sendFocusEvent:to:clear: > [] in PasteUpMorph>>becomeActiveDuring: > BlockClosure>>on:do: > PasteUpMorph>>becomeActiveDuring: > HandMorph>>sendFocusEvent:to:clear: > HandMorph>>sendEvent:focus:clear: > HandMorph>>sendMouseEvent: > HandMorph>>handleEvent: > HandMorph>>processEvents > - - - - - - - - - - - - - - - > - - - - - - - - - - - - - - - - - - > [] in WorldState>>doOneCycleNowFor: > Array(SequenceableCollection)>>do: > WorldState>>handsDo: > WorldState>>doOneCycleNowFor: > WorldState>>doOneCycleFor: > PasteUpMorph>>doOneCycle > [] in Project class>>spawnNewProcess > [] in BlockClosure>>newProcess > ------------------------------------------------------------ > > > > -- > =========================================================================== > John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 > Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com > =========================================================================== > > >

Dec. 6, 2009

Re: [Pharo-project] StandardWindow Layout Help

by HernÃ¡n Morales Durand

Hi Rob, Besides the StÃ©phane's example, you will find attached a cool Morphic example to start experimenting with Layouts. Possibly it's non-functional because of some Nebraska dependencies with the Sound package (I don't know the status of Sound in Pharo) but it would be sufficient for your purposes. To open it: ChatNotes new openAsMorph. and play with the implementation of #openAsMorph Cheers, HernÃ¡n 2009/12/5 Rob Rothwell <r.j.rothwell(a)gmail.com>: > I just can't seem to figure this out from the UITheme examples. > Can anyone give me some general pointers on building a plain old Window? Â I > know there isn't a UI builder, but how do you control the placement of the > child controls you create in the window? > For example, the following will create a StandardWindow and add a button to > it (in the upper left corner). Â Do you control placement [of the button] > with LayoutFrame? Â How do you use LayoutFrame? > | win btnOk | > win := StandardWindow new. > btnOk := win newButtonFor: nil action: #ok getEnabled: nil label: 'Ok' help: > nil. > winÂ addMorph: btnOk . > win themeChanged;Â openInWorld. > Thank you. Â I am finally trying to understand how to build some typical > applications without a GUI builder... > Take care, > Rob > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Dec. 6, 2009

[Pharo-project] Usability with too many Deprecation Warnings dialogs (Settings framework)

by HernÃ¡n Morales Durand

I'm using latest Pharo-Core with OmniBrowser and it's unusable with so many warning dialogs raising all the time in every operation : Opening an OB browser for example requires 6 Proceed clicks from an user with messages like this one: "The method Preferences class standardButtonFont has been deprecated. now accessible via the new setting framework " To modify this setting you could change the default to false in Deprecation initialize: Preferences addBooleanPreference: #raiseDeprecatedWarnings category: #general "programming?" default: false balloonHelp: 'If enabled, use of a deprecated API raises a Deprecated warning.'. but this would modify the Deprecation behavior for all deprecations (not just those related with the Preferences-Settings migration). To me it sounds like one should to consider two kinds of deprecations: -Those which need to raise a dialogs -Those which doesn't want to because it would affect usability (like right now in Pharo with OB). I've just attached a specific message for deprecations requiring active interaction for the user (#deprecatedWithPopUp). This addition doesn't require to modify all the current #deprecated: senders, but you should explicit modify with the #deprecatedWithPopUp variant in those places you consider of enough importance to keep the user informed. The Transcript notification behavior keeps intact. Feel free to change it anyway you want :) Cheers, HernÃ¡n

Dec. 6, 2009

Re: [Pharo-project] squeak VM 5.0

by John M McIntosh

> > hacking a bit more gets you to > <PastedGraphic-1.tiff> In a few spare moments as I await the Arctic front to bury us in snow... I consider the return: error has to be related to the move from BlockContext to BlockClosure so in object:allFieldsWithIndex:collect: I added object class = BlockClosure ifTrue: [(object instVarAt: 3) ifNotNil: ["May need to adjust PC and startPC if changing wordSize..." results at: 2 put: (block value: (object instVarAt: 2)+(self pcDeltaForMethod: object method) value: 2)]]. mmm try that get this more interesting error THERE_BE_DRAGONS_HERE Unwind error during termination 5 December 2009 6:13:31 pm VM: Mac OS - intel - 1062 - Squeak3.8.1 of '28 Aug 2006' [latest update: #6747] 9.0 Image: PharoCore1.0rc1 [Latest update: #10496] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Volumes/px2/business/SqueakiPhone/SqueakObjCBasedForOSXAndIPhone/SqueakNoOGLIPhoneOSX/testingImages/64bittracingchangesets Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /foobar/tooBar/forSqueak/bogus/ Array(Object)>>error: Receiver: #() Arguments and temporary variables: <<error during printing> Receiver's instance variables: #() Array(Object)>>errorSubscriptBounds: Receiver: #() Arguments and temporary variables: <<error during printing> Receiver's instance variables: #() Array(Object)>>at: Receiver: #() Arguments and temporary variables: <<error during printing> Receiver's instance variables: #() Decompiler>>pushTemporaryVariable: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler(InstructionStream)>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler>>interpretNextInstructionFor: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler>>statementsTo: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler>>blockTo: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler>>decompile:in:method:using: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 Decompiler>>decompile:in:method: Receiver: a Decompiler Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: a CompiledMethod(1253: InstructionStream>>debuggerMap) pc: 29 constructor: {a DecompilerConstructor} method: a CompiledMethod(1253: InstructionStream>>debuggerMap) instVars: an Array({sender} {pc}) tempVars: #() constTable: an Array({self} {true} {false} {nil} {-1} {0} {1} {2}) stack: an OrderedCollection({pc} {sender debuggerMap (sender blockCopy: sender...etc... statements: an OrderedCollection() lastPc: 28 exit: nil caseExits: an OrderedCollection() lastJumpPc: nil lastReturnPc: nil limit: 45 hasValue: nil blockStackBase: 0 numLocalTemps: 0 blockStartsToTempVars: nil tempVarCount: 0 CompiledMethod>>getSourceFor:in: Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) Arguments and temporary variables: <<error during printing> Receiver's instance variables: a CompiledMethod(1253: InstructionStream>>debuggerMap) CompiledMethod>>methodNode Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) Arguments and temporary variables: <<error during printing> Receiver's instance variables: a CompiledMethod(1253: InstructionStream>>debuggerMap) [] in DebuggerMethodMap class>>forMethod: Receiver: DebuggerMethodMap Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#abstractSourceMap->a CompiledMethod(3330: Debug...etc... format: 140 instanceVariables: #('timestamp' 'methodReference' 'methodNode' 'abstractSource...etc... organization: ('accessing' markRecentlyUsed method namedTempAt:in: namedTempAt:...etc... subclasses: {DebuggerMethodMapForBlueBookMethods. DebuggerMethodMapForClosureCo...etc... name: #DebuggerMethodMap classPool: a Dictionary(#MapCache->a WeakIdentityKeyDictionary(a CompiledMethod...etc... sharedPools: nil environment: Smalltalk category: #'Tools-Debugger' traitComposition: nil localSelectors: nil WeakIdentityKeyDictionary(Dictionary)>>at:ifAbsent: Receiver: a WeakIdentityKeyDictionary(a CompiledMethod(1410: HandMorph>>handleEvent:)->a DebuggerMet...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: tally: 16 array: an Array(a CompiledMethod(3440: Morph>>processEvent:)->a DebuggerMethodM...etc... DebuggerMethodMap class>>forMethod: Receiver: DebuggerMethodMap Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#abstractSourceMap->a CompiledMethod(3330: Debug...etc... format: 140 instanceVariables: #('timestamp' 'methodReference' 'methodNode' 'abstractSource...etc... organization: ('accessing' markRecentlyUsed method namedTempAt:in: namedTempAt:...etc... subclasses: {DebuggerMethodMapForBlueBookMethods. DebuggerMethodMapForClosureCo...etc... name: #DebuggerMethodMap classPool: a Dictionary(#MapCache->a WeakIdentityKeyDictionary(a CompiledMethod...etc... sharedPools: nil environment: Smalltalk category: #'Tools-Debugger' traitComposition: nil localSelectors: nil CompiledMethod>>debuggerMap Receiver: a CompiledMethod(1253: InstructionStream>>debuggerMap) Arguments and temporary variables: <<error during printing> Receiver's instance variables: a CompiledMethod(1253: InstructionStream>>debuggerMap) MethodContext(InstructionStream)>>debuggerMap Receiver: MethodContext(InstructionStream)>>debuggerMap Arguments and temporary variables: <<error during printing> Receiver's instance variables: sender: Debugger>>selectedMessage pc: 44 stackp: 0 method: a CompiledMethod(1253: InstructionStream>>debuggerMap) closureOrNil: nil receiver: CompiledMethod>>methodNode Debugger>>selectedMessage Receiver: a Debugger Arguments and temporary variables: <<error during printing> Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... contents: nil currentCompiledMethod: nil contentsSymbol: #source interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... interruptedController: nil contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... contextStackTop: CompiledMethod(Object)>>error: contextStackIndex: 17 contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... receiverInspector: an Inspector contextVariablesInspector: a ContextVariablesInspector externalInterrupt: false proceedValue: nil selectingPC: true debuggerMap: nil savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil Debugger>>contextStackIndex:oldContextWas: Receiver: a Debugger Arguments and temporary variables: <<error during printing> Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... contents: nil currentCompiledMethod: nil contentsSymbol: #source interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... interruptedController: nil contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... contextStackTop: CompiledMethod(Object)>>error: contextStackIndex: 17 contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... receiverInspector: an Inspector contextVariablesInspector: a ContextVariablesInspector externalInterrupt: false proceedValue: nil selectingPC: true debuggerMap: nil savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil Debugger>>toggleContextStackIndex: Receiver: a Debugger Arguments and temporary variables: <<error during printing> Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(3468) a PluggableListMorph(1072) a...etc... contents: nil currentCompiledMethod: nil contentsSymbol: #source interruptedProcess: a Process in Debugger class>>openOn:context:label:contents:...etc... interruptedController: nil contextStack: an OrderedCollection(CompiledMethod(Object)>>error: CompiledMetho...etc... contextStackTop: CompiledMethod(Object)>>error: contextStackIndex: 17 contextStackList: an OrderedCollection('CompiledMethod(Object)>>error:' 'Compil...etc... receiverInspector: an Inspector contextVariablesInspector: a ContextVariablesInspector externalInterrupt: false proceedValue: nil selectingPC: true debuggerMap: nil savedCursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2...etc... isolationHead: nil failedProject: nil errorWasInUIProcess: true labelString: nil PluggableListMorph>>changeModelSelection: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil PluggableListMorph>>mouseUp: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil PluggableListMorph(Morph)>>handleMouseUp: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil MouseButtonEvent>>sentTo: Receiver: [206@151 mouseUp 103652 nil] Arguments and temporary variables: <<error during printing> Receiver's instance variables: timeStamp: 103652 source: a HandMorph(3216) windowIndex: nil type: #mouseUp buttons: 0 position: 206@151 handler: nil wasHandled: true whichButton: 4 PluggableListMorph(Morph)>>handleEvent: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: <<error during printing> Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: <<error during printing> Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: PluggableListMorph(Morph)>>processEvent:using: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil PluggableListMorph(Morph)>>processEvent: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil PluggableListMorph>>handleFocusEvent: Receiver: a PluggableListMorph(1072) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 18@31 corner: 608@201 owner: a SystemWindow(3468) submorphs: an Array(a ScrollBar(3011) a TransformMorph(3775)) fullBounds: nil color: Color white extension: a MorphExtension (973) [locked] [other: (layoutFrame -> a LayoutFr...etc... borderWidth: 1 borderColor: (Color r: 0.667 g: 0.667 b: 0.667) model: a Debugger slotName: nil open: false scrollBar: a ScrollBar(3011) scroller: a TransformMorph(3775) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contextStackMenu:shifted: getMenuTitleSelector: #messageListSelectorTitle hasFocus: true hScrollBar: a ScrollBar(2791) list: an OrderedCollection('CompiledMethod(Object)>>error:' 'CompiledMethod(Obj...etc... getListSelector: #contextStackList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #contextStackIndex setIndexSelector: #toggleContextStackIndex: keystrokeActionSelector: #contextStackKey:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1316) hScrollRangeCache: nil [] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil [] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 0@0 corner: 1102@896 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemProgressMorph(3746) a PreDebug...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) presenter: a Presenter (1246) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil wantsMouseOverHalos: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [closure] in PasteUpMorph>>becomeActiveDuring: Arguments and temporary variables: <<error during printing> Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 111 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 0@0 corner: 1102@896 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemProgressMorph(3746) a PreDebug...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) presenter: a Presenter (1246) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil wantsMouseOverHalos: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil HandMorph>>sendMouseEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 352@84 corner: 368@100 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 352@84 corner: 368@100 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a PluggableButtonMorph(1282) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [352@84 mouseUp 109252 nil] targetOffset: 40@23 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 109252 352 84 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Decompiler>>pushTemporaryVariable: Decompiler(InstructionStream)>>interpretNextInstructionFor: Decompiler>>interpretNextInstructionFor: Decompiler>>statementsTo: Decompiler>>blockTo: Decompiler>>decompile:in:method:using: Decompiler>>decompile:in:method: CompiledMethod>>getSourceFor:in: CompiledMethod>>methodNode [] in DebuggerMethodMap class>>forMethod: WeakIdentityKeyDictionary(Dictionary)>>at:ifAbsent: DebuggerMethodMap class>>forMethod: CompiledMethod>>debuggerMap MethodContext(InstructionStream)>>debuggerMap Debugger>>selectedMessage Debugger>>contextStackIndex:oldContextWas: Debugger>>toggleContextStackIndex: PluggableListMorph>>changeModelSelection: PluggableListMorph>>mouseUp: PluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableListMorph(Morph)>>processEvent:using: PluggableListMorph(Morph)>>processEvent: PluggableListMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess ------------------------------------------------------------ -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

Dec. 6, 2009

[Pharo-project] AST-Core for Pharo and Squeak?

by HernÃ¡n Morales Durand

Hi guys, I've noticed a different behavior relating the RBParseTreeSearcher between Pharo and Squeak, using AST-Core-lr.33, the following code: | rbMethodNode | rbMethodNode := RBParser parseMethod: 'test [ ]'. ( RBParseTreeSearcher new matches: '`{:node | node isVariable }' do:[: aNode : answer | answer add: aNode; yourself ] ) executeTree: rbMethodNode initialAnswer: Set new. gives an empty Set in Pharo-Core (#11072) and a Set(RBSequenceNode()) in Squeak 3.10.2 Does anybody know if I should use a different AST-Core version for Squeak? An alternative repository maybe? HernÃ¡n

Dec. 6, 2009

[Pharo-project] mouse clicks not registered

by Sean Allen

I installed the latest pharo vm and the 10492-rc1dev09.11.1 image on a ubuntu 8. fire up the image and it doesn't respond to mouse clicks. took a work setup from xubuntu, copied it over, same issue. this is on a 64 bit machine. any pointers on what might be the issue?

Dec. 6, 2009

Re: [Pharo-project] [Moose-dev] Re: for mondrian designers

by Alexandre Bergel

Thanks John for diving into it, Alexandre On 5 Dec 2009, at 05:52, John M McIntosh wrote: > > On 2009-12-04, at 11:54 AM, Alexandre Bergel wrote: > >> Thanks John! >> >> I did a "RomeDemo drawCar" >> Here is the log: >> >> >> tryLoading /Users/alexandrebergel/Desktop/T/Smalltalk/Squeak >> 4.2.1beta1U.app/Contents/Resources/RomePlugin.bundle/Contents/MacOS/ >> RomePlugin >> ioFindExternalFunctionIn(getModuleName, 2339392) >> ioFindExternalFunctionIn(setInterpreter, 2339392) >> ioFindExternalFunctionIn(initialiseModule, 2339392) >> ioFindExternalFunctionIn(primitivePluginVersion, 2339392) >> ioFindExternalFunctionIn(primitiveCreateFormHandle, 2339392) >> tryLoading /Users/alexandrebergel/Desktop/T/Smalltalk/Squeak >> 4.2.1beta1U.app/Contents/Resources/SurfacePlugin.bundle/Contents/ >> MacOS/SurfacePlugin >> tryLoading /Users/alexandrebergel/Desktop/T/Smalltalk/Squeak >> 4.2.1beta1U.app/Contents/Resources/SurfacePlugin >> tryLoading /Users/alexandrebergel/Desktop/T/Smalltalk/Plugins/ >> SurfacePlugin.bundle/Contents/MacOS/SurfacePlugin >> tryLoading /Users/alexandrebergel/Desktop/T/Smalltalk/Plugins/ >> SurfacePlugin >> ioFindExternalFunctionIn(primitiveOpen, 2339392) >> Squeak-Rome: canvas oop invalid! > > It does load the plugin, so it's not a problem finding it, loading > it and calling primitivePluginVersion which > checks the rome version then primitiveCreateFormHandle to create a > form handle, then fails in primitiveOpen > > EXPORT(sqInt) primitiveOpen(void) { > sqInt handleOop; > sqInt contextIndex; > sqInt canvasOop; > > canvasOop = interpreterProxy->stackValue(0); > if (interpreterProxy->failed()) { > return null; > } > contextIndex = createContextFor(canvasOop); > if (!(interpreterProxy->failed())) { > handleOop = interpreterProxy->integerObjectOf(contextIndex); > interpreterProxy->storePointerofObjectwithValue(CanvasHandleIndex, > canvasOop, handleOop); > } > if (interpreterProxy->failed()) { > return null; > } > return null; > } > > > static sqInt createContextFor(sqInt canvasOop) { > cairo_surface_t* targetSurface; > sqInt contextIndex; > sqInt targetOop; > cairo_t* context; > sqInt i; > sqInt targetID; > > if ((interpreterProxy->slotSizeOf(canvasOop)) < CanvasInstSize) { > fail("canvas oop invalid"); > return null; > } > > where > > #define CanvasInstSize 13 > > You should check to see what primitiveOpen gets passed > > > -- > = > = > = > = > = > ====================================================================== > John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: > squeaker68882 > Corporate Smalltalk Consulting Ltd. http:// > www.smalltalkconsulting.com > = > = > = > = > = > ====================================================================== > > > > > -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Dec. 6, 2009

Re: [Pharo-project] about sluggines on linux

by John M McIntosh

On 2009-12-05, at 3:32 PM, Arturo Zambrano wrote: > '215851602 bytecodes/sec; 6194336 sends/sec' > > Machine: Linux donner2 2.6.28-tuxonice-r10 #8 SMP Sun Nov 8 09:50:51 ART 2009 x86_64 AMD Turion(tm) 64 X2 TL-60 AuthenticAMD GNU/Linux. 2GHz > That speed is 1/2 of my 2.33Ghz intel core 2 Duo '533333333 bytecodes/sec; 12157397 sends/sec' > > Try doing > Transcript cr;show: > [Display fillWhite. 1 to: 4 do: [:i | Pen new color: i; turn: 90*i; dragon: 14] ] timeToRun. > Display restore. > > report back how big the number is printed to the transcript > > 1897 This number is fine -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

Dec. 6, 2009

[Pharo-project] Doodle for Christmas Smalltalk Parties

by Mariano Martinez Peck

Ok, here I created the event: http://www.doodle.com/mn4e6anmskwpd5s7 I put from 18 of December until 4 of January, as Stef suggested. Now, you can subscribe yourself and put the days you can. Then, depending of the people subscribed for each day, we decide which days to do it. Best, Mariano

Dec. 5, 2009