"Change Set:        KCP-0220-ClassOrganizerFixAndCleanup
Date:            15 April 2004
Author:            Nathanael Schaerli

When in 5905 I drag and drop for changing a class category , the attached
walk back shows.

Reverting to previous version do not show this problem.

Edgar

-------------- next part --------------
MessageNotUnderstood: UpdatingThreePhaseButtonMorphEnhanced>>getArgument:
6 May 2004 10:14:11 am

VM: Mac OS - a SmalltalkImage
Image: Squeak3.7beta [latest update: #5905]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Macintosh HD:Users:edgar:Public:SqueakDevelop:Squeak3.7a-5657 Ä
Trusted Dir Macintosh HD:Users:edgar:Public:SqueakDevelop:Squeak3.7a-5657 Ä
Untrusted Dir foobar:tooBar:forSqueak:bogus

UpdatingThreePhaseButtonMorphEnhanced(Object)>>doesNotUnderstand: #getArgument:
	Receiver: 3PButton('Elija angulo' 1504)
	Arguments and temporary variables: 
		aMessage: 	getArgument: 'Elija angulo'
	Receiver's instance variables: 
		bounds: 	0 at 0 corner: 14 at 12
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	nil
		color: 	Color blue
		extension: 	nil
		image: 	ColorForm(12x12x1)
		offImage: 	ColorForm(12x12x1)
		pressedImage: 	ColorForm(12x12x1)
		state: 	#off
		target: 	a RadioButtonGroupMorph(4015)
		actionSelector: 	#setValue:
		arguments: 	#('Elija angulo')
		actWhen: 	#buttonUp
		getSelector: 	#isValue:
		getArgument: 	nil

[] in RadioButtonGroupMorph>>initializeWithValues: {[:val |  aligner := Morph new color: Color transparent;      layoutPolicy: T...]}
	Arguments and temporary variables: 
		arrayOfValues: 	#('Elija angulo' '7.5¼' '18¼' '36¼' '54¼' '90¼' '180¼')
		button: 	3PButton('Elija angulo' 1504)
		val: 	'Elija angulo'
		aligner: 	a Morph(3606)

Array(SequenceableCollection)>>do:
	Receiver: #('Elija angulo' '7.5¼' '18¼' '36¼' '54¼' '90¼' '180¼')
	Arguments and temporary variables: 
		aBlock: 	[] in RadioButtonGroupMorph>>initializeWithValues: {[:val |  aligner := Morph new color: Color transparent;      layoutPolicy: T...]}...etc...
		index: 	1
		indexLimiT: 	7
	Receiver's instance variables: 
#('Elija angulo' '7.5¼' '18¼' '36¼' '54¼' '90¼' '180¼')
RadioButtonGroupMorph>>initializeWithValues:
	Receiver: a RadioButtonGroupMorph(4015)
	Arguments and temporary variables: 
		arrayOfValues: 	#('Elija angulo' '7.5¼' '18¼' '36¼' '54¼' '90¼' '180¼')
		button: 	3PButton('Elija angulo' 1504)
		val: 	'Elija angulo'
		aligner: 	a Morph(3606)
	Receiver's instance variables: 
		bounds: 	0 at 0 corner: 50 at 40
		owner: 	nil
		submorphs: 	#(a Morph(1400))
		fullBounds: 	nil
		color: 	(TranslucentColor r: 1.0 g: 1.0 b: 0.8 alpha: 0.498)
		extension: 	a MorphExtension (3197) [other:  (layoutPolicy -> a TableLayout) (layoutProperties -> a TableLayoutProperties)]...etc...
		borderWidth: 	1
		borderColor: 	Color black
		values: 	#('Elija angulo' '7.5¼' '18¼' '36¼' '54¼' '90¼' '180¼')
		target: 	nil
		getSelector: 	nil
		getArgument: 	nil
		setSelector: 	nil
		setArgument: 	nil


--- The full stack ---
UpdatingThreePhaseButtonMorphEnhanced(Object)>>doesNotUnderstand: #getArgument:
[] in RadioButtonGroupMorph>>initializeWithValues: {[:val |  aligner := Morph new color: Color transparent;      layoutPolicy: T...]}
Array(SequenceableCollection)>>do:
RadioButtonGroupMorph>>initializeWithValues:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
TrackMorph>>radioButtons:
TrackMorph>>setAngle
TrackMorph>>curve
TrackMorph class>>curve
[] in IconicButton(SimpleButtonMorph)>>doButtonAction {[target perform: actionSelector withArguments: arguments]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
IconicButton(SimpleButtonMorph)>>doButtonAction
IconicButton(SimpleButtonMorph)>>mouseUp:
IconicButton(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
IconicButton(Morph)>>handleEvent:
IconicButton(Morph)>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent := anEvent.  result := focusHolder     han...]}
[] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
BlockContext>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h processEvents.  capturingGesture := capturingGest...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor yield.  false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}