'From etoys3.0 of 19 February 2008 [latest update: #1954] on 1 April 2008 at 5:31:19 pm'!
"Change Set:		anchorTransl-bf
Date:			1 April 2008
Author:			Bert Freudenberg

Fix one missing translate send."!


!Morph methodsFor: 'text-anchor' stamp: 'bf 4/1/2008 17:30'!
addTextAnchorMenuItems: topMenu hand: aHand
	| aMenu |
	aMenu _ MenuMorph new defaultTarget: self.
	aMenu addUpdating: #hasInlineAnchorString action: #changeInlineAnchor.
	aMenu addUpdating: #hasParagraphAnchorString action: #changeParagraphAnchor.
	aMenu addUpdating: #hasDocumentAnchorString action: #changeDocumentAnchor.
	topMenu ifNotNil:[topMenu add: 'text anchor' translated subMenu: aMenu].
	^aMenu! !