/***************** about for ScreenMod ************************/
/*          Written by Syd L. Bolton ©1991                    */

#include "about.h"

about()
{
struct IntuiMessage *message;
ULONG class;
struct Window *AWindow;
int about_exit=0;

AboutWindow.Screen=Screen;    /* make sure we're on right screen! */

AWindow=OpenWindow(&AboutWindow);
if (AWindow==NULL) return(0);

PrintIText(AWindow->RPort,&AboutTextList,0,0);

do {
	WaitPort(AWindow->UserPort);
		while ( ( message=(struct IntuiMessage *)
			GetMsg(AWindow->UserPort) ) != NULL)
		{
		class=message->Class;
		ReplyMsg(message);

		if (class==GADGETUP) about_exit=1;
		}
	} while (about_exit==0);

CloseWindow(AWindow);
}