'From etoys3.0 of 24 February 2008 [latest update: #1924] on 18 March 2008 at 9:58:38 pm'!
"Change Set:		transAdhereEdge-KR
Date:			18 March 2008
Author:			Korakurider

translate choices in Halo menu 'extras - adhere to edge
Note that wordings are changed as unCamel case

"!


!Morph methodsFor: 'menus' stamp: 'KR 3/18/2008 21:56'!
adhereToEdge
	| menu |
	menu _ MenuMorph new defaultTarget: self.

	#('top' 'right' 'bottom' 'left' 'center' 'top left' 'top right' 'bottom right' 'bottom left') translatedNoop.
	#(top right bottom left - center - topLeft topRight bottomRight bottomLeft - none)
		do: [:each |
			each == #-
				ifTrue: [menu addLine]
				ifFalse: [menu add: each asString fromCamelCase translated selector: #setToAdhereToEdge: argument: each]].
	menu popUpEvent: self currentEvent in: self world! !