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

[Pharo-project] misconception addendum :)
by StÃ©phane Ducasse Dec. 17, 2009

Dec. 17, 2009

Hi this night I was thinking about a frequent misconception about pharo. It is easy to think that pharo wants just plain good engineering to open grey window. Pharo really wants to be innovative and this at all level. We want better/faster/leaner and more powerful code at all level: UI, network... I heard that some people think that we are against MVC but we are not We are against isMorphic ifTrue: ifFalse:. Pharo does not have to be in the seaside niche and it will not be. But if this makes the life easier to some perfect. Now pharoers do not have to either pick web or the rest. We want to make sure that if someone wants to build an alternative windowing system he can do it easily. (BTW alain showed to us some fun and powerful sketches of using cairo (via rome) to have multiple windowing skeleton.) Now we certainly do not have the knowledge for everything but this is not by a lack of vision. So if you want to build this future don't get us wrong. Stef PS: I still have in mind the vision of Smalltalk by dan: a system that a simple person could understand (for me it means beauty, documentation and elegance of the solutions).

3 3

[Pharo-project] a bit of fun in this cruel world
by StÃ©phane Ducasse Dec. 17, 2009

Dec. 17, 2009

How to configure your own tools....? FileList>>buttonSelectorsToSuppress "Answer a list of action selectors whose corresponding services we would prefer *not* to have appear in the filelist's button pane; this can be hand-jimmied to suit personal taste." ^ #(removeLineFeeds: addFileToNewZip: compressFile: putUpdate:)

2 1

[Pharo-project] strange UI refreshing problem
by StÃ©phane Ducasse Dec. 17, 2009

Dec. 17, 2009

Hi Can somebody tell us if you have the same behavior: 1 Open a large squeak window 2 move it so that a part of it is outside of your physical screen 3 open a browser and move the browser so that it overlaps with the region outside of your screen -> you should get black and heavy flickering when you move your window. Stef

1 0

[Pharo-project] Fwd: [squeak-dev] Re: [Vm-dev] Re: squeak VM 5.0
by StÃ©phane Ducasse Dec. 17, 2009

Dec. 17, 2009

> excellent > can you sync with marcus? > We will have to clean SystemDictionary because this is not a namespace but a kind of clean trash. (when I compared to what is was). > I will start to think about what we want. but in a nutshell > > - a namespace class that only deals with binding (may be class Smalltalk) > - a class that deals with image and VM code (may be called SmalltalkImage) > > Stef > > On Dec 17, 2009, at 7:44 AM, Laval Jannik wrote: > >> Hi, >> >> I modify the variable in the method "clonePreStartup". >> So, it works fine. >> >> ===== >> !SystemTracer2 methodsFor: 'clone startup' stamp: 'ajh 8/22/2002 11:15'! >> clonePreStartup >> "This will be executed right away when the new clone starts up, before processStartup. Subclasses may want to rehash all objects or something" >> SystemDictionary wordSize: self wordSize.! ! >> ===== >> >> Now, there are some tests which does not pass. >> So, I will publish the code and the pharoImage64, and with the community, we can check this. >> >> Cheers, >> Jannik >> >> >> On Dec 17, 2009, at 02:32 , John M McIntosh wrote: >> >>> Ok, well I created Mantis >>> http://bugs.squeak.org/view.php?id=7430 >>> to document. >>> >>> Personally I would do >>> Smalltalk wordSize >>> versus >>> SystemDictionary wordSize >>> >>> Also the issue is when to change the WordSize variable. >>> >>> I think in >>> SmalltalkImage>>snapshot: andQuit: embedded: >>> right at the >>> ifTrue: [self quitPrimitive]. >>> Cursor normal show. >>> you want to set things so that wordSize is reset. >>> >>> At quit time you could do the reset before the >>> "self quitPrimitive" >>> then you know the value is reset and needs to be recalculated at startup time. >>> or you can reset it before the >>> Cursor normal show. >>> which runs after startup time >>> >>> Somehow I think there is more risk resetting it after startup since I'm not sure >>> when something could leap in wanting a valid value. >>> >>> >>> >>> On 2009-12-16, at 2:44 PM, Laval Jannik wrote: >>> >>>> Hi Eliot, hi John, >>>> >>>> This is what I do: >>>> - create a class var in SystemDictionary >>>> - accessors (wordSize and wordSize:), the first one can initialize the variable if nil, the second is to modify the value in case of 64bits image. >>>> Maybe the second one could be integrated in System-Tracing file. >>>> - in CompiledMethod, initialPC use it. >>>> >>>> Maybe we could integrate it in pharoCore. >>>> >>> >>> -- >>> =========================================================================== >>> John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 >>> Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com >>> =========================================================================== >>> >>> >>> >>> >> >> >> > > > >

