Re: [FIX] BrowsePlayerClassFix

bbbbbbboring!

Robert Hirschfeld wrote:

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.

---

                                       Name: BrowsePlayerClassFix.26Dec1358.cs.gz

BrowsePlayerClassFix.26Dec1358.cs.gz Type: application/gzip (application/gzip) Encoding: base64

---

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