[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