4 5

[Pharo-project] Problems with Czech accented characters
by "M. PolÃ¡k" Dec. 17, 2009

Dec. 17, 2009

Hi there, in older version of Pharo (pharo1.0-10487-BETAdev09.10.4) I was able to type Czech acc. chars (like ÄÅ¡ÄÅÅ¾Ã½Ã¡ÃÃ©) without problems. But in most recent image, there is problem - instead of these characters, I see only '?'. What has changed? In the older version, there is 'Fonts' folder (none in recent version), so I suppose, that font handling is now different. Importing DejaVu Czech font into recent image doesn't help. Any suggestiions what I should do? Thanks, Martin

7 12

[Pharo-project] Latest OB broken in PharoCore
by HernÃ¡n Morales Durand Dec. 17, 2009

Dec. 17, 2009

Hi, I've installed OB with the following script (from http://code.google.com/p/pharo/wiki/RewriteTools) in Pharo-Core: Gofer new squeaksource: 'rb'; addPackage: 'AST-Core'; addPackage: 'Refactoring-Core'; addPackage: 'Refactoring-Spelling'; renggli: 'omnibrowser'; addPackage: 'OmniBrowser'; addPackage: 'OB-Standard'; addPackage: 'OB-Morphic'; addPackage: 'OB-Shout'; addPackage: 'OB-Refactory'; addPackage: 'OB-Regex'; load. but when opening an OB system browser there is a MNU related with OBShoutPlatform: 17 December 2009 2:21:19 pm VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.1ALPHA [Latest update: #11106] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true OBShoutPlatform(Object)>>doesNotUnderstand: #build: Receiver: an OBShoutPlatform Arguments and temporary variables: aMessage: build: an OBSystemBrowser exception: MessageNotUnderstood: OBShoutPlatform>>build: resumeValue: nil Receiver's instance variables: an OBShoutPlatform OBShoutPlatform(OBMorphicPlatform)>>handleBrowseRequest: Receiver: an OBShoutPlatform Arguments and temporary variables: request: OBBrowseRequest Receiver's instance variables: an OBShoutPlatform OBBrowseRequest>>handleWith: Receiver: OBBrowseRequest Arguments and temporary variables: anObject: an OBShoutPlatform Receiver's instance variables: messageText: nil tag: nil signalContext: OBBrowseRequest(Exception)>>signal handlerContext: nil outerContext: nil browser: an OBSystemBrowser OBBrowseRequest(OBInteractionRequest)>>defaultAction Receiver: OBBrowseRequest Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: OBBrowseRequest(Exception)>>signal handlerContext: nil outerContext: nil browser: an OBSystemBrowser UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OBBrowseRequest Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OBBrowseRequest val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(3772)") closureOrNil: nil receiver: [closure] in PasteUpMorph>>becomeActiveDuring: OBBrowseRequest(Exception)>>signal Receiver: OBBrowseRequest Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: OBBrowseRequest(Exception)>>signal handlerContext: nil outerContext: nil browser: an OBSystemBrowser OBBrowseRequest class>>signal: Receiver: OBBrowseRequest Arguments and temporary variables: aBrowser: an OBSystemBrowser Receiver's instance variables: superclass: OBInteractionRequest methodDict: a MethodDictionary(#browser->(OBBrowseRequest>>#browser "a Compiled...etc... format: 142 instanceVariables: #('browser') organization: ('accessing' browser browser:) ('dispatching' handleWith:) ('test...etc... subclasses: nil name: #OBBrowseRequest classPool: nil sharedPools: nil environment: Smalltalk category: #'OmniBrowser-Notifications' traitComposition: {} localSelectors: nil OBSystemBrowser(OBBrowser)>>open Receiver: an OBSystemBrowser Arguments and temporary variables: Receiver's instance variables: panels: an OrderedCollection(an OBColumnPanel an OBFixedButtonPanel an OBDefini...etc... announcer: an OBAnnouncer cmdFactories: {OBCmdRemoveClass. ORCmdFormat. OBCmdRevertMethod. OBCmdRenameCat...etc... hasChanges: nil OBSystemBrowser class(OBBrowser class)>>open Receiver: OBSystemBrowser Arguments and temporary variables: Receiver's instance variables: superclass: OBCodeBrowser methodDict: a MethodDictionary(#defaultBackgroundColor->(OBSystemBrowser>>#defa...etc... format: 138 instanceVariables: nil organization: ('morphic' defaultBackgroundColor labelString) ('testing' isClass...etc... subclasses: nil name: #OBSystemBrowser classPool: nil sharedPools: nil environment: Smalltalk category: #'OB-Standard-Browsers' traitComposition: {} localSelectors: nil OBSystemBrowserAdaptor class>>open Receiver: OBSystemBrowserAdaptor Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#labelString->(OBSystemBrowserAdaptor>>#labelStr...etc... format: 134 instanceVariables: #('class' 'selector') organization: ('registry protocol' labelString openEditString: setClass:selecto...etc... subclasses: nil name: #OBSystemBrowserAdaptor classPool: nil sharedPools: nil environment: Smalltalk category: #'OB-Standard-Utilities' traitComposition: {} localSelectors: nil StandardToolSet class>>openClassBrowser Receiver: StandardToolSet Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #StandardToolSet classPool: nil sharedPools: nil environment: Smalltalk category: #'Tools-Base' traitComposition: nil localSelectors: nil [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: evt: [835@167 mouseUp 23822953 nil] selArgCount: #(0) Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 136 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1) ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: evt: [835@167 mouseUp 23822953 nil] w: a PasteUpMorph(1622) [world] selArgCount: #(0) Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: evt: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [835@167 mouseUp 23822953 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(1516)'Class Browser' Receiver's instance variables: timeStamp: 23822953 source: a HandMorph(3216) windowIndex: nil type: #mouseUp buttons: 0 position: 835@167 handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] aMorph: a ToggleMenuItemMorph(1516)'Class 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: [835@167 mouseUp 23822953 nil] aMorph: a ToggleMenuItemMorph(1516)'Class Browser' Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(1516)'Class Browser' Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: 795@165 corner: 929@177 owner: a MenuMorph(1298) submorphs: #() fullBounds: 795@165 corner: 929@177 color: Color black extension: a MorphExtension (2377) font: a StrikeFontSet(Accuny12 12) emphasis: 0 contents: 'Class Browser' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: StandardToolSet selector: #openClassBrowser arguments: #() icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] aMorph: a MenuMorph(1298) localEvt: [835@167 mouseUp 23822953 nil] index: 1 child: a ToggleMenuItemMorph(1516)'Class Browser' morphs: an Array(a ToggleMenuItemMorph(1516)'Class Browser' a ToggleMenuItemMor...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] aMorph: a MenuMorph(1298) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MenuMorph(Morph)>>processEvent:using: Receiver: a MenuMorph(1298) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: 791@161 corner: 933@336 owner: nil submorphs: an Array(a ToggleMenuItemMorph(1516)'Class Browser' a ToggleMenuItem...etc... fullBounds: 791@161 corner: 934@337 color: (Color r: 0.871 g: 0.871 b: 0.871) extension: a MorphExtension (4004) [other: (basicColor -> (Color r: 0.784 g: 0...etc... borderWidth: 1 borderColor: Color gray defaultTarget: a TheWorldMenu selectedItem: a ToggleMenuItemMorph(1516)'Class Browser' stayUp: false popUpOwner: a ToggleMenuItemMorph(2693)'Tools' activeSubMenu: nil activatorDockingBar: nil embeddable: nil MenuMorph(Morph)>>processEvent: Receiver: a MenuMorph(1298) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 791@161 corner: 933@336 owner: nil submorphs: an Array(a ToggleMenuItemMorph(1516)'Class Browser' a ToggleMenuItem...etc... fullBounds: 791@161 corner: 934@337 color: (Color r: 0.871 g: 0.871 b: 0.871) extension: a MorphExtension (4004) [other: (basicColor -> (Color r: 0.784 g: 0...etc... borderWidth: 1 borderColor: Color gray defaultTarget: a TheWorldMenu selectedItem: a ToggleMenuItemMorph(1516)'Class Browser' stayUp: false popUpOwner: a ToggleMenuItemMorph(2693)'Tools' activeSubMenu: nil activatorDockingBar: nil embeddable: nil MenuMorph>>handleFocusEvent: Receiver: a MenuMorph(1298) Arguments and temporary variables: evt: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 791@161 corner: 933@336 owner: nil submorphs: an Array(a ToggleMenuItemMorph(1516)'Class Browser' a ToggleMenuItem...etc... fullBounds: 791@161 corner: 934@337 color: (Color r: 0.871 g: 0.871 b: 0.871) extension: a MorphExtension (4004) [other: (basicColor -> (Color r: 0.784 g: 0...etc... borderWidth: 1 borderColor: Color gray defaultTarget: a TheWorldMenu selectedItem: a ToggleMenuItemMorph(1516)'Class Browser' stayUp: false popUpOwner: a ToggleMenuItemMorph(2693)'Tools' activeSubMenu: nil activatorDockingBar: nil embeddable: nil [] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] focusHolder: a MenuMorph(1298) result: #(nil) Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil [] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: aBlock: [closure] in HandMorph>>sendFocusEvent:to:clear: Receiver's instance variables: bounds: 0@0 corner: 1280@751 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(770) a SystemWindow(359...etc... fullBounds: 0@0 corner: 1280@751 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [closure] in PasteUpMorph>>becomeActiveDuring: Arguments and temporary variables: exception: Error handlerAction: [closure] in PasteUpMorph>>becomeActiveDuring: handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(1622) [world] Arguments and temporary variables: aBlock: [closure] in HandMorph>>sendFocusEvent:to:clear: priorWorld: a PasteUpMorph(1622) [world] priorHand: a HandMorph(3216) priorEvent: [835@167 mouseOver red nil nil] Receiver's instance variables: bounds: 0@0 corner: 1280@751 owner: nil submorphs: an Array(a TaskbarMorph(3095) a SystemWindow(770) a SystemWindow(359...etc... fullBounds: 0@0 corner: 1280@751 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (2543) [eventHandler = an EventHandler] [other: (...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) model: a MorphicModel(1926) cursor: 1 padding: 3 backgroundMorph: nil isPartsBin: nil autoLineLayout: false indicateCursor: nil resizeToFit: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] focusHolder: a MenuMorph(1298) aBlock: [closure] in HandMorph>>sendMouseEvent: w: a PasteUpMorph(1622) [world] result: #(nil) Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] focusHolder: a MenuMorph(1298) aBlock: [closure] in HandMorph>>sendMouseEvent: result: nil Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil HandMorph>>sendMouseEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(3216) Arguments and temporary variables: anEvent: [835@167 mouseUp 23822953 nil] evt: [835@167 mouseUp 23822953 nil] ofs: nil Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(3216) Arguments and temporary variables: evt: [835@167 mouseUp 23822953 nil] evtBuf: #(1 23822953 835 167 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: 709@476 corner: 725@492 owner: a PasteUpMorph(1622) [world] submorphs: #() fullBounds: 709@476 corner: 725@492 color: Color blue extension: a MorphExtension (539) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [709@476 mouseUp 23973171 nil] targetOffset: 17@12 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 23973171 709 476 0 0 0 1) lastKeyScanCode: 77 combinedChar: nil [] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(3216) Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 1280@751 canvas: a FormCanvas on: DisplayScreen(1280x751x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a SystemWindow(770))(a SystemWindow(77...etc... lastStepTime: 23973261 lastStepMessage: nil lastCycleTime: 23973183 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 23973261 Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(3216)) Arguments and temporary variables: aBlock: [closure] in WorldState>>doOneCycleNowFor: index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(3216)) --- The full stack --- OBShoutPlatform(Object)>>doesNotUnderstand: #build: OBShoutPlatform(OBMorphicPlatform)>>handleBrowseRequest: OBBrowseRequest>>handleWith: OBBrowseRequest(OBInteractionRequest)>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: OBBrowseRequest(Exception)>>signal OBBrowseRequest class>>signal: OBSystemBrowser(OBBrowser)>>open OBSystemBrowser class(OBBrowser class)>>open OBSystemBrowserAdaptor class>>open StandardToolSet class>>openClassBrowser [] 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: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess HernÃ¡n

