[ENH] TestCaseRunnerButton-nk

[tomkoenig at mindspring.com]

Doit on TestCaseResultMorph openForClass: ReviewerPostTest  which ran
successfully, then when dragging window arround got the following Error:
no class set.  Happened twice but I'm not sure if it was the dragging or
grabbing that did it 
The error report: 13 November 2004 8:02 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.8beta [latest update: #6374]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Documents and Settings\Thomas Koenig\Desktop\Squeak
Trusted Dir C:\Documents and Settings\Thomas
Koenig\Desktop\Squeak\Thomas Koenig
Untrusted Dir C:\My Squeak\Thomas Koenig

TestCaseResultMorph(Object)>>error:
	Receiver: a TestCaseResultMorph(3693)
	Arguments and temporary variables: 
		aString: 	'no class set'
	Receiver's instance variables: 
		bounds: 	218 at 67 corner: 565 at 721
		owner: 	a PasteUpMorph(3838) [world]
		submorphs: 	#(a BorderedMorph(2046))
		fullBounds: 	218 at 67 corner: 565 at 721
		color: 	(Color r: 0.767 g: 0.767 b: 1.0)
		extension: 	a MorphExtension (76) [other:  (layoutProperties -> a
TableLayoutPro...etc...
		borderWidth: 	7
		borderColor: 	#raised
		testClass: 	nil
		results: 	nil
		state: 	#readyToRun
		backgroundProcess: 	nil

TestCaseResultMorph>>run
	Receiver: a TestCaseResultMorph(3693)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		bounds: 	218 at 67 corner: 565 at 721
		owner: 	a PasteUpMorph(3838) [world]
		submorphs: 	#(a BorderedMorph(2046))
		fullBounds: 	218 at 67 corner: 565 at 721
		color: 	(Color r: 0.767 g: 0.767 b: 1.0)
		extension: 	a MorphExtension (76) [other:  (layoutProperties -> a
TableLayoutPro...etc...
		borderWidth: 	7
		borderColor: 	#raised
		testClass: 	nil
		results: 	nil
		state: 	#readyToRun
		backgroundProcess: 	nil

EventHandler>>send:to:withEvent:fromMorph:
	Receiver: an EventHandler; mouseUpSelector=run recipients: #(a
TestCaseResultMorph(3693))
	Arguments and temporary variables: 
		selector: 	#run
		recipient: 	a TestCaseResultMorph(3693)
		event: 	[249 at 100 mouseUp 35615312]
		sourceMorph: 	a BorderedMorph(2046)
		arity: 	0
	Receiver's instance variables: 
		mouseDownRecipient: 	nil
		mouseDownSelector: 	nil
		mouseMoveRecipient: 	nil
		mouseMoveSelector: 	nil
		mouseStillDownRecipient: 	nil
		mouseStillDownSelector: 	nil
		mouseUpRecipient: 	a TestCaseResultMorph(3693)
		mouseUpSelector: 	#run
		mouseEnterRecipient: 	nil
		mouseEnterSelector: 	nil
		mouseLeaveRecipient: 	nil
		mouseLeaveSelector: 	nil
		mouseEnterDraggingRecipient: 	nil
		mouseEnterDraggingSelector: 	nil
		mouseLeaveDraggingRecipient: 	nil
		mouseLeaveDraggingSelector: 	nil
		keyStrokeRecipient: 	nil
		keyStrokeSelector: 	nil
		valueParameter: 	nil
		startDragRecipient: 	nil
		startDragSelector: 	nil
		doubleClickSelector: 	nil
		doubleClickRecipient: 	nil
		doubleClickTimeoutSelector: 	nil
		doubleClickTimeoutRecipient: 	nil
		clickSelector: 	nil
		clickRecipient: 	nil

EventHandler>>mouseUp:fromMorph:
	Receiver: an EventHandler; mouseUpSelector=run recipients: #(a
TestCaseResultMorph(3693))
	Arguments and temporary variables: 
		event: 	[249 at 100 mouseUp 35615312]
		sourceMorph: 	a BorderedMorph(2046)
	Receiver's instance variables: 
		mouseDownRecipient: 	nil
		mouseDownSelector: 	nil
		mouseMoveRecipient: 	nil
		mouseMoveSelector: 	nil
		mouseStillDownRecipient: 	nil
		mouseStillDownSelector: 	nil
		mouseUpRecipient: 	a TestCaseResultMorph(3693)
		mouseUpSelector: 	#run
		mouseEnterRecipient: 	nil
		mouseEnterSelector: 	nil
		mouseLeaveRecipient: 	nil
		mouseLeaveSelector: 	nil
		mouseEnterDraggingRecipient: 	nil
		mouseEnterDraggingSelector: 	nil
		mouseLeaveDraggingRecipient: 	nil
		mouseLeaveDraggingSelector: 	nil
		keyStrokeRecipient: 	nil
		keyStrokeSelector: 	nil
		valueParameter: 	nil
		startDragRecipient: 	nil
		startDragSelector: 	nil
		doubleClickSelector: 	nil
		doubleClickRecipient: 	nil
		doubleClickTimeoutSelector: 	nil
		doubleClickTimeoutRecipient: 	nil
		clickSelector: 	nil
		clickRecipient: 	nil


--- The full stack ---
TestCaseResultMorph(Object)>>error:
TestCaseResultMorph>>run
EventHandler>>send:to:withEvent:fromMorph:
EventHandler>>mouseUp:fromMorph:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
BorderedMorph(Morph)>>mouseUp:
BorderedMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
BorderedMorph(Morph)>>handleEvent:
BorderedMorph(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:
...etc...