'From Moshi of 3 March 2007 [latest update: #1534] on 3 September 2010 at 6:59:11 pm'!
"Change Set:		MenuStraightUp-yo
Date:			3 September 2010
Author:			Yoshiki Ohshima

The menu button should be always right up."!


!LHaloHandler methodsFor: 'all' stamp: 'yo 9/3/2010 18:57'!
receive: anAnnouncement from: anObject

	| gtr ext t b tr |
	super receive: anAnnouncement from: anObject.
	(anAnnouncement isKindOf: LGeometryChanged) ifTrue: [
		anAnnouncement object = target ifTrue: [
			gtr := target transformationFromGlobal.
			ext := target extent * gtr scale2D.
			ext := ((ext x < 30) ifTrue: [30] ifFalse: [ext x])@((ext y < 30) ifTrue: [30] ifFalse: [ext y]).
			whole extent: ext.
			whole transformation:
				((MatrixTransform2x3 withRadRotation: gtr rotation)
 					composedWithGlobal: (MatrixTransform2x3
									withOffset: (gtr transformPoint: 0@0))).
"(whole extent - (target extent * gtr scale2D) / 2) negated"
			menu ifNotNil: [
				b := gtr localBoundsToGlobal: (0@0 corner: target extent).
				t := whole localPointFor: b origin + (b width/2.0@-30).
				tr := MatrixTransform2x3 withRadRotation: gtr inverseTransformation rotation.
				menu transformation: tr. menu pivotPosition: t]

		].
	].
	(anAnnouncement isMemberOf: LBoxDeleted) ifTrue: [
		anAnnouncement box = target ifTrue: [
			whole topContainer worldState deleteHalo.
		].
	].
! !