#include <exec/types.h>
#include <dos/dos.h>
#include <clib/exec_protos.h>
#include <clib/dos_protos.h>
#include <utility/tagitem.h>
#include <intuition/intuition.h>
#include <rct/rctdef.h>
#include <clib/rct_protos.h>

APTR RctBase, ap;

void main()
{
  int i;
  Window *w;

  if ((RctBase = OpenLibrary("rct.library",16))
   && (ap = R_InitApplTags(TAG_DONE))
   && R_ResLoadTags(ap,Rres_Name,"Calc.RCT", TAG_DONE))
   {

     R_SetGadText(ap, (void*) 0L, 0L, "Hallo!");
     w = R_GadDrawWindow(ap, (void*)0L, 0L, (BYTE*)"Calculator",
                         0, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_ACTIVATE|WFLG_GIMMEZEROZERO);
		Delay( 100);
    R_RemWindow(ap,w);

     // Und jetzt das ganze noch mal

     R_SetGadText(ap, (void*) 0L, 0L, "Hallo!");
     w = R_GadDrawWindow(ap, (void*)0L, 0, (BYTE*)"Noch einer",
                         0, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_ACTIVATE|WFLG_GIMMEZEROZERO);
			Delay( 100);
     R_RemWindow(ap,w);

     R_ExitAppl(ap);
     CloseLibrary((Library*)RctBase);
   }
}

#include <rct/rcttagfuncs.h>