/**
*
* COPYRIGHT:
*
*   Unless otherwise noted, all files are Copyright (c) 1999 Amiga, Inc.
*   All rights reserved.
*
* DISCLAIMER:
*
*   This software is provided "as is". No representations or warranties
*   are made with respect to the accuracy, reliability, performance,
*   currentness, or operation of this software, and all use is at your
*   own risk. Neither Amiga nor the authors assume any responsibility
*   or liability whatsoever with respect to your use of this software.
*

 **  ListBrowserExample.c -- List Browser class test.
 **
 **  This is a simple example testing some of the capabilities of the
 **  ListBrowser gadget class.
 **
 **  This is a good example how to use Reaction classes like simple BOOPSI
 **  classes and how to use it without window.class and the full ReAction
 **  environment and layouter.
 **
 **  This code opens a simple window and then a ListBrowser gadget which is
 **  subsequently attached to the window's gadget list.  Everytime the user
 **  clicks on the close gadget, this code changes some of the attributes
 **  of the ListBrowser gadget to demonstrate different ways it can be used,
 **  including one demonstration which creates two images using the Label
 **  class and shows them in the ListBrowser.
 **
 **/


#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <intuition/gadgetclass.h>
#include <intuition/imageclass.h>
#include <intuition/icclass.h>
#include <utility/tagitem.h>
#include <gadgets/listbrowser.h>
#include <images/label.h>

#include <proto/dos.h>
#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/listbrowser.h>
#include <proto/label.h>

#include <clib/alib_protos.h>

#include <string.h>
#include <stdio.h>

#define RAWKEY_CURSORUP 76
#define RAWKEY_CURSORDOWN 77
#define QUALIFIER_SHIFT 0x03
#define QUALIFIER_ALT 0x30
#define QUALIFIER_CTRL 0x08


/* Function prototypes.
 */
BOOL make_list(struct List *, UBYTE **, LONG *);
VOID free_list(struct List *);
VOID wait_for_close(struct Window *, struct Gadget *);

/* Global variables.
 */
struct Library *ListBrowserBase;
struct Library *LabelBase;


UBYTE *col1[] =
{
	"This is a", "test of the", "ListBrowser", "gadget class.",
	"This is like", "a souped-up", "listview", "gadget.  It", "has many",
	"cool new", "features", "though like", "multiple", "columns,",
	"horizontal", "scrolling,", "images in", "nodes,", "columns titles",
	"and much much", "more!",
	"This is a", "test of the", "ListBrowser", "gadget class.",
	"This is like", "a souped-up", "listview", "gadget.  It", "has many",
	"cool new", "features", "though like", "multiple", "columns,",
	"horizontal", "scrolling,", "images in", "nodes,", "columns titles",
	"and much much", "more!",
	"This is a", "test of the", "ListBrowser", "gadget class.",
	"This is like", "a souped-up", "listview", "gadget.  It", "has many",
	"cool new", "features", "though like", "multiple", "columns,",
	"horizontal", "scrolling,", "images in", "nodes,", "columns titles",
	"and much much", "more!", NULL
};

LONG col2[] =
{
	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
	15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
	27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
	39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
	51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
	63
};

struct ColumnInfo ci[] =
{
	{ 80, "Col 1", 0 },
	{ 60, "Col 2", 0 },
	{ 60, "Col 3", 0 },
	{ -1, (STRPTR)~0, -1 }
};

struct ColumnInfo fancy_ci[] =
{
	{ 100, NULL, 0 },
	{ -1, (STRPTR)~0, -1 }
};

/* Some fonts for our fancy list.
 */
struct TextAttr helvetica24b = { (STRPTR)"helvetica.font", 24, FSF_BOLD, FPF_DISKFONT };
struct TextAttr times18i = { (STRPTR)"times.font", 18, FSF_ITALIC, FPF_DISKFONT };
struct TextAttr times18 = { (STRPTR)"times.font", 18, 0, FPF_DISKFONT };


