'From Squeak3.7beta of ''1 April 2004'' [latest update: #5878] on 25 April 2004 at 4:25:49 pm'! "Change Set: TextMorphCustomMenuItemsSpellingFix-gm Date: 25 April 2004 Author: German Morales just a simple spelling fix: rectangluar --> rectangular "! !TextMorph methodsFor: 'menu' stamp: 'gm 4/25/2004 16:12'! addCustomMenuItems: aCustomMenu hand: aHandMorph "Add text-related menu items to the menu" | outer | super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu add: 'text color...' translated action: #changeTextColor. aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. aCustomMenu add: 'text margins...' translated action: #changeMargins:. aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. aCustomMenu add: 'add successor' translated action: #addSuccessor:. (Preferences noviceMode or: [Preferences simpleMenus]) ifFalse: [aCustomMenu add: 'code pane menu...' translated action: #yellowButtonActivity. aCustomMenu add: 'code pane shift menu....' translated action: #shiftedYellowButtonActivity]. outer _ self owner. ((outer isKindOf: PolygonMorph) and: [outer isOpen]) ifTrue: [container isNil ifTrue: [aCustomMenu add: 'follow owner''s curve' translated action: #followCurve] ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] ifFalse: [(container isNil or: [container fillsOwner not]) ifTrue: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] ifFalse: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. (container isNil or: [container avoidsOcclusions not]) ifTrue: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] ifFalse: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]. aCustomMenu addLine. aCustomMenu add: 'holder for characters' translated action: #holderForCharacters ! !