- Pharo-dev - lists.pharo.org

[Pharo-project] Installing Spoon and programming a remote image
by Lawson English Feb. 14, 2012

Feb. 14, 2012

This tutorial only shows how to install Spoon on Mac OS X. Very cumbersome currently, but Craig hopes to have it refined ASAP. I thought people could start playing with it NOW, so that he can get feedback immediately. Installing Spoon (Squeak smalltalk extension) on Mac OS X: http://www.youtube.com/watch?v=9zDxVsruaiU This tutorial shows how to compile a method for an existing class in the remote image and send the message to an already existing object of that class in that remote image. Note that the class in the server image doesn't change, just the remote image's class. programming a remote image with spoon: http://www.youtube.com/watch?v=nqRQpFkErSw&list=PL6601A198DF14788D&index=64… Lawson

1 0

[Pharo-project] here's a curio for compiler mavens...
by Eliot Miranda Feb. 14, 2012

Feb. 14, 2012

Hi All, (whitewash alert) I just had occasion to look at the bytecode generated by the standard compiler for HashedCollection class>>#goodPrimeAtLeast:. Here's the source, with the issue in bold: goodPrimeAtLeast: lowerLimit "Answer the next good prime >= lowerlimit. If lowerLimit is larger than the largest known good prime, just make it odd." | primes low mid high prime | primes := self goodPrimes. low := 1. high := primes size. lowerLimit > (primes at: high) ifTrue: [ ^lowerLimit bitOr: 1 ]. [ high - low <= 1 ] whileFalse: [ mid := high + low // 2. prime := primes at: mid. prime = lowerLimit ifTrue: [ ^prime ]. *prime < lowerLimit* * ifTrue: [ low := mid ]* * ifFalse: [ high := mid ]* ]. (primes at: low) >= lowerLimit ifTrue: [ ^primes at: low ]. ^primes at: high The code for this sequence is 58 <15> pushTemp: 5 59 <10> pushTemp: 0 60 <B2> send: < 61 <9B> jumpFalse: 66 62 <13> pushTemp: 3 *63 <81 42> storeIntoTemp: 2* 65 <92> jumpTo: 69 66 <13> pushTemp: 3 *67 <81 44> storeIntoTemp: 4* *69 <87> pop* where-as the following would be better: 58 <15> pushTemp: 5 59 <10> pushTemp: 0 60 <B2> send: < 61 <9B> jumpFalse: 66 62 <13> pushTemp: 3 63 <82 42> popIntoTemp: 2 65 <92> jumpTo: 69 66 <13> pushTemp: 3 67 <82 44> popIntoTemp: 4 The reason is that the code generator favours using a single pop for both arms of the if: MessageNode>>sizeCodeForIf: encoder value: forValue | thenExpr elseExpr branchSize thenSize elseSize | thenExpr := arguments at: 1. elseExpr := arguments at: 2. (forValue or: [(thenExpr isJust: NodeNil) or: [elseExpr isJust: NodeNil]]) not "(...not ifTrue: avoids using ifFalse: alone during this compile)" ifTrue: *"Two-armed IFs forEffect share a single pop"* [^super sizeCodeForEffect: encoder]. ... MessageNode>>emitCodeForIf: stack encoder: encoder value: forValue | thenExpr thenSize elseExpr elseSize | thenSize := sizes at: 1. elseSize := sizes at: 2. (forValue not and: [elseSize * thenSize > 0]) ifTrue: *"Two-armed IFs forEffect share a single pop"* [^super emitCodeForEffect: stack encoder: encoder]. It would be nice if this only happened if doing so actually reduced the size of the generated code. -- best, Eliot

2 2

[Pharo-project] SocketPlugin: ignoring unknown option 'TCP_CORK'
by Philippe Marschall Feb. 13, 2012

Feb. 13, 2012

Hi I had this crazy idea, what instead of buffering at the application level I use the native buffer of the socket? I would be doing more or less this: set TCP_CORK to 1 set TCP_NODELAY to 0 do individual writes set TCP_CORK to 0 set TCP_NODELAY to 1 do last write goto 1 (use TCP_NOWAIT and TCP_NOPUSH on BSD/MacOS) I hacked something together and tried to push it through some benchmarks but the SocketPlugin was not very impressed: SocketPlugin: ignoring unknown option 'TCP_CORK' This is on Linux with Cog. Cheers Philippe

