September 2012 - Pharo-users

PID
by Santiago Bragagnolo Sept. 14, 2012

Sept. 14, 2012

Hi there! Is any way to know the VM pid from the image side? (without using FFI) Santiago

5 4

keyboard weirdness
by sergio_101 Sept. 14, 2012

Sept. 14, 2012

i can't think of a better way to describe this, other than weirdness.. using pharo 1.4 on both osx snow leopard and mountain lion. this happens a few times a day, but i can't predictable reproduce it: i am working away in pharo, then switch to another app.. when i come back, i can type, but i can't backspace. if i hit the tab key, it cycles my pharo image through its open windows.. if i hit ctl, everything snaps back to normal.. any ideas? thanks! -- ---- peace, sergio photographer, journalist, visionary http://www.ThoseOptimizeGuys.com http://www.CodingForHire.com http://www.coffee-black.com http://www.painlessfrugality.com http://www.twitter.com/sergio_101 http://www.facebook.com/sergio101

1 0

[ANN] Zinc WebSockets
by Sven Van Caekenberghe Sept. 13, 2012

Sept. 13, 2012

Hi, I am pleased to announce the first public release of Zinc WebSockets, an implementation of client and server RFC 6455 regular (ws://) and secure (wss://) WebSockets on top of Zinc HTTP Components and Zodiac TLS/SSL Streams. High level documentation can be found here: https://github.com/svenvc/docs/blob/master/zinc/zinc-websockets-paper.md The code can be found in the regular Zinc repositories, or can be loaded using Metacello: ConfigurationOfZincHTTPComponents project latestVersion load: 'WebSocket'. Three examples are included and explained in the high level documentation: 1. a trivial echo service - each incoming message is simply echoed back to the client 2. a simple chatroom - each client opens a web socket to the chatroom service running on the server - the server keeps track of all connected client web sockets - when a message comes in from any client it is distributed to all clients - each client shows all incoming messages 3. a simple, continously updated status view - a client connects and listens for incoming messages containing a status report - the server streams status reports to each connected client every second - in the web browser you get to see the Smalltalk image's clock, memory and process stats Tested and approved on 2.0 #281. Portability to 1.3 and 1.4 should be OK. The implementation of Zinc WebSockets was made possible in part through financial backing by Andy Burnett of Knowinnovation Inc. and ESUG. Thanks! Questions, remarks, feedback ? Please use the Pharo Smalltalk mailing lists. Sven -- Sven Van Caekenberghe http://stfx.eu Smalltalk is the Red Pill

3 2

[Screencast] StoryBoard
by laurent laffont Sept. 12, 2012

Sept. 12, 2012

http://www.pharocasts.com/2012/09/getting-started-with-storyboard.html Storyboard is a multi-user agile planning board with drag and drop support. It shows how little code is needed to build a complete application with Deltawerken. It consists of 39 classes, of which 7 are announcements (very simple). It allows you to quickly enter stories, estimate and prioritize them. In addition to stories you can add issue, documentation and chore cards. The cards are colored based on their story state. More details can be entered/viewed by expanding the card. In the expanded view a change history is shown. Other users of Storyboard can be invited to participate. Deltawerken is a Seaside application level framework, allowing fast application development for medium-sized applications. We have used an earlier extended version of it to build a system with about 150 domain classes. Complexity was deliberately and systematically pushed from the application to the framework. It uses a declarative way to describe domain classes somewhat similar to Magritte or Mold. It uses Announcements, jQuery and jQueryUI. Storyboard was announced at ESUG2012 Thank you Stephan Eggermont! (Note: feel free to contact me if you want to publish on PharoCasts) Laurent

1 0

Calling Ruby
by Davide Varvello Sept. 12, 2012

Sept. 12, 2012

Hi there, Is it possible to call ruby from pharo? (And how, of course :-)) Cheers Davide -- View this message in context: http://forum.world.st/Calling-Ruby-tp4646973.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

4 5

md5Sum
by Santiago Bragagnolo Sept. 12, 2012

Sept. 12, 2012

Hi guys! Is there any md5sum implementation for pharo 1.4? I was looking at System-Hashing-MD5 package and is empty :P. Santiago.

2 2

GemSource, seaside.gemstone.com, SS3 MAINTENANCE Saturday June 9 from 10am-2pm PDT
by Dale Henrichs Sept. 11, 2012

Sept. 11, 2012

Maintenance is scheduled for this Saturday and according to the internal announcement no downtime is anticipated: The work is considered low risk and no downtime is anticipated, this is being sent out as a courtesy. If you experience problems on Saturday, don't hesitate to send email. Dale

1 2

smalltalk - instantiate an object with parameters..
by sergio_101 Sept. 11, 2012

Sept. 11, 2012

yes, i know this sounds simple.. but is it possible to instantiate an object with some parameters? say i have a dictionary: params := Dictionary new. params at: 'sound' put: 'bark' dog := Dog new. ^^ at this point, i would like to just create a dog and send it 'params' all at once.. can i do this? what would the syntax look like? thanks! -- ---- peace, sergio photographer, journalist, visionary http://www.ThoseOptimizeGuys.com http://www.CodingForHire.com http://www.coffee-black.com http://www.painlessfrugality.com http://www.twitter.com/sergio_101 http://www.facebook.com/sergio101

