/*
 * Example program for using quick menu package.  Contains the necessary
 * declarations for a simple menu strip which it creates and destroys after
 * letting the user play with it.
 */
#include <intuition/intuition.h>
#include "qmenu.h"


#define NILSUB	{NULL,NULL}

/*
 * String arrays get defined in sort-of reverse order.
 * I.e. the subitems get defined before the parent items.
 * (One rule is that menu items that cause a Requester to
 * appear are followed by "...".)
 * The string arrays themselves are terminated by a null 
 * string pointer.
 */
char *mpo_str[] = {
	"!=ORaw Text...",
	"Processed Text...",
	"Drawing...",
	"Picture...",
	"Old Settings...",
	NULL };

char *mps_str[] = {
	"!=TText...",
	"!=DDrawing...",
	"Picture...",
	NULL };

char *mp_str[] = {
	"!=NNew...",
	"Open",
	"!=SSave...",
	"Save as",
	"Print...",
	"Save Settings",
	"About...",
	"-",
	"!bQuit...",
	NULL };

/* Array of NewMenu structs to go with the above text items.
 * Needs to be a one-to-one correspondence between text items
 * (not rules) and NewMenu structs.
 */
struct NewMenu mp_sub[] = {
	NILSUB,
	{ mpo_str, NULL },
	NILSUB,
	{ mps_str, NULL },
	NILSUB,
	NILSUB,
	NILSUB,
	NILSUB
};

char *mes_str[] = {
	"!+!0111!=PPlain",
	"!c!1!=BBold",
	"!c!1!=IItalic",
	"!c!1!=UUnderline",
	NULL };

char *me_str[] = {
	"!=QUndo",
	"-",
	"!=ZDelete",
	"!=XCut",
	"!=CCopy",
	"!=VPaste",
	"-",
	"Set Font...",
	"Set Style",
	NULL };

struct NewMenu me_sub[] = {
	NILSUB,
	NILSUB,
	NILSUB,
	NILSUB,
	NILSUB,
	NILSUB,
	{ mes_str, NULL }
};

char *mdz_str[] = {
	"!=>In",
	"!=<Out",
	"!=MManual",
	NULL };

char *mdv_str[] = {
	"!+!tText",
	"!+!tLines",
	"!+!tImages",
	"!+!tBoxes",
	"!+!tLabels",
	NULL };

char *mds_str[] = {
	"Interlace",
	"Non-interlace",
	"Workbench",
	NULL };

char *md_str[] = { 
	"Zoom",
	"!=AAuto Scale",
	"-",
	"!c!tCoordinates",
	"Visible",
	"-",
	"Screen Colors...",
	"Screen Type",
	NULL };

struct NewMenu md_sub[] = {
	{ mdz_str, NULL },
	NILSUB,
	NILSUB,
	{ mdv_str, NULL },
	NILSUB,
	{ mds_str, NULL }
};

char *mhc_str[] = {
	"Plot...",
	"Set...",
	"Lay in...",
	NULL };

char *mhw_str[] = {
	"!+!0111111Full Impulse",
	"!c!1011111!=1Warp 1",
	"!c!1101111!=2Warp 2",
	"!c!1110111!=3Warp 3",
	"!c!1111011!=4Warp 4",
	"!c!1111101!=5Warp 5",
	"!c!1111110Space Normal",
	NULL };

char *mhp_str[] = {
	"Stun",
	"Kill",
	"Maim",
	"Burn",
	"Overload",
	"Ineffective",
	"Burn Out",
	NULL };

char *mh_str[] = {
	"New Course",
	"Speed",
	"Standard Orbit",
	"Tractor Beam...",
	"Lock Phasers",
	"-",
	"\"Make It So.\"",
	NULL };

struct NewMenu mh_sub[] = {
	{ mhc_str, NULL },
	{ mhw_str, NULL },
	NILSUB,
	NILSUB,
	{ mhp_str, NULL },
	NILSUB
};

char *mt_str[] = {
	"Hammer",
	"Screwdriver",
	"Chisel",
	"Knife",
	"Felt Pen",
	"Air Freshener",
	"-",
	"Hammer Size...",
	"Screw Type...",
	"Pine Scent...",
	NULL };

char *mm_str[] = {
	"Rotate...",
	"Spin...",
	"Turn Around...",
	"Flip Out...",
	"Randomize...",
	"Energize...",
	"Simplify",
	"Complexify",
	NULL };

char *main_str[] = {
	"Project",
	"Edit",
	"Display",
	"Tools",
	"Helm",
	"Modify",
	NULL };

struct NewMenu main_sub[] = {
	{ mp_str, mp_sub },
	{ me_str, me_sub },
	{ md_str, md_sub },
	{ mt_str, NULL },
	{ mh_str, mh_sub },
	{ mm_str, NULL }
};

struct NewMenu main_menu = { main_str, main_sub };

struct TextAttr ta = { (UBYTE*) "topaz.font", 8,0,0 };


/* Basic stuff for the test program.
 */
struct NewWindow nwin = {
	50,20, 200,100, -1,-1, CLOSEWINDOW,
	WINDOWCLOSE|WINDOWDRAG|ACTIVATE,
	NULL,NULL, (UBYTE*) "Test the Menus", NULL,NULL,
	0,0,0,0, WBENCHSCREEN
};

#define OLIB(var,nam)	(var=OpenLibrary(nam,33L))

struct IntuitionBase *IntuitionBase;
struct Window *mywin;


struct Window *OpenWindow();
void *OpenLibrary();
void *GetMsg();


main ()
{
	if (OLIB(IntuitionBase,"intuition.library")) {
		if (mywin = OpenWindow (&nwin)) {
			Body ();
			CloseWindow (mywin);
		}
		CloseLibrary (IntuitionBase);
	}
}


Body ()
{
	struct IntuiMessage *im;
	struct Menu *m;

	if (!(m = GenMenu (&main_menu))) return;

	SetMenuStrip (mywin, m);

	/* Wait for the close window message.
	 */
	while (!(im = (struct IntuiMessage *) GetMsg (mywin->UserPort)))
		WaitPort (mywin->UserPort);
	ReplyMsg (im);

	ReadMenuState (m);
	ClearMenuStrip (mywin);
	FreeMenu (m);
}


ReadMenuState (m)
	struct Menu *m;
{
	struct MenuItem	*mi;

	/* Get the text style menu array and test for checkmarks.
	 */
	mi = m[1].FirstItem[8].SubItem;
	printf ("Text Style: ");
	if (mi[0].Flags & CHECKED) printf ("Plain");
	if (mi[1].Flags & CHECKED) printf ("Bold ");
	if (mi[2].Flags & CHECKED) printf ("Italic ");
	if (mi[3].Flags & CHECKED) printf ("Underline");
	printf ("\n");
}