/*
 *  Source machine generated by GadToolsBox V2.0
 *  which is (c) Copyright 1991-1993 Jaba Development
 *
 *  GUI Designed by : -- Unnamed --
 */

#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuition.h>
#include <intuition/classes.h>
#include <intuition/classusr.h>
#include <intuition/imageclass.h>
#include <intuition/gadgetclass.h>
#include <libraries/gadtools.h>
#include <graphics/displayinfo.h>
#include <graphics/gfxbase.h>
//#include <proto/exec.h>
//#include <proto/intuition.h>
//#include <proto/gadtools.h>
//#include <proto/graphics.h>
//#include <proto/utility.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>

#include <clib/exec_protos.h>
#include <clib/gadtools_protos.h>
#include <clib/graphics_protos.h>
#include <clib/utility_protos.h>
#include <clib/intuition_protos.h>

extern struct IntuitionBase *IntuitionBase;
extern struct GfxBase *GfxBase;
extern struct Library *UtilityBase;
extern struct Library *GadToolsBase;
extern struct Library *DiskfontBase;
extern struct Library *AslBase;
extern struct Library *IFFParseBase;
extern struct Library *DOSBase;

#include "pub.h"
#define ENGLISH 1
#define FRENCH 2
#define SPANISH 3


char *publister(void);
void adaptpublanguage(void);

extern void msg(char *msg);

extern int language;

BOOL handlegadgets2(ULONG iaddress, ULONG code);

struct IntuiMessage	*msg2=NULL;
char *screentitle="Public Screen List";

APTR                   VisualInfo2 = NULL;
struct Window         *Project0Wnd2 = NULL;
struct Gadget         *Project0GList2 = NULL;
struct Gadget         *Project0Gadgets2[3];
UWORD                  Project0Left2 = 140;
UWORD                  Project0Top2 = 27;
UWORD                  Project0Width2 = 305;
UWORD                  Project0Height2 = 121;
UBYTE                 *Project0Wdt2 = (UBYTE *)"EngClock Prefs";

struct TextAttr topaz82 = {
	( STRPTR )"topaz.font", 8, 0x00, 0x01 };

UWORD Project0GTypes2[] = {
	LISTVIEW_KIND,
	BUTTON_KIND,
	BUTTON_KIND
};

struct NewGadget Project0NGad2[] = {
	23, 14, 252, 85, (UBYTE *)"Public Screens", NULL, GD_PubList, PLACETEXT_ABOVE, NULL, NULL,
	6, 104, 85, 13, (UBYTE *)"Ok", NULL, GD_But_Ok, PLACETEXT_IN, NULL, NULL,
	205, 104, 85, 13, (UBYTE *)"Cancel", NULL, GD_But_Cancel, PLACETEXT_IN, NULL, NULL
};

ULONG Project0GTags2[] = {
	(GTLV_ShowSelected),NULL,(TAG_DONE),
	(TAG_DONE),
	(TAG_DONE)
};

int SetupScreen2( void )
{
	if ( ! ( VisualInfo2 = GetVisualInfo( pubscreen, TAG_DONE )))
		return( 2L );

	return( 0L );
}

void CloseDownScreen2( void )
{
	if ( VisualInfo2 ) {
		FreeVisualInfo( VisualInfo2 );
		VisualInfo2 = NULL;
	}

}

