- Pharo-dev - lists.pharo.org

[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

[Pharo-project] Fwd: [BUG] [ :a | ] value: 1
by Lukas Renggli Dec. 17, 2009

Dec. 17, 2009

---------- Forwarded message ---------- From: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2009/12/16 Subject: Re: [BUG] [ :a | ] value: 1 To: Lukas Renggli <renggli(a)gmail.com>, Dan Ingalls <Dan.Ingalls(a)sun.com>, "L. Peter Deutsch" <lpd(a)major2nd.com> Cc: The general-purpose Squeak developers list <squeak-dev(a)lists.squeakfoundation.org> Hi Lukas, Â Â Â can you forward my response to Pharo? Â TIA. On Wed, Dec 16, 2009 at 2:54 AM, Lukas Renggli <renggli(a)gmail.com> wrote: > > Hi Eliot > > While working on a way to use the RB-AST with the standard compiler I > think I found a problem in your code. To reproduce evaluate the > following expression: > > Â Â [ :a | ] value: 1 > > According to my understanding that should return nil, not the first argument 1. > > The generated bytecode is: > > Â Â pushTemp: 0 > Â Â blockReturn > > I think it should be: > > Â Â pushConstant nil > Â Â blockReturn > > Cheers, > Lukas :) :) Â This is funny. Â VisualWorks has exactly the same bug^H^H^Hfeature. Â And if you look at the ANSI standard (ok, this is from the draft, but it is essentially the actual document) there is an exception for precisely this case, Â See the last sentence in section 3.4.4 Blocks: If a block has no <block body> or no <statements> in its <block body> then the value of the block is undefined. Which allows [] to be implemented as e.g. [Random new next]. Â In fact both VisualWorks and Squeak answer the last argument: [:a ] value: 1 1 [:a :b|] value: 1 value: 2 2 [:a :b :c :d :e :f :g :h| ] valueWithArguments: (1 to: 8) 8 [:a | nil] value: 1 nil [:a :b| nil] value: 1 value: 2 nil At least it is consistent whether the block is inlined or not ;) 1+2 ifNotNil: [:arg|] 3 It as ever been so. Â This from Smalltalk-80 V2: BlockNode methods forÂ initialize-release arguments: argNodes statements: statementsCollection returns: returnBool from: encoder sourceEnd: sourceEnd "compile" sourceRange Â _ sourceEnd to: sourceEnd. arguments _ argNodes. statements _ statementsCollection size > 0 ifTrue: [statementsCollection] ifFalse: [argNodes size > 0 ifTrue: [statementsCollection copyWith: arguments last] ifFalse: [Array with: NodeNil]]. returns _ returnBool This from VW: BlockNode methods forÂ code generation emitBody: codeStream "The codeStream invokes this to compile the body of the block, including the final return." (body isEmpty and: [arguments isEmpty not]) ifTrue: [codeStream noteSourceStart: body. arguments last variable emitLocalReturn: codeStream from: body] ifFalse: [body emitLocalReturn: codeStream from: body] This from Squeak (my timestamp, but I just changed the _'s to :='s :) ) BlockNode methods forÂ initialize-release arguments: argNodes statements: statementsCollection returns: returnBool from: encoder "Compile." arguments := argNodes. statements := statementsCollection size > 0 ifTrue: [statementsCollection] ifFalse: [argNodes size > 0 ifTrue: [statementsCollection copyWith: arguments last] ifFalse: [Array with: NodeNil]]. optimized := false. returns := returnBool So at least it is easy to fix ;) Â The question you have to ask yourself is how much code is affected by this wafer thin change. I'm with you, I think this is a bug. Â But perhaps it was well thought through. Â What say you, Dan & Peter? Â Did y'all agonise over this? What say you Squeak & Pharo communities? Â Should we fix this or make it a preference ;) best Eliot P.S. Â I'm caught between wanting to fix it and wanting to let sleeping dogs lie. Â I'd like to know what all the other dialects do. Â If a substantial majority have the same curio I think we have to live with this, uh, ornament. Â Just to be clear, making it a preference is a sick joke on my part. > > -- > Lukas Renggli > http://www.lukas-renggli.ch -- Lukas Renggli http://www.lukas-renggli.ch

6 5

[Pharo-project] Fwd: [BUG] [ :a | ] value: 1
by Torsten Bergmann Dec. 17, 2009

Dec. 17, 2009

