Initial commit

Examples/Label/LabelExample.c

@@ -0,0 +1,246 @@
+
+/**
+ **  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);
+}