workbench/demos/roundwindow.c

   1
   2 #include <dos/dos.h>
   3 #include <intuition/intuition.h>
   4 #include <graphics/gfx.h>
   5 #include <proto/exec.h>
   6 #include <proto/dos.h>
   7 #include <proto/graphics.h>
   8 #include <proto/intuition.h>
   9 #include <clib/alib_protos.h>
  10 #include <aros/debug.h>
  11
  12 #include <math.h>
  13 #include <stdio.h>
  14 #include <stdlib.h>
  15
  16 #define INSTALL_NULL_SHAPE_FIRST 0
  17
  18 #define WINWIDTH  150
  19 #define WINHEIGHT 150
  20
  21 /***********************************************************************************/
  22
  23 struct IntuitionBase *IntuitionBase;
  24 struct GfxBase *GfxBase;
  25 struct Screen *scr;
  26 struct Window *win;
  27 struct Region *shape;
  28 struct RastPort *rp;
  29 struct Hook     shapehook;
  30
  31 UBYTE Keys[128];
  32
  33 /***********************************************************************************/
  34
  35 static void cleanup(char *msg)
  36 {
  37     if (msg)
  38     {
  39         printf("roundshape: %s\n",msg);
  40     }
  41
  42     if (win) CloseWindow(win);
  43     if (shape) DisposeRegion(shape);
  44     if (scr) UnlockPubScreen(0, scr);
  45
  46     if (GfxBase) CloseLibrary((struct Library *)GfxBase);
  47     if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  48
  49     exit(0);
  50 }
  51
  52 /***********************************************************************************/
  53
  54 static void openlibs(void)
  55 {
  56     if (!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 39)))
  57     {
  58         cleanup("Can't open intuition.library V39!");
  59     }
  60
  61     if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 39)))
  62     {
  63         cleanup("Can't open graphics.library V39!");
  64     }
  65
  66 }
  67
  68 /***********************************************************************************/
  69
  70 static void getvisual(void)
  71 {
  72     if (!(scr = LockPubScreen(NULL)))
  73     {
  74         cleanup("Can't lock pub screen!");
  75     }
  76 }
  77
  78 /***********************************************************************************/
  79
  80 static struct Region *shapefunc(struct Hook *hook, struct Layer *lay, struct ShapeHookMsg *msg)
  81 {
  82     struct Region *newshape, *retregion = msg->ActualShape;
  83     WORD x2, y2;
  84
  85     switch(msg->Action)
  86     {
  87         case SHAPEHOOKACTION_CREATELAYER:
  88         case SHAPEHOOKACTION_SIZELAYER:
  89         case SHAPEHOOKACTION_MOVESIZELAYER:
  90             x2 = msg->NewBounds.MaxX - msg->NewBounds.MinX;
  91             y2 = msg->NewBounds.MaxY - msg->NewBounds.MinY;
  92
  93             if ((newshape = NewRegion()))
  94             {
  95                 struct Rectangle rect;
  96                 BOOL success = TRUE;
  97
  98                 rect.MinX = 9;
  99                 rect.MinY = 0;
 100                 rect.MaxX = x2 - 9;
 101                 rect.MaxY = y2;
 102                 success &= OrRectRegion(newshape, &rect);
 103
 104                 rect.MinX = 6;
 105                 rect.MinY = 1;
 106                 rect.MaxX = x2 - 6;
 107                 rect.MaxY = y2 - 1;
 108                 success &= OrRectRegion(newshape, &rect);
 109
 110                 rect.MinX = 4;
 111                 rect.MinY = 2;
 112                 rect.MaxX = x2 - 4;
 113                 rect.MaxY = y2 - 2;
 114                 success &= OrRectRegion(newshape, &rect);
 115
 116                 rect.MinX = 3;
 117                 rect.MinY = 3;
 118                 rect.MaxX = x2 - 3;
 119                 rect.MaxY = y2 - 3;
 120                 success &= OrRectRegion(newshape, &rect);
 121
 122                 rect.MinX = 2;
 123                 rect.MinY = 4;
 124                 rect.MaxX = x2 - 2;
 125                 rect.MaxY = y2 - 4;
 126                 success &= OrRectRegion(newshape, &rect);
 127
 128                 rect.MinX = 1;
 129                 rect.MinY = 6;
 130                 rect.MaxX = x2 - 1;
 131                 rect.MaxY = y2 - 6;
 132                 success &= OrRectRegion(newshape, &rect);
 133
 134                 rect.MinX = 0;
 135                 rect.MinY = 9;
 136                 rect.MaxX = x2;
 137                 rect.MaxY = y2 - 9;
 138                 success &= OrRectRegion(newshape, &rect);
 139
 140                 if (success)
 141                 {
 142                     if (msg->ActualShape) DisposeRegion(msg->ActualShape);
 143                     retregion = shape = newshape;
 144                 }
 145                 else
 146                 {
 147                     DisposeRegion(newshape);
 148                 }
 149
 150             } /* if ((newshape = NewRegion())) */
 151
 152     } /* switch(msg->Action) */
 153
 154     return retregion;
 155 }
 156
 157 /***********************************************************************************/
 158
 159 static void makewin(void)
 160 {
 161     shapehook.h_Entry = HookEntry;
 162     shapehook.h_SubEntry = (HOOKFUNC)shapefunc;
 163
 164
 165     win = OpenWindowTags(NULL, WA_CustomScreen  , (IPTR)scr,
 166                                WA_InnerWidth    , WINWIDTH,
 167                                WA_InnerHeight   , WINHEIGHT,
 168                                WA_Title         , (IPTR)"Round Edged Window",
 169                                WA_DragBar       , TRUE,
 170                                //WA_DepthGadget , TRUE,
 171                                //WA_CloseGadget , TRUE,
 172                                WA_Activate      , TRUE,
 173                                WA_MinWidth      , 160,
 174                                WA_MinHeight     , 160,
 175                                WA_MaxWidth      , 2000,
 176                                WA_MaxHeight     , 2000,
 177                                WA_SizeGadget    , TRUE,
 178                                WA_SizeBBottom   , TRUE,
 179                                WA_NoCareRefresh , TRUE,
 180                                WA_ShapeHook     , (IPTR)&shapehook,
 181                                WA_IDCMP         , IDCMP_CLOSEWINDOW |
 182                                                   IDCMP_RAWKEY |
 183                                                   IDCMP_NEWSIZE,
 184                                TAG_DONE);
 185
 186    if (!win) cleanup("Can't open window");
 187
 188    rp = win->RPort;
 189
 190 }
 191
 192 /***********************************************************************************/
 193
 194 #define KC_ESC 0x45
 195
 196 /***********************************************************************************/
 197
 198 static void action(void)
 199 {
 200     struct IntuiMessage *msg;
 201
 202     do
 203     {
 204         WaitPort(win->UserPort);
 205
 206         while ((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
 207         {
 208             switch (msg->Class)
 209             {
 210                 case IDCMP_CLOSEWINDOW:
 211                     Keys[KC_ESC] = 1;
 212                     break;
 213
 214                 case IDCMP_RAWKEY:
 215                     {
 216                         WORD code = msg->Code & ~IECODE_UP_PREFIX;
 217
 218                         Keys[code] = (code == msg->Code) ? 1 : 0;
 219
 220                     }
 221
 222                     break;
 223
 224             }
 225             ReplyMsg((struct Message *)msg);
 226         }
 227
 228     } while(!Keys[KC_ESC]);
 229 }
 230
 231 /***********************************************************************************/
 232
 233 int main(void)
 234 {
 235     openlibs();
 236     getvisual();
 237     makewin();
 238     action();
 239     cleanup(0);
 240
 241     return 0;
 242 }
 243
 244 /***********************************************************************************/
 245