compiler/coolimages/buttonclass.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #define USE_BOOPSI_STUBS
  12
  13 #include <exec/execbase.h>
  14 #include <exec/memory.h>
  15 #include <intuition/intuition.h>
  16 #include <intuition/classes.h>
  17 #include <intuition/classusr.h>
  18 #include <intuition/imageclass.h>
  19 #include <intuition/gadgetclass.h>
  20 #include <intuition/cghooks.h>
  21 #include <graphics/gfx.h>
  22 #include <cybergraphx/cybergraphics.h>
  23 #include <proto/exec.h>
  24 #include <proto/intuition.h>
  25 #include <proto/graphics.h>
  26 #include <proto/cybergraphics.h>
  27 #include <proto/utility.h>
  28 #include <aros/asmcall.h>
  29 #include <clib/boopsistubs.h>
  30 #include <string.h>
  31
  32 #include "coolimages.h"
  33
  34 /****************************************************************************************/
  35
  36 struct CoolButtonData
  37 {
  38     struct CoolImage *image;
  39     ULONG            *pal;
  40     Object           *frame;
  41     ULONG            bgcol;
  42     ULONG            selcol;
  43 };
  44
  45 /****************************************************************************************/
  46
  47 extern struct IntuitionBase *IntuitionBase;
  48 extern struct GfxBase       *GfxBase;
  49 extern struct UtilityBase   *UtilityBase;
  50
  51 struct IClass               *cool_buttonclass;
  52
  53 /****************************************************************************************/
  54
  55 #define CyberGfxBase        cool_cybergfxbase
  56 #define G(x)                ((struct Gadget *)(x))
  57
  58 #define BORDERIMAGESPACINGX     4
  59
  60 /****************************************************************************************/
  61
  62 static struct Library       *cool_cybergfxbase;
  63
  64 /****************************************************************************************/
  65
  66 static void getgadgetcoords(struct Gadget *gad, struct GadgetInfo *gi,
  67                             WORD *x, WORD *y, WORD *w, WORD *h)
  68 {
  69     *x = gad->LeftEdge + ((gad->Flags & GFLG_RELRIGHT)  ? gi->gi_Domain.Width  - 1 : 0);
  70     *y = gad->TopEdge  + ((gad->Flags & GFLG_RELBOTTOM) ? gi->gi_Domain.Height - 1 : 0);
  71     *w = gad->Width    + ((gad->Flags & GFLG_RELWIDTH)  ? gi->gi_Domain.Width  : 0);
  72     *h = gad->Height   + ((gad->Flags & GFLG_RELHEIGHT) ? gi->gi_Domain.Height : 0);
  73 }
  74
  75 /****************************************************************************************/
  76
  77 static IPTR coolbutton_new(Class * cl, Object * o, struct opSet * msg)
  78 {
  79     struct CoolButtonData *data;
  80     struct TagItem fitags[] =
  81     {
  82         { IA_FrameType , FRAME_BUTTON },
  83         { IA_EdgesOnly , FALSE        },
  84         { TAG_DONE                    }
  85     };
  86
  87     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
  88
  89     if (o)
  90     {
  91         data = INST_DATA(cl, o);
  92
  93         data->image = (struct CoolImage *)GetTagData(COOLBT_CoolImage, 0, msg->ops_AttrList);
  94         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
  95
  96         if (!data->frame)
  97         {
  98             CoerceMethod(cl, o, OM_DISPOSE);
  99             o = NULL;
 100         } else {
 101             if (CyberGfxBase && data->image)
 102             {
 103                 if ((data->pal = AllocVec(data->image->numcolors * sizeof(ULONG), MEMF_PUBLIC)))
 104                 {
 105                     ULONG *p = data->pal;
 106                     WORD  i;
 107
 108                     for(i = 0; i < data->image->numcolors; i++)
 109                     {
 110                         *p++ = (data->image->pal[i * 3] << 16) |
 111                                (data->image->pal[i * 3 + 1] << 8) |
 112                                (data->image->pal[i * 3 + 2]);
 113                     }
 114
 115                 } else {
 116                     data->image = NULL;
 117                 }
 118             } else {
 119                 data->image = NULL;
 120             }
 121         }
 122
 123     } /* if (o) */
 124
 125     return (IPTR)o;
 126 }
 127
 128 /****************************************************************************************/
 129
 130 static IPTR coolbutton_dispose(Class * cl, Object * o, Msg msg)
 131 {
 132     struct CoolButtonData *data;
 133
 134     data = INST_DATA(cl, o);
 135
 136     if (data->frame) DisposeObject(data->frame);
 137     FreeVec(data->pal);
 138
 139     return DoSuperMethodA(cl, o, msg);
 140 }
 141
 142 /****************************************************************************************/
 143
 144 static IPTR coolbutton_hittest(Class *cl, Object *o, struct gpHitTest *msg)
 145 {
 146     WORD gadx, gady, gadw, gadh;
 147
 148     getgadgetcoords(G(o), msg->gpht_GInfo, &gadx, &gady, &gadw, &gadh);
 149
 150     return ((msg->gpht_Mouse.X >= 0) &&
 151             (msg->gpht_Mouse.Y >= 0) &&
 152             (msg->gpht_Mouse.X < gadw) &&
 153             (msg->gpht_Mouse.Y < gadh)) ? GMR_GADGETHIT : 0;
 154 }
 155
 156 /****************************************************************************************/
 157
 158 static IPTR coolbutton_render(Class *cl, Object *o, struct gpRender *msg)
 159 {
 160     struct CoolButtonData   *data;
 161     STRPTR                  text = (STRPTR)G(o)->GadgetText;
 162     struct TagItem          im_tags[] =
 163     {
 164         {IA_Width   , 0 },
 165         {IA_Height  , 0 },
 166         {TAG_DONE       }
 167     };
 168     WORD                    x, y, w, h;
 169
 170     getgadgetcoords(G(o), msg->gpr_GInfo, &x, &y, &w, &h);
 171
 172     data = INST_DATA(cl, o);
 173
 174     im_tags[0].ti_Data = w;
 175     im_tags[1].ti_Data = h;
 176
 177     SetAttrsA(data->frame, im_tags);
 178
 179     DrawImageState(msg->gpr_RPort,
 180                    (struct Image *)data->frame,
 181                    x,
 182                    y,
 183                    (G(o)->Flags & GFLG_SELECTED) ? IDS_SELECTED : IDS_NORMAL,
 184                    msg->gpr_GInfo->gi_DrInfo);
 185
 186     if (GetBitMapAttr(msg->gpr_RPort->BitMap, BMA_DEPTH) < 15)
 187     {
 188         data->image = NULL;
 189     }
 190
 191     if (text)
 192     {
 193         WORD len = strlen(text);
 194         WORD tx = x, ty = y;
 195
 196         SetFont(msg->gpr_RPort, msg->gpr_GInfo->gi_DrInfo->dri_Font);
 197
 198         if (data->image)
 199         {
 200             tx += BORDERIMAGESPACINGX + data->image->width + BORDERIMAGESPACINGX;
 201             w  -= (BORDERIMAGESPACINGX + data->image->width + BORDERIMAGESPACINGX + BORDERIMAGESPACINGX);
 202         }
 203
 204         tx += (w - TextLength(msg->gpr_RPort, text, len)) / 2;
 205         ty += (h - msg->gpr_RPort->TxHeight) / 2 + msg->gpr_RPort->TxBaseline;
 206
 207         SetABPenDrMd(msg->gpr_RPort,
 208                      msg->gpr_GInfo->gi_DrInfo->dri_Pens[(G(o)->Flags & GFLG_SELECTED) ? FILLTEXTPEN : TEXTPEN],
 209                      0,
 210                      JAM1);
 211         Move(msg->gpr_RPort, tx, ty);
 212         Text(msg->gpr_RPort, text, len);
 213     } else {
 214         x += 3; w -= 6;
 215         y += 3; h -= 6;
 216
 217         SetABPenDrMd(msg->gpr_RPort,
 218                      msg->gpr_GInfo->gi_DrInfo->dri_Pens[(G(o)->Flags & GFLG_SELECTED) ? FILLPEN : BACKGROUNDPEN],
 219                      0,
 220                      JAM1);
 221
 222         RectFill(msg->gpr_RPort, x, y, x + w - 1, y + h - 1);
 223     }
 224
 225     if (data->image)
 226     {
 227         if ((data->selcol == 0) && (data->bgcol == 0))
 228         {
 229             ULONG col[3];
 230
 231             GetRGB32(msg->gpr_GInfo->gi_Screen->ViewPort.ColorMap,
 232                      msg->gpr_GInfo->gi_DrInfo->dri_Pens[FILLPEN],
 233                      1,
 234                      col);
 235
 236             data->selcol = ((col[0] & 0xFF000000) >> 8) +
 237                            ((col[1] & 0xFF000000) >> 16) +
 238                            ((col[2] & 0xFF000000) >> 24);
 239
 240
 241             GetRGB32(msg->gpr_GInfo->gi_Screen->ViewPort.ColorMap,
 242                      msg->gpr_GInfo->gi_DrInfo->dri_Pens[BACKGROUNDPEN],
 243                      1,
 244                      col);
 245
 246             data->bgcol = ((col[0] & 0xFF000000) >> 8) +
 247                           ((col[1] & 0xFF000000) >> 16) +
 248                           ((col[2] & 0xFF000000) >> 24);
 249
 250         }
 251
 252
 253         data->pal[0] = (G(o)->Flags & GFLG_SELECTED) ? data->selcol : data->bgcol;
 254
 255         WriteLUTPixelArray((APTR)data->image->data,
 256                             0,
 257                             0,
 258                             data->image->width,
 259                             msg->gpr_RPort,
 260                             data->pal,
 261                             x + BORDERIMAGESPACINGX,
 262                             y + (h - data->image->height) / 2,
 263                             data->image->width,
 264                             data->image->height,
 265                             CTABFMT_XRGB8);
 266
 267     }
 268
 269     return 0;
 270 }
 271
 272 /****************************************************************************************/
 273 /****************************************************************************************/
 274 /****************************************************************************************/
 275
 276 AROS_UFH3S(IPTR, cool_buttonclass_dispatcher,
 277           AROS_UFHA(Class *, cl, A0),
 278           AROS_UFHA(Object *, obj, A2),
 279           AROS_UFHA(Msg, msg, A1))
 280 {
 281     AROS_USERFUNC_INIT
 282
 283     IPTR retval;
 284
 285     switch (msg->MethodID)
 286     {
 287         case OM_NEW:
 288             retval = coolbutton_new(cl, obj, (struct opSet *)msg);
 289             break;
 290
 291         case OM_DISPOSE:
 292             retval = coolbutton_dispose(cl, obj, msg);
 293             break;
 294
 295         case GM_HITTEST:
 296             retval = coolbutton_hittest(cl, obj, (struct gpHitTest *)msg);
 297             break;
 298
 299         case GM_RENDER:
 300             retval = coolbutton_render(cl, obj, (struct gpRender *)msg);
 301             break;
 302
 303         default:
 304             retval = DoSuperMethodA(cl, obj, msg);
 305             break;
 306
 307     } /* switch (msg->MethodID) */
 308
 309     return retval;
 310
 311     AROS_USERFUNC_EXIT
 312 }
 313
 314 /****************************************************************************************/
 315
 316 #undef CyberGfxBase
 317
 318 /****************************************************************************************/
 319
 320 BOOL InitCoolButtonClass(struct Library *CyberGfxBase)
 321 {
 322     BOOL retval = FALSE;
 323
 324     cool_cybergfxbase = CyberGfxBase;
 325
 326     if (IntuitionBase && GfxBase && UtilityBase) // && SysBase)
 327     {
 328         if (!cool_buttonclass)
 329         {
 330             cool_buttonclass = MakeClass(NULL, BUTTONGCLASS, NULL, sizeof(struct CoolButtonData), 0UL);
 331         }
 332
 333         if (cool_buttonclass)
 334         {
 335             cool_buttonclass->cl_Dispatcher.h_Entry = (HOOKFUNC)cool_buttonclass_dispatcher;
 336             retval = TRUE;
 337         }
 338     }
 339
 340     return retval;
 341 }
 342
 343 /****************************************************************************************/
 344
 345 void CleanupCoolButtonClass(void)
 346 {
 347     if (cool_buttonclass)
 348     {
 349         FreeClass(cool_buttonclass);
 350         cool_buttonclass = NULL;
 351     }
 352 }
 353
 354 /****************************************************************************************/