/*------------------------------------------------------------------------**
**              My gadutil.library example translated into C              **
**                                          P-O Yliniemi 24-Dec-94        **
**------------------------------------------------------------------------*/
#define INTUI_V36_NAMES_ONLY

#include <exec/types.h>
#include <exec/execbase.h>
#include <intuition/intuition.h>
#include <intuition/gadgetclass.h>
#include <libraries/gadtools.h>

#include <libraries/gadutil.h>
#include <proto/gadutil.h>

#include <clib/dos_protos.h>
#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/gadtools_protos.h>

#include <stdio.h>

#ifdef LATTICE
int CXBRK(void)     { return(0); }
int chkabort(void)  { return(0); }
#endif

extern struct ExecBase *SysBase;

/*-------------------- Data for localizing of the program ----------------*/
#define DRIVE_MX_GAD    11

#define MSG_NEXTDRIVE	0
#define MSG_PREVDRIVE	1
#define MSG_DRIVE		2
#define MSG_CHECKME		3
#define MSG_REQUESTER	4
#define MSG_FILENAME	5
#define MSG_INTEGER		6
#define MSG_DRAGME		7
#define MSG_SCROLLME	8
#define MSG_SELECTITEM	9
#define MSG_SELECTCOL	10

#define MNU_1_TITLE		100
#define MNI_1_IT1		101
#define MNI_1_IT2		102
#define MNI_1_IT3		103
#define MNS_1_IT3_1		104
#define MNS_1_IT3_2		105
#define MNI_1_IT4		106

static const struct AppString AppStrings[] =
{
	{MSG_NEXTDRIVE, (ULONG)"_Next drive"},
	{MSG_PREVDRIVE, (ULONG)"_Prev drive"},
	{MSG_DRIVE, (ULONG)"_Drive"},
	{MSG_CHECKME, (ULONG)"C_heck me:"},
	{MSG_REQUESTER, (ULONG)"_Requester"},
	{MSG_FILENAME, (ULONG)"_Filename:"},
	{MSG_INTEGER, (ULONG)"_Integer:"},
	{MSG_DRAGME, (ULONG)"Dra_g me:"},
	{MSG_SCROLLME, (ULONG)"Scr_oll me:"},
	{MSG_SELECTITEM, (ULONG)"_Select an item:"},
	{MSG_SELECTCOL, (ULONG)"Select _Color:"},
	{MNU_1_TITLE, (ULONG)" \0Project"},
	{MNI_1_IT1, (ULONG)"O\0Open..."},
	{MNI_1_IT2, (ULONG)"S\0Save"},
	{MNI_1_IT3, (ULONG)" \0Print"},
	{MNS_1_IT3_1, (ULONG)" \0Draft"},
	{MNS_1_IT3_2, (ULONG)" \0NLQ"},
	{MNI_1_IT4, (ULONG)"Q\0Quit"},
};

#define catalogname "BetterTest.catalog"

/*----------------------- End of localizing datas ------------------------*/

struct TagItem layoutmenutags[] = {
	{GTMN_NewLookMenus,	TRUE},
	{TAG_DONE}
};

#define LEFT_OFFSET	6
#define TOP_OFFSET	3

struct TagItem StdGTTags[] = {
	{GT_Underscore, '_'},
	{TAG_DONE}
};

struct TagItem StdButtonTags[] = {
	{GU_Flags,	PLACETEXT_IN},	{GU_LabelHotkey,	TRUE},	{TAG_DONE}
};

struct TagItem StdGadTags[] = {
	{GU_LabelHotkey,	TRUE},	{TAG_DONE}
};

struct TagItem NextDriveGad[] = {
	{GU_GadgetKind,	BUTTON_KIND},	{GU_LocaleText,	MSG_NEXTDRIVE},
	{GU_Left,		LEFT_OFFSET},	{GU_Top,		TOP_OFFSET},
	{GU_AutoHeight,	4},				{GU_AutoWidth,	20},
	{TAG_MORE,		(ULONG)StdButtonTags}
};

struct TagItem PrevDriveGad[] = {
	{GU_GadgetKind,	BUTTON_KIND},	{GU_LocaleText,	MSG_PREVDRIVE},
	{GU_DupeWidth,	MSG_NEXTDRIVE},	{GU_LeftRel,	MSG_NEXTDRIVE},
	{GU_AddLeft,	INTERWIDTH},	{TAG_MORE,		(ULONG)StdButtonTags}
};

struct TagItem DriveGad[] = {
	{GU_GadgetKind,	CYCLE_KIND},	{GU_LocaleText,	MSG_DRIVE},
	{GU_TopRel,		MSG_PREVDRIVE},	{GU_AddTop,		INTERHEIGHT},
	{GU_Flags,		PLACETEXT_LEFT},{TAG_MORE,		(ULONG)StdGadTags}
};

