/* ClassAct Example
 * Copyright © 1995 Christopher Aldi
 * All Rights Reserved.
 *
 * This Example Shows ClassAct's speed laying out & rendering 50 palettes
 */

#include <clib/macros.h>
#include <clib/alib_protos.h>

#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/utility.h>
#include <proto/graphics.h>
#include <proto/intuition.h>

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

#include <proto/window.h>
#include <classes/window.h>

#include <libraries/gadtools.h>
#include <classact.h>
#include <classact_author.h>

struct ClassLibrary *WindowBase;
struct ClassLibrary *LayoutBase;
struct ClassLibrary *PaletteBase;

LONG ARG[1];

int main( void )
{
	struct Window *window;
	Object *Win_Object;
	ULONG signal, result;
	ULONG done = FALSE;
	struct RDArgs *args;
	
	if (!(args = ReadArgs("ND=NODEFER/S",ARG,NULL)))
		return 20;

	/* Open the classes we will use. Note, classlib.lib SAS/C or DICE autoinit
	 * can do this for you automatically.
	 */
	if( WindowBase = (struct ClassLibrary *)OpenLibrary("window.class",0L) )
	{
		if( LayoutBase = (struct ClassLibrary *)OpenLibrary("gadgets/layout.gadget",0L) )
		{
			if( PaletteBase = (struct ClassLibrary *)OpenLibrary("gadgets/palette.gadget",0L) )
			{
				/* Create the window object.
				 */
				Win_Object = WindowObject,
					WA_ScreenTitle, "ClassAct Copyright 1995, Phantom Development LLC.",
					WA_Title, "SpeedTest2 (50 palettes)",
					WA_SizeGadget, TRUE,
					WA_Left, 40,
					WA_Top, 30,
					WA_DepthGadget, TRUE,
					WA_DragBar, TRUE,
					WA_CloseGadget, TRUE,
					WA_Activate, TRUE,
					WINDOW_ParentGroup, HGroupObject,
						TAligned, 
						LAYOUT_SpaceOuter, TRUE,
						LAYOUT_DeferLayout, !ARG[0],
						StartVGroup,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
						End,
						StartVGroup,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
						End,
						StartVGroup,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
						End,
						StartVGroup,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
						End,
						StartVGroup,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
							StartMember, PaletteObject,
								PALETTE_NumColors, 8,
								PALETTE_Color, 1,
							EndMember,
							CHILD_MinWidth, 50,
							CHILD_MinHeight, 15,
						End,

					EndMember,
				EndWindow;

				/*  Object creation sucessful?
				 */
				if( Win_Object )
				{
					/*  Open the window.
					 */
					if( window = (struct Window *) CA_OpenWindow(Win_Object) )
					{
						ULONG wait;
						
						/* Obtain the window wait signal mask.
						 */
						GetAttr( WINDOW_SigMask, Win_Object, &signal );

						/* Input Event Loop
						 */
						while( !done )
						{
							wait = Wait(signal|SIGBREAKF_CTRL_C);
							
							if (wait & SIGBREAKF_CTRL_C) done = TRUE;
							else

							while ((result = CA_HandleInput(Win_Object,NULL)) != WMHI_LASTMSG)
							{
								switch(result)
								{
									case WMHI_CLOSEWINDOW:
										done = TRUE;
										break;
								}
							}
						}
					}

					/* Disposing of the window object will
					 * also close the window if it is
					 * already opened and it will dispose of
					 * all objects attached to it.
					 */
					DisposeObject( Win_Object );
				}
			}
		}
	}

	/* Close the classes.
	 */
	if (LayoutBase) CloseLibrary( (struct Library *)LayoutBase );
	if (PaletteBase) CloseLibrary( (struct Library *)PaletteBase );
	if (WindowBase) CloseLibrary( (struct Library *)WindowBase );
	
	FreeArgs(args);
}

#ifdef _DCC
int wbmain( struct WBStartup *wbs )
{
        return( main( 0, NULL ));
}
#endif