October 2009 - Pharo-dev - lists.pharo.org

[Pharo-project] Traits composition question
by Igor Stasenko Oct. 27, 2009

Oct. 27, 2009

Suppose i having a trait grouping Trait named: #TraitGroup uses: TraitA + TraitB + .... TraitN category: 'foo' and suppose i want to use TraitGroup in one of my classes, but excluding one of the traits in the list above.. i.e. something like: Object subclass: #Myclass uses: TraitGroup - TraitA .. but the above code don't seem to work.. Any clues, how i can do that? Is such kind of composition possible at all? -- Best regards, Igor Stasenko AKA sig.

5 10

[Pharo-project] Broken "Recover Lost Changes"
by John Toohey Oct. 26, 2009

Oct. 26, 2009

I have a 4 day old image that just froze. After restarting, I tried to recover the code changes since I saved my image yesterday, but the list of changes in the tool are an unordered list going back to February of this year. Even old code of mine from that time was in the list. After about an hour I managed to manually select the changes I've made since yesterday, and file them out. When I try to file them back in, I get an error from the debugger, and cannot continue. Anyone know what I can do to recover my source, or point me in the right direction to recover from this. This is the stacktrace from the debugger :- From: jt(a)parspro.com To: Pharo-project(a)lists.gforge.inria.fr Subject: [BUG]UndefinedObject(Object)>>doesNotUnderstand: #self here insert explanation of what you were doing, suspect changes you've made and so forth. 23 October 2009 4:19:05 pm VM: Mac OS - intel - 1058 - Squeak3.8.1 of '28 Aug 2006' [latest update: #6747] Squeak VM 4.1.1b2 Image: Pharo1.0beta [Latest update: #10477] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/jpt/Dev/repos/Dev-Images/PharoCore-1.0-10477-BETA Trusted Dir /foobar/tooBar/forSqueak/bogus Untrusted Dir /Users/jpt/Library/Preferences/Squeak/Internet/My Squeak UndefinedObject(Object)>>doesNotUnderstand: #self Receiver: nil Arguments and temporary variables: aMessage: self exception: MessageNotUnderstood: receiver of "self" is nil resumeValue: nil Receiver's instance variables: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'publish self status: #Opened ' aContext: nil receiver: nil aRequestor: nil failBlock: [closure] in Compiler class>>evaluate:for:notifying:logged: logFlag: false methodNode: DoIt ^ publish self status: #Opened method: a CompiledMethod(982: UndefinedObject>>DoIt) value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream 'publish self status: #Opened ' requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'publish self status: #Opened ' anObject: nil aController: nil logFlag: false Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->a Comp...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('deprecated' format:in:notifying:contentsSymbol:) ('error handli...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: Smalltalk category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'publish self status: #Opened ' anObject: nil logFlag: false Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->a Comp...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('deprecated' format:in:notifying:contentsSymbol:) ('error handli...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: Smalltalk category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate: Receiver: Compiler Arguments and temporary variables: textOrString: 'publish self status: #Opened ' Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->a Comp...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('deprecated' format:in:notifying:contentsSymbol:) ('error handli...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: Smalltalk category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [] in ChangeRecord>>fileIn Receiver: a ChangeRecord Arguments and temporary variables: <<error during printing> Receiver's instance variables: file: MultiByteFileStream: '/Users/jpt/Dev/repos/Dev-Images/PharoCore-1.0-10477...etc... position: 29712 type: #doIt class: nil category: nil meta: nil stamp: nil BlockClosure>>ensure: Receiver: [closure] in ChangeRecord>>fileIn Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ChangeRecord>>fileIn startpc: 107 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r0 2r0 2r10000000010...etc... Arguments and temporary variables: aBlock: [closure] in ChangeRecord>>fileIn oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1) ChangeRecord>>fileIn Receiver: a ChangeRecord Arguments and temporary variables: <<error during printing> Receiver's instance variables: file: MultiByteFileStream: '/Users/jpt/Dev/repos/Dev-Images/PharoCore-1.0-10477...etc... position: 29712 type: #doIt class: nil category: nil meta: nil stamp: nil [] in ChangeList>>fileInSelections Receiver: a ChangeList Arguments and temporary variables: any: true selected: a ChangeRecord item: #(true) Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(252) a PluggableListMorphOfMany(33...etc... contents: '' currentCompiledMethod: nil contentsSymbol: #showDiffs changeList: an OrderedCollection(a ChangeRecord a ChangeRecord a ChangeRecord a...etc... list: an OrderedCollection('do it: ''From Pharo1.0beta of 16...ber 2009 at 3:57...etc... listIndex: 0 listSelections: #(true true true true true true true true true true true true t...etc... file: MultiByteFileStream: '/Users/jpt/Dev/repos/Dev-Images/PharoCore-1.0-10477...etc... lostMethodPointer: nil showsVersions: nil Array(SequenceableCollection)>>with:do: Receiver: #(true true true true true true true true true true true true true true true true true tru...etc... Arguments and temporary variables: otherCollection: an OrderedCollection(a ChangeRecord a ChangeRecord a ChangeRec...etc... twoArgBlock: [closure] in ChangeList>>fileInSelections index: 171 indexLimiT: 274 Receiver's instance variables: #(true true true true true true true true true true true true true true true true true tru...etc... ChangeList>>fileInSelections Receiver: a ChangeList Arguments and temporary variables: any: #(true) Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(252) a PluggableListMorphOfMany(33...etc... contents: '' currentCompiledMethod: nil contentsSymbol: #showDiffs changeList: an OrderedCollection(a ChangeRecord a ChangeRecord a ChangeRecord a...etc... list: an OrderedCollection('do it: ''From Pharo1.0beta of 16...ber 2009 at 3:57...etc... listIndex: 0 listSelections: #(true true true true true true true true true true true true t...etc... file: MultiByteFileStream: '/Users/jpt/Dev/repos/Dev-Images/PharoCore-1.0-10477...etc... lostMethodPointer: nil showsVersions: nil PluggableButtonMorph>>performAction Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil [] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(786) a PluggableButtonMorph(3485) a PluggableButtonMorph(5...etc... Arguments and temporary variables: aBlock: [closure] in PluggableButtonMorph>>mouseUp: index: 4 indexLimiT: 4 Receiver's instance variables: an Array(a PluggableButtonMorph(786) a PluggableButtonMorph(3485) a PluggableButtonMorph(5...etc... PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: evt: [1518@375 mouseUp 3690378 nil] all: an Array(a PluggableButtonMorph(786) a PluggableButtonMorph(3485) a Plugga...etc... Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil MouseButtonEvent>>sentTo: Receiver: [1518@375 mouseUp 3690378 nil] Arguments and temporary variables: anObject: a PluggableButtonMorph(824) Receiver's instance variables: timeStamp: 3690378 source: a HandMorph(3216) windowIndex: nil type: #mouseUp buttons: 0 position: 1518@375 handler: nil wasHandled: true whichButton: 4 PluggableButtonMorph(Morph)>>handleEvent: Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil PluggableButtonMorph(Morph)>>handleFocusEvent: Receiver: a PluggableButtonMorph(824) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] Receiver's instance variables: bounds: 1408@359 corner: 1749@383 owner: an AlignmentMorph(3699) submorphs: an Array(an AlignmentMorph(921)) fullBounds: 1408@359 corner: 1749@383 color: (Color r: 0.827 g: 0.827 b: 0.827) extension: a MorphExtension (1404) [balloonText] [other: (layoutPolicy -> a T...etc... borderWidth: 0 borderColor: Color transparent model: a ChangeList label: 'file in selections' getStateSelector: nil actionSelector: #fileInSelections getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: true triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil [] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 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: 1920@1178 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(3356) a SystemWindow(25...etc... fullBounds: nil color: Color gray extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.5 g: 0.5 b: 0.5) presenter: a Presenter (1246) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil wantsMouseOverHalos: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [closure] in PasteUpMorph>>becomeActiveDuring: Arguments and temporary variables: exception: Error handlerAction: [closure] in PasteUpMorph>>becomeActiveDuring: handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: aBlock: [closure] in HandMorph>>sendFocusEvent:to:clear: priorWorld: a PasteUpMorph(1622) [world] priorHand: a HandMorph(3216) priorEvent: [1518@375 mouseOver red nil nil] Receiver's instance variables: bounds: 0@0 corner: 1920@1178 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(3356) a SystemWindow(25...etc... fullBounds: nil color: Color gray extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.5 g: 0.5 b: 0.5) 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: anEvent: [1518@375 mouseUp 3690378 nil] focusHolder: a PluggableButtonMorph(824) aBlock: [closure] in HandMorph>>sendMouseEvent: w: a PasteUpMorph(1622) [world] result: #(nil) Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] focusHolder: a PluggableButtonMorph(824) aBlock: [closure] in HandMorph>>sendMouseEvent: result: nil Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil HandMorph>>sendMouseEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [1518@375 mouseUp 3690378 nil] evt: [1518@375 mouseUp 3690378 nil] ofs: nil Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(3216) Arguments and temporary variables: evt: [1518@375 mouseUp 3690378 nil] evtBuf: #(1 3690378 1518 375 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: 1661@782 corner: 1677@798 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 1661@782 corner: 1677@798 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [1661@782 mouseUp 3788444 nil] targetOffset: 99@6 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 3788444 1661 782 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil [] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: <<error during printing> Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 1920@1178 canvas: a FormCanvas on: DisplayScreen(1920x1178x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#togglePrettyDiffing 247))(3P...etc... lastStepTime: 3788426 lastStepMessage: nil lastCycleTime: 3788446 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 3788426 Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(3216)) Arguments and temporary variables: aBlock: [closure] in WorldState>>doOneCycleNowFor: index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(3216)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [closure] in WorldState>>doOneCycleNowFor: Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 1920@1178 canvas: a FormCanvas on: DisplayScreen(1920x1178x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#togglePrettyDiffing 247))(3P...etc... lastStepTime: 3788426 lastStepMessage: nil lastCycleTime: 3788446 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 3788426 WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(1622) [world] Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 1920@1178 canvas: a FormCanvas on: DisplayScreen(1920x1178x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#togglePrettyDiffing 247))(3P...etc... lastStepTime: 3788426 lastStepMessage: nil lastCycleTime: 3788446 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 3788426 WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(1622) [world] Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 1920@1178 canvas: a FormCanvas on: DisplayScreen(1920x1178x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#togglePrettyDiffing 247))(3P...etc... lastStepTime: 3788426 lastStepMessage: nil lastCycleTime: 3788446 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 3788426 PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 1920@1178 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(3356) a SystemWindow(25...etc... fullBounds: nil color: Color gray extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.5 g: 0.5 b: 0.5) 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 [] in Project class>>spawnNewProcess Receiver: Project Arguments and temporary variables: Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(size 167) format: 172 instanceVariables: #('world' 'changeSet' 'transcript' 'parentProject' 'previous...etc... organization: ('*Polymorph-Widgets' assureTaskbarPresenceMatchesPreference crea...etc... subclasses: nil name: #Project classPool: a Dictionary(#AllProjects->an OrderedCollection(a Project(Juliet)) #...etc... sharedPools: nil environment: Smalltalk category: #'System-Support' traitComposition: {} localSelectors: nil [] in BlockClosure>>newProcess Receiver: [closure] in Project class>>spawnNewProcess Arguments and temporary variables: Receiver's instance variables: outerContext: Project class>>spawnNewProcess startpc: 53 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #self UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate: [] in ChangeRecord>>fileIn BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ChangeRecord>>fileIn [] in ChangeList>>fileInSelections Array(SequenceableCollection)>>with:do: ChangeList>>fileInSelections PluggableButtonMorph>>performAction [] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>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 -- -JT

4 7

[Pharo-project] Feature request: All uses of Trait
by Igor Stasenko Oct. 26, 2009

Oct. 26, 2009

It would be cool to have a 'references-to' support for traits. Or maybe its there already? How can i quickly look, what classes using the trait? -- Best regards, Igor Stasenko AKA sig.

5 7

[Pharo-project] question about results of MessageTally
by Laval Jannik Oct. 26, 2009

Oct. 26, 2009

Hi, when I use MassageTally>>spyOn: on the creation of a Dictionary, results have not the same details according to the size of Dictionary. For example: === |n| MessageTally spyOn:[ n := Dictionary new. 1 to: 400000 do:[:each | n at: each put:each]. ] === returns this results: ==== - 1745 tallies, 1751 msec. **Tree** -------------------------------- Process: (40s) 1964: nil -------------------------------- 45.8% {802ms} Dictionary(Set)>>atNewIndex:put: |43.6% {763ms} Dictionary(Set)>>fullCheck | |39.4% {690ms} Dictionary(Set)>>grow | | |27.2% {476ms} Dictionary>>noCheckAdd: | | | |25.2% {441ms} Dictionary(Set)>>findElementOrNil: | | | | |23.6% {413ms} Dictionary>>scanFor: | | | | |1.6% {28ms} primitives | | | |2.0% {35ms} primitives | | |9.2% {161ms} primitives | | |3.0% {53ms} Array(SequenceableCollection)>>do: | |2.4% {42ms} primitives | |1.8% {32ms} SmallInteger(Magnitude)>>max: |2.2% {39ms} primitives 22.4% {392ms} Association class>>key:value: |18.9% {331ms} Association class(LookupKey class)>>key: | |16.3% {285ms} Association(LookupKey)>>key: | |2.6% {46ms} primitives |1.9% {33ms} Association>>value: |1.6% {28ms} primitives 4.4% {77ms} Dictionary(Set)>>findElementOrNil: |2.3% {40ms} primitives |2.1% {37ms} Dictionary>>scanFor: 1.9% {33ms} primitives ==== But, if I do: === |n| MessageTally spyOn:[ n := Dictionary new. 1 to: 4000000 do:[:each | n at: each put:each]. ] === results are: ==== - 179772 tallies, 180312 msec. **Tree** -------------------------------- Process: (40s) 1964: nil -------------------------------- 3.1% {5590ms} Dictionary(Set)>>atNewIndex:put: |2.8% {5049ms} Dictionary(Set)>>fullCheck | 2.3% {4147ms} Dictionary(Set)>>grow | 1.3% {2344ms} Dictionary>>noCheckAdd: 1.0% {1803ms} Association class>>key:value: ==== Where are the rest of the process ? Does anybody understand this behavior ? can you explain ? Cheers, Jannik

5 9

[Pharo-project] Dynamic Traits
by John Toohey Oct. 26, 2009

Oct. 26, 2009

Is is possible to apply a Trait to an object after it has been created? I have a situation where I have a collection of object that have been populated from a database, and depending on a typeId property, I would like to apply different Traits to that object. Each Trait would have the same method signatures, but the calculations performs by those methods would be different in each case. -- -JT

2 1

Re: [Pharo-project] (a = b) => (a hash = b hash)
by Ralph Boland Oct. 26, 2009

Oct. 26, 2009

> I agree with Nicolas, but I think that it's really important that we > have this discussion, reach a consensus, and them implement it! > > That's why I posted the message here rather than just posting a bug > report. > > There used to be a method called hasSameElementsAs: (now called, > inexplicably, sameElements:) that could be pressed into service so > that two intervals, or an array and and interval, can have the same > elements but still be unequal. Â But the role of species was to define > when things could be equal... > > Maybe we need a method "hasSameSequenceOfElementsAs:" which would be > applicable to any pair of Â sequenceable collections, as well as being > faster to implement, than sameElements: (which is currently quadratic). I assume that by quadratic you mean a quadratic number of compares. If you implement hasSameElementsAs: by putting the elements of at least one of your collections into a set and assume the include: operation for sets is O(1) compares then the cost of hasSameElementsAs: is linear compares. If you want to count duplicates then you need to use bags instead of sets. Perhaps you already knew this. Ralph Boland

1 0

[Pharo-project] New inspector: pain when inspecting large collections
by Igor Stasenko Oct. 26, 2009

Oct. 26, 2009

Try this: SystemOrganization inspect -- Best regards, Igor Stasenko AKA sig.

1 0

[Pharo-project] Test what primitive is faster #clone, of #basicNew?
by Igor Stasenko Oct. 26, 2009

Oct. 26, 2009

Hello, creating a new objects is quite fast, but i wonder, what if it could be made even faster for objects of fixed size (not variable sized ones) by using a #clone primitive instead of #basicNew? The trick to use #clone is, that we can keep a 'sample' in class instance variable: Mytestclass class instanceVariableNames: 'sample' Mytestclass class>>initialize sample := self basicNew and then: Mytestclass class>>new ^ sample clone initialize The problem, that i can't make a benchmark , which could really tell the difference between those two ways, so we could be 100% sure what is faster. Any ideas how to bench it? -- Best regards, Igor Stasenko AKA sig.

1 0

[Pharo-project] [ANN] Pharo rc1dev10491 - Win32 Installer
by Torsten Bergmann Oct. 25, 2009

Oct. 25, 2009

Forgot to mention: Windows Installer 1.0-10491-rc1dev09.10.5 is up on the download page. Bye Torsten -- GRATIS fÃ¼r alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

3 2

[Pharo-project] Some bugs I ran into while working on hashing
by Andres Valloud Oct. 25, 2009

Oct. 25, 2009

Hello, are these problems known? I am using the latest RC build. * Create changeset X. Touch method Foo>>bar. Create changeset Y. Touch method Foo>>bar again. Fileout changeset X. The fileout has the code for changeset Y. * Delete the first ! in a changeset with a preamble. Try to load it from the file tool. You get a syntax error. However, the progress bar does not go away. Is the file handle released? * Integer>>isPrime should not be probabilistic. Suggestion: rename it to Integer>>isMostLikelyPrime or something similar. Implement a deterministic prime check for isPrime (even if it is slow --- users then can decide whether they want a deterministic or probabilistic answer). Here's a rough sketch of Integer>>isPrime: isPrime | guess guessSquared delta selfSqrtFloor | self <= 1 ifTrue: [^self error: 'operation undefined']. self even ifTrue: [^self = 2]. guess := 1 bitShift: self highBit + 1 // 2. [ guessSquared := guess * guess. delta := guessSquared - self // (guess bitShift: 1). delta = 0 ] whileFalse: [guess := guess - delta]. guessSquared = self ifFalse: [guess := guess - 1]. selfSqrtFloor := guess. 3 to: selfSqrtFloor by: 2 do: [:each | self \\ each = 0 ifTrue: [^false]]. ^true Also, the above code can be used to implement sqrtFloor and sqrtRounded in Integer. I am sure Nicolas Cellier remembers this :). Finally, I'm not sure that isPrime should fail with "undefined operation" if the receiver is <= 1. 1 is certainly not prime. Primes must be positive, so zero and the negatives could just answer false. ???... * Open an inspector on e.g.: Smalltalk. In the code pane, type: self keys inject: Set new into: [:t :x | t add: x class; yourself] Using the mouse, select the expression, and inspect the result using the right button menu item. The result comes up. However, the inspector on Smalltalk experiences a failure in one of its panes because lines is nil in MultiNewParagraph(NewParagraph)>>fastFindFirstLineSuchThat: Andres.

3 4