APTR CycleText[] = { "DF0:", "DF1:", "DF2:", "DF3:", NULL };

struct TagItem DriveGTTags[] = {
	{GTCY_Labels,	(ULONG)CycleText},	{TAG_MORE,		(ULONG)StdGTTags}
};

struct TagItem ReqGad[] = {
	{GU_GadgetKind,	BUTTON_KIND},	{GU_LocaleText,		MSG_REQUESTER},
	{GU_TopRel,		MSG_DRIVE},		{GU_AddTop,			INTERHEIGHT},
	{TAG_MORE,		(ULONG)StdButtonTags}
};

struct TagItem CheckBoxGad[] = {
	{GU_Width,		CHECKBOX_WIDTH},{GU_Height,		CHECKBOX_HEIGHT},
	{GU_GadgetKind,	CHECKBOX_KIND},	{GU_LocaleText,	MSG_CHECKME},
	{GU_AlignRight,	MSG_NEXTDRIVE},	{GU_Flags,		PLACETEXT_LEFT},
	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem FileNameGad[] = {
	{GU_GadgetKind,	STRING_KIND},	{GU_TopRel,		MSG_REQUESTER},
	{GU_LocaleText,	MSG_FILENAME},	{GU_AutoHeight,	4},
	{GU_AlignLeft,	MSG_CHECKME},	{GU_AlignRight,	DRIVE_MX_GAD},
	{GU_AddTop,		INTERHEIGHT},	{GU_AddWidth,	4},
	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem IntegerGad[] = {
	{GU_GadgetKind,	INTEGER_KIND},	{GU_TopRel,		MSG_FILENAME},
	{GU_LocaleText,	MSG_INTEGER},	{GU_AddTop,		INTERHEIGHT},
	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem DriveMxGad[] = {
	{GU_GadgetKind,	MX_KIND},		{GU_AlignTop,	MSG_NEXTDRIVE},
	{GU_Width,		MX_WIDTH},		{GU_Height,		MX_HEIGHT},
	{GU_AdjustTop,	2},				{GU_Flags,		PLACETEXT_LEFT|NG_HIGHLABEL},
	{GU_LeftRel,	MSG_PREVDRIVE},	{GU_AddLeftChar,7},
	{GU_GadgetText, (ULONG)"Driv_e"},{GU_LabelHotkey,	TRUE},
	{TAG_DONE}
};

struct TagItem MXGadGTTags[] = {
	{GTMX_Labels,	(ULONG)CycleText},	{GTMX_Spacing,	2},
	{GTMX_Active,	2},				{TAG_DONE}
};

struct TagItem SliderGad[] = {
	{GU_GadgetKind,	SLIDER_KIND},	{GU_AlignLeft,	MSG_FILENAME},
	{GU_AlignRight,	MSG_FILENAME},	{GU_AutoHeight,	4},
	{GU_TopRel,		MSG_INTEGER},	{GU_AddTop,		INTERHEIGHT},
	{GU_AddWidth,	-13},			{GU_Flags,		PLACETEXT_LEFT},
	{GU_LocaleText,	MSG_DRAGME},	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem SliderGTTags[] = {
	{GTSL_Min,		-50},			{GTSL_Max,		50},
	{GTSL_Level,	10},			{GTSL_MaxLevelLen, 3},
	{GTSL_LevelFormat,	(ULONG)"%3ld"},
	{GTSL_LevelPlace,	PLACETEXT_RIGHT},
	{TAG_MORE,			(ULONG)StdGTTags}
};

struct TagItem ListViewGad[] = {
	{GU_GadgetKind,	LISTVIEW_KIND},	{GU_AlignTop,	MSG_DRIVE},
	{GU_AlignBottom,MSG_INTEGER},	{GU_LocaleText,	MSG_SELECTITEM},
	{GU_LeftRel,	MSG_INTEGER},	{GU_Columns,	26},
	{GU_Flags,		PLACETEXT_ABOVE|NG_HIGHLABEL},
	{GU_AddLeft,	10},			{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem LVGTTags[] = {
	{GTLV_Labels,	NULL},			{GTLV_ShowSelected,	-1L},
	{TAG_MORE,		(ULONG)StdGTTags}
};

struct TagItem ScrollGad[] = {
	{GU_GadgetKind,	SCROLLER_KIND},	{GU_LocaleText,	MSG_SCROLLME},
	{GU_AlignLeft,	MSG_DRAGME},	{GU_AlignRight,	MSG_INTEGER},
	{GU_TopRel,		MSG_DRAGME},	{GU_AddTop,		INTERHEIGHT},
	{GU_Flags,		PLACETEXT_LEFT},{GU_AddWidth,	20},
	{GU_DupeHeight,	MSG_DRAGME},	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem ScrollGTTags[] = {
	{GTSC_Top,		110},			{GTSC_Total,	9},
	{GTSC_Visible,	5},				{GTSC_Arrows,	16},
	{TAG_MORE,		(ULONG)StdGTTags}
};

struct TagItem PaletteGad[] = {
	{GU_GadgetKind,	PALETTE_KIND},	{GU_LocaleText,	MSG_SELECTCOL},
	{GU_LeftRel,	MSG_SCROLLME},	{GU_AddLeft,	INTERWIDTH},
	{GU_Flags,		PLACETEXT_ABOVE|NG_HIGHLABEL},
	{GU_TopRel,		MSG_SELECTITEM},{GU_AdjustTop,	INTERHEIGHT},
	{GU_AlignBottom,MSG_SCROLLME},	{GU_AlignRight,	MSG_SELECTITEM},
	{TAG_MORE,		(ULONG)StdGadTags}
};

struct TagItem PaletteGTTags[] = {
	{GTPA_Depth,	2},				{GTPA_IndicatorWidth,	36},
	{TAG_MORE,		(ULONG)StdGTTags}
};

struct LayoutGadget gadgets[] = {
	{ MSG_NEXTDRIVE,	NextDriveGad,	StdGTTags,		NULL },
	{ MSG_PREVDRIVE,	PrevDriveGad,	StdGTTags,		NULL },
	{ MSG_DRIVE,		DriveGad,		DriveGTTags,	NULL },
	{ MSG_REQUESTER,	ReqGad,			StdGTTags,		NULL },
	{ MSG_CHECKME,		CheckBoxGad,	StdGTTags,		NULL },
	{ MSG_FILENAME,		FileNameGad,	StdGTTags,		NULL },
	{ MSG_INTEGER,		IntegerGad,		StdGTTags,		NULL },
	{ DRIVE_MX_GAD,		DriveMxGad,		MXGadGTTags,	NULL },
	{ MSG_DRAGME,		SliderGad,		SliderGTTags,	NULL },
	{ MSG_SELECTITEM,	ListViewGad,	LVGTTags,		NULL },
	{ MSG_SCROLLME,		ScrollGad,		ScrollGTTags,	NULL },
	{ MSG_SELECTCOL,	PaletteGad,		PaletteGTTags,	NULL },
	{ -1,				NULL,			NULL,			NULL }
};

struct NewMenu MyNewMenu[] = {
	{ NM_TITLE,	(STRPTR)MNU_1_TITLE,	0,	0,	0,	0 },		/*	| Project | */
	{  NM_ITEM,	(STRPTR)MNI_1_IT1,		0,	0,	0,	(APTR)1 },	/*	Open [O]	*/
	{  NM_ITEM,	(STRPTR)MNI_1_IT2,		0,	0,	0,	(APTR)2 },	/*	Save [S]	*/
	{  NM_ITEM,	NM_BARLABEL,			0,	0,	0,	0 },		/*	-----------	*/
	{  NM_ITEM,	(STRPTR)MNI_1_IT3,		0,	0,	0,	0 },		/*	Print...	*/
	{	NM_SUB,	(STRPTR)MNS_1_IT3_1,	0,	0,	0,	(APTR)3 },	/*        Draft	*/
	{	NM_SUB,	(STRPTR)MNS_1_IT3_2,	0,	0,	0,	(APTR)4 },	/*        NLQ	*/
	{  NM_ITEM,	NM_BARLABEL,			0,	0,	0,	0 },		/*  ----------- */
	{  NM_ITEM,	(STRPTR)MNI_1_IT4,		0,	0,	0,	(APTR)5 },	/*  Quit [Q]	*/
	{	NM_END,	NULL,					0,	0,	0,	0 }
};

LONG farright, farbottom;

struct TagItem LayoutTags[] = {
	{GU_RightExtreme,	(ULONG)&farright},
	{GU_LowerExtreme,	(ULONG)&farbottom},
	{GU_DefTextAttr,	0},
	{GU_Catalog,		0},
	{GU_AppStrings,		(ULONG)&AppStrings},
	{TAG_DONE}
};

/*-----------------------------------------------------------------*/
struct Library *GadUtilBase;

struct List	  LibraryList;
struct Screen *screen = NULL;
struct Window *main_win = NULL;
APTR priv_info = NULL;

void process_window_events(struct Window *, struct Menu *);
void ToggleLED(void);

main()
{
	struct Gadget *glist;
	struct Menu *menustrip;
	LibraryList = SysBase->LibList;

	LVGTTags[0].ti_Data = (ULONG)&LibraryList;

	if (GadUtilBase = OpenLibrary("gadutil.library",0))
	{
		LayoutTags[3].ti_Data = (ULONG)GU_OpenCatalog(catalogname,0);

		if (screen = LockPubScreen(NULL))
		{
			LayoutTags[2].ti_Data = (ULONG)screen->Font;

			if (priv_info = GU_LayoutGadgetsA(&glist, gadgets, screen, LayoutTags))
			{
				if (main_win = OpenWindowTags(NULL,
							WA_Left,	0,
							WA_Top,		screen->Font->ta_YSize + 3,
							WA_InnerWidth, farright + LEFT_OFFSET,
							WA_InnerHeight, farbottom + TOP_OFFSET,
							WA_IDCMP,	LISTVIEWIDCMP | IDCMP_MENUPICK | CYCLEIDCMP |
									IDCMP_REFRESHWINDOW | IDCMP_CLOSEWINDOW |
									IDCMP_VANILLAKEY | IDCMP_RAWKEY,
							WA_Flags,	WFLG_DRAGBAR | WFLG_DEPTHGADGET |
									WFLG_CLOSEGADGET | WFLG_ACTIVATE |
									WFLG_SMART_REFRESH | WFLG_REPORTMOUSE,
							WA_Gadgets, glist,	WA_NewLookMenus,	TRUE,
							WA_Title,	"GadUtil library test",
							TAG_DONE))
				{
					GU_RefreshWindow(main_win, NULL);
					if (menustrip = GU_CreateLocMenuA(MyNewMenu, priv_info,
							NULL, layoutmenutags))
					{
						if (SetMenuStrip(main_win, menustrip))
						{
							process_window_events(main_win, menustrip);
							ClearMenuStrip(main_win);
						}
						GU_FreeMenus(menustrip);
					}
					CloseWindow(main_win);
				}
				GU_FreeLayoutGadgets(priv_info);
			}
			UnlockPubScreen(NULL, screen);
		}
		GU_CloseCatalog((struct Catalog *)LayoutTags[3].ti_Data);
		CloseLibrary((struct Library *)GadUtilBase);
	}
}

void process_window_events(struct Window *win, struct Menu *menuStrip)
{
	struct IntuiMessage *imsg;
	struct Gadget *gad, *tempgad;
	struct MenuItem *item;
	BOOL done = FALSE;
	UWORD menunumber;
	ULONG coords;

	while (!done)
	{
		Wait(1 << win->UserPort->mp_SigBit);

		while ((!done) && (imsg = GU_GetIMsg(win->UserPort)))
		{
			switch (imsg->Class)
			{
				case IDCMP_GADGETUP:
					ToggleLED();
					gad = (struct Gadget *)imsg->IAddress;
					switch (gad->GadgetID)
					{
						case MSG_NEXTDRIVE:
							if (tempgad = GU_GetGadgetPtr(DRIVE_MX_GAD, gadgets) )
							{
								if ((LONG)MXGadGTTags[2].ti_Data++ >= 3) MXGadGTTags[2].ti_Data = 0;
								GU_SetGadgetAttrsA(tempgad, win, NULL, &MXGadGTTags[2]);
							}
							break;

						case MSG_PREVDRIVE:
							if (tempgad = GU_GetGadgetPtr(DRIVE_MX_GAD, gadgets) )
							{
								if ((LONG)MXGadGTTags[2].ti_Data-- <= 0) MXGadGTTags[2].ti_Data = 3;
								GU_SetGadgetAttrsA(tempgad, win, NULL, &MXGadGTTags[2]);
							}
							break;

						case MSG_REQUESTER:
							GU_BlockInput(win);
							Delay(50);
							GU_FreeInput(win);
							break;

						case MSG_DRIVE:
							ToggleLED();
							break;
					}

				case IDCMP_GADGETDOWN:
					gad = (struct Gadget *)imsg->IAddress;
					if (gad->GadgetID == DRIVE_MX_GAD)
						MXGadGTTags[2].ti_Data = imsg->Code;
					break;

				case IDCMP_MOUSEMOVE:
					if (tempgad = GU_GetGadgetPtr(MSG_SELECTITEM, gadgets))
					{
						coords = (LONG)imsg->MouseX<<16|imsg->MouseY;

						if (GU_CoordsInGadBox(coords,tempgad))
						{
							ToggleLED();
						}
					}
					break;

				case IDCMP_MENUPICK:
					menunumber = imsg->Code;

					while ((menunumber != MENUNULL) && (!done))
					{
						item = ItemAddress(menuStrip, menunumber);

						if ( (LONG)GTMENUITEM_USERDATA(item) == 5)
							done = TRUE;

						menunumber = item->NextSelect;
					}
					break;

				case IDCMP_CLOSEWINDOW:
					done = TRUE;
					break;

				case IDCMP_REFRESHWINDOW:
					GU_BeginRefresh(win);
					GU_EndRefresh(win, TRUE);
					break;
			}
			GT_ReplyIMsg(imsg);
		}
	}
}