When you keep a Polygon/Curve menu up the menu doesn't
update the smooth of segmented phrase. It is now
factored out and made auto updating."

'From Squeak3.7beta of ''1 April 2004'' [latest
update: #5878] on 6 June 2004 at 10:18:48 pm'!
"Change Set:		smoothOrSegmentedPhrase-wiz
Date:			6 June 2004
Author:			Jerome Peace (wiz)

When you keep a Polygon/Curve menu up the menu doesn't
update the smooth of segmented phrase. It is now
factored out and made auto updating."!


!PolygonMorph methodsFor: 'access' stamp: 'wiz
6/6/2004 21:56'!
smoothOrSegmentedPhrase
				| lineName |
	lineName := (closed
						ifTrue: ['outline']
						ifFalse: ['line']) translated.

			^ self isCurve
				ifTrue: ['make segmented {1}' translated format:
{lineName}]
				ifFalse: ['make smooth {1}' translated format:
{lineName}].! !

!PolygonMorph methodsFor: 'menu' stamp: 'wiz 6/6/2004
21:59'!
addCustomMenuItems: aMenu hand: aHandMorph 
	| |
	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: #smoothOrSegmentedPhrase
				target: self
				action: #toggleSmoothing.] .
"			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.
	aMenu add: 'use debug border' translated action:
#showSegmentsBorderStyle.
	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]]
		ifFalse: [aMenu addLine.
			aMenu
				addWithLabel: 'make inscibed diamondOval'
				enablement: [self isClosed]
				action: #diamondOval.
			aMenu
				addWithLabel: 'make enclosing rectangleOval'
				enablement: [self isClosed]
				action: #rectOval].! !

Gzip change set attached.

Yours in service,
Jerome Peace

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smoothPhrase-wiz.1.cs.gz
Type: application/x-gzip
Size: 878 bytes
Desc: smoothPhrase-wiz.1.cs.gz
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20040613/a917b3ca/smoothPhrase-wiz.1.cs.bin