How to reproduce the bug:
	- fresh image
	- open a thread navigator for example via the objects panel
	- click on the round middle orange button of the navigator to bring up 
the navigator menu
	
Stef

4 April 2004 11:19:28 am

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

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Data:Harvesting
Trusted Dir Data:Harvesting
Untrusted Dir foobar:tooBar:forSqueak:bogus

String(Object)>>doesNotUnderstand: #destroyThread
	Receiver: 'destroy this thread'
	Arguments and temporary variables:
		aMessage: 	destroyThread
	Receiver's instance variables:
'destroy this thread'

InternalThreadNavigationMorph>>moreCommands
	Receiver: an InternalThreadNavigationMorph<ThreadNavigator>(57)
	Arguments and temporary variables:
		allThreads: 	a Dictionary('all (default)'->an 
OrderedCollection(#('NewChanges') ...etc...
		aMenu: 	a MenuMorph(1193)
		others: 	a SortedCollection()
		target: 	3
		each: 	'all (default)'
	Receiver's instance variables:
		bounds: 	684 at 553 corner: 800 at 600
		owner: 	a PasteUpMorph(1622) [world]
		submorphs: 	#(a SquishedNameMorph(286) an EllipseMorph(3466) an 
ImageMorph(1031)...etc...
		fullBounds: 	684 at 553 corner: 800 at 600
		color: 	(TranslucentColor r: 0.27 g: 0.634 b: 0.365 alpha: 0.498)
		extension: 	a MorphExtension (1131) [externalName = ThreadNavigator ] 
  [other:  (cornerStyle -> #rounded) (previousWorldBounds -> 0 at 0 corner: 
800 at 600) (layoutProperties -> a TableLayoutProperties)]...etc...
		borderWidth: 	0
		borderColor: 	Color black
		listOfPages: 	an OrderedCollection(#('NewChanges') #('The Worlds of 
Squeak' Form...etc...
		currentIndex: 	1
		loadedProject: 	nil
		threadName: 	'all (default)'
		preferredIndex: 	nil

EventHandler>>send:to:withEvent:fromMorph:
	Receiver: an EventHandler; mouseDownSelector=moreCommands recipients: 
#(an InternalThreadNavigationM...etc...
	Arguments and temporary variables:
		selector: 	#moreCommands
		recipient: 	an InternalThreadNavigationMorph<ThreadNavigator>(57)
		event: 	[744 at 573 mouseDown red 507456]
		sourceMorph: 	an EllipseMorph(3466)
		arity: 	0
	Receiver's instance variables:
		mouseDownRecipient: 	an 
InternalThreadNavigationMorph<ThreadNavigator>(57)
		mouseDownSelector: 	#moreCommands
		mouseMoveRecipient: 	nil
		mouseMoveSelector: 	nil
		mouseStillDownRecipient: 	nil
		mouseStillDownSelector: 	nil
		mouseUpRecipient: 	nil
		mouseUpSelector: 	nil
		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>>mouseDown:fromMorph:
	Receiver: an EventHandler; mouseDownSelector=moreCommands recipients: 
#(an InternalThreadNavigationM...etc...
	Arguments and temporary variables:
		event: 	[744 at 573 mouseDown red 507456]
		sourceMorph: 	an EllipseMorph(3466)
	Receiver's instance variables:
		mouseDownRecipient: 	an 
InternalThreadNavigationMorph<ThreadNavigator>(57)
		mouseDownSelector: 	#moreCommands
		mouseMoveRecipient: 	nil
		mouseMoveSelector: 	nil
		mouseStillDownRecipient: 	nil
		mouseStillDownSelector: 	nil
		mouseUpRecipient: 	nil
		mouseUpSelector: 	nil
		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 ---
String(Object)>>doesNotUnderstand: #destroyThread
InternalThreadNavigationMorph>>moreCommands
EventHandler>>send:to:withEvent:fromMorph:
EventHandler>>mouseDown:fromMorph:
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EllipseMorph(Morph)>>mouseDown:
EllipseMorph(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
...etc...