workbench/demos/palettedemo.c

   1 /*
   2     Copyright © 1995-97, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Demo/test for AROS boopsi objects
   6     Lang: english
   7 */
   8
   9 #include <aros/config.h>
  10
  11 #if !(AROS_FLAVOUR & AROS_FLAVOUR_NATIVE)
  12 #   define ENABLE_RT 1
  13 #endif
  14
  15 #include <proto/exec.h>
  16 #include <proto/intuition.h>
  17 #include <proto/graphics.h>
  18 #include <intuition/intuition.h>
  19 #include <intuition/screens.h>
  20 #include <gadgets/arospalette.h>
  21 #include <gadgets/aroscheckbox.h>
  22 #include <intuition/classes.h>
  23 #include <utility/tagitem.h>
  24
  25 #include <aros/rt.h>
  26
  27 #define SDEBUG 1
  28 #define DEBUG 1
  29 #include <aros/debug.h>
  30
  31 #define GID_PALETTE     1
  32 #define GID_PROP        2
  33
  34 STATIC VOID HandleEvents(struct Window *);
  35
  36 struct IntuitionBase *IntuitionBase;
  37 struct Library *AROSPaletteBase;
  38
  39 Object *palette, *prop;
  40
  41
  42 /*************
  43 **  main()  **
  44 *************/
  45 int main(int argc, char **argv)
  46 {
  47     struct Task*inputDevice;
  48
  49     EnterFunc(bug("main()\n"));
  50
  51     RT_Init();
  52
  53     /* Initialize the input.device's tc_UserData to 0 */
  54     inputDevice = FindTask("input.device");
  55     if (inputDevice)
  56     {
  57         D(bug("Initializing input device's indent count\n"));
  58         inputDevice->tc_UserData = NULL;
  59     }
  60
  61
  62     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 37);
  63     if (IntuitionBase)
  64     {
  65         D(bug("Intuiton opened\n"));
  66
  67         AROSPaletteBase = OpenLibrary(AROSPALETTENAME, 0);
  68         if (AROSPaletteBase)
  69         {
  70             struct Screen *scr;
  71
  72             D(bug("AROSPalette opened\n"));
  73
  74             scr = LockPubScreen(NULL);
  75             if (scr)
  76             {
  77                 struct Window *window;
  78
  79                 D(bug("Got screen %p\n", scr));
  80
  81                 window = OpenWindowTags(NULL,
  82                          WA_PubScreen, (IPTR) scr,
  83                          WA_Left, 0,
  84                          WA_Top, 0,
  85                          WA_Width, 600,
  86                          WA_Height, 300,
  87                          WA_MinWidth, 100,
  88                          WA_MinHeight, 100,
  89                          WA_MaxWidth, 10000,
  90                          WA_MaxHeight, 10000,
  91                          WA_Title, (IPTR) "Try resize to another aspect ratio",
  92                          WA_IDCMP,
  93                                   IDCMP_GADGETUP
  94                                 | IDCMP_MOUSEMOVE
  95                                 | IDCMP_MOUSEBUTTONS
  96                                 | IDCMP_REFRESHWINDOW
  97                                 | IDCMP_CLOSEWINDOW
  98                                 | IDCMP_NEWSIZE
  99                                 | IDCMP_RAWKEY,
 100                          WA_SimpleRefresh,      TRUE,
 101                          WA_DragBar,            TRUE,
 102                          WA_CloseGadget,        TRUE,
 103                          WA_SizeGadget,         TRUE,
 104                          WA_DepthGadget,        TRUE,
 105                          TAG_DONE);
 106
 107
 108                 if (window)
 109                 {
 110                     D(bug("Window opened\n"));
 111
 112                     palette = NewObject(NULL, AROSPALETTECLASS,
 113                         GA_Left,                window->BorderLeft + 5,
 114                         GA_Top,                 window->BorderTop * 2 + 5,
 115                         GA_RelWidth,            -(window->BorderLeft + window->BorderRight + 10),
 116                         GA_RelHeight,           -(window->BorderTop * 2 + window->BorderBottom + 30),
 117                         GA_RelVerify,           TRUE,
 118                         GA_ID,                  GID_PALETTE,
 119                         AROSA_Palette_Depth,    3,
 120                         AROSA_Palette_IndicatorWidth,   40,
 121                         GA_Text,                (IPTR) "Palette gadget",
 122                         GA_LabelPlace,          GV_LabelPlace_Above,
 123                         TAG_DONE);
 124
 125                     prop = NewObject(NULL, PROPGCLASS,
 126                         GA_RelVerify,   TRUE,
 127                         GA_Left,        10,
 128                         GA_RelBottom,   -(window->BorderBottom + 22),
 129                         GA_RelWidth,    -(window->BorderLeft + window->BorderRight + 10),
 130                         GA_Height,      18,
 131                         GA_Previous,    (IPTR) palette,
 132                         GA_ID,          GID_PROP,
 133                         PGA_Total,      8,
 134                         PGA_Visible,    1,
 135                         PGA_Top,        2,
 136                         PGA_Freedom,    FREEHORIZ,
 137                         TAG_DONE);
 138
 139                     if (palette && prop)
 140                     {
 141                         D(bug("Palette created\n"));
 142
 143                         D(bug("Adding Palette\n"));
 144                         AddGList(window, (struct Gadget *)palette, 0, 2, NULL);
 145
 146                         D(bug("Refreshing Palette\n"));
 147                         RefreshGList((struct Gadget *)palette, window, NULL, 2);
 148
 149                         HandleEvents(window);
 150
 151                     }
 152
 153                     CloseWindow(window);
 154
 155                     if (prop)
 156                         DisposeObject(prop);
 157                     if (palette)
 158                         DisposeObject(palette);
 159
 160                 } /* if (window opened) */
 161
 162                 UnlockPubScreen(NULL, scr);
 163             } /*if (screen locked) */
 164
 165             CloseLibrary(AROSPaletteBase);
 166         }  /* if (paletteclass opened) */
 167
 168         CloseLibrary((struct Library *)IntuitionBase);
 169     } /* if (intuition opened) */
 170
 171     RT_Exit();
 172
 173     ReturnInt ("main", int, 0);
 174
 175 }
 176
 177 /*******************
 178 **  HandleEvents  **
 179 *******************/
 180 VOID HandleEvents(struct Window *win)
 181 {
 182     struct IntuiMessage *imsg;
 183     struct MsgPort *port = win->UserPort;
 184     BOOL terminated = FALSE;
 185
 186     EnterFunc(bug("HandleEvents(win=%p)\n", win));
 187
 188     while (!terminated)
 189     {
 190         if ((imsg = (struct IntuiMessage *)GetMsg(port)) != NULL)
 191         {
 192
 193             switch (imsg->Class)
 194             {
 195
 196             case IDCMP_GADGETUP: {
 197
 198                 Object *gad;
 199
 200                 D(bug("Recieved gadgetup"));
 201
 202                 gad = (Object *)imsg->IAddress;
 203
 204                 switch (((struct Gadget *)gad)->GadgetID)
 205                 {
 206                     case GID_PALETTE:
 207                         D(bug("Color selected: %d\n", imsg->Code));
 208                         break;
 209
 210                     case GID_PROP:
 211                         D(bug("Changed to depth %d\n", imsg->Code));
 212                         /* Update the palette gadget accordingly */
 213                         SetGadgetAttrs((struct Gadget *)palette, win, NULL,
 214                                 AROSA_Palette_Depth, imsg->Code + 1,
 215                                 TAG_DONE);
 216                         RefreshGList((struct Gadget *)palette, win, NULL, 1);
 217                         break;
 218                 }
 219             } break;
 220
 221             case IDCMP_REFRESHWINDOW:
 222                 BeginRefresh(win);
 223                 EndRefresh(win, TRUE);
 224                 break;
 225
 226             case IDCMP_RAWKEY:
 227             case IDCMP_CLOSEWINDOW:
 228                 terminated = TRUE;
 229                 break;
 230
 231             } /* switch (imsg->Class) */
 232             ReplyMsg((struct Message *)imsg);
 233
 234
 235         } /* if ((imsg = GetMsg(port)) != NULL) */
 236         else
 237         {
 238             Wait(1L << port->mp_SigBit);
 239         }
 240     } /* while (!terminated) */
 241
 242     ReturnVoid("HandleEvents");
 243 } /* HandleEvents() */
 244
 245