/**************************************************/
/* rct_test.c v1.0										  */
/* 															  */
/* Jürgen Haage  Burgstraße 30						  */
/* 6552 Bad Münster a. St. Ebernburg 2 			  */
/**************************************************/
#include "functions.h"
#include "exec/exec.h"
#include "intuition/intuition.h"
#include "graphics/gfx.h"
#include "graphics/gfxbase.h"
#include "graphics/gfxmacros.h"
#include "exec/execbase.h"
#include "exec/libraries.h"
#include "libraries/dosextens.h"

struct NewWindow NW =
  {
  0,11,640,245,0,1,GADGETDOWN|GADGETUP,
  WINDOWDRAG|WINDOWDEPTH|WINDOWSIZING|ACTIVATE|GIMMEZEROZERO|NOCAREREFRESH,
  NULL,NULL," Objektauswahl",NULL,NULL,1,1,640,245,WBENCHSCREEN
  };

struct RctBase   /* Lib Base */
  {
  struct Library Library;
  BPTR	SegList;
  struct ExecBase *SysBase;
  struct IntuitionBase *IntuiTionBase;
  struct DosBase *DosBase;
  struct GfxBase *GfxBase;
  };

struct RctBase *RctBase; /* Lib Base Pointer */
struct IntuitionBase *IntuitionBase;
struct GfXBase *GfxBase;

main()
{
APTR base;
BYTE *name;
SHORT ok = 1;
struct Window *W0;
struct Requester *req;
struct Screen *scr;
ULONG Class;
USHORT id;

if(!(RctBase = (struct RctBase *)OpenLibrary("rct.library",0)))
  exit(0);

if(!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library",0)))
  exit(0);



  if(base = rctload("df0:demos/demo.rct"))
	 {
	 req = (struct Requester *)rctaddr(base,0,0);
	 if(req)
		{
		scr = showscreen(base,0x8000,2,"Hallo Screen");
		W0 = reqdrawwindow(base,req,scr,"Hallo Window1");
		}

	 while(ok)
		{
		id = reqwait(base,req,&Class);

		switch(Class)
		  {
		  case GADGETDOWN:
		  case GADGETUP:
			 if(id == 2)
				ok = 0;
			 break;
		  }
		}
	 remscreen(base,scr);
	 ok = rctfree(base);
	 }
CloseLibrary(IntuitionBase);
CloseLibrary(RctBase);
}