2 2

[Pharo-project] alwaysHideScrollbar, alwaysShowHScrollbar and alwaysShowVScrollbar
by Alain Plantec Dec. 17, 2009

Dec. 17, 2009

Hi all, sorry for all these annoying questions ... I would simply like to remove these preferences with: alwaysHideScrollbar always false alwaysShowHScrollbar always true alwaysShowVScrollbar always true. I can easily put new settings for them but is it really mandatory ? Instead, removing them let the opportunity to replace ScrollPane/ScrollBar with GeneralScrollPane/GeneralScrollBar (which are unused whereas it seems to me that they are cleaner and more simple) what do you think ? thanks Alain

3 2

[Pharo-project] Class - How to check, if a class I want to create already exists and how to delete it?
by Dirk Klaschus Dec. 17, 2009

Dec. 17, 2009

Hi, folks! I'm new to Smalltalk, but I love it already. I have two questions, I couldn't find answers for: 1) I have written a method which creates a new class. How can I check, if the class I want to create does not exist already? ... Object subclass: textKlassenname asSymbol instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ZFriend-Bibliothek' 2) I want to write a method, which deletes the created class. How can I do it? P.S.: I did not find any place to look it up for myself. Any hints where to find such answers? Thanks for your help!!! Dirk

2 1

[Pharo-project] Smalltalkers needed
by Ramiro Diaz Trepat Dec. 17, 2009

Dec. 17, 2009

I don't know if this is not the proper place for this, in case it isn't my apologies. I will be brief. We have an open position to work in Kapital, the risk management software for derivatives in JPMorgan. It is a large project that runs on VW + Gemstone, among other things, you get lots of clever smalltalkers as colleagues :) The position is based in London and it is not possible to work from another location. If anyone is interested, drop me an email with an English version of your CV to: ramiro(a)diaztrepat.name<mailto:ramiro@diaztrepat.name> Cheers r This email is confidential and subject to important disclaimers and conditions including on offers for the purchase or sale of securities, accuracy and completeness of information, viruses, confidentiality, legal privilege, and legal entity disclaimers, available at http://www.jpmorgan.com/pages/disclosures/email.

1 0

[Pharo-project] [update 1.1] #11106
by Marcus Denker Dec. 17, 2009

Dec. 17, 2009

11106 ----- Issue 1410: _ in selectors -- Marcus Denker -- http://www.marcusdenker.de Please Note: New Email Adress! marcus.denker(a)inria.fr

2 1