3 5

[Pharo-project] 24-25 May 2012: Pharo conference registration is ready
by StÃ©phane Ducasse Feb. 13, 2012

Feb. 13, 2012

http://pharoconference.eventbrite.com/ The Pharo core team organises a Pharo Conference hosted at INRIA Lille Nord Europe located at Villeneuve D'ascq (close to Lille). Pharo is an open-source Smalltalk http://www.pharo-project.org The goals of the conference is to bring companies, developers and users together. You are invited to propose a talk on - your business with pharo - a technical presentation of a framework or solution you built with pharo - experience reports Please contact stephane.ducasse(a)inria.fr and marcus.denker(a)inria.fr for possible presentations. Stef

1 0

[Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress
by Alexis Parseghian Feb. 13, 2012

Feb. 13, 2012

Attempting to send a bug report with an unresolved smtp server address gives a "retry or abort" notification. Aborting gives this DNU. 13 February 2012 8:28:26 pm VM: unix - i686 - linux-gnu - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Jan 26 2012, https://git.gitorious.org/cogvm/blessed.git Commit: e49a136ea9fe909dd5ba3cdeffac8f61cce27c9f Date: Thu Jan 26 17:38:06 2012 +0100 By: Camillo Bruni <camillobruni(a)gmail.com> Image: Pharo1.4a [Latest update: #14329] UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress Receiver: nil Arguments and temporary variables: aMessage: asSocketAddress exception: MessageNotUnderstood: receiver of "asSocketAddress" is nil resumeValue: nil Receiver's instance variables: nil NetNameResolver class>>addressForName:timeout: Receiver: NetNameResolver Arguments and temporary variables: hostName: 'mail.free.fr' secs: 20 deadline: 1507274 result: #(nil) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #NetNameResolver classPool: a Dictionary(#DefaultHostName->'' #HaveNetwork->true #ResolverBusy->...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Network-Kernel' traitComposition: {} localSelectors: nil SMTPClient class(ProtocolClient class)>>openOnHostNamed:port: Receiver: SMTPClient Arguments and temporary variables: hostName: 'mail.free.fr' portNumber: 25 serverIP: nil Receiver's instance variables: superclass: TelnetProtocolClient methodDict: a MethodDictionary(#data:->(SMTPClient>>#data: "a CompiledMethod(10...etc... format: 142 instanceVariables: nil organization: ('public protocol' localHostName localHostName: mailFrom:to:text:...etc... subclasses: nil name: #SMTPClient classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Network-Protocols' traitComposition: nil localSelectors: nil SMTPClient class(ProtocolClient class)>>openOnHostNamed: Receiver: SMTPClient Arguments and temporary variables: hostName: 'mail.free.fr' i: 0 s: nil p: nil Receiver's instance variables: superclass: TelnetProtocolClient methodDict: a MethodDictionary(#data:->(SMTPClient>>#data: "a CompiledMethod(10...etc... format: 142 instanceVariables: nil organization: ('public protocol' localHostName localHostName: mailFrom:to:text:...etc... subclasses: nil name: #SMTPClient classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Network-Protocols' traitComposition: nil localSelectors: nil SMTPClient class>>deliverMailFrom:to:text:usingServer: Receiver: SMTPClient Arguments and temporary variables: fromAddress: 'a.parseg(a)gmail.com' recipientList: #('Pharo-project(a)lists.gforge.inria.fr') messageText: 'To: Pharo-project(a)lists.gforge.inria.fr From: a.parseg(a)gmail.com ...etc... aString: 'mail.free.fr' smtpClient: nil Receiver's instance variables: superclass: TelnetProtocolClient methodDict: a MethodDictionary(#data:->(SMTPClient>>#data: "a CompiledMethod(10...etc... format: 142 instanceVariables: nil organization: ('public protocol' localHostName localHostName: mailFrom:to:text:...etc... subclasses: nil name: #SMTPClient classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Network-Protocols' traitComposition: nil localSelectors: nil MailComposition>>submit Receiver: a MailComposition Arguments and temporary variables: message: Text: At first, trying to load text into a workspace (from its ... Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(305397760) a PluggableTextMorph(61...etc... messageText: a Text for 'From: a.parseg(a)gmail.com To: Pharo-project@lists.gforg...etc... textEditor: a PluggableTextMorph(611057664) morphicWindow: a SystemWindow(305397760) PluggableButtonMorph>>performAction Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: evt: a PluggableButtonMorph(865075200) m: [(454@154) mouseUp 1472972 nil] Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(865075200) a PluggableButtonMorph(919076864)) Arguments and temporary variables: aBlock: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTru...etc... index: 1 indexLimiT: 2 Receiver's instance variables: an Array(a PluggableButtonMorph(865075200) a PluggableButtonMorph(919076864)) PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: evt: [(454@154) mouseUp 1472972 nil] all: an Array(a PluggableButtonMorph(865075200) a PluggableButtonMorph(91907686...etc... Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil MouseButtonEvent>>sentTo: Receiver: [(454@154) mouseUp 1472972 nil] Arguments and temporary variables: anObject: a PluggableButtonMorph(865075200) Receiver's instance variables: timeStamp: 1472972 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (454@154) handler: nil wasHandled: true whichButton: 4 PluggableButtonMorph(Morph)>>handleEvent: Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil PluggableButtonMorph(Morph)>>handleFocusEvent: Receiver: a PluggableButtonMorph(865075200) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] Receiver's instance variables: bounds: (259.0@129.0) corner: (599.0@173.0) owner: an AlignmentMorph(781713408) submorphs: an Array(an AlignmentMorph(636223488)) fullBounds: (259@129) corner: (599@173) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (891551744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a MailComposition label: 'send message' getStateSelector: nil actionSelector: #submit getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: Color white onColor: Color white feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] focusHolder: a PluggableButtonMorph(865075200) result: #(nil) Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1392@849) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(330563584) a Syste...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(454@154) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1392@849) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(330563584) a Syste...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] focusHolder: a PluggableButtonMorph(865075200) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] focusHolder: a PluggableButtonMorph(865075200) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(454@154) mouseUp 1472972 nil] evt: [(454@154) mouseUp 1472972 nil] ofs: nil Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(454@154) mouseUp 1472972 nil] evtBuf: #(1 1472972 454 154 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (990@481) corner: (1006@497) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (990@481) corner: (1006@497) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(990@481) mouseUp 3504860 nil] targetOffset: (117.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 3504860 990 481 0 0 0 1) lastKeyScanCode: 99 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1392@849) canvas: a FormCanvas on: DisplayScreen(1392x849x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(310378496))(an Ove...etc... lastStepTime: 3504876 lastStepMessage: nil lastCycleTime: 3504898 alarms: a Heap() lastAlarmTime: 3504876 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1392@849) canvas: a FormCanvas on: DisplayScreen(1392x849x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(310378496))(an Ove...etc... lastStepTime: 3504876 lastStepMessage: nil lastCycleTime: 3504898 alarms: a Heap() lastAlarmTime: 3504876 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1392@849) canvas: a FormCanvas on: DisplayScreen(1392x849x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(310378496))(an Ove...etc... lastStepTime: 3504876 lastStepMessage: nil lastCycleTime: 3504898 alarms: a Heap() lastAlarmTime: 3504876 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1392@849) canvas: a FormCanvas on: DisplayScreen(1392x849x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(310378496))(an Ove...etc... lastStepTime: 3504876 lastStepMessage: nil lastCycleTime: 3504898 alarms: a Heap() lastAlarmTime: 3504876 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1392@849) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(330563584) a Syste...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress NetNameResolver class>>addressForName:timeout: SMTPClient class(ProtocolClient class)>>openOnHostNamed:port: SMTPClient class(ProtocolClient class)>>openOnHostNamed: SMTPClient class>>deliverMailFrom:to:text:usingServer: MailComposition>>submit PluggableButtonMorph>>performAction [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

2 1

[Pharo-project] New implementation of MultiColumnList
by Benjamin Feb. 13, 2012

Feb. 13, 2012

Hi, I have done a new version of this morph. Since the basic list morph can now render all kind morphs, I wanted to try with a new approach consisting of wrap each element with a designated morph. For the default behavior, speed is a bit better MessageTally spyOn: [ SystemNavigation default browseAllCallsOn: #+] old version: - 3829 tallies, 3843 msec. new version: - 2824 tallies, 2824 msec. I use the same approach for a new sender implementation using spec and since I already know the column widths, the speed is really better - 835 tallies, 840 msec. (and it does a hierarchy sort) I am currently working on this aspect (if the model specify the widths, is it really faster ?) Code is available here: Gofer new repository: 'http://ss3.gemstone.com/ss/DirtyExperiments'; package: 'MultiColumnList'; load This code is depending of issues 5283 and 5181 Ben

2 1

[Pharo-project] Debugging with Toggle breakpoint
by S Krish Feb. 13, 2012

Feb. 13, 2012

Will come up with a cs for the issues in Morphic widgets shortly after I test them more thoroughly.. I am kind of convinced that putting a breakpoint in a method with "Toggle Breakpoint" and then stepping through the morphic code base is causing the UI instability of rendering glitches and other concomittant issues. It does not occur, if we do normal "debugIt" and then step through, so it should not be much to do with Morphic stepping thru logic of events et all.. but something intrinsic to how the breakpoint affects Morphic / UI rendering of Pharo. I have done fair amount of work spread across several days with the same image earlier, days prior to "breakpoint" capabilities on Pharo 1.1, but now I barely have the image last the day, goes sluggish and with these UI blemishes may be unrelated but I suspect a correlation: ( Pharo is Lot better though than Linux blemises with Compbiz where you loose all window bars, decorations.. once a while..!) On Pharo 1.3 stable mostly/ Also Pharo 1.4 latest : * The thumbnail image of taskbar windows will remain painted, behind the top window, on the World.. ( thankfully..) but at times on front occluding the top window . * Windows/ Menus will come up partially occluded and running the mouse over exposes it fully.. * Mouse inputs become sluggish... * Transcript opened in these situations sometimes has a funny effect of only the textMorph of transcript partially overlapping the top Window * From a newbie perspective, need to keep a list of methods break point cannot be put in, which are polling code.. Will need to get more precise and come back on them with fixes as possible. I will revert to the older breakpointing of using self halt inserted at top/ line I need with the "Toggle breakpoint" and check also.. Will dig in deeper and come back.

3 3

[Pharo-project] Regular expression
by recursive68＠gmail.com Feb. 13, 2012

Feb. 13, 2012

Hi, Is it possible to use the VB-Regexp package to construct a single regular expression that ensures a string is alphanumeric and contains both at least one number and alphabetic character. Looking at the regexp package and documentation it doesn't appear so. In javascript or perl you use something like this with lookahead assertions: ^(?=.*[a-zA-Z])(?=.*[0-9]).*$ I have something working using multiple regexp's but wondered if a more typical regexp was possible using the package ? Thanks

5 6

[Pharo-project] Few Morphic questions/ issues
by S Krish Feb. 13, 2012

Feb. 13, 2012

* CheckboxMorph does not implement #defaultBounds or take sensible defaults. * PluggableTextFieldMorph defaults to defaulBounds of MorphicModel, does not hideScrollBars.. both h and v.. ?, in effect is not defaulted to behave like a single line TextFieldMorph. * PluggableTextMorph has #defaultBounds of MorphicModel.. prefer a better bounds of a standard text morpsh typically flatter of 400@300 .. ?. Unless immediately initiated with #on:text:readSelection:menu, we need explicitly handling. I would suggest if we can look at initializing for the morph PluggableTextMorph>>initialize ... self setText: ''. textMorph bounds: self defaultBounds. self acceptOnFocusChange: true. ... * SystemWindow >> openInWorld: aWorld .. self bounds: (RealEstateAgent initialFrameFor: self world: aWorld). ... bounds should not be hardcoded.. to full extents. Use a more sensible flexible approach in all framework classes. This perhaps a neat comment..! openAsIsIn: aWorld "Sad fixup for dodgy layout." super openAsIsIn: aWorld. self allMorphs do: [:m | m layoutChanged] * In Pharo 1.3 I do not have OBTextMorphSelection >> #debugIt *

2 2

[Pharo-project] Is there an adhoc header field in Fuel?
by Yanni Chiu Feb. 13, 2012

Feb. 13, 2012

I'd like to store some metadata in a Fuel serialized file. I'd like to be able to read that metadata, without de-serializing the file. So, if there were a fixed header at the start of the file, with some "unused" fields, that would be ideal.

8 21