/*************************************************************************/
/* Autor      : RTA                                                      */
/* Computer   : Amiga                                                    */
/* Sprache    : Ansi C                                                   */
/* Compiler   : SAS C-Compiler Version 5.1a                              */
/* Dateiname  : lglue.c                                                  */
/* Projekt    : OnlineHelp                                               */
/* Erstellt am: 17 Nov 1991,21:41                                        */
/*************************************************************************/

void __stdargs SimpleRequest(char *str,...)
	{
	va_list ap;
	struct TRStructure trs;

	va_start(ap,str);

	trs.Text = str;
	trs.Controls = ap;
	trs.Window = 0;
	trs.MiddleText = 0;
	trs.PositiveText = 0;
	trs.NegativeText = "Resume";
	trs.Title = "OnlineHelp...";
	trs.KeyMask = 0xFFFF;
	trs.textcolor = 2;
	trs.detailcolor = 3;
	trs.blockcolor = 2;
	trs.versionnumber = REQVERSION;
	trs.Timeout = 0;	/* you could put a timeout here if you wanted */
	trs.AbortMask = 0;	/* If you wanted to abort this requester from another */
						/* process, pass the mask for Signal() in this element. */
						/* Then just Signal() the process that brought up the requester */
	trs.rfu1 = 0;
	TextRequest(&trs);
	va_end(ap);
	}

short __stdargs TwoGadRequest(char *str,...)
	{
	va_list ap;
	struct TRStructure trs;
	short res;

	va_start(ap,str);

	trs.Text = str;
	trs.Controls = ap;
	trs.Window = 0;
	trs.MiddleText = 0;
	trs.PositiveText = "  OK  ";
	trs.NegativeText = "CANCEL";
	trs.Title = "OnlineHelp...";
	trs.KeyMask = 0xFFFF;
	trs.textcolor = 2;
	trs.detailcolor = 3;
	trs.blockcolor = 2;
	trs.versionnumber = REQVERSION;
	trs.Timeout = 0;	/* you could put a timeout here if you wanted */
	trs.AbortMask = 0;	/* If you wanted to abort this requester from another */
						/* process, pass the mask for Signal() in this element. */
						/* Then just Signal() the process that brought up the requester */
	trs.rfu1 = 0;

	res = TextRequest(&trs);
	va_end(ap);
	return(res);
	}