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! !
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! !
squeak-dev@lists.squeakfoundation.org