8 15

OSProcess-Tests, who solves these errors?
by Peter K.H. Gragert Sept. 11, 2012

Sept. 11, 2012

Hello, Just read a foregoing mail and curious I installed as told: Gofer new squeaksource: 'MetacelloRepository'; package: 'ConfigurationOfOSProcess'; load. (Smalltalk at: #ConfigurationOfOSProcess) project bleedingEdge load. To load CommandShell, you can start with: Gofer new squeaksource: 'CommandShell'; package: 'CommandShell-Piping'; load. Running the SUnittest on it: see picture included ..What to do (a newbie) PC: Vista, Pharo .14 ..Greets Peter

3 2

problems installing gemtools
by sergio_101 Sept. 10, 2012

Sept. 10, 2012

for some reason, i am having a hard time installing gemtools. i pulled the latest image for the pharo website, and install gemtools from the metarepo, and get the following .. i seem to remember having the same issues when trying to install from the command line earlier.. any ideas? thanks! 8 September 2012 1:17:49.02 pm VM: Mac OS - intel - 1081 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 5151310c41b08f55b70e9c6250711cb1f3672ce7 Date: 2012-07-18 14:06:15 +0200 By: Camillo Bruni <camillobruni(a)gmail.com> Image: Pharo1.4 [Latest update: #14457] MetacelloMCProject(MetacelloProject)>>version: Receiver: ConfigurationOfGemTools(1.0-beta.0-baseline [ConfigurationOfGemTools], 1.0-beta.0 [Configu...etc... Arguments and temporary variables: aVersionString: #stable vrsn: nil symbolicVersionString: #notDefined Receiver's instance variables: versionMap: a Dictionary('1.0-beta.0'->1.0-beta.0 [ConfigurationOfGemTools] '1....etc... symbolicVersionMap: a Dictionary(#bleedingEdge->'1.0-beta.8.5-baseline' #develo...etc... loader: nil loaderClass: MetacelloLoadingMCSpecLoader loadType: #linear configuration: a ConfigurationOfGemTools projectAttributes: #(#'pharo1.0Beta' #'GemToolsForPharo1.1') MetacelloMCProject(MetacelloProject)>>stableVersion Receiver: ConfigurationOfGemTools(1.0-beta.0-baseline [ConfigurationOfGemTools], 1.0-beta.0 [Configu...etc... Arguments and temporary variables: Receiver's instance variables: versionMap: a Dictionary('1.0-beta.0'->1.0-beta.0 [ConfigurationOfGemTools] '1....etc... symbolicVersionMap: a Dictionary(#bleedingEdge->'1.0-beta.8.5-baseline' #develo...etc... loader: nil loaderClass: MetacelloLoadingMCSpecLoader loadType: #linear configuration: a ConfigurationOfGemTools projectAttributes: #(#'pharo1.0Beta' #'GemToolsForPharo1.1') MetacelloConfigurationBrowser>>loadConfigurationWithStable: Receiver: a MetacelloConfigurationBrowser Arguments and temporary variables: loadStable: true configName: 'ConfigurationOfGemTools' Receiver's instance variables: window: a StandardWindow(898367488) selectedConfiguration: 'ConfigurationOfGemTools-dkh.151' trustedTree: a PluggableTreeMorph(619184128) untrustedTree: a PluggableTreeMorph(61341696) selectedRepository: 'http://www.squeaksource.com/MetacelloRepository' MetacelloConfigurationBrowser>>loadStableFromSelectedConfiguration Receiver: a MetacelloConfigurationBrowser Arguments and temporary variables: Receiver's instance variables: window: a StandardWindow(898367488) selectedConfiguration: 'ConfigurationOfGemTools-dkh.151' trustedTree: a PluggableTreeMorph(619184128) untrustedTree: a PluggableTreeMorph(61341696) selectedRepository: 'http://www.squeaksource.com/MetacelloRepository' MetacelloConfigurationBrowser(Object)>>perform:orSendTo: Receiver: a MetacelloConfigurationBrowser Arguments and temporary variables: selector: #loadStableFromSelectedConfiguration otherTarget: a PluggableTreeMorph(61341696) Receiver's instance variables: window: a StandardWindow(898367488) selectedConfiguration: 'ConfigurationOfGemTools-dkh.151' trustedTree: a PluggableTreeMorph(619184128) untrustedTree: a PluggableTreeMorph(61341696) selectedRepository: 'http://www.squeaksource.com/MetacelloRepository' [| 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(656146432)'Install configuration (Stable version)' Arguments and temporary variables: evt: [(226@239) mouseUp 1396380 nil] selArgCount: 2 Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil 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(656146432)'Install configuration (Stable version)' Arguments and temporary variables: evt: [(226@239) mouseUp 1396380 nil] w: a PasteUpMorph(425197568) [world] Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)' Arguments and temporary variables: evt: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)' Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [(226@239) mouseUp 1396380 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(656146432)'Install configuration (Stable versio...etc... Receiver's instance variables: timeStamp: 1396380 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (226@239) handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)' Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] aMorph: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)...etc... 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: [(226@239) mouseUp 1396380 nil] aMorph: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)...etc... Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)' Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (219.0(a)236.0) corner: (448.0(a)250.0) owner: a MenuMorph(255328256) submorphs: #() fullBounds: (219.0(a)236.0) corner: (448.0(a)250.0) color: Color black extension: a MorphExtension (666370048) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Install configuration (Stable version)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a MetacelloConfigurationBrowser selector: #perform:orSendTo: arguments: an Array(#loadStableFromSelectedConfiguration a PluggableTreeMorph(6...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] aMorph: a MenuMorph(255328256) localEvt: [(226@239) mouseUp 1396380 nil] index: 1 child: a ToggleMenuItemMorph(656146432)'Install configuration (Stable version)'...etc... morphs: an Array(a ToggleMenuItemMorph(656146432)'Install configuration (Stable...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] aMorph: a MenuMorph(255328256) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MenuMorph(Morph)>>processEvent:using: Receiver: a MenuMorph(255328256) Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (214.0(a)231.0) corner: (453.0(a)288.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(656146432)'Install configuration (Sta...etc... fullBounds: (214.0(a)231.0) corner: (453.0(a)288.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (270270464) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a MetacelloConfigurationBrowser selectedItem: a ToggleMenuItemMorph(656146432)'Install configuration (Stable ve...etc... stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(656146432)'Install config...etc... MenuMorph(Morph)>>processEvent: Receiver: a MenuMorph(255328256) Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (214.0(a)231.0) corner: (453.0(a)288.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(656146432)'Install configuration (Sta...etc... fullBounds: (214.0(a)231.0) corner: (453.0(a)288.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (270270464) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a MetacelloConfigurationBrowser selectedItem: a ToggleMenuItemMorph(656146432)'Install configuration (Stable ve...etc... stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(656146432)'Install config...etc... MenuMorph>>handleFocusEvent: Receiver: a MenuMorph(255328256) Arguments and temporary variables: evt: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (214.0(a)231.0) corner: (453.0(a)288.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(656146432)'Install configuration (Sta...etc... fullBounds: (214.0(a)231.0) corner: (453.0(a)288.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (270270464) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: a MetacelloConfigurationBrowser selectedItem: a ToggleMenuItemMorph(656146432)'Install configuration (Stable ve...etc... stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(656146432)'Install config...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: [(226@239) mouseUp 1396380 nil] focusHolder: a MenuMorph(255328256) result: #(nil) Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 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: (976@662) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(240910336) a Stand...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: [(226@239) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (976@662) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(240910336) a Stand...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: [(226@239) mouseUp 1396380 nil] focusHolder: a MenuMorph(255328256) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] focusHolder: a MenuMorph(255328256) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(226@239) mouseUp 1396380 nil] evt: [(226@239) mouseUp 1396380 nil] ofs: nil Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(226@239) mouseUp 1396380 nil] evtBuf: #(1 1396380 226 239 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (362@507) corner: (378@523) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (362@507) corner: (378@523) 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: [(362@507) mouseUp 1429107 nil] targetOffset: (78.0(a)12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 1429107 362 507 0 0 0 1) lastKeyScanCode: 126 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: (976@662) canvas: a FormCanvas on: DisplayScreen(976x662x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(889192448))(an Ove...etc... lastStepTime: 1429089 lastStepMessage: nil lastCycleTime: 1429109 alarms: a Heap() lastAlarmTime: 1429089 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: (976@662) canvas: a FormCanvas on: DisplayScreen(976x662x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(889192448))(an Ove...etc... lastStepTime: 1429089 lastStepMessage: nil lastCycleTime: 1429109 alarms: a Heap() lastAlarmTime: 1429089 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: (976@662) canvas: a FormCanvas on: DisplayScreen(976x662x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(889192448))(an Ove...etc... lastStepTime: 1429089 lastStepMessage: nil lastCycleTime: 1429109 alarms: a Heap() lastAlarmTime: 1429089 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: (976@662) canvas: a FormCanvas on: DisplayScreen(976x662x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(889192448))(an Ove...etc... lastStepTime: 1429089 lastStepMessage: nil lastCycleTime: 1429109 alarms: a Heap() lastAlarmTime: 1429089 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (976@662) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(240910336) a Stand...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 --- MetacelloMCProject(MetacelloProject)>>version: MetacelloMCProject(MetacelloProject)>>stableVersion MetacelloConfigurationBrowser>>loadConfigurationWithStable: MetacelloConfigurationBrowser>>loadStableFromSelectedConfiguration MetacelloConfigurationBrowser(Object)>>perform:orSendTo: [| 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 -- ---- peace, sergio photographer, journalist, visionary http://www.ThoseOptimizeGuys.com http://www.CodingForHire.com http://www.coffee-black.com http://www.painlessfrugality.com http://www.twitter.com/sergio_101 http://www.facebook.com/sergio101

2 4