test/intuition/pubscreen.c

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