Pharo-dev
By thread
pharo-dev@lists.pharo.org
By month
Messages by month
- ----- 2026 -----
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2025 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2024 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2023 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2022 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2021 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2020 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2019 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2018 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2017 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2016 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2015 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2014 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2013 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2012 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2011 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2010 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2009 -----
- December
- November
- October
- September
- August
- July
- June
- May
- April
- March
- February
- January
- ----- 2008 -----
- December
- November
- October
- September
- August
- July
- June
- May
February 2012
- 124 participants
- 1711 messages
Re: [Pharo-project] how to load rb in pharo 1.4?
by Stéphane Ducasse
mariano and guillermo did a configuration to load
shout
OC
RB
in 1.4
Check in the mailing-list
Stef
On Feb 13, 2012, at 9:11 PM, Tudor Girba wrote:
> Hi,
>
> I lost track of the latests developments around RB. What is the way to load RB in Pharo 1.4?
>
> Cheers,
> Doru
>
>
> --
> www.tudorgirba.com
>
> "What we can governs what we wish."
>
>
>
>
Feb. 13, 2012
Re: [Pharo-project] bug? #setPageSize: called in MorphThreeMorph but not defined
by Alain Plantec
thanks for reporting.
I will have a look
Cheers
Alain
Le 13/02/2012 17:00, Stéphane Ducasse a écrit :
> On Feb 13, 2012, at 4:08 PM, Esteban Lorenzano wrote:
>
>> Hi,
>>
>> MorphThreeModel>>#pageSize: and MorphThreeModel>>#chunkSize: both sends #setPageSize:, but that message is not defined there or in parents. Unique definition is on PaginatedMorphThreeModel.
>>
>> is that a bug?
> probably
>> best,
>> Esteban
>
Feb. 13, 2012
[Pharo-project] how to load rb in pharo 1.4?
by Tudor Girba
Hi,
I lost track of the latests developments around RB. What is the way to load RB in Pharo 1.4?
Cheers,
Doru
--
www.tudorgirba.com
"What we can governs what we wish."
Feb. 13, 2012
Re: [Pharo-project] Are Objects really hard?
by Michael Haupt
Hi Nick,
Am 13.02.2012 um 17:12 schrieb Nick Ager <nick.ager(a)gmail.com>:
> pah. 1 MB. Sheer luxury. 64 kB RAM, 256 kB Flash: Smalltalk running on
> Lego Mindstorms NXT. Questions?
>
>
> Is this still being developed? Is the code available?
it is dormant, but available: http://www.hpi.uni-potsdam.de/hirschfeld/projects/nxtalk/
By all means let me know if you're doing anything with it, please! :-)
Best,
Michael
Feb. 13, 2012
Re: [Pharo-project] [BUG]FSReference(Object)>>doesNotUnderstand: #asLowercase
by Sven Van Caekenberghe
On 13 Feb 2012, at 20:34, Alexis Parseghian wrote:
> Attempting to open a file browser from World menu>Tools
I can't open it either, it loops.
Sven
Feb. 13, 2012
[Pharo-project] here's a curio for compiler mavens...
by Eliot Miranda
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
Feb. 13, 2012
Re: [Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress
by Sven Van Caekenberghe
Thanks for the bug report, Alexis.
Part of the solution is to change the last line of NetNameResolver class>>addressForName:timeout: to
^ result ifNotNil: [ result asSocketAddress ]
But I don't like NameLookupFailure>>#defaultAction either.
Apart from the fact that this is an extremely silly interactive action, it should call super when aborting. Retry feels very old school and ancient, it won't make a difference.
Furthermore, the contract of NetNameResolver class>>addressForName:timeout: should better not include returning nil, signaling NameLookupFailure is enough, but that might break some older code.
Comments ?
Sven
On 13 Feb 2012, at 20:28, Alexis Parseghian wrote:
> 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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)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(a)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(a)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(a)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(a)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(a)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
>
Feb. 13, 2012
[Pharo-project] [BUG]FSReference(Object)>>doesNotUnderstand: #asLowercase
by Alexis Parseghian
Attempting to open a file browser from World menu>Tools
13 February 2012 8:31:53 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]
FSReference(Object)>>doesNotUnderstand: #asLowercase
Receiver: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
Arguments and temporary variables:
aMessage: asLowercase
exception: MessageNotUnderstood: FSReference>>asLowercase
resumeValue: nil
Receiver's instance variables:
filesystem: a FSFilesystem
path: FSPath / 'home' / 'alexisp' / 'workbench' / 'Smalltalk' /
'Pharo-1.4-2012...etc...
ChangeList class>>fileReaderServicesForFile:suffix:
Receiver: ChangeList
Arguments and temporary variables:
fullName: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
suffix: '4-20120125'
services: an OrderedCollection()
Receiver's instance variables:
superclass: CodeHolder
methodDict: a
MethodDictionary(#addItem:text:->(ChangeList>>#addItem:text: "a
C...etc...
format: 150
instanceVariables: #('changeList' 'list' 'listIndex'
'listSelections' 'file' 'l...etc...
organization: ('*MonticelloGUI' changeTo:)
('accessing' changeList changes:file...etc...
subclasses: {VersionsBrowser}
name: #ChangeList
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-Changes'
traitComposition: nil
localSelectors: nil
[:reader | reader
ifNotNil: [services
addAll: (reader fileReaderServicesForFile: file suffix: suffix)]]
in FileList class>>itemsForFile:
Receiver: FileList
Arguments and temporary variables:
file: ChangeList
services: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
suffix: an OrderedCollection()
reader: '4-20120125'
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
OrderedCollection>>do:
Receiver: an OrderedCollection(ChangeSet ChangeList ChangeSorter
FileContentsBrowser FilePackage Fil...etc...
Arguments and temporary variables:
aBlock: [:reader | reader
ifNotNil: [services
addAll: (reader fileReaderS...etc...
index: 2
Receiver's instance variables:
array: {ChangeSet. ChangeList. ChangeSorter. FileContentsBrowser.
FilePackage. ...etc...
firstIndex: 1
lastIndex: 20
FileList class>>itemsForFile:
Receiver: FileList
Arguments and temporary variables:
file: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
services: an OrderedCollection()
suffix: '4-20120125'
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
FileList>>itemsForFile:
Receiver: a FileList
Arguments and temporary variables:
file: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>dynamicButtonServices
Receiver: a FileList
Arguments and temporary variables:
toReject: #(#removeLineFeeds: #addFileToNewZip: #compressFile:)
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>updateButtonRow
Receiver: a FileList
Arguments and temporary variables:
aWindow: a SystemWindow(639631360)
aRow: an AlignmentMorph(54788096)
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>updateFileList
Receiver: a FileList
Arguments and temporary variables:
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>directory:
Receiver: a FileList
Arguments and temporary variables:
dir: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>selectedDirectory:
Receiver: a FileList
Arguments and temporary variables:
aFileDirectoryWrapper: a FileDirectoryWrapper
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
SimpleHierarchicalListMorph>>setSelectedMorph:
Receiver: a SimpleHierarchicalListMorph(379584512)
Arguments and temporary variables:
aMorph: an IndentingListItemMorph(466616320)'Pharo-1.4-20120125'
Receiver's instance variables:
bounds: (0@0) corner: (150@120)
owner: a SystemWindow(639631360)
submorphs: an Array(a ScrollBar(529006592) a ScrollBar(405798912) a
TransformMo...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (25165824) [eventHandler = an
EventHandler recipien...etc...
borderWidth: 1
borderColor: (Color r: 0.745 g: 0.745 b: 0.745)
model: a FileList
open: false
accessor: nil
scrollBar: a ScrollBar(405798912)
scroller: a TransformMorph(642777088)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #volumeMenu:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(529006592)
selectedMorph: nil
getListSelector: #initialDirectoryList
keystrokeActionSelector: nil
autoDeselect: false
columns: nil
sortingSelector: nil
getSelectionSelector: #selectedDirectory
setSelectionSelector: #selectedDirectory:
potentialDropMorph: nil
lineColor: nil
lastSelection: 0
lastKeystrokeTime: 0
lastKeystrokes: ''
searchedElement: nil
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(905445376)'AidaOneClickPharo.app'
Arguments and temporary variables:
anArray: #('Pharo-1.4-20120125')
found: an IndentingListItemMorph(466616320)'Pharo-1.4-20120125'
Receiver's instance variables:
bounds: (0@2250) corner: (224@2268)
owner: a TransformMorph(642777088)
submorphs: #()
fullBounds: (-3@2250) corner: (224@2268)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'AidaOneClickPharo.app'
hasFocus: false
indentLevel: 4
isExpanded: false
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a SimpleHierarchicalListMorph(379584512)
nextSibling: an IndentingListItemMorph(210501632)'cog-unix-jenkins'
icon: Form(16x16x32)
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(464781312)'3d'
Arguments and temporary variables:
anArray: #('Smalltalk' 'Pharo-1.4-20120125')
found: an IndentingListItemMorph(17563648)'Smalltalk'
Receiver's instance variables:
bounds: (0@1782) corner: (88@1800)
owner: a TransformMorph(642777088)
submorphs: #()
fullBounds: (-3@1782) corner: (88@1800)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: '3d'
hasFocus: false
indentLevel: 3
isExpanded: false
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a SimpleHierarchicalListMorph(379584512)
nextSibling: an IndentingListItemMorph(843579392)'Articles'
icon: Form(16x16x32)
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(173015040)'.adobe'
Arguments and temporary variables:
anArray: #('workbench' 'Smalltalk' 'Pharo-1.4-20120125')
found: an IndentingListItemMorph(273416192)'workbench'
Receiver's instance variables:
bounds: (0@432) corner: (100@450)
owner: a TransformMorph(642777088)
submorphs: #()
fullBounds: (-3@432) corner: (100@450)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: '.adobe'
hasFocus: false
indentLevel: 2
isExpanded: false
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a SimpleHierarchicalListMorph(379584512)
nextSibling: an IndentingListItemMorph(652476416)'.aptitude'
icon: Form(16x16x32)
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(644349952)'alexisp'
Arguments and temporary variables:
anArray: #('alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125')
found: an IndentingListItemMorph(644349952)'alexisp'
Receiver's instance variables:
bounds: (0@414) corner: (89@432)
owner: a TransformMorph(642777088)
submorphs: #()
fullBounds: (-3@414) corner: (89@432)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'alexisp'
hasFocus: false
indentLevel: 1
isExpanded: true
complexContents: a FileDirectoryWrapper
firstChild: an IndentingListItemMorph(173015040)'.adobe'
container: a SimpleHierarchicalListMorph(379584512)
nextSibling: an IndentingListItemMorph(50069504)'lost+found'
icon: Form(16x16x32)
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(826802176)'tmp'
Arguments and temporary variables:
anArray: #('home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125')
found: an IndentingListItemMorph(440401920)'home'
Receiver's instance variables:
bounds: (0@0) corner: (57@18)
owner: a TransformMorph(642777088)
submorphs: #()
fullBounds: (-3@0) corner: (57@18)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'tmp'
hasFocus: false
indentLevel: 0
isExpanded: false
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a SimpleHierarchicalListMorph(379584512)
nextSibling: an IndentingListItemMorph(222822400)'sbin'
icon: Form(16x16x32)
SimpleHierarchicalListMorph>>update:
Receiver: a SimpleHierarchicalListMorph(379584512)
Arguments and temporary variables:
aSymbol: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201201...etc...
Receiver's instance variables:
bounds: (0@0) corner: (150@120)
owner: a SystemWindow(639631360)
submorphs: an Array(a ScrollBar(529006592) a ScrollBar(405798912) a
TransformMo...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (25165824) [eventHandler = an
EventHandler recipien...etc...
borderWidth: 1
borderColor: (Color r: 0.745 g: 0.745 b: 0.745)
model: a FileList
open: false
accessor: nil
scrollBar: a ScrollBar(405798912)
scroller: a TransformMorph(642777088)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #volumeMenu:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(529006592)
selectedMorph: nil
getListSelector: #initialDirectoryList
keystrokeActionSelector: nil
autoDeselect: false
columns: nil
sortingSelector: nil
getSelectionSelector: #selectedDirectory
setSelectionSelector: #selectedDirectory:
potentialDropMorph: nil
lineColor: nil
lastSelection: 0
lastKeystrokeTime: 0
lastKeystrokes: ''
searchedElement: nil
[:aDependent | aDependent update: aParameter] in FileList(Object)>>changed:
Receiver: a FileList
Arguments and temporary variables:
aParameter: a SimpleHierarchicalListMorph(379584512)
aDependent: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201...etc...
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
DependentsArray>>do:
Receiver: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128) a SimpleHierarchicalL...etc...
Arguments and temporary variables:
aBlock: [:aDependent | aDependent update: aParameter]
dep: a SimpleHierarchicalListMorph(379584512)
i: 3
iLimiT: 5
Receiver's instance variables:
a DependentsArray(a SystemWindow(639631360) a SearchMorph(193200128) a
SimpleHierarchicalL...etc...
FileList(Object)>>changed:
Receiver: a FileList
Arguments and temporary variables:
aParameter: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201...etc...
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList>>postOpen
Receiver: a FileList
Arguments and temporary variables:
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(639631360) a
SearchMorph(193200128...etc...
reference: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
volumeList: #('[]' ' home' ' alexisp' ' workbench' '
Smalltalk' ' Pha...etc...
volumeListIndex: 6
list: an Array(/home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125/ContactTabb...etc...
listIndex: 0
pattern: nil
sortMode: #date
brevityState: #FileList
currentDirectorySelected: nil
dirSelectionBlock: [:dirName | true]
modalView: nil
ok: false
contents: ''
FileList class>>morphicViewOnDirectory:
Receiver: FileList
Arguments and temporary variables:
aFileDirectory: /home/alexisp/workbench/Smalltalk/Pharo-1.4-20120125
aFileList: a FileList
window: a SystemWindow(639631360)
fileListBottom: 0.4
midLine: 0.2
fileListTopOffset: 29
buttonPane: an AlignmentMorph(54788096)
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
FileList class>>morphicView
Receiver: FileList
Arguments and temporary variables:
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
FileList class>>open
Receiver: FileList
Arguments and temporary variables:
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
[self open] in FileList class>>menuCommandOn:
Receiver: FileList
Arguments and temporary variables:
Receiver's instance variables:
superclass: Model
methodDict: a MethodDictionary(size 102)
format: 158
instanceVariables: #('reference' 'volumeList' 'volumeListIndex'
'list' 'listInd...etc...
organization: ('*Shout-Styling' shoutAboutToStyle:)
('accessing' directory dire...etc...
subclasses: nil
name: #FileList
classPool: a Dictionary(#FileReaderRegistry->nil #RecentDirs->an
OrderedCollect...etc...
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Tools-FileList'
traitComposition: {}
localSelectors: nil
searchList: an OrderedCollection()
[| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector]
ifFalse: [selArgCount = arguments size
ifTrue: [target perform: selector withArguments: arguments]
ifFalse: [target
perform: selector
withArguments: (arguments copyWith: evt)]].
self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
evt: [(481@403) mouseUp 3692468 nil]
selArgCount: 0
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
BlockClosure>>ensure:
Receiver: [| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector...etc...
Arguments and temporary variables:
aBlock: [oldcursor show]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
startpc: 160
numArgs: 0
CursorWithMask(Cursor)>>showWhile:
Receiver: ((CursorWithMask
extent: (16@16)
depth: 1
fromArray: #(
2r0
2r100000000000000000000...etc...
Arguments and temporary variables:
aBlock: [| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [targe...etc...
oldcursor: ((CursorWithMask
extent: (16@16)
depth: 1
fromArray: #(
2r0
2...etc...
Receiver's instance variables:
bits: a Bitmap of length 16
width: 16
height: 16
depth: 1
offset: (-1@ -1)
maskForm: Form(16x16x1)
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
evt: [(481@403) mouseUp 3692468 nil]
w: a PasteUpMorph(425197568) [world]
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
evt: [(481@403) mouseUp 3692468 nil]
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MouseButtonEvent>>sentTo:
Receiver: [(481@403) mouseUp 3692468 nil]
Arguments and temporary variables:
anObject: a ToggleMenuItemMorph(940834816)'File Browser'
Receiver's instance variables:
timeStamp: 3692468
source: a HandMorph(843055104)
windowIndex: nil
type: #mouseUp
buttons: 0
position: (481@403)
handler: nil
wasHandled: true
whichButton: 4
ToggleMenuItemMorph(Morph)>>handleEvent:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MorphicEventDispatcher>>dispatchDefault:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
aMorph: a ToggleMenuItemMorph(940834816)'File Browser'
localEvt: nil
index: 1
child: nil
morphs: #()
inside: true
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
aMorph: a ToggleMenuItemMorph(940834816)'File Browser'
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
Receiver: a ToggleMenuItemMorph(940834816)'File Browser'
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
defaultDispatcher: a MorphicEventDispatcher
Receiver's instance variables:
bounds: (396.0(a)395.0) corner: (562.0(a)413.0)
owner: a MenuMorph(1041498112)
submorphs: #()
fullBounds: (396.0(a)395.0) corner: (562.0(a)413.0)
color: Color black
extension: a MorphExtension (951058432)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'File Browser'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: [self open]
selector: #value
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MorphicEventDispatcher>>dispatchDefault:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
aMorph: a MenuMorph(1041498112)
localEvt: [(481@403) mouseUp 3692468 nil]
index: 9
child: a ToggleMenuItemMorph(940834816)'File Browser'
morphs: an Array(a ToggleMenuItemMorph(344195072)'Finder' a
ToggleMenuItemMorph...etc...
inside: false
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(481@403) mouseUp 3692468 nil]
aMorph: a MenuMorph(1041498112)
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
--- The full stack ---
FSReference(Object)>>doesNotUnderstand: #asLowercase
ChangeList class>>fileReaderServicesForFile:suffix:
[:reader | reader
ifNotNil: [services
addAll: (reader fileReaderServicesForFile: file suffix: suffix)]]
in FileList class>>itemsForFile:
OrderedCollection>>do:
FileList class>>itemsForFile:
FileList>>itemsForFile:
FileList>>dynamicButtonServices
FileList>>updateButtonRow
FileList>>updateFileList
FileList>>directory:
FileList>>selectedDirectory:
SimpleHierarchicalListMorph>>setSelectedMorph:
IndentingListItemMorph>>openPath:
IndentingListItemMorph>>openPath:
IndentingListItemMorph>>openPath:
IndentingListItemMorph>>openPath:
IndentingListItemMorph>>openPath:
SimpleHierarchicalListMorph>>update:
[:aDependent | aDependent update: aParameter] in FileList(Object)>>changed:
DependentsArray>>do:
FileList(Object)>>changed:
FileList>>postOpen
FileList class>>morphicViewOnDirectory:
FileList class>>morphicView
FileList class>>open
[self open] in FileList class>>menuCommandOn:
[| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector]
ifFalse: [selArgCount = arguments size
ifTrue: [target perform: selector withArguments: arguments]
ifFalse: [target
perform: selector
withArguments: (arguments copyWith: evt)]].
self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>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
Feb. 13, 2012
[Pharo-project] [BUG]FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor:
by Alexis Parseghian
At first, trying to load text into a workspace (from its menu). More
generally, any attempt at opening the file dialog. UITheme
class>>exampleDialogs fails with the same.
Still worked in update #14284 (previous images I had).
13 February 2012 8:29:31 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]
FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor:
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
aMessage: directoriesFor: UnixFileDirectory on '/home'
exception: MessageNotUnderstood: FileDialogWindow>>directoriesFor:
resumeValue: nil
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
FileDirectoryWrapper>>contents
Receiver: a FileDirectoryWrapper
Arguments and temporary variables:
Receiver's instance variables:
item: UnixFileDirectory on '/home'
model: a FileDialogWindow(176685056)
itemName: 'home'
balloonText: nil
hasContents: true
IndentingListItemMorph>>refreshExpandedState
Receiver: an IndentingListItemMorph(452984832)'home'
Arguments and temporary variables:
newChildren: nil
toDelete: an OrderedCollection()
c: nil
Receiver's instance variables:
bounds: (0@396) corner: (67@414)
owner: a TransformMorph(961282048)
submorphs: #()
fullBounds: (-4@396) corner: (67@414)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'home'
hasFocus: false
indentLevel: 0
isExpanded: true
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a TreeListMorph(689176576)
nextSibling: an IndentingListItemMorph(922746880)'usr'
icon: Form(16x16x32)
IndentingListItemMorph>>toggleExpandedState
Receiver: an IndentingListItemMorph(452984832)'home'
Arguments and temporary variables:
Receiver's instance variables:
bounds: (0@396) corner: (67@414)
owner: a TransformMorph(961282048)
submorphs: #()
fullBounds: (-4@396) corner: (67@414)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'home'
hasFocus: false
indentLevel: 0
isExpanded: true
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a TreeListMorph(689176576)
nextSibling: an IndentingListItemMorph(922746880)'usr'
icon: Form(16x16x32)
IndentingListItemMorph>>openPath:
Receiver: an IndentingListItemMorph(839385088)'tmp'
Arguments and temporary variables:
anArray: #('home' 'alexisp' 'workbench' 'Smalltalk' 'Pharo-1.4-20120125')
found: an IndentingListItemMorph(452984832)'home'
Receiver's instance variables:
bounds: (0@0) corner: (57@18)
owner: a TransformMorph(961282048)
submorphs: #()
fullBounds: (-4@0) corner: (57@18)
color: Color black
extension: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: nil
contents: 'tmp'
hasFocus: false
indentLevel: 0
isExpanded: false
complexContents: a FileDirectoryWrapper
firstChild: nil
container: a TreeListMorph(689176576)
nextSibling: an IndentingListItemMorph(235405312)'sbin'
icon: Form(16x16x32)
TreeListMorph(SimpleHierarchicalListMorph)>>update:
Receiver: a TreeListMorph(689176576)
Arguments and temporary variables:
aSymbol: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201201...etc...
Receiver's instance variables:
bounds: (5.0(a)22.0) corner: (185.0(a)222.0)
owner: a PanelMorph(429391872)
submorphs: an Array(a ScrollBar(715653120) a TransformMorph(961282048))
fullBounds: nil
color: Color white
extension: a MorphExtension (392691712) [eventHandler = an
EventHandler recipie...etc...
borderWidth: 1
borderColor: (Color r: 0.784 g: 0.784 b: 0.784)
model: a FileDialogWindow(176685056)
open: false
accessor: nil
scrollBar: a ScrollBar(715653120)
scroller: a TransformMorph(961282048)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: nil
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(847511552)
selectedMorph: nil
getListSelector: #directories
keystrokeActionSelector: nil
autoDeselect: false
columns: nil
sortingSelector: nil
getSelectionSelector: #selectedDirectory
setSelectionSelector: #selectedDirectory:
potentialDropMorph: nil
lineColor: nil
lastSelection: 0
lastKeystrokeTime: 0
lastKeystrokes: ''
searchedElement: nil
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
[:aDependent | aDependent update: aParameter] in
FileDialogWindow(Object)>>changed:
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
aParameter: a TreeListMorph(689176576)
aDependent: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201...etc...
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
DependentsArray>>do:
Receiver: a DependentsArray(a TreeListMorph(689176576) a
PluggableMorphListMorph(24641536) a Pluggab...etc...
Arguments and temporary variables:
aBlock: [:aDependent | aDependent update: aParameter]
dep: a TreeListMorph(689176576)
i: 1
iLimiT: 8
Receiver's instance variables:
a DependentsArray(a TreeListMorph(689176576) a
PluggableMorphListMorph(24641536) a Pluggab...etc...
FileDialogWindow(Object)>>changed:
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
aParameter: #(#openPath 'home' 'alexisp' 'workbench' 'Smalltalk'
'Pharo-1.4-201...etc...
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
FileDialogWindow>>selectDirectory:
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
aFileDirectory: UnixFileDirectory on
'/home/alexisp/workbench/Smalltalk/Pharo-1...etc...
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
FileDialogWindow>>addInitialPanel
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
FileDialogWindow(DialogWindow)>>initialize
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
FileDialogWindow>>initialize
Receiver: a FileDialogWindow(176685056)
Arguments and temporary variables:
Receiver's instance variables:
bounds: (0@0) corner: (300@200)
owner: nil
submorphs: an Array(a WindowEdgeGripMorph(160432128) a
WindowEdgeGripMorph(1067...etc...
fullBounds: nil
color: (Color r: 0.745 g: 0.745 b: 0.745)
extension: a MorphExtension (189530112) [other: (paneColor ->
(Color r: 0.745 ...etc...
borderWidth: 1
borderColor: (TranslucentColor r: 0.0 g: 0.0 b: 0.0 alpha: 0.498)
model: nil
open: false
accessor: nil
labelString: 'File'
stripes: an Array(a Morph(716963840) a Morph(721420288))
label: a LabelMorph(256376832)'File'
closeBox: nil
collapseBox: nil
activeOnlyOnTop: true
paneMorphs: an Array(a PanelMorph(571473920))
collapsedFrame: nil
fullFrame: (0@0) corner: (300@200)
isCollapsed: false
menuBox: nil
mustNotClose: false
labelWidgetAllowance: 0
updatablePanes: #()
allowReframeHandles: true
labelArea: an AlignmentMorph(726663168)
expandBox: nil
embeddable: nil
announcer: nil
cancelled: true
isResizeable: nil
directoryTreeMorph: a TreeListMorph(689176576)
fileListMorph: a PluggableMorphListMorph(24641536)
directories: an Array(a FileDirectoryWrapper a FileDirectoryWrapper
a FileDirec...etc...
selectedDirectory: nil
selectedFileIndex: 0
fileSelectionBlock: [:de | de isDirectory
ifTrue: [self showDirectoriesInFile...etc...
showDirectoriesInFileList: true
fileSortBlock: [:de1 :de2 | de1 isDirectory = de2 isDirectory
ifTrue: [de1 na...etc...
fileNameText: ''
defaultExtension: nil
actionSelector: #selectedPathName
answer: nil
entryCache: nil
entryCacheDirectory: nil
previewType: false
previewMorph: nil
PharoTheme(UITheme)>>chooseFullFileNameIn:title:patterns:path:preview:
Receiver: a PharoTheme
Arguments and temporary variables:
aThemedMorph: a SystemWindow(645136384)
title: 'Choose file to open in the workspace'
patterns: nil
path: nil
preview: false
fd: nil
Receiver's instance variables:
settings: a ThemeSettings
forms: a Dictionary(#buttonBottomLeft->Form(12x12x32)
#buttonBottomMiddle->Form...etc...
soundTheme: nil
focusIndicator: a PluggableMultiColumnListMorph(1022623744)->a
BorderedMorph(15...etc...
windowActiveDropShadowStyle: #nodiffuse
MorphicUIManager>>chooseFullFileNameMatching:label:
Receiver: a MorphicUIManager
Arguments and temporary variables:
patterns: nil
label: 'Choose file to open in the workspace'
Receiver's instance variables:
interactiveParser: nil
Workspace>>askForFileNameToOpen
Receiver: a Workspace
Arguments and temporary variables:
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(1038876672) a
PluggableTextMorph(4...etc...
contents: ''
bindings: nil
acceptDroppedMorphs: false
acceptAction: nil
mustDeclareVariables: false
fileName: nil
lineEnding: #lf
encoding: 'utf-8'
stylingActive: true
Workspace>>openCommand
Receiver: a Workspace
Arguments and temporary variables:
userWarned: true
Receiver's instance variables:
dependents: a DependentsArray(a SystemWindow(1038876672) a
PluggableTextMorph(4...etc...
contents: ''
bindings: nil
acceptDroppedMorphs: false
acceptAction: nil
mustDeclareVariables: false
fileName: nil
lineEnding: #lf
encoding: 'utf-8'
stylingActive: true
[| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector]
ifFalse: [selArgCount = arguments size
ifTrue: [target perform: selector withArguments: arguments]
ifFalse: [target
perform: selector
withArguments: (arguments copyWith: evt)]].
self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
evt: [(647@560) mouseUp 949878 nil]
selArgCount: 0
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
BlockClosure>>ensure:
Receiver: [| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector...etc...
Arguments and temporary variables:
aBlock: [oldcursor show]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
startpc: 160
numArgs: 0
CursorWithMask(Cursor)>>showWhile:
Receiver: ((CursorWithMask
extent: (16@16)
depth: 1
fromArray: #(
2r0
2r100000000000000000000...etc...
Arguments and temporary variables:
aBlock: [| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [targe...etc...
oldcursor: ((CursorWithMask
extent: (16@16)
depth: 1
fromArray: #(
2r0
2...etc...
Receiver's instance variables:
bits: a Bitmap of length 16
width: 16
height: 16
depth: 1
offset: (-1@ -1)
maskForm: Form(16x16x1)
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
evt: [(647@560) mouseUp 949878 nil]
w: a PasteUpMorph(425197568) [world]
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
evt: [(647@560) mouseUp 949878 nil]
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MouseButtonEvent>>sentTo:
Receiver: [(647@560) mouseUp 949878 nil]
Arguments and temporary variables:
anObject: a ToggleMenuItemMorph(430964736)'Open...'
Receiver's instance variables:
timeStamp: 949878
source: a HandMorph(843055104)
windowIndex: nil
type: #mouseUp
buttons: 0
position: (647@560)
handler: nil
wasHandled: true
whichButton: 4
ToggleMenuItemMorph(Morph)>>handleEvent:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MorphicEventDispatcher>>dispatchDefault:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
aMorph: a ToggleMenuItemMorph(430964736)'Open...'
localEvt: nil
index: 1
child: nil
morphs: #()
inside: true
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
aMorph: a ToggleMenuItemMorph(430964736)'Open...'
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
Receiver: a ToggleMenuItemMorph(430964736)'Open...'
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
defaultDispatcher: a MorphicEventDispatcher
Receiver's instance variables:
bounds: (543.0(a)547.0) corner: (857.0(a)565.0)
owner: a MenuMorph(154402816)
submorphs: #()
fullBounds: (543.0(a)547.0) corner: (857.0(a)565.0)
color: Color black
extension: a MorphExtension (441188352)
font: a LogicalFont
familyName: Droid Sans
emphasis: nil
pointSize: 9
realF...etc...
emphasis: 0
contents: 'Open...'
hasFocus: false
isEnabled: true
subMenu: nil
isSelected: false
target: a Workspace
selector: #openCommand
arguments: #()
icon: Form(16x16x32)
getStateSelector: nil
enablementSelector: nil
keyText: nil
MorphicEventDispatcher>>dispatchDefault:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
aMorph: a MenuMorph(154402816)
localEvt: [(647@560) mouseUp 949878 nil]
index: 16
child: a ToggleMenuItemMorph(430964736)'Open...'
morphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a
MenuLineMorph(633339...etc...
inside: false
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
Receiver: a MorphicEventDispatcher
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
aMorph: a MenuMorph(154402816)
Receiver's instance variables:
lastType: #mouseUp
lastDispatch: #dispatchDefault:with:
MenuMorph(Morph)>>processEvent:using:
Receiver: a MenuMorph(154402816)
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
defaultDispatcher: a MorphicEventDispatcher
Receiver's instance variables:
bounds: (538.0(a)377.0) corner: (862.0(a)763.0)
owner: nil
submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a
MenuLineMorph(633...etc...
fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0)
color: (Color r: 0.848 g: 0.848 b: 0.848)
extension: a MorphExtension (169345024) [other: (basicColor ->
(Color r: 0.745...etc...
borderWidth: 2
borderColor: (Color r: 0.595 g: 0.595 b: 0.595)
defaultTarget: a SystemWindow(1038876672)
selectedItem: a ToggleMenuItemMorph(430964736)'Open...'
stayUp: false
popUpOwner: nil
activeSubMenu: nil
activatorDockingBar: nil
embeddable: nil
menuItems: an OrderedCollection(a
ToggleMenuItemMorph(505413632)'Close' a Toggl...etc...
MenuMorph(Morph)>>processEvent:
Receiver: a MenuMorph(154402816)
Arguments and temporary variables:
anEvent: [(647@560) mouseUp 949878 nil]
Receiver's instance variables:
bounds: (538.0(a)377.0) corner: (862.0(a)763.0)
owner: nil
submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a
MenuLineMorph(633...etc...
fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0)
color: (Color r: 0.848 g: 0.848 b: 0.848)
extension: a MorphExtension (169345024) [other: (basicColor ->
(Color r: 0.745...etc...
borderWidth: 2
borderColor: (Color r: 0.595 g: 0.595 b: 0.595)
defaultTarget: a SystemWindow(1038876672)
selectedItem: a ToggleMenuItemMorph(430964736)'Open...'
stayUp: false
popUpOwner: nil
activeSubMenu: nil
activatorDockingBar: nil
embeddable: nil
menuItems: an OrderedCollection(a
ToggleMenuItemMorph(505413632)'Close' a Toggl...etc...
MenuMorph>>handleFocusEvent:
Receiver: a MenuMorph(154402816)
Arguments and temporary variables:
evt: [(647@560) mouseUp 949878 nil]
Receiver's instance variables:
bounds: (538.0(a)377.0) corner: (862.0(a)763.0)
owner: nil
submorphs: an Array(a ToggleMenuItemMorph(505413632)'Close' a
MenuLineMorph(633...etc...
fullBounds: (538.0(a)377.0) corner: (862.0(a)763.0)
color: (Color r: 0.848 g: 0.848 b: 0.848)
extension: a MorphExtension (169345024) [other: (basicColor ->
(Color r: 0.745...etc...
borderWidth: 2
borderColor: (Color r: 0.595 g: 0.595 b: 0.595)
defaultTarget: a SystemWindow(1038876672)
selectedItem: a ToggleMenuItemMorph(430964736)'Open...'
stayUp: false
popUpOwner: nil
activeSubMenu: nil
activatorDockingBar: nil
embeddable: nil
menuItems: an OrderedCollection(a
ToggleMenuItemMorph(505413632)'Close' a Toggl...etc...
[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: [(647@560) mouseUp 949878 nil]
focusHolder: a MenuMorph(154402816)
result: #(nil)
Receiver's instance variables:
bounds: (463@471) corner: (479@487)
owner: a PasteUpMorph(425197568) [world]
submorphs: #()
fullBounds: (463@471) corner: (479@487)
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: [(463@471) mouseUp 3570522 nil]
targetOffset: (60.0(a)8.0)
damageRecorder: a DamageRecorder
cacheCanvas: nil
cachedCanvasHasHoles: true
temporaryCursor: nil
temporaryCursorOffset: nil
hardwareCursor: nil
hasChanged: true
savedPatch: nil
lastEventBuffer: #(1 3570522 463 471 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(808189952) 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: [(647@560) mouseOver red nil nil]
Receiver's instance variables:
bounds: (0@0) corner: (1392@849)
owner: nil
submorphs: an Array(a TaskbarMorph(984088576) a
SystemWindow(808189952) 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: [(647@560) mouseUp 949878 nil]
focusHolder: a MenuMorph(154402816)
aBlock: [self mouseFocus: nil]
w: a PasteUpMorph(425197568) [world]
result: #(nil)
Receiver's instance variables:
bounds: (463@471) corner: (479@487)
owner: a PasteUpMorph(425197568) [world]
submorphs: #()
fullBounds: (463@471) corner: (479@487)
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: [(463@471) mouseUp 3570522 nil]
targetOffset: (60.0(a)8.0)
damageRecorder: a DamageRecorder
cacheCanvas: nil
cachedCanvasHasHoles: true
temporaryCursor: nil
temporaryCursorOffset: nil
hardwareCursor: nil
hasChanged: true
savedPatch: nil
lastEventBuffer: #(1 3570522 463 471 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: [(647@560) mouseUp 949878 nil]
focusHolder: a MenuMorph(154402816)
aBlock: [self mouseFocus: nil]
result: nil
Receiver's instance variables:
bounds: (463@471) corner: (479@487)
owner: a PasteUpMorph(425197568) [world]
submorphs: #()
fullBounds: (463@471) corner: (479@487)
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: [(463@471) mouseUp 3570522 nil]
targetOffset: (60.0(a)8.0)
damageRecorder: a DamageRecorder
cacheCanvas: nil
cachedCanvasHasHoles: true
temporaryCursor: nil
temporaryCursorOffset: nil
hardwareCursor: nil
hasChanged: true
savedPatch: nil
lastEventBuffer: #(1 3570522 463 471 0 0 0 1)
lastKeyScanCode: 99
combinedChar: nil
eventSource: nil
lastSystemEvent: nil
captureBlock: nil
recentModifiers: 0
--- The full stack ---
FileDialogWindow(Object)>>doesNotUnderstand: #directoriesFor:
FileDirectoryWrapper>>contents
IndentingListItemMorph>>refreshExpandedState
IndentingListItemMorph>>toggleExpandedState
IndentingListItemMorph>>openPath:
TreeListMorph(SimpleHierarchicalListMorph)>>update:
[:aDependent | aDependent update: aParameter] in
FileDialogWindow(Object)>>changed:
DependentsArray>>do:
FileDialogWindow(Object)>>changed:
FileDialogWindow>>selectDirectory:
FileDialogWindow>>addInitialPanel
FileDialogWindow(DialogWindow)>>initialize
FileDialogWindow>>initialize
PharoTheme(UITheme)>>chooseFullFileNameIn:title:patterns:path:preview:
MorphicUIManager>>chooseFullFileNameMatching:label:
Workspace>>askForFileNameToOpen
Workspace>>openCommand
[| selArgCount |
(selArgCount := selector numArgs) = 0
ifTrue: [target perform: selector]
ifFalse: [selArgCount = arguments size
ifTrue: [target perform: selector withArguments: arguments]
ifFalse: [target
perform: selector
withArguments: (arguments copyWith: evt)]].
self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>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
Feb. 13, 2012
[Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #asSocketAddress
by Alexis Parseghian
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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)129.0) corner: (599.0(a)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(a)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(a)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(a)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(a)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(a)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(a)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
Feb. 13, 2012