Smalltalk/MT also returns nil -- Preisknaller: GMX DSL Flatrate fÃ¼r nur 16,99 Euro/mtl.! http://portal.gmx.net/de/go/dsl02

3 4

Re: [Pharo-project] [Vm-dev] Re: squeak VM 5.0
by Laval Jannik Dec. 17, 2009

Dec. 17, 2009

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. Cheers, Jannik ======= 'From PharoCore1.1ALPHA of ''19 October 2009'' [Latest update: #11088] on 16 December 2009 at 11:06:21 pm'! IdentityDictionary subclass: #SystemDictionary instanceVariableNames: 'cachedClassNames ' classVariableNames: 'LastImageName LastQuitLogPosition LowSpaceProcess LowSpaceSemaphore MemoryHogs ShutDownList SpecialSelectors StartUpList StartupStamp SystemChanges WordSize ' poolDictionaries: '' category: 'System-Support'! !SystemDictionary class methodsFor: 'initialization' stamp: 'jannik.laval 12/16/2009 22:40'! wordSize WordSize ifNil: [WordSize := [SmalltalkImage current vmParameterAt: 40] on: Error do: [4]]. ^WordSize! ! !SystemDictionary class methodsFor: 'initialization' stamp: 'jannik.laval 12/16/2009 22:40'! wordSize: aNumber WordSize := aNumber! ! IdentityDictionary subclass: #SystemDictionary instanceVariableNames: 'cachedClassNames' classVariableNames: 'LastImageName LastQuitLogPosition LowSpaceProcess LowSpaceSemaphore MemoryHogs ShutDownList SpecialSelectors StartUpList StartupStamp SystemChanges WordSize' poolDictionaries: '' category: 'System-Support'! !CompiledMethod methodsFor: 'accessing' stamp: 'jannik.laval 12/16/2009 22:41'! initialPC "Answer the program counter for the receiver's first bytecode." ^ (self numLiterals + 1) * SystemDictionary wordSize + 1! ! ======= On Dec 16, 2009, at 18:32 , Eliot Miranda wrote: > Um, I'm _quite_ serious on insisting that Smalltalk wordSize be implemented in some way that caches the value in e.g. a class variable (or class inst var for max speed) that is reevaluated on startup. initialPC is evaluated a lot, e.g. once for every method in a "browse inst var refs". This is performance-critical, and going to a slow primitive to access something that can only change at startup is not a good idea. Please arrange that e.g. SystemDictionary gains a class var that caches the word size. > > On Wed, Dec 16, 2009 at 12:48 AM, John M McIntosh <johnmci(a)smalltalkconsulting.com> wrote: > > RIght and it's 12:30 am again, > > So the MAGIC fixes for the tracer to let you build a 64bit Pharo image are below. > No doubt they apply to closure based squeak trunk images. > > Could someone can be kind enough to integrate them into the current System-Tracing.2forPharo.cs ? > Then some people in Europe? can grab the current Pharo/Trunk image and convert it, and run some smoke tests. > BTW you need to use the Squeak.5.0.0.b9.64*64.app.zip to run a 64bit image > > Don't forget to convert you have to use a powerpc, or a squeak VM that is running as powerpc (via get info settings) on your macintel machine. > Still need someone to *fix* the systemtracer so it will run on intel machines. (Hint watch how it writes out integer data). ... > > Changes below: > > "This is the magic change, it's not the conversion of the image that is bad. It's the Smalltalk code assumption of is that 4 or 8 bytes? " > "There likely should be a Pharo/Squeak bug for this since it should be using wordSize not a magic number of 4" > > Eliot notes "Bravo! But Smalltalk wordSize has to be implemented in some way that caches the value in e.g. a class variable (or class inst var for max speed) that is reevaluated on startup." > > So I'll let someone propose/write a clever solution since the Smalltalk wordSize is computational heavy. > > CompiledMethod>>initialPC > "Answer the program counter for the receiver's first bytecode." > > ^ (self numLiterals + 1) * (Smalltalk wordSize) + 1 > > > "This next method isn't used much, should be. But the System-Tracing.2forPharo.cs trashes it with a ancient version. > This is the correct version" > > SystemDictionary>>wordSize > "Answer the size (in bytes) of an object pointer." > "Smalltalk wordSize" > ^[SmalltalkImage current vmParameterAt: 40] on: Error do: [4] > > "Changes to properly fix up BlockClosure in the SystemTracer2" > > SystemTracer2>>object: object allFieldsWithIndex: block collect: sequenceableCollectionClass > "Evaluate block against each of the pointer fields with index, and collect the results in an instance of sequenceableCollectionClass" > > | fixedSize results varSize nilResults blockvalue | > object isCompiledMethod ifTrue: > [results := sequenceableCollectionClass new: 1 + object numLiterals. > 1 to: 1 + object numLiterals do: > [:j | results at: j put: (block value: (object objectAt: j) value: j)]. > ^ results]. > > fixedSize := object class instSize. > varSize := object basicSize. > results := sequenceableCollectionClass new: fixedSize + varSize. > 1 to: fixedSize do: > [:j | results at: j put: (block value: (object instVarAt: j) value: j)]. > 1 to: varSize do: > [:j | > results at: fixedSize + j put: (block value: (object basicAt: j) value: fixedSize + j)]. > > object isContextPart ifTrue: > [(object instVarAt: 2) ifNotNil: > ["May need to adjust PC and startPC if changing wordSize..." > blockvalue := (object instVarAt: 2)+(self pcDeltaForMethod: object method). > results at: 2 put: (block value: blockvalue value: 2)]. > ((object isMemberOf: BlockContext) and: [object home notNil]) ifTrue: > [results at: 5 put: (block value: (object instVarAt: 5)+(self pcDeltaForMethod: object method) value: 5)]. > "Need to fill out the nils beyond the knowable end of stack" > nilResults := sequenceableCollectionClass new: object frameSize - object basicSize. > 1 to: nilResults size do: > [:j | nilResults at: j put: (block value: nil value: j)]. > ^ results , nilResults]. > object class = BlockClosure ifTrue: > ["May need to adjust PC and startPC if changing wordSize..." > blockvalue := (object instVarAt: 2)+(self pcDeltaForMethod: object method). > results at: 2 put: (block value: blockvalue value: 2)]. > ^ results > > > >> Eliot and I spent 30 minutes chatting about what is wrong. The conclusion is we *think* we are doing the right thing, > >> yet the Virtual Machine says the image is busted. So a quick fix is not apparent, and we'll dig more. > > -- > =========================================================================== > John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 > Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com > =========================================================================== > > > > >

