Change Set:		BrowsePlayerClassFix
Date:			26 December 2000
Author:			Robert Hirschfeld

Fixes a morph's debug menu where 'browse player class' opened an
inspector on the player instead of a browser on its class.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: BrowsePlayerClassFix.26Dec1358.cs.gz
Type: application/x-gzip
Size: 867 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20001226/97fcf9ee/BrowsePlayerClassFix.26Dec1358.cs.bin
-------------- next part --------------
'From Squeak2.9alpha of 2 September 2000 [latest update: #3144] on 26 December 2000 at 1:58 pm'!
"Change Set:		BrowsePlayerClassFix
Date:			26 December 2000
Author:			Robert Hirschfeld

Fixes a morph's debug menu where 'browse player class' opened an inspector on the player instead of a browser on its class."!


!Morph methodsFor: 'debug and other' stamp: 'rhi 12/26/2000 13:46'!
buildDebugMenu: aHand
	"Answer a debugging menu for the receiver.  The hand argument is seemingly historical and plays no role presently"

	| aMenu aPlayer |
	aMenu _ MenuMorph new defaultTarget: self.
	aMenu addStayUpItem.
	(self hasProperty: #errorOnDraw) ifTrue:
		[aMenu add: 'start drawing again' action: #resumeAfterDrawError.
		aMenu addLine].
	(self hasProperty: #errorOnStep) ifTrue:
		[aMenu add: 'start stepping again' action: #resumeAfterStepError.
		aMenu addLine].

	aMenu add: 'inspect morph' action: #inspectInMorphic:.
	aMenu add: 'inspect owner chain' action: #inspectOwnerChain.
	Smalltalk isMorphic ifFalse:
		[aMenu add: 'inspect morph (in MVC)' action: #inspect].

     aMenu add: 'explore morph' target: self selector: #explore.
	(aPlayer _ self player) ifNotNil:
		[aMenu add: 'inspect player' target: aPlayer action: #inspect.
		Smalltalk isMorphic ifFalse: [aMenu add: 'inspect player (morphic)' action: #inspectArgumentsPlayerInMorphic:]].

	aMenu addLine.
	aMenu add: 'browse morph class' target: self selector: #browseHierarchy.
	aPlayer ifNotNil: 
		[aMenu add: 'browse player class' target: aPlayer action: #browsePlayerClass].
	self addViewingItemsTo: aMenu.
	aMenu 
		addLine;
		add: 'make own subclass' action: #subclassMorph;
		add: 'internal name ' action: #choosePartName;
		add: 'save morph in file'  action: #saveOnFile;
		addLine;
		add: 'call #tempCommand' action: #callTempCommand;
		add: 'define #tempCommand' action: #defineTempCommand;
		addLine;
		add: 'control-menu...' target: self selector: #invokeMetaMenu:;
		add: 'edit balloon help' action: #editBalloonHelpText.

	^ aMenu! !