'From etoys2.1 of 26 July 2007 [latest update: #1541] on 9 August 2007 at 4:45:46 pm'! "Change Set: sibsOfNonSketches-sw Date: 9 August 2007 Author: Scott Wallace Don't offer the 'make all my siblings look like me' item in the siblings submenu unless the morph is a SkechMorph"! !Morph methodsFor: 'menus' stamp: 'sw 8/9/2007 15:54'! addPlayerItemsTo: aMenu "Add player-related items to the menu if appropriate" | aPlayer subMenu | self couldMakeSibling ifFalse: [^ self]. aPlayer _ self topRendererOrSelf player. subMenu _ MenuMorph new defaultTarget: self. subMenu add: 'make a sibling instance' translated target: self action: #makeNewPlayerInstance:. subMenu balloonTextForLastItem: 'Makes another morph whose player is of the same class as this one. Both siblings will share the same scripts' translated. subMenu add: 'make multiple siblings...' translated target: self action: #makeMultipleSiblings:. subMenu balloonTextForLastItem: 'Make any number of sibling instances all at once' translated. (aPlayer belongsToUniClass and: [aPlayer class instanceCount > 1]) ifTrue: [subMenu addLine. self renderedMorph isSketchMorph ifTrue: [subMenu add: 'make all siblings look like me' translated target: self action: #makeSiblingsLookLikeMe:. subMenu balloonTextForLastItem: 'make all my sibling instances look like me.' translated]. subMenu add: 'bring all siblings to my location' translated target: self action: #bringAllSiblingsToMe:. subMenu balloonTextForLastItem: 'find all sibling instances and bring them to me' translated. subMenu add: 'apply status to all siblngs' translated target: self action: #applyStatusToAllSiblings:. subMenu balloonTextForLastItem: 'apply the current status of all of my scripts to the scripts of all my siblings' translated]. subMenu add: 'indicate all siblings' translated target: self action: #indicateAllSiblings. subMenu balloonTextForLastItem: 'momentarily show, by flashing , all of my visible siblings.' translated. aMenu add: 'siblings...' translated subMenu: subMenu ! !