SECTION	MenuDefinition,DATA

CorrectMenuStructure:

	;Set Y Positions
		MOVE.W	TopazHeight,D0
		ADD.W	#4,D0
		MOVE.W	D0,MenuItem2+mi_TopEdge
		MOVE.W	D0,ItemItext1b+it_TopEdge
		ASL.W	#1,D0
		MOVE.W	D0,MenuItem3+mi_TopEdge
		MOVE.W	D0,ItemItext1c+it_TopEdge

	;Set Heights
		MOVE.W	TopazHeight,D0
		ADD.W	#4,D0
		MOVE.W	D0,MenuItem1+mi_Height
		MOVE.W	D0,MenuItem2+mi_Height
		MOVE.W	D0,MenuItem3+mi_Height
		MULU	#3,D0
		MOVE.W	D0,MenuItem1a+mi_Height
		
	;Get a pointer to the Workbench Screen
		MOVE.L	IntBase,A6
		JSR	_LVOOpenWorkBench(A6)
		MOVE.L	D0,A1
		
	;Set width of "Menu" text
		MOVE.L	GraBase,A6
		ADD.L	#sc_RastPort,A1
		LEA	MenuName,A0
		MOVE.L	#4,D0
		JSR	_LVOTextLength(A6)
		ADD.W	#4,D0
		MOVE.W	D0,MenuDef+mu_Width
		
		
	;Find width of "About" text
		MOVE.L	WindowBase,A1
		MOVE.L	wd_RPort(A1),A1
		LEA	ItemText1,A0
		MOVE.L	#9,D0
		JSR	_LVOTextLength(A6)
		ADD.W	#4,D0
		MOVE.W	D0,MenuItem1+mi_Width
		MOVE.W	D0,MenuItem2+mi_Width
		MOVE.W	D0,MenuItem3+mi_Width
		MOVE.W	D0,MenuItem1a+mi_LeftEdge
		
		
		
		RTS

	
MenuDef:	DC.L	0		;Pointer to Next Menu
		DC.W	0,0		;X,Y
		DC.W	50,0		;W,H
		DC.W	MENUENABLED	;Flags
		DC.L	MenuName	;Name of Menu
		DC.L	MenuItem1	;Pointer to 1st item
		DC.W	0,0,0,0		;For Internal Use Only
		
MenuItem1:	DC.L	MenuItem2	;Pointer to Next Item
		DC.W	0,0		;X,Y
		DC.W	10,11		;W,H
		DC.W	ITEMTEXT!ITEMENABLED
		DC.L	0		;Mutual Exclude
		DC.L	ItemItext1	;IntuiText for Name
		DC.L	0		;IntuiText for Selected Name
		DC.B	0,0		;Menu Short Cut + Padding Byte
		DC.L	MenuItem1a	;Sub Item
		DC.W	0		;Next Select

MenuItem1a:	DC.L	0	;Pointer to Next Item
		DC.W	120,1		;X,Y
		DC.W	100,40		;W,H
		DC.W	ITEMTEXT!ITEMENABLED
		DC.L	0		;Mutual Exclude
		DC.L	ItemItext1a	;IntuiText for Name
		DC.L	0		;IntuiText for Selected Name
		DC.B	0,0		;Menu Short Cut + Padding Byte
		DC.L	0		;Sub Item
		DC.W	0		;Next Select

MenuItem2:	DC.L	MenuItem3	;Pointer to Next Item
		DC.W	0,1		;X,Y
		DC.W	10,11		;W,H
		DC.W	ITEMTEXT!ITEMENABLED!COMMSEQ!HIGHCOMP
		DC.L	0		;Mutual Exclude
		DC.L	ItemItext2	;IntuiText for Name
		DC.L	0		;IntuiText for Selected Name
		DC.B	"H",0		;Menu Short Cut + Padding Byte
		DC.L	0		;Sub Item
		DC.W	0		;Next Select
		
MenuItem3:	DC.L	0		;Pointer to Next Item
		DC.W	0,2		;X,Y
		DC.W	10,24		;W,H
		DC.W	ITEMTEXT!ITEMENABLED!COMMSEQ!HIGHCOMP
		DC.L	0		;Mutual Exclude
		DC.L	ItemItext3	;IntuiText for Name
		DC.L	0		;IntuiText for Selected Name
		DC.B	"Q",0		;Menu Short Cut + Padding Byte
		DC.L	0		;Sub Item
		DC.W	0		;Next Select

		
ItemItext1:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,2		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText1	;The Actual Text
		DC.L	0		;Next Text Structure
		
ItemItext1a:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,2		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText1a	;The Actual Text
		DC.L	ItemItext1b	;Next Text Structure

ItemItext1b:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,14		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText1b	;The Actual Text
		DC.L	ItemItext1c	;Next Text Structure

ItemItext1c:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,26		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText1c	;The Actual Text
		DC.L	0		;Next Text Structure



ItemItext2:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,2		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText2	;The Actual Text
		DC.L	0		;Next Text Structure

ItemItext3:	DC.B	1,1		;Detail / Block Pen
		DC.B	RP_JAM1,0	;Draw Mode / Padding Byte
		DC.W	2,2		;X,Y
		DC.L	TopazFont	;Font to use
		DC.L	ItemText3	;The Actual Text
		DC.L	0		;Next Text Structure

MenuName:	DC.B	"Menu",0
ItemText1:	DC.B	"About    ",0
ItemText1a:	DC.B	"Version 1.1",0
ItemText1b:	DC.B	"13 May 1997",0
ItemText1c:	DC.B	"(Free-Ware)",0
ItemText2:	DC.B	"Hide",0
ItemText3:	DC.B	"Quit",0