/*
 * $Id: requesters.c 200 2007-11-03 11:53:08Z hderuiter $
 *
 * $Date: 2007-11-03 12:26:08 $
 * $Revision: 000 $
 *
 * (C) 2009 by Hans de Ruiter
 * All rights reserved
 *
 * This file is part of the MiniGL library project
 * See the file Licence.txt for more details
 *
 */

#include "requesters.h"

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

#include <proto/requester.h>

#include <classes/requester.h>

void displayWarningReq(struct Window *window, struct Screen *screen,
						const char *title, const char *message, ULONG reqImage)
{
	Object *object = IIntuition->NewObject(NULL, "requester.class",
		REQ_Type, REQTYPE_INFO,
		REQ_TitleText, title,
		REQ_BodyText, message,
		REQ_Image, reqImage,
		REQ_GadgetText, "_Ok",
		TAG_DONE);

	if (object)
	{
		IIntuition->IDoMethod(object, RM_OPENREQ, NULL, window, screen, TAG_DONE);
		IIntuition->DisposeObject(object);
	}
}