int OpenProject0Window2( void )
{
	struct NewGadget	ng2;
	struct Gadget	*g2;
	UWORD		lc2, tc2;
	UWORD		offx2 = pubscreen->WBorLeft, offy2 = pubscreen->WBorTop + pubscreen->RastPort.TxHeight + 1;

	if ( ! ( g2 = CreateContext( &Project0GList2 )))
		return( 1L );

	for( lc2 = 0, tc2 = 0; lc2 < Project0_CNT; lc2++ ) {

		CopyMem((char * )&Project0NGad2[ lc2 ], (char * )&ng2, (long)sizeof( struct NewGadget ));

		ng2.ng_VisualInfo = VisualInfo2;
		ng2.ng_TextAttr   = &topaz82;
		ng2.ng_LeftEdge  += offx2;
		ng2.ng_TopEdge   += offy2;

		Project0Gadgets2[ lc2 ] = g2 = CreateGadgetA((ULONG)Project0GTypes2[ lc2 ], g2, &ng2, ( struct TagItem * )&Project0GTags2[ tc2 ] );

		while( Project0GTags2[ tc2 ] ) tc2 += 2;
		tc2++;

		if ( NOT g2 )
			return( 2L );
	}

	if ( ! ( Project0Wnd2 = OpenWindowTags( NULL,
				WA_Left,	Project0Left2,
				WA_Top,		Project0Top2,
				WA_Width,	Project0Width2,
				WA_Height,	Project0Height2 + offy2,
				WA_IDCMP,	LISTVIEWIDCMP|BUTTONIDCMP|IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW,
				WA_Flags,	WFLG_DRAGBAR|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH|WFLG_DEPTHGADGET|WFLG_ACTIVATE,
				WA_Gadgets,	Project0GList2,
				WA_Title,	Project0Wdt2,
				WA_ScreenTitle,	screentitle,
				WA_PubScreen,	pubscreen,
				TAG_DONE )))
	return( 4L );

	GT_RefreshWindow( Project0Wnd2, NULL );

	return( 0L );
}

void CloseProject0Window2( void )
{
	if ( Project0Wnd2        ) {
		CloseWindow( Project0Wnd2 );
		Project0Wnd2 = NULL;
	}

	if ( Project0GList2      ) {
		FreeGadgets( Project0GList2 );
		Project0GList2 = NULL;
	}
}

char *publister(void) {
	struct List *publist;
	ULONG class, code, iaddress;

	current=NULL;
	adaptpublanguage();
	SetupScreen2();
	OpenProject0Window2();
	publist=LockPubScreenList();
	target=AllocMem(sizeof(publist),MEMF_ANY);
	CopyMem(publist,target,sizeof(publist));
	UnlockPubScreenList();

	GT_SetGadgetAttrs(Project0Gadgets2[GD_PubList],Project0Wnd2,NULL,GTLV_Labels,target,TAG_DONE);
	GT_RefreshWindow(Project0Wnd2,NULL);

	while(1) {
		Wait(1<<Project0Wnd2->UserPort->mp_SigBit);
		msg2=(struct IntuiMessage *)GT_GetIMsg(Project0Wnd2->UserPort);
		class=msg2->Class; code=msg2->Code; iaddress=(ULONG)msg2->IAddress;
		GT_ReplyIMsg(msg2);

		switch(class) {
			case CLOSEWINDOW: 
				CloseProject0Window2();
				CloseDownScreen2();
				FreeMem(target,sizeof(target));
				return(current);
			 break;
			case GADGETUP:
			case GADGETDOWN:
				if(handlegadgets2(iaddress,code)) {
					FreeMem(target,sizeof(target));
					return(current);
				}
			break;
			default:
				/* Unknown (internal) msg */
			break;
		}		
	}
	
}

BOOL handlegadgets2(ULONG iaddress, ULONG code) {
	struct Gadget *gad;
	struct Node *nd;
	int i=0;

	gad=(struct Gadget *)iaddress;

	switch(gad->GadgetID) {
		case GD_PubList:
			nd=target->lh_Head;
			for(i=0; i<code; i++) {
				nd=nd->ln_Succ;
			}
			current=nd->ln_Name;
			return(0);
		break;

		case GD_But_Cancel:
			current=(char *)1234;  /* Magic returns no! */
			CloseProject0Window2();
			CloseDownScreen2();
			return(1);
		break;
		case GD_But_Ok:
			CloseProject0Window2();
			CloseDownScreen2();
			return(1);
		break;

		default:
			msg("Unknown gadget!");
		break;
	}
	return(0);
}

void adaptpublanguage(void) {
	switch(language) {
		case ENGLISH:
		break;
		case FRENCH:
		break;
		case SPANISH:
			Project0NGad2[0].ng_GadgetText="Pantallas Públicas";
			Project0NGad2[2].ng_GadgetText="Cancelar";
			screentitle="Lista de Pantallas Públicas";

		break;
	}
}