2 2

[Pharo-project] squeak VM 5.0
by Alexandre Bergel Dec. 17, 2009

Dec. 17, 2009

Hi! I just tried Squeak.5.0.0.b9.64*64.app.zip, but I was not able to run a pharo core on it. I have a MacBookPro 10.5.8. I do not know whether this is helpful or not. Feel free to ask more info about my config. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

7 20

[Pharo-project] Fwd: [BUG] [ :a | ] value: 1
by Lukas Renggli Dec. 16, 2009

Dec. 16, 2009

---------- Forwarded message ---------- From: L Peter Deutsch <lpd(a)major2nd.com> Date: 2009/12/16 Subject: Re: [BUG] [ :a | ] value: 1 To: eliot.miranda(a)gmail.com Cc: renggli(a)gmail.com, Dan.Ingalls(a)sun.com, squeak-dev(a)lists.squeakfoundation.org Good Heavens. Â To think that that something like this would surface after all these years.... I agree with Lukas. Â The block should return nil. Â The ANSI standard is broken -- the fewer special cases a standard has, the better. I didn't write the Smalltalk source-to-bytecode compiler, and if I had, I would have made it return nil if I had had my wits about me. OTOH, Dan may know of a historical reason why things were done this way -- perhaps there's some fairly common usage pattern that I've forgotten that makes the return-the-last-argument definition worthwhile. I agree that changing this is likely to break code. Â All the same, I am somewhat in favor of changing it in the ANSI standard. Â If that is done, I would hope someone would create a tool to do a pass over Smalltalk source code and browse any occurrences of the problematic construct. Â (Fixing them automatically might not be a good idea, since the value that the block returns might not actually be used, and if not, no fix would be needed.) Fortunately, this is an example where it's easy, if a little unsightly, to write code so that it will work under either interpretation (by explicitly include the desired return value in the block). Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â L Peter Deutsch P.S. Writing standards is really very tricky. Â If one writes a standard too early, it's likely to get something important wrong simply from not enough experience; but if you write it too late, it may be impossible to get implementations to follow it, or the standard may have to compromise on quality to conform to the implementations. Â A depressing example of this is HTML5, where I'm told the standards committee pretty much caved to whatever the major browsers had actually done, regardless of how poorly designed it was. ---------------------------------------------------------------- -- Lukas Renggli http://www.lukas-renggli.ch

2 2