'From etoys2.1 of 26 July 2007 [latest update: #1556] on 16 August 2007 at 10:33:36 pm'!
"Change Set:		arrowPointingUp-sw
Date:			16 August 2007
Author:			Scott Wallace

TRAC 2867 - Make the arrow obtained from the objects catalog start out life pointing upward and with a heading of 0 to match."!


!PolygonMorph class methodsFor: 'instance creation' stamp: 'sw 8/16/2007 21:43'!
arrowPrototype
	"Answer an instance of the receiver that will serve as a prototypical arrow"

	| aa |
	aa _ self new. 
	aa vertices: (Array with: 0@40 with: 0@0) 
		color: Color black 
		borderWidth: 2 
		borderColor: Color black.
	aa setProperty: #noNewVertices toValue: true.
	aa setNameTo: 'Arrow'.
	aa makeForwardArrow.		"is already open"
	aa computeBounds.
	^ aa

"
PolygonMorph arrowPrototype openInHand
"! !

!PolygonMorph class methodsFor: 'instance creation' stamp: 'sw 8/16/2007 22:00'!
supplementaryPartsDescriptions
	^ {DescriptionForPartsBin
		formalName: 'Arrow' translatedNoop
		categoryList: {'Graphics' translatedNoop}
		documentation: 'A line with an arrowhead.  Shift-click to get handles and move the ends.' translatedNoop
		globalReceiverSymbol: #PolygonMorph
		nativitySelector: #arrowPrototype.
	DescriptionForPartsBin
		formalName: 'Triangle' translatedNoop
		categoryList: {'Graphics' translatedNoop}
		documentation: 'A three-sided polygon.  Shift-click to get handles to allow you to reshape the triangle' translatedNoop
		globalReceiverSymbol: #PolygonMorph
		nativitySelector: #trianglePrototype.}

	
! !

!PolygonMorph class methodsFor: 'instance creation' stamp: 'sw 8/16/2007 21:53'!
trianglePrototype
	"Answer an instance of the receiver that will serve as a prototypical triangle"

	| aa |
	aa _ self new. 
	aa vertices: (Array with: 0@80 with: 60@80 with: 60@0) 
		color: Color yellow lighter 
		borderWidth: 4 
		borderColor: Color black.
	aa setProperty: #noNewVertices toValue: true.
	aa setNameTo: 'Triangle'.
	aa makeForwardArrow.		"is already open"
	aa computeBounds.
	^ aa

"
PolygonMorph trianglePrototype openInHand
"! !

"Postscript:"
PartsBin uncacheThumbnailFor: #Arrow.

!