[FIX] BrowsePlayerClassFix
Karl Ramberg
karl.ramberg at chello.se
Wed Dec 27 15:41:35 UTC 2000
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! !
More information about the Squeak-dev
mailing list
|