home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk373.lzh / Multiplot / source / mplot_src / src.zoo / message.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-08-03  |  4.1 KB  |  133 lines
  1. #include <exec/types.h>
  2. #include <intuition/intuition.h>
  3.  
  4.  
  5. extern struct Screen *screen;
  6.  
  7. struct IntuiText MessageText = {
  8.         1,0,JAM2,       /* front and back text pens, drawmode and fill byte */
  9.         37,20,   /* XY origin relative to container TopLeft */
  10.         NULL,   /* font pointer or NULL for default */
  11.         NULL, /* pointer to text */
  12.         NULL    /* next IntuiText structure */
  13. };
  14.  
  15.  
  16. SHORT OkayVectors[] = {
  17.         0,0,
  18.         118,0,
  19.         118,25,
  20.         0,25,
  21.         0,0
  22. };
  23. struct Border OkayBorder = {
  24.         -2,-1,  /* XY origin relative to container TopLeft */
  25.         1,0,JAM1,       /* front pen, back pen and drawmode */
  26.         5,      /* number of XY vectors */
  27.         OkayVectors, /* pointer to XY vectors */
  28.         NULL    /* next border in list */
  29. };
  30.  
  31. struct IntuiText OkayText = {
  32.         1,0,JAM2,       /* front and back text pens, drawmode and fill byte */
  33.         37,7,   /* XY origin relative to container TopLeft */
  34.         NULL,   /* font pointer or NULL for default */
  35.         "Okay", /* pointer to text */
  36.         NULL    /* next IntuiText structure */
  37. };
  38.  
  39. struct Gadget Okay = {
  40.         NULL,   /* next gadget */
  41.         86,54,  /* origin XY of hit box relative to window TopLeft */
  42.         115,24, /* hit box width and height */
  43.         NULL,   /* gadget flags */
  44.         RELVERIFY,      /* activation flags */
  45.         BOOLGADGET,     /* gadget type flags */
  46.         (APTR)&OkayBorder, /* gadget border or image to be rendered */
  47.         NULL,   /* alternate imagery for selection */
  48.         &OkayText,        /* first IntuiText structure */
  49.         NULL,   /* gadget mutual-exclude long word */
  50.         NULL,   /* SpecialInfo structure */
  51.         NULL,   /* user-definable data */
  52.         NULL    /* pointer to user-definable data */
  53. };
  54.  
  55. struct NewWindow newmessage = {
  56.         140,100,  /* window XY origin relative to TopLeft of screen */
  57.         304,102,        /* window width and height */
  58.         2,1,    /* detail and block pens */
  59.         RAWKEY | GADGETUP,       /* IDCMP flags */
  60.         ACTIVATE,   /* other window flags */
  61.         &Okay,       /* first gadget in gadget list */
  62.         NULL,   /* custom CHECKMARK imagery */
  63.         NULL,   /* window title */
  64.         NULL,   /* custom screen pointer */
  65.         NULL,   /* custom bitmap */
  66.         5,5,    /* minimum width and height */
  67.         640,200,        /* maximum width and height */
  68.         CUSTOMSCREEN    /* destination screen type */
  69. };
  70.  
  71.  
  72.  
  73. struct Window *p_MesWindow;
  74. #define GO 1
  75. #define STOP 0
  76.  
  77.  
  78.  
  79. void Message(message)
  80. char *message;
  81. {
  82. USHORT QuitFlag;
  83. ULONG MesClass;                          /*     Fields for storing      */
  84. ULONG MesCode;                          /*     Fields for storing      */
  85.  
  86. APTR MesPointer;                            /*                             */
  87. struct IntuiMessage  *p_MesMessage;         /*      pointer to message     */
  88. struct RastPort *p;
  89.  
  90.   QuitFlag=GO;
  91.   newmessage.Screen = screen;
  92.   MessageText.IText = message;
  93.  
  94.   if( (p_MesWindow = (struct Window *)OpenWindow(&newmessage))==NULL)
  95.     {
  96.     ErrorAlert(5);
  97.     exit(10);
  98.     }
  99.   p = p_MesWindow->RPort;
  100.   PrintIText(p,&MessageText,0,0);
  101.   while (QuitFlag !=STOP)
  102.     {
  103.        Wait(1l<<p_MesWindow->UserPort->mp_SigBit);        /* wait for a message */
  104.        while (p_MesMessage = (struct IntuiMessage *)GetMsg(p_MesWindow->UserPort))
  105.         {
  106.           MesClass = p_MesMessage->Class;             /* Store values */
  107.           MesCode = p_MesMessage->Code;             /* Store values */
  108.           MesPointer = p_MesMessage->IAddress;
  109.           ReplyMsg(p_MesMessage);                     /* Reply to message */
  110.           if ( MesClass == GADGETUP)
  111.            {
  112.                 QuitFlag=STOP;
  113.            }
  114.           else  if ( MesClass == RAWKEY) {
  115.               if (MesCode ==95) ;      /* HELP key PRESSED */
  116.               else if (MesCode ==69)   /* ESCAPE key PRESSED */
  117.                 {
  118.                     QuitFlag=STOP;
  119.                 }
  120.               else if (MesCode ==196)   /* RETURN key RELEASED */
  121.                 {
  122.                     QuitFlag=STOP;
  123.                 }
  124.           }
  125.        }
  126.     }
  127.    CloseWindow(p_MesWindow);
  128. }
  129.  
  130.  
  131.  
  132.  
  133.