hey all--

this is my first contribution. it fixes a small bug that would give you an
error if you tried to 'make own subclass' from the debug halo...

jason


'From Squeak 2.5 of August 6, 1999 on 5 September 1999 at 12:17:29 am'!

!Morph methodsFor: 'debug and other' stamp: 'JLM 8/27/1999 01:32'!
debuggingMenuFor: aHandMorph
 | aMenu aPlayer |
 aMenu _ MenuMorph new defaultTarget: self.
 (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: 'control-menu...' target: aHandMorph selector:
#invokeMetaMenuFor: argument: self.
 aMenu add: 'inspect morph' action: #inspectInMorphic.
 Smalltalk isMorphic ifFalse:
  [aMenu add: 'inspect morph (in MVC)' action: #inspectArgument].

     aMenu add: 'explore morph' target: aHandMorph selector:
#exploreArgument.
 aMenu add: 'browse morph class' target: aHandMorph selector:
#browseMorphClassFor: argument: self.

 (aPlayer _ self player) ifNotNil:
  [aMenu add: 'inspect player' target: aPlayer action: #inspect.
  World ifNil: [aMenu add: 'inspect player (morphic)' action:
#inspectArgumentsPlayerInMorphic].
  aMenu add: 'browse player class' target: aPlayer action: #inspect].

 aMenu add: 'make own subclass' target: aHandMorph selector: #subclassMorph.
 aMenu add: 'internal name ' action: #choosePartName.
 aMenu add: 'save morph in file'  action: #saveOnFile.
 aMenu addLine.
 aMenu add: 'call #tempCommand' target: aHandMorph action: #callTempCommand.
 aMenu add: 'define #tempCommand' target: aHandMorph action:
#defineTempCommand.

 aMenu addLine.
 aMenu add: 'edit balloon help' action: #editBalloonHelpText.
 ^ aMenu! !