[Pharo-project] Problem in OBCmdCreateCategory (and probably Rename...)
I'M not sure how to send patches and so we go. the execute implementation of the above class give an error while calling self categories sorted Set does not understand ordered is the message. Well I hacked it like this: execute | categories category before | categories := self categories asOrderedCollection sorted. ^^^^^^^^^^^^^^^^^^^ category := OBCompletionRequest new assisted: true; collection: categories; prompt: 'Add Category'; signal. category isNil ifTrue: [ ^ self ]. before := requestor children at: requestor selection + 1 ifAbsent: [ nil ]. target organization addCategory: category before: (before isNil ifFalse: [ before name ]). self select: (target categoryNodeNamed: category) with: requestor announcer Probably bad as hell but "it works" Regards Friedrich
I cannot reproduce the problem. What image are you using? Lukas On 13 May 2011 16:14, Friedrich Dominicus <frido@q-software-solutions.de> wrote:
I'M not sure how to send patches and so we go.
the execute implementation of the above class give an error while  calling self categories sorted
Set does not understand ordered is the message.
Well  I hacked it like this: execute     | categories category before |     categories := self categories asOrderedCollection sorted.                  ^^^^^^^^^^^^^^^^^^^     category := OBCompletionRequest new         assisted: true;         collection: categories;         prompt: 'Add Category';         signal.     category isNil ifTrue: [ ^ self ].     before := requestor children         at: requestor selection + 1         ifAbsent: [ nil ].     target organization         addCategory: category         before: (before isNil             ifFalse: [ before name ]).     self         select: (target categoryNodeNamed: category)         with: requestor announcer
Probably bad as hell but "it works"
Regards Friedrich
-- Lukas Renggli www.lukas-renggli.ch
Lukas Renggli <renggli@gmail.com> writes:
I cannot reproduce the problem. What image are you using?
Is Smalltalk vmVersion the right way to find it out? 'Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35]' This is the full backtrace as if I tried to send a bug-report regards Friedrich Subject: [BUG]Set(Object)>>doesNotUnderstand: #sorted here insert explanation of what you were doing, suspect changes you've made and so forth. 15 May 2011 7:47:02 am VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35] Image: Pharo1.2.1a [Latest update: #12343] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/frido/Smalltalks/AidaOneClickPharo1.2.app/Contents/Resources Trusted Dir /home/frido/Smalltalks/AidaOneClickPharo1.2.app/Contents/Resources/secure Untrusted Dir /home/frido/Smalltalks/AidaOneClickPharo1.2.app/Contents/Resources/My Squeak Set(Object)>>doesNotUnderstand: #sorted Receiver: a Set('*dynamicdeadcodefinder' '*metacello-base' '*graphics-tests' '*network-mime' '*polym...etc... Arguments and temporary variables: aMessage: sorted exception: MessageNotUnderstood: Set>>sorted resumeValue: nil Receiver's instance variables: tally: 383 array: #('*dynamicdeadcodefinder' nil nil nil nil '*metacello-base' '*graphics-...etc... OBCmdCreateMethodCategory(OBCmdCreateCategory)>>execute Receiver: an OBCmdCreateMethodCategory Arguments and temporary variables: categories: nil category: nil before: nil Receiver's instance variables: target: OBClassNode<OBCmdCreateMethodCategoryTest> requestor: an OBColumn(-- all --) OBCmdCreateMethodCategory(OBCommand)>>perform:orSendTo: Receiver: an OBCmdCreateMethodCategory Arguments and temporary variables: aSelector: #execute anObject: an OBPluggableListMorph(38010880) Receiver's instance variables: target: OBClassNode<OBCmdCreateMethodCategoryTest> requestor: an OBColumn(-- all --) [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(295174144)'Add category...' Arguments and temporary variables: evt: [844@255 mouseUp 182264 nil] selArgCount: 2 Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 132 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [targe...etc... 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(295174144)'Add category...' Arguments and temporary variables: evt: [844@255 mouseUp 182264 nil] w: a PasteUpMorph(425197568) [world] Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(295174144)'Add category...' Arguments and temporary variables: evt: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(295174144)'Add category...' Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [844@255 mouseUp 182264 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(295174144)'Add category...' Receiver's instance variables: timeStamp: 182264 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: 844@255 handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(295174144)'Add category...' Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] aMorph: a ToggleMenuItemMorph(295174144)'Add category...' 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: [844@255 mouseUp 182264 nil] aMorph: a ToggleMenuItemMorph(295174144)'Add category...' Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(295174144)'Add category...' Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: 810@241 corner: 1007@259 owner: a MenuMorph(1043333120) submorphs: #() fullBounds: 810@241 corner: 1007@259 color: Color black extension: a MorphExtension (297795584) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'Add category...' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: an OBCmdCreateMethodCategory selector: #perform:orSendTo: arguments: an Array(#execute an OBPluggableListMorph(38010880)) icon: Form(16x16x32) getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] aMorph: a MenuMorph(1043333120) localEvt: [844@255 mouseUp 182264 nil] index: 1 child: a ToggleMenuItemMorph(295174144)'Add category...' morphs: an Array(a ToggleMenuItemMorph(295174144)'Add category...' a ToggleMenu...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] aMorph: a MenuMorph(1043333120) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MenuMorph(Morph)>>processEvent:using: Receiver: a MenuMorph(1043333120) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: 805@236 corner: 1012@535 owner: nil submorphs: an Array(a ToggleMenuItemMorph(295174144)'Add category...' a ToggleM...etc... fullBounds: 805@236 corner: 1012@535 color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (1047003136) [other: (basicColor -> (Color r: 0.74...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: an OBColumn(-- all --) selectedItem: a ToggleMenuItemMorph(295174144)'Add category...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(295174144)'Add category.....etc... MenuMorph(Morph)>>processEvent: Receiver: a MenuMorph(1043333120) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 805@236 corner: 1012@535 owner: nil submorphs: an Array(a ToggleMenuItemMorph(295174144)'Add category...' a ToggleM...etc... fullBounds: 805@236 corner: 1012@535 color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (1047003136) [other: (basicColor -> (Color r: 0.74...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: an OBColumn(-- all --) selectedItem: a ToggleMenuItemMorph(295174144)'Add category...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(295174144)'Add category.....etc... MenuMorph>>handleFocusEvent: Receiver: a MenuMorph(1043333120) Arguments and temporary variables: evt: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 805@236 corner: 1012@535 owner: nil submorphs: an Array(a ToggleMenuItemMorph(295174144)'Add category...' a ToggleM...etc... fullBounds: 805@236 corner: 1012@535 color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (1047003136) [other: (basicColor -> (Color r: 0.74...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: an OBColumn(-- all --) selectedItem: a ToggleMenuItemMorph(295174144)'Add category...' stayUp: false popUpOwner: nil activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(295174144)'Add category.....etc... [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] focusHolder: a MenuMorph(1043333120) result: #(nil) Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: 0@0 corner: 1344@1014 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(691011584) an OBSy...etc... fullBounds: 0@0 corner: 1344@1014 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [844@255 mouseOver red nil nil] Receiver's instance variables: bounds: 0@0 corner: 1344@1014 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(691011584) an OBSy...etc... fullBounds: 0@0 corner: 1344@1014 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] focusHolder: a MenuMorph(1043333120) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] focusHolder: a MenuMorph(1043333120) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [844@255 mouseUp 182264 nil] evt: [844@255 mouseUp 182264 nil] ofs: nil Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [844@255 mouseUp 182264 nil] evtBuf: #(1 182264 844 255 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: 828@636 corner: 844@652 owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: 828@636 corner: 844@652 color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [828@636 mouseUp 211592 nil] targetOffset: 16@11 damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil userInitials: '' lastEventBuffer: #(1 211592 828 636 0 0 0 1) lastKeyScanCode: 101 combinedChar: nil [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 1344@1014 canvas: a FormCanvas on: DisplayScreen(1344x1014x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(348127232))(an Ove...etc... lastStepTime: 211628 lastStepMessage: nil lastCycleTime: 211612 alarms: a Heap() lastAlarmTime: 211628 menuBuilder: a PragmaMenuBuilder Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 1344@1014 canvas: a FormCanvas on: DisplayScreen(1344x1014x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(348127232))(an Ove...etc... lastStepTime: 211628 lastStepMessage: nil lastCycleTime: 211612 alarms: a Heap() lastAlarmTime: 211628 menuBuilder: a PragmaMenuBuilder WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 1344@1014 canvas: a FormCanvas on: DisplayScreen(1344x1014x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(348127232))(an Ove...etc... lastStepTime: 211628 lastStepMessage: nil lastCycleTime: 211612 alarms: a Heap() lastAlarmTime: 211628 menuBuilder: a PragmaMenuBuilder WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 1344@1014 canvas: a FormCanvas on: DisplayScreen(1344x1014x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(348127232))(an Ove...etc... lastStepTime: 211628 lastStepMessage: nil lastCycleTime: 211612 alarms: a Heap() lastAlarmTime: 211628 menuBuilder: a PragmaMenuBuilder PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: 0@0 corner: 1344@1014 owner: nil submorphs: an Array(a TaskbarMorph(811335680) a SystemWindow(691011584) an OBSy...etc... fullBounds: 0@0 corner: 1344@1014 color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in Project class>>spawnNewProcess Receiver: Project Arguments and temporary variables: Receiver's instance variables: superclass: Model methodDict: a MethodDictionary(#beep->(Project>>#beep "a CompiledMethod(3997696...etc... format: 144 instanceVariables: #('world' 'changeSet' 'transcript' 'parentProject' 'displayD...etc... organization: ('*Polymorph-Widgets' createTaskbarIfNecessary moveCollapsedWindo...etc... subclasses: nil name: #Project classPool: a Dictionary(#AllProjects->an OrderedCollection(a Project) #CurrentP...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'System-Support' traitComposition: {} localSelectors: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: Project class>>spawnNewProcess startpc: 53 numArgs: 0 --- The full stack --- Set(Object)>>doesNotUnderstand: #sorted OBCmdCreateMethodCategory(OBCmdCreateCategory)>>execute OBCmdCreateMethodCategory(OBCommand)>>perform:orSendTo: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in Project class>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess -- Q-Software Solutions GmbH; Sitz: Bruchsal; Registergericht: Mannheim Registriernummer: HRB232138; Geschaeftsfuehrer: Friedrich Dominicus
participants (2)
-
Friedrich Dominicus -
Lukas Renggli