- Pharo-dev - lists.pharo.org

[Pharo-project] Scratch.app 1.3 hits the App Store, tossing free (USA) trial codes.

by John M McIntosh

In as many weeks I've managed to send 3 releases of Scratch to the App store, so it's becoming more mature. Now a small secret, if you have in the past gotten and ran iSqueak.app from me on your iphone or ipod touch then you can ALSO run a beta version of Scratch.app. You just need to email me (not the list) for a link to the magic provisioning file. Secondly, I've a bunch of 30 day trial codes to hand out, good for the USA store only. If you would like a code, again please email me (not the list). -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

March 18, 2010

Re: [Pharo-project] [update 1.1] #11278

by Martin McClure

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

March 18, 2010

Re: [Pharo-project] [update 1.1] #11279

by StÃ©phane Ducasse

Argh I see it UnixPlatform class>>isActivePlatform ^ SmalltalkImage isUnix => Smalltalk isUnix Now I do not understand why I cannot get the bugs. Will fix. shit..... Stef On Mar 18, 2010, at 9:41 PM, Martin McClure wrote: > On 03/18/10 13:27, StÃ©phane Ducasse wrote: >> 11279 >> ----- >> >> - isRisc -> isRiscOS (sorry for the mess created: stef) >> - initialExtent extra fix >> > > ...but now SmalltalkImage class DNU #isUnix... > > -Martin

March 18, 2010

Re: [Pharo-project] 'Win 32' and others....

by StÃ©phane Ducasse

No idea but they all check Smalltalk platformName = 'Win32' with strings and sometimes even (Smalltalk getSystemAttribute: 1001) = 'Win32' I prefer Smalltalk isWin32 But I think that we can do better and probably in the future. Smalltalk should be a bridge to real class like platform that will contain this code. Smalltalk platform isWin32 Right now let us try to avoid this strings everywhere. Stef On Mar 18, 2010, at 9:38 PM, Michael Rueger wrote: > On 3/17/10 1:11 PM, StÃ©phane Ducasse wrote: >> What do you think about that? >> I think that would be good. >> >> Issue 2159: We should clean all the platformName = 'Win32' and: [osVersion = 'CE'] >> >> This is not good to have all these strings to encode platform support. >> We should move some code to SmalltalkImage > > isn't that what the OSPlatform classes are meant to do? > > Michael > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

March 18, 2010

Re: [Pharo-project] [update 1.1] #11279

by Martin McClure

On 03/18/10 13:27, StÃ©phane Ducasse wrote: > 11279 > ----- > > - isRisc -> isRiscOS (sorry for the mess created: stef) > - initialExtent extra fix > ...but now SmalltalkImage class DNU #isUnix... -Martin

March 18, 2010

Re: [Pharo-project] 'Win 32' and others....

by Michael Rueger

On 3/17/10 1:11 PM, StÃ©phane Ducasse wrote: > What do you think about that? > I think that would be good. > > Issue 2159: We should clean all the platformName = 'Win32' and: [osVersion = 'CE'] > > This is not good to have all these strings to encode platform support. > We should move some code to SmalltalkImage isn't that what the OSPlatform classes are meant to do? Michael

March 18, 2010

[Pharo-project] [update 1.1] #11279

by StÃ©phane Ducasse

11279 ----- - isRisc -> isRiscOS (sorry for the mess created: stef) - initialExtent extra fix Stef

March 18, 2010

Re: [Pharo-project] [update 1.1] #11278

by StÃ©phane Ducasse

I fixed it now this is strange that it did not break at my place... > > 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 > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

March 18, 2010

Re: [Pharo-project] [update 1.1] #11278

by StÃ©phane Ducasse

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: > 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 > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

March 18, 2010

Re: [Pharo-project] About getting HashedCollection (another dream happening)

by StÃ©phane Ducasse

Ok I will work on fixing SmalltalkImage :) and prefer to let you the time to publish a nice slice. After I will integrate all the pending issues and fixes. Lowering stress is good too :) Stef >> Hi martin >> >> ok tell us what is good for you and we freeze and give you access for your changes :) >> When. Which version do you want to stay stable? >> I know that marcus is integrated my changes (of yesterday) now. > > I should have been more clear -- what I want to stay stable is the hashed collection code (primarily Set and subclasses) in PharoCore 1.1. Other changes are OK, though other changes to Kernel might make the merge more interesting. > > I'm running a system update right now to get to the current. > > -Martin

March 18, 2010