[FIX] BrowsePlayerClassFix

26 Dec 2000


      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.
'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! !