/**
 **  LabelExample.c -- Label class example.
 **
 **  This is a simple example testing some of the capabilities of the
 **  Label image class.
 **
 **  This code opens a simple window and then creates a Label image,
 **  combining text, font changes and images.  It then draws the image in
 **  both its regular and selected state.
 **
 **  Note that we are not using window or layout class here, we are 
 **  using the gadget in a fairly direct form, but that's perfectly legal.
 **
 **/

#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <intuition/imageclass.h>
#include <libraries/gadtools.h>
#include <libraries/locale.h>
#include <utility/tagitem.h>
#include <clib/dos_protos.h>
#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/gadtools_protos.h>
#include <clib/locale_protos.h>
#include <images/label.h>
#include <proto/label.h>
#include <stdio.h>

struct ClassLibrary *LabelBase;

struct ClassLibrary * OpenClass(STRPTR, ULONG);


__chip UWORD image_data[] =
{
	/* Plane 0 */
	0x0000, 0x0000,
	0x7F00, 0x0000,
	0x4180, 0x0000,
	0x4140, 0x0000,
	0x4120, 0x4000,
	0x41F0, 0x6000,
	0x401B, 0xF000,
	0x401B, 0xF800,
	0x401B, 0xF000,
	0x4018, 0x6000,
	0x4018, 0x4000,
	0x4018, 0x0000,
	0x4018, 0x0000,
	0x7FF8, 0x0000,
	0x1FF8, 0x0000,
	0x0000, 0x0000,
	/* Plane 1 */
	0x0000, 0x0000,
	0x0000, 0x0000,
	0x3E00, 0x0000,
	0x3E80, 0x0000,
	0x3EC0, 0x0000,
	0x3E00, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x3FE0, 0x0000,
	0x0000, 0x0000,
	0x0000, 0x0000,
	0x0000, 0x0000
};

struct Image image =
{
	0, 0, 22, 16, 2, image_data, 0x03, 0x00, NULL
};

struct TextAttr emerald17 = { (STRPTR)"emerald.font", 18, FS_NORMAL, 0x01 };


/* This is the start of our programme.
 */
main()
{
	struct Screen *screen = NULL;

	/* We'll just open up on the default public screen, and use its screen font.
	 */
	if (screen = LockPubScreen(NULL))
	{
		struct DrawInfo *drinfo = NULL;

		if (drinfo = GetScreenDrawInfo(screen))
		{
			/* Open the BOOPSI class library.
			 */
			PutStr("Opening class\n");

			if (LabelBase = OpenClass("images/label.image", 0))
			{
				struct Image *label_image;
				UWORD mapping[4];

				/* Setup the mapping.  This is a pretty standard map for
				 * a 4 colour image.
				 */
				mapping[0] = drinfo->dri_Pens[BACKGROUNDPEN];
				mapping[1] = drinfo->dri_Pens[SHADOWPEN];
				mapping[2] = drinfo->dri_Pens[SHINEPEN];
				mapping[3] = drinfo->dri_Pens[FILLPEN];

				/* Create a label image.  Here we make use of underscoring,
				 * multiple lines, images, different pens, different fonts
				 * and right justification.
				 */
				PutStr("Creating object\n");
				if (label_image = (struct Image *)NewObject(LABEL_GetClass(), NULL,
													IA_Font, screen->Font,
													LABEL_Justification, LABEL_CENTRE,
													LABEL_Text, "_Under-scored\nNot under-scored\n",
													LABEL_Text, "An image: ",
													LABEL_Mapping, mapping,
													LABEL_Image, &image,
													IA_FGPen, 3,
													IA_Font, &emerald17,
													LABEL_Text, "\nChange fonts,\n",
													IA_FGPen, 2,
													IA_Font, screen->Font,
													LABEL_Text, "and colours, ",
													LABEL_SoftStyle, FSF_BOLD,
													LABEL_Text, " and styles",
													TAG_END))
				{
					struct Window *win = NULL;

					Printf("Image size -- width: %ld  height: %ld\n",
						(LONG)label_image->Width, (LONG)label_image->Height);

					/* Open a simple window.
					 */
					if (win = OpenWindowTags(NULL,
						WA_Left, 0,
						WA_Top, screen->Font->ta_YSize + 3,
						WA_InnerWidth, label_image->Width + INTERWIDTH * 2,
						WA_InnerHeight, (label_image->Height + INTERHEIGHT * 2) * 2,
						WA_IDCMP, IDCMP_GADGETUP | IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW,
						WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_CLOSEGADGET |
									WFLG_SIZEGADGET | WFLG_ACTIVATE | WFLG_SMART_REFRESH,
						WA_Title, "Label Class Demo",
						WA_MinWidth, label_image->Width + INTERWIDTH * 2 + 20,
						WA_MinHeight, (label_image->Height + INTERHEIGHT * 2) * 2 + screen->Font->ta_YSize + 10,
						WA_MaxWidth, -1,
						WA_MaxHeight, -1,
						TAG_DONE))
					{
						struct RastPort *rport = win->RPort;
						struct IntuiMessage *imsg;
						UWORD top = win->BorderTop + INTERHEIGHT;
						UWORD left = win->BorderLeft + INTERWIDTH;
						BOOL ok = TRUE;

						PutStr("Drawing image\n");

						DrawImageState(rport, label_image, left, top,
							IDS_NORMAL, drinfo);
						DrawImageState(rport, label_image, left, top + label_image->Height + INTERHEIGHT,
							IDS_SELECTED, drinfo);

						/* Just wait around until the close gadget is pressed.
						 */
						while (ok)
						{
							WaitPort(win->UserPort);
							while (imsg = (struct IntuiMessage *)GetMsg(win->UserPort))
							{
								switch(imsg->Class)
								{
									case IDCMP_REFRESHWINDOW:
										DrawImageState(rport, label_image, left, top,
											IDS_NORMAL, drinfo);
										DrawImageState(rport, label_image, left, top + label_image->Height + INTERHEIGHT,
											IDS_SELECTED, drinfo);
										break;

									case IDCMP_CLOSEWINDOW:
										ok = FALSE;
										break;

									default:
										break;
								}
								ReplyMsg((struct Message *)imsg);
							}
						}
						/* Done.
						 */
						CloseWindow(win);
					}
					else
						PutStr("ERROR: Couldn't open window\n");

					PutStr("Disposing image\n");
					DisposeObject(label_image);
				}
				else
					PutStr("ERROR: Couldn't create image\n");

				PutStr("Closing class\n");
				CloseLibrary((struct Library *)LabelBase);
			}
			else
				PutStr("ERROR: Couldn't open class\n");

			FreeScreenDrawInfo(screen, drinfo);
		}
		else
			PutStr("ERROR: Couldn't get DrawInfo\n");

	    UnlockPubScreen(0, screen);
	}
	else
		PutStr("ERROR: Couldn't lock public screen\n");
}


/* Function to open a BOOPSI class library.
 */
struct ClassLibrary * OpenClass(STRPTR name, ULONG version)
{
	struct Library *retval;
	UBYTE buffer[256];

	if ((retval = OpenLibrary(name, version)) == NULL)
	{
		sprintf (buffer, ":classes/%s", name);
		if ((retval = OpenLibrary(buffer, version)) == NULL)
		{
			sprintf(buffer, "classes/%s", name);
			retval = OpenLibrary(buffer, version);
		}
	}
	return((struct ClassLibrary *)retval);
}