test/intuition/pubscreen.c

   1 // Opens a PubScreen. The name can be given as argument.
   2 // Default name is "MYPUBSCREEN".
   3
   4 #include <proto/intuition.h>
   5 #include <proto/dos.h>
   6 #include <proto/exec.h>
   7
   8 #include <stdlib.h>
   9 #include <stdio.h>
  10
  11 struct Screen *myscreen;
  12 struct Window *mywindow;
  13 BYTE signalnum;
  14
  15 void clean_exit(STRPTR txt)
  16 {
  17     if (mywindow) CloseWindow(mywindow);
  18     if (myscreen) CloseScreen(myscreen);
  19     FreeSignal(signalnum);
  20
  21     if (txt)
  22     {
  23         PutStr(txt);
  24         exit(RETURN_FAIL);
  25     }
  26     exit(RETURN_OK);
  27 }
  28
  29 int main(int argc, char **argv)
  30 {
  31     BOOL done = FALSE;
  32     BOOL closewindow = FALSE;
  33     ULONG signals, winsig, pubsig;
  34     struct IntuiMessage *message;
  35     char *name;
  36
  37     if (argc == 2)
  38     {
  39         name = argv[1];
  40     }
  41     else
  42     {
  43         name = "MYPUBSCREEN";
  44     }
  45
  46     if ((signalnum = AllocSignal(-1)) == -1)
  47     {
  48         clean_exit("Can't allocate signal\n");
  49     }
  50
  51     if
  52     (
  53         (
  54             myscreen = OpenScreenTags
  55             (
  56                 NULL,
  57                 SA_PubName, name,
  58                 SA_PubSig, signalnum,
  59                 SA_LikeWorkbench, TRUE,
  60                 SA_Title, name,
  61                 TAG_DONE
  62             )
  63         ) == NULL
  64     )
  65     {
  66         clean_exit("Can't open screen\n");
  67     }
  68
  69     if
  70     (
  71         (
  72             mywindow = OpenWindowTags
  73             (
  74                 NULL,
  75                 WA_Left, 30,
  76                 WA_Top, 30,
  77                 WA_Width, 250,
  78                 WA_Height, 100,
  79                 WA_DragBar, TRUE,
  80                 WA_DepthGadget, TRUE,
  81                 WA_CloseGadget, TRUE,
  82                 WA_Activate, TRUE,
  83                 WA_Title, "Close me to close the screen",
  84                 WA_IDCMP, IDCMP_CLOSEWINDOW,
  85                 WA_PubScreen, myscreen,
  86                 TAG_DONE
  87             )
  88         ) == NULL
  89     )
  90     {
  91         clean_exit("Can't open window\n");
  92     }
  93
  94     if ((PubScreenStatus(myscreen, 0) & 1) == 0)
  95     {
  96         clean_exit("Can't make screen public");
  97     }
  98
  99     winsig = 1L << mywindow->UserPort->mp_SigBit;
 100     pubsig = 1L << signalnum;
 101
 102     while (!done)
 103     {
 104         signals = Wait(winsig | pubsig);
 105
 106         if (mywindow && (signals & winsig))
 107         {
 108             while (NULL != (message = (struct IntuiMessage *)GetMsg(mywindow->UserPort)))
 109             {
 110                 if (message->Class == IDCMP_CLOSEWINDOW)
 111                 {
 112                     closewindow = TRUE;
 113                 }
 114                 ReplyMsg((struct Message *)message);
 115             }
 116         }
 117         if (signals & pubsig)
 118         {
 119             if (PubScreenStatus(myscreen, PSNF_PRIVATE) & 1)
 120             {
 121                 done = TRUE;
 122             }
 123             else
 124             {
 125                 PutStr("Failed to make screen private\n");
 126             }
 127         }
 128
 129         if (closewindow)
 130         {
 131             if (mywindow) CloseWindow(mywindow);
 132             winsig = 0;
 133             mywindow = NULL;
 134             closewindow = FALSE;
 135         }
 136     }
 137
 138     clean_exit(NULL);
 139     return 0;
 140 }