home *** CD-ROM | disk | FTP | other *** search
- /* Written by Syd L. Bolton ©1991 */
-
- #include "about.h"
-
- about()
- {
- struct IntuiMessage *message;
- ULONG class;
- struct Window *AWindow;
- int about_exit=0;
-
- AboutWindow.TopEdge=55+Window->TopEdge;
- AboutWindow.LeftEdge=120+Window->LeftEdge;
-
- AWindow=OpenWindow(&AboutWindow);
- if (AWindow==NULL) return(0);
-
- PrintIText(AWindow->RPort,&ATextList,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);
- }
-
-