[update 1.1] #11278

11278
-----

Issue 2136: Smalltalk and SmalltalkImage (CleaningSystemDictionary.3.cs)


--
Marcus Denker  -- http://www.marcusdenker.de
INRIA Lille -- Nord Europe. Team RMoD.


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

On 03/18/10 11:42, Marcus Denker wrote:
> 11278
> -----
>
> Issue 2136: Smalltalk and SmalltalkImage (CleaningSystemDictionary.3.cs)

After this update, attempting to "save as" the image results in a
walkback and a hot loop, apparently after the image is actually saved.
Launching the saved image gets into the same problem.

Debug log is:

THERE_BE_DRAGONS_HERE
MessageNotUnderstood: SmalltalkImage>>isRisc
18 March 2010 12:16:03 pm

VM: unix - i686 - linux - Squeak3.10.2 of '5 June 2008' [latest update:
#7179]
Image: PharoCore1.1ALPHA [Latest update: #11278]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE
Trusted Dir
/mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE/secure
Untrusted Dir
/mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE/My Squeak

SmalltalkImage(Object)>>doesNotUnderstand: #isRisc
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: isRisc
                t2: MessageNotUnderstood: SmalltalkImage>>isRisc
                t3: nil
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


RiscOSPlatform class>>isActivePlatform
        Receiver: RiscOSPlatform
        Arguments and temporary variables:

        Receiver's instance variables:
                superclass: OSPlatform
                methodDict: a
MethodDictionary(#platformFamily->(RiscOSPlatform>>#platformFamil...etc...
                format: 2
                instanceVariables: nil
                organization: ('accessing' platformFamily)

                subclasses: nil
                name: #RiscOSPlatform
                classPool: nil
                sharedPools: nil
                environment: a SystemDictionary(lots of globals)
                category: #'System-Platforms'
                traitComposition: nil
                localSelectors: nil


[] in OSPlatform class>>determineActivePlatformStartingAt:
        Receiver: OSPlatform
        Arguments and temporary variables:
                t3: RiscOSPlatform
        Receiver's instance variables:
                superclass: Object
                methodDict: a
MethodDictionary(#clipboardClass->(OSPlatform>>#clipboardClass "a...etc...
                format: 2
                instanceVariables: nil
                organization: ('*System-Clipboard' clipboardClass)
('accessing' platformFamily ...etc...
                subclasses: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                name: #OSPlatform
                classPool: a Dictionary(#Current->an UnixPlatform )
                sharedPools: nil
                environment: a SystemDictionary(lots of globals)
                category: #'System-Platforms'
                traitComposition: {}
                localSelectors: nil


[] in OrderedCollection(Collection)>>detect:ifNone:
        Receiver: an OrderedCollection(MacOSXPlatform RiscOSPlatform
UnixPlatform Win32Platform)
        Arguments and temporary variables:
                t1: RiscOSPlatform
                t3: [closure] in OSPlatform class>>determineActivePlatformStartingAt:
        Receiver's instance variables:
                array: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                firstIndex: 1
                lastIndex: 4


OrderedCollection>>do:
        Receiver: an OrderedCollection(MacOSXPlatform RiscOSPlatform
UnixPlatform Win32Platform)
        Arguments and temporary variables:
                t1: [closure] in OrderedCollection(Collection)>>detect:ifNone:
                t2: 2
        Receiver's instance variables:
                array: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                firstIndex: 1
                lastIndex: 4


OrderedCollection(Collection)>>detect:ifNone:
        Receiver: an OrderedCollection(MacOSXPlatform RiscOSPlatform
UnixPlatform Win32Platform)
        Arguments and temporary variables:
                t1: [closure] in OSPlatform class>>determineActivePlatformStartingAt:
                t2: [closure] in OSPlatform class>>determineActivePlatformStartingAt:
        Receiver's instance variables:
                array: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                firstIndex: 1
                lastIndex: 4


OSPlatform class>>determineActivePlatformStartingAt:
        Receiver: OSPlatform
        Arguments and temporary variables:
                t1: OSPlatform
                t2: nil
        Receiver's instance variables:
                superclass: Object
                methodDict: a
MethodDictionary(#clipboardClass->(OSPlatform>>#clipboardClass "a...etc...
                format: 2
                instanceVariables: nil
                organization: ('*System-Clipboard' clipboardClass)
('accessing' platformFamily ...etc...
                subclasses: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                name: #OSPlatform
                classPool: a Dictionary(#Current->an UnixPlatform )
                sharedPools: nil
                environment: a SystemDictionary(lots of globals)
                category: #'System-Platforms'
                traitComposition: {}
                localSelectors: nil


OSPlatform class>>startUp:
        Receiver: OSPlatform
        Arguments and temporary variables:
                t1: false
                t2: nil
        Receiver's instance variables:
                superclass: Object
                methodDict: a
MethodDictionary(#clipboardClass->(OSPlatform>>#clipboardClass "a...etc...
                format: 2
                instanceVariables: nil
                organization: ('*System-Clipboard' clipboardClass)
('accessing' platformFamily ...etc...
                subclasses: {MacOSXPlatform. RiscOSPlatform. UnixPlatform. Win32Platform}
                name: #OSPlatform
                classPool: a Dictionary(#Current->an UnixPlatform )
                sharedPools: nil
                environment: a SystemDictionary(lots of globals)
                category: #'System-Platforms'
                traitComposition: {}
                localSelectors: nil


[] in [] in SmalltalkImage>>send:toClassesNamedIn:with:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: #startUp:
                t3: false
                t6: OSPlatform
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


BlockClosure>>on:do:
        Receiver: [closure] in [] in SmalltalkImage>>send:toClassesNamedIn:with:
        Arguments and temporary variables:
                t1: Exception
                t2: [closure] in [] in SmalltalkImage>>send:toClassesNamedIn:with:
                t3: false
        Receiver's instance variables:
                outerContext: [] in SmalltalkImage>>send:toClassesNamedIn:with:
                startpc: 133
                numArgs: 0


[] in SmalltalkImage>>send:toClassesNamedIn:with:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: #OSPlatform
                t3: #startUp:
                t4: false
                t5: an OrderedCollection()
                t6: OSPlatform
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


OrderedCollection>>do:
        Receiver: an OrderedCollection(#Delay #OSPlatform #DisplayScreen
#Cursor #InputEventFetcher #Process...etc...
        Arguments and temporary variables:
                t1: [closure] in SmalltalkImage>>send:toClassesNamedIn:with:
                t2: 2
        Receiver's instance variables:
                array: #(#Delay #OSPlatform #DisplayScreen #Cursor #InputEventFetcher
#Processo...etc...
                firstIndex: 1
                lastIndex: 38


SmalltalkImage>>send:toClassesNamedIn:with:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: #startUp:
                t2: an OrderedCollection(#Delay #OSPlatform #DisplayScreen #Cursor
#InputEventF...etc...
                t3: false
                t4: an OrderedCollection()
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


SmalltalkImage>>processStartUpList:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: false
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


SmalltalkImage>>snapshot:andQuit:embedded:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: true
                t2: false
                t3: false
                t4: false
                t5: '----SNAPSHOT----an Array(18 March 2010 12:16:02 pm) 11278.image
priorSourc...etc...
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


SmalltalkImage>>snapshot:andQuit:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: true
                t2: false
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


SmalltalkImage>>saveImageInFileNamed:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1:
'/mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE/11278.image'...etc...
                t2:
'/mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE/11278.image'...etc...
                t3:
'/mnt/caboodle1/Martin/apps/pharo/PharoCore-1.1-11268-UNSTABLE/updated.imag...etc...
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


SmalltalkImage>>saveAs:
        Receiver: Smalltalk
        Arguments and temporary variables:
                t1: '11278'
        Receiver's instance variables:
                globals: a SystemDictionary(lots of globals)


WorldState class>>saveAs
        Receiver: WorldState
        Arguments and temporary variables:
                t1: '11278'
                t2: nil
        Receiver's instance variables:
                superclass: Object
                methodDict: a MethodDictionary(#activeHand->(WorldState>>#activeHand
"a Compile...etc...
                format: 154
                instanceVariables: #('hands' 'viewBox' 'canvas' 'damageRecorder'
'stepList' 'la...etc...
                organization: ('alarms' addAlarm:withArguments:for:at:
adjustAlarmTimes: alarmS...etc...
                subclasses: nil
                name: #WorldState
                classPool: a Dictionary(#CanSurrenderToOS->true
#DebugShowDamage->false #Deferr...etc...
                sharedPools: nil
                environment: a SystemDictionary(lots of globals)
                category: #'Morphic-Worlds'
                traitComposition: {}
                localSelectors: nil


[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
        Receiver: a ToggleMenuItemMorph(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t3: 0
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


BlockClosure>>ensure:
        Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
        Arguments and temporary variables:
                t1: [closure] in CursorWithMask(Cursor)>>showWhile:
                t2: nil
                t3: nil
        Receiver's instance variables:
                outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
                startpc: 132
                numArgs: 0


CursorWithMask(Cursor)>>showWhile:
        Receiver: ((CursorWithMask
        extent: 16@16
        depth: 1
        fromArray: #(
                2r0
                2r10000000000000000000000...etc...
        Arguments and temporary variables:
                t1: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
                t2: ((CursorWithMask
        extent: 16@16
        depth: 1
        fromArray: #(
                2r0
                2r10000000...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(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a PasteUpMorph(1622) [world]
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
        Receiver: a ToggleMenuItemMorph(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
        Receiver: a ToggleMenuItemMorph(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


MouseButtonEvent>>sentTo:
        Receiver: [195@387 mouseUp 857540 nil]
        Arguments and temporary variables:
                t1: a ToggleMenuItemMorph(1907)'Save as...'
        Receiver's instance variables:
                timeStamp: 857540
                source: a HandMorph(3216)
                windowIndex: nil
                type: #mouseUp
                buttons: 0
                position: 195@387
                handler: nil
                wasHandled: true
                whichButton: 4


ToggleMenuItemMorph(Morph)>>handleEvent:
        Receiver: a ToggleMenuItemMorph(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


MorphicEventDispatcher>>dispatchDefault:with:
        Receiver: a MorphicEventDispatcher
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a ToggleMenuItemMorph(1907)'Save as...'
                t3: nil
                t4: 1
                t5: nil
                t6: #()
                t7: true
        Receiver's instance variables:
                lastType: #mouseUp
                lastDispatch: #dispatchDefault:with:


MorphicEventDispatcher>>dispatchEvent:with:
        Receiver: a MorphicEventDispatcher
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a ToggleMenuItemMorph(1907)'Save as...'
        Receiver's instance variables:
                lastType: #mouseUp
                lastDispatch: #dispatchDefault:with:


ToggleMenuItemMorph(Morph)>>processEvent:using:
        Receiver: a ToggleMenuItemMorph(1907)'Save as...'
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a MorphicEventDispatcher
        Receiver's instance variables:
                bounds: 169@376 corner: 314@394
                owner: a MenuMorph(1782)
                submorphs: #()
                fullBounds: 169@376 corner: 314@394
                color: Color black
                extension: a MorphExtension (4039)
                font: a StrikeFont(Bitmap DejaVu Sans 9 14)
                emphasis: 0
                contents: 'Save as...'
                hasFocus: false
                isEnabled: true
                subMenu: nil
                isSelected: false
                target: WorldState
                selector: #saveAs
                arguments: #()
                icon: Form(16x16x32)
                getStateSelector: nil
                enablementSelector: nil
                keyText: nil


MorphicEventDispatcher>>dispatchDefault:with:
        Receiver: a MorphicEventDispatcher
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a MenuMorph(1782)
                t3: [195@387 mouseUp 857540 nil]
                t4: 13
                t5: a ToggleMenuItemMorph(1907)'Save as...'
                t6: an Array(an AlignmentMorph(996) a ToggleMenuItemMorph(500)'System
Browser' ...etc...
                t7: false
        Receiver's instance variables:
                lastType: #mouseUp
                lastDispatch: #dispatchDefault:with:


MorphicEventDispatcher>>dispatchEvent:with:
        Receiver: a MorphicEventDispatcher
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a MenuMorph(1782)
        Receiver's instance variables:
                lastType: #mouseUp
                lastDispatch: #dispatchDefault:with:


MenuMorph(Morph)>>processEvent:using:
        Receiver: a MenuMorph(1782)
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a MorphicEventDispatcher
        Receiver's instance variables:
                bounds: 165@171 corner: 318@436
                owner: nil
                submorphs: an Array(an AlignmentMorph(996) a
ToggleMenuItemMorph(500)'System Br...etc...
                fullBounds: 165@171 corner: 319@437
                color: (Color r: 0.871 g: 0.871 b: 0.871)
                extension: a MorphExtension (1330) [other:  (basicColor -> (Color r:
0.784 g: 0...etc...
                borderWidth: 1
                borderColor: Color gray
                defaultTarget: nil
                selectedItem: a ToggleMenuItemMorph(1907)'Save as...'
                stayUp: false
                popUpOwner: nil
                activeSubMenu: nil
                activatorDockingBar: nil
                embeddable: nil


MenuMorph(Morph)>>processEvent:
        Receiver: a MenuMorph(1782)
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
        Receiver's instance variables:
                bounds: 165@171 corner: 318@436
                owner: nil
                submorphs: an Array(an AlignmentMorph(996) a
ToggleMenuItemMorph(500)'System Br...etc...
                fullBounds: 165@171 corner: 319@437
                color: (Color r: 0.871 g: 0.871 b: 0.871)
                extension: a MorphExtension (1330) [other:  (basicColor -> (Color r:
0.784 g: 0...etc...
                borderWidth: 1
                borderColor: Color gray
                defaultTarget: nil
                selectedItem: a ToggleMenuItemMorph(1907)'Save as...'
                stayUp: false
                popUpOwner: nil
                activeSubMenu: nil
                activatorDockingBar: nil
                embeddable: nil


MenuMorph>>handleFocusEvent:
        Receiver: a MenuMorph(1782)
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
        Receiver's instance variables:
                bounds: 165@171 corner: 318@436
                owner: nil
                submorphs: an Array(an AlignmentMorph(996) a
ToggleMenuItemMorph(500)'System Br...etc...
                fullBounds: 165@171 corner: 319@437
                color: (Color r: 0.871 g: 0.871 b: 0.871)
                extension: a MorphExtension (1330) [other:  (basicColor -> (Color r:
0.784 g: 0...etc...
                borderWidth: 1
                borderColor: Color gray
                defaultTarget: nil
                selectedItem: a ToggleMenuItemMorph(1907)'Save as...'
                stayUp: false
                popUpOwner: nil
                activeSubMenu: nil
                activatorDockingBar: nil
                embeddable: nil


[] in HandMorph>>sendFocusEvent:to:clear:
        Receiver: a HandMorph(3216)
        Arguments and temporary variables:
                t1: [195@387 mouseUp 857540 nil]
                t2: a MenuMorph(1782)
                t5: #(nil)
        Receiver's instance variables:
                bounds: 228@452 corner: 244@468
                owner: a PasteUpMorph(1622) [world]
                submorphs: #()
                fullBounds: nil
                color: Color blue
                extension: a MorphExtension (539) [eventHandler = an EventHandler]
                mouseFocus: nil
                keyboardFocus: a PluggableButtonMorph(3549)
                eventListeners: nil
                mouseListeners: nil
                keyboardListeners: nil
                mouseClickState: nil
                mouseOverHandler: a MouseOverHandler
                lastMouseEvent: [228@452 mouseUp 865364 nil]
                targetOffset: 26@17
                damageRecorder: a DamageRecorder
                cacheCanvas: nil
                cachedCanvasHasHoles: true
                temporaryCursor: nil
                temporaryCursorOffset: nil
                hardwareCursor: nil
                hasChanged: true
                savedPatch: nil
                userInitials: ''
                lastEventBuffer: #(1 865364 228 452 0 0 0 1)
                lastKeyScanCode: 56
                combinedChar: nil


[] in PasteUpMorph>>becomeActiveDuring:
        Receiver: a PasteUpMorph(1622) [world]
        Arguments and temporary variables:
                t1: [closure] in HandMorph>>sendFocusEvent:to:clear:
        Receiver's instance variables:
                bounds: 0@0 corner: 808@609
                owner: nil
                submorphs: an Array(a TaskbarMorph(3095) a PreDebugWindow(1728) an
ImageMorph(9...etc...
                fullBounds: nil
                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:
                t1: Error
                t2: [closure] in PasteUpMorph>>becomeActiveDuring:
                t3: false
        Receiver's instance variables:
                outerContext: PasteUpMorph>>becomeActiveDuring:
                startpc: 67
                numArgs: 0


PasteUpMorph>>becomeActiveDuring:
        Receiver: a PasteUpMorph(1622) [world]
        Arguments and temporary variables:
                t1: [closure] in HandMorph>>sendFocusEvent:to:clear:
                t2: a PasteUpMorph(1622) [world]
                t3: a HandMorph(3216)
                t4: [195@387 mouseOver red nil nil]
        Receiver's instance variables:
                bounds: 0@0 corner: 808@609
                owner: nil
                submorphs: an Array(a TaskbarMorph(3095) a PreDebugWindow(1728) an
ImageMorph(9...etc...
                fullBounds: nil
                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



--- The full stack ---
SmalltalkImage(Object)>>doesNotUnderstand: #isRisc
RiscOSPlatform class>>isActivePlatform
[] in OSPlatform class>>determineActivePlatformStartingAt:
[] in OrderedCollection(Collection)>>detect:ifNone:
OrderedCollection>>do:
OrderedCollection(Collection)>>detect:ifNone:
OSPlatform class>>determineActivePlatformStartingAt:
OSPlatform class>>startUp:
[] in [] in SmalltalkImage>>send:toClassesNamedIn:with:
BlockClosure>>on:do:
[] in SmalltalkImage>>send:toClassesNamedIn:with:
OrderedCollection>>do:
SmalltalkImage>>send:toClassesNamedIn:with:
SmalltalkImage>>processStartUpList:
SmalltalkImage>>snapshot:andQuit:embedded:
SmalltalkImage>>snapshot:andQuit:
SmalltalkImage>>saveImageInFileNamed:
SmalltalkImage>>saveAs:
WorldState class>>saveAs
[] 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
------------------------------------------------------------


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Strange it works on my mac
I thought that I fixed this isRisc ->isRiscOs (probably messed up with the changeset crash)
I will publish a fix now.


On Mar 18, 2010, at 8:20 PM, Martin McClure wrote:


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

I fixed it now this is strange that it did not break at my place...

_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

On 03/18/10 13:26, Stéphane Ducasse wrote:
> I fixed it now this is strange that it did not break at my place...

It finds the current platform with a #detect:, so once it finds your
platform it doesn't send the other messages. Mac must have come earlier
than Unix or Risc in the subclasses collection. And if it's a hashed
collection based on identityHash the order could change from image to image.

-Martin

_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Ok I see

I fixed isUnix... sorry for the mess.

Stef

> On 03/18/10 13:26, Stéphane Ducasse wrote:
>> I fixed it now this is strange that it did not break at my place...
>
> It finds the current platform with a #detect:, so once it finds your platform it doesn't send the other messages. Mac must have come earlier than Unix or Risc in the subclasses collection. And if it's a hashed collection based on identityHash the order could change from image to image.
>
> -Martin


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

On 03/18/10 14:05, Stéphane Ducasse wrote:
> Ok I see
>
> I fixed isUnix... sorry for the mess.

No problem -- proceeding with 11280.

-Martin

_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Thanks :)

Stef

On Mar 18, 2010, at 10:20 PM, Martin McClure wrote:

> On 03/18/10 14:05, Stéphane Ducasse wrote:
>> Ok I see
>>
>> I fixed isUnix... sorry for the mess.
>
> No problem -- proceeding with 11280.
>
> -Martin


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project