workbench/demos/childwindow.c

   1
   2 #include <intuition/intuition.h>
   3 #include <graphics/gfx.h>
   4 #include <graphics/gfxmacros.h>
   5 #include <proto/exec.h>
   6 #include <proto/intuition.h>
   7 #include <proto/graphics.h>
   8 #include <proto/dos.h>
   9 #include <dos/rdargs.h>
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13
  14 #define WINWIDTH        260
  15 #define WINHEIGHT       260
  16 #define WINCX           (WINWIDTH / 2)
  17 #define WINCY           (WINHEIGHT / 2)
  18
  19 struct IntuitionBase    *IntuitionBase;
  20 struct GfxBase          *GfxBase;
  21 struct Screen           *scr;
  22 struct DrawInfo         *dri;
  23 struct Window           *win;
  24 struct RastPort         *rp;
  25 struct Region           *shape;
  26
  27 static void cleanup(char *msg, struct Window *w)
  28 {
  29     if(msg) printf("winshape: %s\n", msg);
  30
  31     if (w) CloseWindow(w);
  32
  33     if (shape) DisposeRegion(shape);
  34
  35     if (dri) FreeScreenDrawInfo(scr, dri);
  36     if (scr) UnlockPubScreen(0, scr);
  37
  38     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  39     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  40
  41     exit(0);
  42 }
  43
  44 static void openlibs(void)
  45 {
  46     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
  47     {
  48         cleanup("Can't open intuition.library!", NULL);
  49     }
  50
  51     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  52     {
  53         cleanup("Can't open graphics.library!", NULL);
  54     }
  55
  56 }
  57
  58 static void getvisual(void)
  59 {
  60     if (!(scr = LockPubScreen(0))) cleanup("Can't lock pub screen!", NULL);
  61     if (!(dri = GetScreenDrawInfo(scr))) cleanup("Can't get drawinfo!", NULL);
  62 }
  63
  64 static void makeshape(void)
  65 {
  66     struct Rectangle rect;
  67
  68     if (!(shape = NewRegion())) cleanup("Can't create region!\n", NULL);
  69
  70     rect.MinX = 0;
  71     rect.MinY = 0;
  72     rect.MaxX = WINWIDTH - 1;
  73     rect.MaxY = scr->WBorTop + scr->Font->ta_YSize + 1 - 1;
  74
  75     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n", NULL);
  76
  77     rect.MinX = WINCX - 20;
  78     rect.MinY = 20;
  79     rect.MaxX = WINCX + 20;
  80     rect.MaxY = WINHEIGHT - 1 - 20;
  81
  82     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n", NULL);
  83
  84     rect.MinX = 20;
  85     rect.MinY = WINCY - 20;
  86     rect.MaxX = WINWIDTH - 1 - 20;
  87     rect.MaxY = WINCY + 20;
  88
  89     if (!(OrRectRegion(shape, &rect))) cleanup("Can't create region!\n", NULL);
  90
  91 }
  92
  93 static struct Window * makeparentwin(ULONG visible)
  94 {
  95     struct TagItem win_tags[] =
  96     {
  97         { WA_Left       , 30                                },
  98         { WA_Top        , 30                                },
  99         { WA_Width      , 400                               },
 100         { WA_Height     , 300                               },
 101         { WA_MinWidth   , 200                               },
 102         { WA_MaxWidth   , 500                               },
 103         { WA_MinHeight  , 200                               },
 104         { WA_MaxHeight  , 400                               },
 105         { WA_Title      , (IPTR)"Parent window"             },
 106         { WA_CloseGadget, TRUE                              },
 107         { WA_DepthGadget, TRUE                              },
 108         { WA_DragBar    , TRUE                              },
 109         { WA_IDCMP      , IDCMP_CLOSEWINDOW                 },
 110         { WA_Activate   , TRUE                              },
 111         { WA_Visible    , (IPTR)visible                     },
 112         { WA_SizeGadget , TRUE                              },
 113         { TAG_DONE                                          }
 114     };
 115
 116     return OpenWindowTagList(0, win_tags);
 117 }
 118
 119 static void makewin(struct Window * parent)
 120 {
 121     UWORD pattern[] = {0x5555, 0xAAAA};
 122     struct TagItem win_tags[] =
 123     {
 124         { WA_Left       , 30                                },
 125         { WA_Top        , 30                                },
 126         { WA_Width      , WINWIDTH                          },
 127         { WA_Height     , WINHEIGHT                         },
 128         { WA_Title      , (IPTR)"Irregular shaped window"   },
 129         { WA_DepthGadget, TRUE                              },
 130         { WA_DragBar    , TRUE                              },
 131         { WA_Activate   , TRUE                              },
 132         { WA_Shape      , (IPTR)shape                       },
 133         { WA_Parent     , (IPTR)parent                      },
 134         { TAG_DONE                                          }
 135     };
 136
 137     win = OpenWindowTagList(0, win_tags);
 138     if (win) shape = 0;
 139     if (!win) cleanup("Can't create window!", NULL);
 140
 141     rp = win->RPort;
 142     SetAPen(rp, dri->dri_Pens[FILLPEN]);
 143     SetBPen(rp, dri->dri_Pens[SHINEPEN]);
 144     SetDrMd(rp, JAM2);
 145
 146     SetAfPt(rp, pattern, 1);
 147     RectFill(rp, 0, 20, WINWIDTH - 1, WINHEIGHT - 1);
 148     SetAfPt(rp, 0, 0);
 149
 150     SetAPen(rp, dri->dri_Pens[SHINEPEN]);
 151     RectFill(rp, WINCX - 20, 20, WINCX + 20, 20);
 152     RectFill(rp, WINCX - 20, 21, WINCX - 20, WINCY - 20);
 153     RectFill(rp, 20, WINCY - 20, WINCX - 20, WINCY - 20);
 154     RectFill(rp, 20, WINCY - 20, 20, WINCY + 20);
 155     RectFill(rp, WINCX - 20, WINCY + 20, WINCX - 20, WINHEIGHT - 1 - 20);
 156     RectFill(rp, WINCX + 20, WINCY - 20, WINWIDTH - 1 - 20, WINCY - 20);
 157
 158     SetAPen(rp, dri->dri_Pens[SHADOWPEN]);
 159     RectFill(rp, WINCX + 20, 20, WINCX + 20, WINCY - 20);
 160     RectFill(rp, WINCX + 20, WINCY + 20, WINWIDTH - 1 - 20, WINCY + 20);
 161     RectFill(rp, WINWIDTH - 1 - 20, WINCY - 20, WINWIDTH - 1 - 20, WINCY + 20);
 162     RectFill(rp, 20, WINCY + 20, WINCX - 20, WINCY + 20);
 163     RectFill(rp, WINCX - 20, WINHEIGHT - 1 - 20, WINCX + 20, WINHEIGHT - 1 - 20);
 164     RectFill(rp, WINCX + 20, WINCY + 20, WINCX + 20, WINHEIGHT - 1 - 20);
 165 }
 166
 167 static void handleall(struct Window * w)
 168 {
 169     WaitPort(w->UserPort);
 170 }
 171
 172 int main(int argc, char **argv)
 173 {
 174     STRPTR args[1] = {(STRPTR)FALSE};
 175     struct RDArgs * rda;
 176     struct Window * w;
 177     ULONG visible = TRUE;
 178
 179     rda = ReadArgs("INVISIBLE/S", (IPTR *)args, NULL);
 180
 181     if (TRUE == (IPTR)args[0])
 182     {
 183         visible = FALSE;
 184     }
 185
 186     if (rda)
 187     {
 188         openlibs();
 189         getvisual();
 190         makeshape();
 191         w = makeparentwin(visible);
 192
 193         if (w)
 194         {
 195             makewin(w);
 196             handleall(w);
 197         }
 198
 199         cleanup(0, w);
 200         FreeArgs(rda);
 201     }
 202
 203     return 0;
 204 }