workbench/libs/gadtools/checkboxclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Internal GadTools checkbox class.
   6     Lang: English
   7 */
   8
   9
  10 #include <proto/exec.h>
  11 #include <exec/libraries.h>
  12 #include <exec/memory.h>
  13 #include <proto/dos.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/classusr.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <intuition/imageclass.h>
  18 #include <intuition/intuition.h>
  19 #include <intuition/cghooks.h>
  20 #include <graphics/rastport.h>
  21 #include <graphics/text.h>
  22 #include <utility/tagitem.h>
  23 #include <devices/inputevent.h>
  24 #include <proto/alib.h>
  25 #include <proto/utility.h>
  26
  27 #include <string.h> /* memset() */
  28
  29 #define SDEBUG 0
  30 #define DEBUG 0
  31 #include <aros/debug.h>
  32
  33 #include "gadtools_intern.h"
  34
  35 /**********************************************************************************************/
  36
  37 #define CF_MouseOverGad 0x0001
  38 #define CF_CustomImage  0x0002
  39
  40 #define GadToolsBase ((struct GadToolsBase_intern *)cl->cl_UserData)
  41
  42 /**********************************************************************************************/
  43
  44 STATIC VOID drawimage(Class *cl, struct Gadget *gad, struct RastPort *rp,
  45                       BOOL checked, BOOL disabled)
  46 {
  47     struct CheckBoxData *data;
  48     struct Image        *img;
  49     ULONG               state = IDS_NORMAL;
  50
  51     data = INST_DATA(cl, (Object *)gad);
  52
  53     if (checked)
  54     {
  55         if (gad->SelectRender)
  56         {
  57             img = gad->SelectRender;
  58             state = IDS_NORMAL;
  59         }
  60         else
  61         {
  62             img = gad->GadgetRender;
  63             state = IDS_SELECTED;
  64         }
  65     }
  66     else
  67     {
  68         img = gad->GadgetRender;
  69         state = IDS_NORMAL;
  70     }
  71
  72     if (disabled)
  73     {
  74         if ((gad->Flags & GFLG_IMAGEDISABLE) && (state == IDS_NORMAL))
  75         {
  76             state = IDS_DISABLED;
  77         }
  78         else if (gad->Flags & GFLG_IMAGEDISABLE)
  79         {
  80             state = IDS_SELECTEDDISABLED;
  81         }
  82     }
  83
  84     DrawImageState(rp, img, gad->LeftEdge, gad->TopEdge, state, data->dri);
  85
  86     /* Draw disabled pattern, if not supported by imageclass. */
  87     if ((disabled) && !(gad->Flags & GFLG_IMAGEDISABLE))
  88     {
  89         DoDisabledPattern(rp,
  90                           gad->LeftEdge,
  91                           gad->TopEdge,
  92                           gad->LeftEdge + gad->Width - 1,
  93                           gad->TopEdge + gad->Height - 1,
  94                           data->dri->dri_Pens[SHADOWPEN],
  95                           GadToolsBase);
  96     }
  97
  98 }
  99
 100 /**********************************************************************************************/
 101
 102 IPTR GTCheckBox__OM_SET(Class *cl, struct Gadget *g, struct opSet *msg)
 103 {
 104     struct CheckBoxData *data;
 105     struct TagItem      *tag;
 106     const struct TagItem *taglist = msg->ops_AttrList;
 107     struct RastPort     *rp;
 108     IPTR                retval = FALSE;
 109
 110     data = INST_DATA(cl, g);
 111
 112     if (data->flags & CF_CustomImage)
 113     {
 114         tag = FindTagItem(GA_Image, taglist);
 115         if (tag)
 116         {
 117             DisposeObject(g->GadgetRender);
 118             g->GadgetRender = NULL;
 119             data->flags &= ~CF_CustomImage;
 120         }
 121     }
 122
 123     if (msg->MethodID != OM_NEW)
 124         retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 125
 126     while ((tag = NextTagItem(&taglist)))
 127     {
 128         switch (tag->ti_Tag)
 129         {
 130             case GA_Disabled:
 131                 retval = TRUE;
 132                 break;
 133
 134             case GA_DrawInfo:
 135                 if (msg->MethodID == OM_NEW)
 136                     data->dri = (struct DrawInfo *) tag->ti_Data;
 137                 break;
 138
 139             case GA_Image:
 140             case GA_SelectRender:
 141                 retval = TRUE;
 142                 break;
 143
 144             case GA_LabelPlace:
 145                 if (msg->MethodID == OM_NEW)
 146                     data->labelplace = (LONG)tag->ti_Data;
 147                 break;
 148
 149             case GTCB_Checked:
 150                 if (tag->ti_Data)
 151                     g->Flags |= GFLG_SELECTED;
 152                 else
 153                     g->Flags &= ~GFLG_SELECTED;
 154                 retval = TRUE;
 155                 break;
 156
 157         } /* switch (tag->ti_Tag) */
 158
 159     } /* while ((tag = NextTagItem(&taglist))) */
 160
 161     if (g->Width == 0)
 162         g->Width = CHECKBOX_WIDTH;
 163     if (g->Height == 0)
 164         g->Height = CHECKBOX_HEIGHT;
 165
 166     /* Redraw ourself? */
 167
 168     if ((retval) && (msg->MethodID != OM_NEW) &&
 169         ((msg->MethodID != OM_UPDATE) || (OCLASS(g) == cl)))
 170     {
 171         rp = ObtainGIRPort(msg->ops_GInfo);
 172         if (rp)
 173         {
 174             DoMethod((Object *)g, GM_RENDER, (IPTR) msg->ops_GInfo, (IPTR) rp, GREDRAW_UPDATE);
 175             ReleaseGIRPort(rp);
 176             retval = FALSE;
 177         }
 178     }
 179
 180     return retval;
 181 }
 182
 183 /**********************************************************************************************/
 184
 185 IPTR GTCheckBox__OM_GET(Class *cl, struct Gadget *g, struct opGet *msg)
 186 {
 187     struct CheckBoxData *data;
 188     IPTR                retval;
 189
 190     data = INST_DATA(cl, g);
 191
 192     switch (msg->opg_AttrID)
 193     {
 194         case GTA_GadgetKind:
 195         case GTA_ChildGadgetKind:
 196             *(msg->opg_Storage) = CHECKBOX_KIND;
 197             retval = 1UL;
 198             break;
 199
 200         case GTCB_Checked:
 201             *(msg->opg_Storage) = (g->Flags & GFLG_SELECTED) ? TRUE : FALSE;
 202             retval = 1UL;
 203             break;
 204
 205         default:
 206             retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 207             break;
 208     }
 209
 210     return retval;
 211 }
 212
 213 /**********************************************************************************************/
 214
 215 IPTR GTCheckBox__OM_NEW(Class *cl, Object *supercl, struct opSet *msg)
 216 {
 217     struct CheckBoxData *data;
 218     struct TagItem      tags[] =
 219     {
 220         {IA_Width       , 0UL       },
 221         {IA_Height      , 0UL       },
 222         {SYSIA_DrawInfo , 0UL       },
 223         {SYSIA_Which    , CHECKIMAGE},
 224         {TAG_DONE                   }
 225     };
 226     struct Gadget       *g;
 227
 228     g = (struct Gadget *)DoSuperMethodA(cl, supercl, (Msg)msg);
 229     if (!g)
 230         return (IPTR)0;
 231
 232     g->Activation |= GACT_RELVERIFY;
 233
 234     data = INST_DATA(cl, g);
 235     data->dri = NULL;
 236     data->flags = 0;
 237     GTCheckBox__OM_SET(cl, g, msg);
 238
 239     if (!g->GadgetRender)
 240     {
 241         tags[0].ti_Data = g->Width;
 242         tags[1].ti_Data = g->Height;
 243         tags[2].ti_Data = (IPTR) data->dri;
 244         g->GadgetRender = (struct Image *) NewObjectA(NULL, SYSICLASS,
 245                                                            tags);
 246         data->flags |= CF_CustomImage;
 247     }
 248
 249     if ((!data->dri) || (!g->GadgetRender))
 250     {
 251         CoerceMethod(cl, (Object *)g, OM_DISPOSE);
 252         g = NULL;
 253     }
 254
 255     return (IPTR)g;
 256 }
 257
 258 /**********************************************************************************************/
 259
 260 IPTR GTCheckBox__OM_DISPOSE(Class *cl, struct Gadget *g, Msg msg)
 261 {
 262     struct CheckBoxData *data;
 263     IPTR                retval;
 264
 265     data = INST_DATA(cl, g);
 266
 267     if (data->flags & CF_CustomImage)
 268     {
 269         DisposeObject(g->GadgetRender);
 270         g->GadgetRender = NULL;
 271     }
 272     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 273
 274     return retval;
 275 }
 276
 277 /**********************************************************************************************/
 278
 279 IPTR GTCheckBox__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 280 {
 281     struct CheckBoxData *data;
 282     IPTR                result = TRUE;
 283
 284     data = INST_DATA(cl, g);
 285
 286     /* Render image */
 287     drawimage(cl, g, msg->gpr_RPort,
 288               g->Flags&GFLG_SELECTED, g->Flags&GFLG_DISABLED);
 289
 290     /* Render gadget label */
 291     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 292     {
 293         result = renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 294     }
 295
 296     return result;
 297 }
 298
 299 /**********************************************************************************************/
 300
 301 IPTR GTCheckBox__GM_GOACTIVE(Class *cl, struct Gadget *g, struct gpInput *msg)
 302 {
 303     struct CheckBoxData *data;
 304     struct RastPort     *rp;
 305     IPTR                retval;
 306
 307     data = INST_DATA(cl, g);
 308     data->flags |= CF_MouseOverGad;
 309
 310     rp = ObtainGIRPort(msg->gpi_GInfo);
 311     if (rp)
 312     {
 313         drawimage(cl, g, rp, (g->Flags&GFLG_SELECTED) ? FALSE : TRUE, FALSE);
 314         ReleaseGIRPort(rp);
 315         retval = GMR_MEACTIVE;
 316     }
 317     else
 318     {
 319         retval = GMR_NOREUSE;
 320     }
 321
 322     return retval;
 323 }
 324
 325 /**********************************************************************************************/
 326
 327 IPTR GTCheckBox__GM_HANDLEINPUT(Class *cl, struct Gadget *g, struct gpInput *msg)
 328 {
 329     struct CheckBoxData *data;
 330     struct RastPort     *rp;
 331     IPTR                retval = GMR_MEACTIVE;
 332
 333     data = INST_DATA(cl, g);
 334
 335     if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE)
 336     {
 337         if (msg->gpi_IEvent->ie_Code == SELECTUP)
 338         {
 339             if (data->flags & CF_MouseOverGad)
 340             {
 341                 /* mouse is over gadget */
 342
 343                 g->Flags ^= GFLG_SELECTED;
 344
 345                 *msg->gpi_Termination = g->Flags&GFLG_SELECTED?TRUE:FALSE;
 346                 retval = GMR_NOREUSE | GMR_VERIFY;
 347             }
 348             else
 349             {
 350                 /* mouse is not over gadget */
 351                 retval = GMR_NOREUSE;
 352             }
 353         }
 354         else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 355         {
 356             if ((msg->gpi_Mouse.X < 0) || (msg->gpi_Mouse.Y < 0) ||
 357                 (msg->gpi_Mouse.X >= g->Width ) || (msg->gpi_Mouse.Y >= g->Height))
 358             {
 359                 if (data->flags & CF_MouseOverGad)
 360                 {
 361                     rp = ObtainGIRPort(msg->gpi_GInfo);
 362                     if (rp)
 363                     {
 364                         drawimage(cl, g, rp,
 365                                   g->Flags&GFLG_SELECTED, FALSE);
 366                         ReleaseGIRPort(rp);
 367                     }
 368                     data->flags &= ~CF_MouseOverGad;
 369                 }
 370             }
 371             else
 372             {
 373                 if (!(data->flags & CF_MouseOverGad))
 374                 {
 375                     rp = ObtainGIRPort(msg->gpi_GInfo);
 376                     if (rp)
 377                     {
 378                         drawimage(cl, g, rp,
 379                                   (g->Flags&GFLG_SELECTED)?FALSE:TRUE, FALSE);
 380                         ReleaseGIRPort(rp);
 381                     }
 382                     data->flags |= CF_MouseOverGad;
 383                 }
 384             }
 385
 386         } /* else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON) */
 387         else if (msg->gpi_IEvent->ie_Code == MENUDOWN)
 388         {
 389             retval = GMR_NOREUSE;
 390         }
 391
 392     } /* if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE) */
 393
 394     return retval;
 395 }
 396
 397 /**********************************************************************************************/
 398
 399 IPTR GTCheckBox__GM_GOINACTIVE(Class *cl, struct Gadget *g, struct gpGoInactive *msg)
 400 {
 401     struct CheckBoxData *data;
 402     struct RastPort     *rp;
 403
 404     data = INST_DATA(cl, g);
 405     data->flags &= ~CF_MouseOverGad;
 406     rp = ObtainGIRPort(msg->gpgi_GInfo);
 407     if (rp)
 408     {
 409         drawimage(cl, g, rp, g->Flags & GFLG_SELECTED, FALSE);
 410         ReleaseGIRPort(rp);
 411     }
 412
 413     return 0;
 414 }
 415
 416 /**********************************************************************************************/