'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 11 December 2003 at 1:26:11 pm'! "Change Set: PolMorphAndBabelFixes-dgd Date: 11 December 2003 Author: Diego Gomez Deck Use of #format: to translated 'make open', 'make closed', 'make segmented' and 'make smooth' "! !PolygonMorph methodsFor: 'access' stamp: 'dgd 12/11/2003 13:14'! openOrClosePhrase | curveName | curveName := (self isCurve ifTrue: ['curve'] ifFalse: ['polygon']) translated. ^ closed ifTrue: ['make open {1}' translated format: {curveName}] ifFalse: ['make closed {1}' translated format: {curveName}]! ! !PolygonMorph methodsFor: 'menu' stamp: 'dgd 12/11/2003 13:16'! addCustomMenuItems: aMenu hand: aHandMorph | lineName | super addCustomMenuItems: aMenu hand: aHandMorph. aMenu addUpdating: #handlesShowingPhrase target: self action: #showOrHideHandles. vertices size > 2 ifTrue: [aMenu addUpdating: #openOrClosePhrase target: self action: #makeOpenOrClosed. lineName _ (closed ifTrue: ['outline'] ifFalse: ['line']) translated. self isCurve ifTrue: [aMenu add: ('make segmented {1}' translated format: {lineName}) action: #toggleSmoothing] ifFalse: [aMenu add: ('make smooth {1}' translated format: {lineName}) action: #toggleSmoothing]]. aMenu add: 'specify dashed line' translated action: #specifyDashedLine. self isOpen ifTrue: [aMenu addLine. aMenu addWithLabel: '---' enablement: [self isOpen and: [arrows ~~ #none]] action: #makeNoArrows. aMenu addWithLabel: '-->' enablement: [self isOpen and: [arrows ~~ #forward]] action: #makeForwardArrow. aMenu addWithLabel: '<--' enablement: [self isOpen and: [arrows ~~ #back]] action: #makeBackArrow. aMenu addWithLabel: '<->' enablement: [self isOpen and: [arrows ~~ #both]] action: #makeBothArrows. aMenu add: 'customize arrows' translated action: #customizeArrows:. (self hasProperty: #arrowSpec) ifTrue: [aMenu add: 'standard arrows' translated action: #standardArrows]].! !