'From etoys2.2 of 24 September 2007 [latest update: #1685] on 4 October 2007 at 10:45:22 pm'! "Change Set: polygonMenu-sw Date: 17 August 2007 Author: Scott Wallace Cleanup of the custom portion of the halo menu of a PolygonMorph."! !PolygonMorph methodsFor: 'access' stamp: 'sw 10/3/2007 02:02'! openOrClosePhrase "Answer a string indicating whether the receiver is open or closed." ^ (closed ifTrue: [''] ifFalse: ['']), 'closed' translated! ! !PolygonMorph methodsFor: 'menu' stamp: 'sw 10/3/2007 02:07'! addCustomMenuItems: aMenu hand: aHandMorph "Add morph-specific items to the given menu which was invoked by the given hand. This method provides is invoked both from the halo-menu and from the control-menu regimes." super addCustomMenuItems: aMenu hand: aHandMorph. aMenu addUpdating: #handlesShowingPhrase target: self action: #showOrHideHandles. vertices size > 2 ifTrue: [aMenu addUpdating: #openOrClosePhrase target: self action: #makeOpenOrClosed]. aMenu addUpdating: #smoothPhrase target: self action: #toggleSmoothing. aMenu addLine. 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]].! ! !PolygonMorph methodsFor: 'menu' stamp: 'sw 8/17/2007 01:12'! handlesShowingPhrase "Answer a phrase characterizing whether handles are showing or not." ^ (self showingHandles ifTrue: [''] ifFalse: ['']), ('show handles' translated)! ! !PolygonMorph methodsFor: 'menu' stamp: 'sw 10/3/2007 02:00'! smoothPhrase "Answer a string characterizing whether I am currently closed." ^ (self isCurve ifTrue: [''] ifFalse: ['']), 'curve' translated! !