/* 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 Window *win = NULL;

		/* Open the window, note how we size the window to perfectly fit
		 * all the gadgets.
		 */
		if (win = OpenWindowTags(NULL,
			WA_Left, 0,
			WA_Top, screen->Font->ta_YSize + 3,
			WA_Width, 300,
			WA_Height, 160,
			WA_CustomScreen, screen,
			WA_IDCMP, IDCMP_GADGETUP | IDCMP_MOUSEMOVE | IDCMP_RAWKEY |
						IDCMP_CLOSEWINDOW | IDCMP_GADGETDOWN,
			WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_CLOSEGADGET |
						WFLG_SIZEGADGET | WFLG_ACTIVATE | WFLG_SMART_REFRESH,
			WA_Title, "ListBrowser Class Demo",
			WA_MinWidth, 50,
			WA_MinHeight, 50,
			WA_MaxWidth, -1,
			WA_MaxHeight, -1,
			TAG_DONE))
		{
			PutStr("Creating ListBrowser class\n");
			if (ListBrowserBase = OpenLibrary("gadgets/listbrowser.gadget", 44))
			{
				struct Gadget *listbrowser_gad;
				struct List label_list;

				make_list(&label_list, col1, col2);

				/* Create a listbrowser gadget.
				 */
				PutStr("Creating ListBrowser object\n");
				if (listbrowser_gad = (struct Gadget *)NewObject(LISTBROWSER_GetClass(), NULL,
														GA_ID, 1,
														GA_Top, win->BorderTop + 5,
														GA_Left, 10,
														GA_RelWidth, -34,
														GA_RelHeight, -(win->BorderTop + win->BorderBottom + 10),
														GA_RelVerify, TRUE,
														LISTBROWSER_Labels, (ULONG)&label_list,
														LISTBROWSER_ColumnInfo, (ULONG)&ci,
														LISTBROWSER_ColumnTitles, TRUE,
														LISTBROWSER_MultiSelect, FALSE,
														LISTBROWSER_Separators, TRUE,
														LISTBROWSER_ShowSelected, FALSE,
														LISTBROWSER_Editable, TRUE,
														TAG_END))
				{
					/* Adding gadgets.
					 */
					PutStr("Adding gadget\n");
					AddGList(win, listbrowser_gad, -1, -1, NULL);
					PutStr("Refreshing gadget\n");
					RefreshGList(listbrowser_gad, win, NULL, -1);

					/* Wait for close gadget click to continue.
					 */
					SetWindowTitles(win, "<- Click here to continue", (UBYTE *)~0);
					wait_for_close(win, listbrowser_gad);

					/* Make Visible
					 */
					SetWindowTitles(win, "Make Visible 10", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_MakeVisible, 10,
						LISTBROWSER_EditNode, 8,
						LISTBROWSER_EditColumn, 1,
						TAG_DONE);
					ActivateGadget(listbrowser_gad, win, NULL);
					wait_for_close(win, listbrowser_gad);

					/* Show selected
					 */
					SetWindowTitles(win, "Show selected, Auto-Fit", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_ShowSelected, TRUE,
						LISTBROWSER_AutoFit, TRUE,
						LISTBROWSER_HorizontalProp, TRUE,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* Multi-select
					 */
					SetWindowTitles(win, "Multi-select, Virtual Width of 500", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_MultiSelect, TRUE,
						LISTBROWSER_VirtualWidth, 500,
						LISTBROWSER_AutoFit, FALSE,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* Detach the list.
					 */
					SetWindowTitles(win, "Detached list", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_MultiSelect, FALSE,
						LISTBROWSER_Labels, ~0,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* No separators, no title, 1 column.
					 */
					SetWindowTitles(win, "No separators, no title, 1 column.", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_Labels, (ULONG)&label_list,
						LISTBROWSER_ColumnInfo, (ULONG)&fancy_ci,
						LISTBROWSER_Separators, FALSE,
						LISTBROWSER_ColumnTitles, FALSE,
						LISTBROWSER_AutoFit, TRUE,
						LISTBROWSER_VirtualWidth, 0,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* Fancy list.
					 */
					PutStr("Creating Label class\n");
					if (LabelBase = OpenLibrary("images/label.image", 44))
					{
						struct List fancy_list;
						struct Image *image1, *image2;
						struct Node *node1, *node2;

						NewList(&fancy_list);

						PutStr("Creating Label object\n");
						if (image1 = (struct Image *)NewObject(LABEL_GetClass(), NULL,
														IA_FGPen, 1,
														IA_BGPen, 2,
														IA_Font, (ULONG)&helvetica24b,
														LABEL_Text, (ULONG)"R",
														IA_Font, (ULONG)&times18i,
														LABEL_Text, (ULONG)"e ",
														IA_Font, (ULONG)&helvetica24b,
														LABEL_Text, (ULONG)"Act",
														IA_Font, (ULONG)&times18i,
														LABEL_Text, (ULONG)"ion",
														TAG_END))
						{
							PutStr("Creating Label object\n");
							if (image2 = (struct Image *)NewObject(LABEL_GetClass(), NULL,
															IA_FGPen, 2,
															IA_BGPen, 0,
															IA_Font, (ULONG)&times18,
															LABEL_Text, (ULONG)"Amiga Inc.",
															TAG_END))
							{
								if (node1 = AllocListBrowserNode(1,
												LBNA_Column, 0,
													LBNCA_Image, (ULONG)image1,
													LBNCA_Justification, LCJ_CENTRE,
												TAG_DONE))
								{
									AddTail(&fancy_list, node1);

									if (node2 = AllocListBrowserNode(1,
													LBNA_Column, 0,
														LBNCA_Image, (ULONG)image2,
														LBNCA_Justification, LCJ_CENTRE,
													TAG_DONE))
									{
										AddTail(&fancy_list, node2);

										/* Set listbrowser.
										 */
										SetWindowTitles(win, "Fancy", (UBYTE *)~0);
										SetGadgetAttrs(listbrowser_gad, win, NULL,
											LISTBROWSER_ColumnInfo, &fancy_ci,
											LISTBROWSER_Labels, (ULONG)&fancy_list,
											LISTBROWSER_AutoFit, TRUE,
											TAG_DONE);

										wait_for_close(win, listbrowser_gad);

										SetGadgetAttrs(listbrowser_gad, win, NULL,
											LISTBROWSER_Labels, ~0,
											TAG_DONE);

										FreeListBrowserNode(node2);
									}
									FreeListBrowserNode(node1);
								}
								DisposeObject(image2);
							}
							DisposeObject(image1);
						}

						PutStr("Closing Label class\n");
						CloseLibrary(LabelBase);
					}
					else
						PutStr("ERROR: Couldn't create Label class\n");

					/* Read-only
					 */
					SetWindowTitles(win, "Read-only", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						LISTBROWSER_ColumnInfo, (ULONG)&ci,
						LISTBROWSER_Labels, (ULONG)&label_list,
						LISTBROWSER_AutoFit, TRUE,
						LISTBROWSER_Selected, -1,
						GA_ReadOnly, TRUE,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* Disabled.
					 */
					SetWindowTitles(win, "Disabled", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						GA_Disabled, TRUE,
						GA_ReadOnly, FALSE,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					/* No scrollbars, borderless.
					 */
					SetWindowTitles(win, "No scrollbars, borderless", (UBYTE *)~0);
					SetGadgetAttrs(listbrowser_gad, win, NULL,
						GA_Disabled, FALSE,
						GA_Top, win->BorderTop,
						GA_Left, 2,
						GA_RelWidth, -18,
						GA_RelHeight, -(win->BorderTop + win->BorderBottom),
						LISTBROWSER_Borderless, TRUE,
						LISTBROWSER_HorizontalProp, FALSE,
						LISTBROWSER_VerticalProp, FALSE,
						TAG_DONE);
					wait_for_close(win, listbrowser_gad);

					RemoveGList(win, listbrowser_gad, -1);
					DisposeObject(listbrowser_gad);
				}
				else
					PutStr("ERROR: Couldn't create ListBrowser gadgetn");

				free_list(&label_list);

				PutStr("Freeing ListBrowser class\n");
				CloseLibrary(ListBrowserBase);
			}
			else
				PutStr("ERROR: Couldn't create ListBrowser class\n");

			CloseWindow(win);
		}
		else
			PutStr("ERROR: Couldn't open window\n");

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


/* Function to make a List of ListBrowserNodes from a couple of arrays.
 * Just to demonstrate things, we make make three columns, 2 with text
 * (the same text) and the third with numbers.
 */
BOOL make_list(struct List *list, UBYTE **labels1, LONG *labels2)
{
	struct Node *node;
	WORD i = 0;

	NewList(list);

	while (*labels1)
	{
		if (node = AllocListBrowserNode(3,
						LBNA_Column, 0,
							LBNCA_CopyText, TRUE,
							LBNCA_Text, *labels1,
							LBNCA_MaxChars, 40,
							LBNCA_Editable, TRUE,
						LBNA_Column, 1,
							LBNCA_CopyText, TRUE,
							LBNCA_Text, *labels1,
							LBNCA_MaxChars, 40,
							LBNCA_Editable, TRUE,
						LBNA_Column, 2,
							LBNCA_Integer, &labels2[i],
							LBNCA_Justification, LCJ_RIGHT,
						TAG_DONE))
		{
			AddTail(list, node);
		}
		else
			break;

		labels1++;
		i++;
	}
	return(TRUE);
}


/* Function to free an Exec List of ListBrowser nodes.
 */
VOID free_list(struct List *list)
{
	struct Node *node, *nextnode;

	node = list->lh_Head;
	while (nextnode = node->ln_Succ)
	{
		FreeListBrowserNode(node);
		node = nextnode;
	}
	NewList(list);
}


/* Wait for the window close gadget to be pressed.
 */
VOID wait_for_close(struct Window *win, struct Gadget *listbrowser_gad)
{
	BOOL ok = TRUE;

	/* Just wait around until the close gadget is pressed.
	 */
	while (ok)
	{
		struct Gadget *gadget;
		struct IntuiMessage *imsg;
			
		WaitPort(win->UserPort);
		while (imsg = (struct IntuiMessage *)GetMsg(win->UserPort))
		{
			switch (imsg->Class)
			{
				case IDCMP_CLOSEWINDOW:
					ok = FALSE;
					break;

				case IDCMP_RAWKEY:
					if (!(imsg->Code & IECODE_UP_PREFIX))
					{
						switch (imsg->Code)
						{
							case RAWKEY_CURSORUP:
								if (imsg->Qualifier & QUALIFIER_CTRL)
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_TOP,
										TAG_DONE);
								if (imsg->Qualifier & QUALIFIER_SHIFT)
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_PAGEUP,
										TAG_DONE);
								else
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_LINEUP,
										TAG_DONE);
								break;

							case RAWKEY_CURSORDOWN:
								if (imsg->Qualifier & QUALIFIER_CTRL)
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_BOTTOM,
										TAG_DONE);
								if (imsg->Qualifier & QUALIFIER_SHIFT)
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_PAGEDOWN,
										TAG_DONE);
								else
									SetGadgetAttrs(listbrowser_gad, win, NULL,
										LISTBROWSER_Position, LBP_LINEDOWN,
										TAG_DONE);
								break;

							default:
								break;
						}
					}
					break;

				case IDCMP_GADGETUP:
					gadget = (struct Gadget *)imsg->IAddress;
					Printf("Gadget: %ld  Code: %ld\n",
						(LONG)gadget->GadgetID, (LONG)imsg->Code);

					break;
		
				default:
					break;
			}
			ReplyMsg((struct Message *)imsg);
		}
	}
}