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     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     IPTR                retval;
 188
 189     switch (msg->opg_AttrID)
 190     {
 191         case GTA_GadgetKind:
 192         case GTA_ChildGadgetKind:
 193             *(msg->opg_Storage) = CHECKBOX_KIND;
 194             retval = 1UL;
 195             break;
 196
 197         case GTCB_Checked:
 198             *(msg->opg_Storage) = (g->Flags & GFLG_SELECTED) ? TRUE : FALSE;
 199             retval = 1UL;
 200             break;
 201
 202         default:
 203             retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 204             break;
 205     }
 206
 207     return retval;
 208 }
 209
 210 /**********************************************************************************************/
 211
 212 IPTR GTCheckBox__OM_NEW(Class *cl, Object *supercl, struct opSet *msg)
 213 {
 214     struct CheckBoxData *data;
 215     struct TagItem      tags[] =
 216     {
 217         {IA_Width       , 0UL       },
 218         {IA_Height      , 0UL       },
 219         {SYSIA_DrawInfo , 0UL       },
 220         {SYSIA_Which    , CHECKIMAGE},
 221         {TAG_DONE                   }
 222     };
 223     struct Gadget       *g;
 224
 225     g = (struct Gadget *)DoSuperMethodA(cl, supercl, (Msg)msg);
 226     if (!g)
 227         return (IPTR)0;
 228
 229     g->Activation |= GACT_RELVERIFY;
 230
 231     data = INST_DATA(cl, g);
 232     data->dri = NULL;
 233     data->flags = 0;
 234     GTCheckBox__OM_SET(cl, g, msg);
 235
 236     if (!g->GadgetRender)
 237     {
 238         tags[0].ti_Data = g->Width;
 239         tags[1].ti_Data = g->Height;
 240         tags[2].ti_Data = (IPTR) data->dri;
 241         g->GadgetRender = (struct Image *) NewObjectA(NULL, SYSICLASS,
 242                                                            tags);
 243         data->flags |= CF_CustomImage;
 244     }
 245
 246     if ((!data->dri) || (!g->GadgetRender))
 247     {
 248         CoerceMethod(cl, (Object *)g, OM_DISPOSE);
 249         g = NULL;
 250     }
 251
 252     return (IPTR)g;
 253 }
 254
 255 /**********************************************************************************************/
 256
 257 IPTR GTCheckBox__OM_DISPOSE(Class *cl, struct Gadget *g, Msg msg)
 258 {
 259     struct CheckBoxData *data;
 260     IPTR                retval;
 261
 262     data = INST_DATA(cl, g);
 263
 264     if (data->flags & CF_CustomImage)
 265     {
 266         DisposeObject(g->GadgetRender);
 267         g->GadgetRender = NULL;
 268     }
 269     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 270
 271     return retval;
 272 }
 273
 274 /**********************************************************************************************/
 275
 276 IPTR GTCheckBox__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 277 {
 278     struct CheckBoxData *data;
 279     IPTR                result = TRUE;
 280
 281     data = INST_DATA(cl, g);
 282
 283     /* Render image */
 284     drawimage(cl, g, msg->gpr_RPort,
 285               g->Flags&GFLG_SELECTED, g->Flags&GFLG_DISABLED);
 286
 287     /* Render gadget label */
 288     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 289     {
 290         result = renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 291     }
 292
 293     return result;
 294 }
 295
 296 /**********************************************************************************************/
 297
 298 IPTR GTCheckBox__GM_GOACTIVE(Class *cl, struct Gadget *g, struct gpInput *msg)
 299 {
 300     struct CheckBoxData *data;
 301     struct RastPort     *rp;
 302     IPTR                retval;
 303
 304     data = INST_DATA(cl, g);
 305     data->flags |= CF_MouseOverGad;
 306
 307     rp = ObtainGIRPort(msg->gpi_GInfo);
 308     if (rp)
 309     {
 310         drawimage(cl, g, rp, (g->Flags&GFLG_SELECTED) ? FALSE : TRUE, FALSE);
 311         ReleaseGIRPort(rp);
 312         retval = GMR_MEACTIVE;
 313     }
 314     else
 315     {
 316         retval = GMR_NOREUSE;
 317     }
 318
 319     return retval;
 320 }
 321
 322 /**********************************************************************************************/
 323
 324 IPTR GTCheckBox__GM_HANDLEINPUT(Class *cl, struct Gadget *g, struct gpInput *msg)
 325 {
 326     struct CheckBoxData *data;
 327     struct RastPort     *rp;
 328     IPTR                retval = GMR_MEACTIVE;
 329
 330     data = INST_DATA(cl, g);
 331
 332     if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE)
 333     {
 334         if (msg->gpi_IEvent->ie_Code == SELECTUP)
 335         {
 336             if (data->flags & CF_MouseOverGad)
 337             {
 338                 /* mouse is over gadget */
 339
 340                 g->Flags ^= GFLG_SELECTED;
 341
 342                 *msg->gpi_Termination = g->Flags&GFLG_SELECTED?TRUE:FALSE;
 343                 retval = GMR_NOREUSE | GMR_VERIFY;
 344             }
 345             else
 346             {
 347                 /* mouse is not over gadget */
 348                 retval = GMR_NOREUSE;
 349             }
 350         }
 351         else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 352         {
 353             if ((msg->gpi_Mouse.X < 0) || (msg->gpi_Mouse.Y < 0) ||
 354                 (msg->gpi_Mouse.X >= g->Width ) || (msg->gpi_Mouse.Y >= g->Height))
 355             {
 356                 if (data->flags & CF_MouseOverGad)
 357                 {
 358                     rp = ObtainGIRPort(msg->gpi_GInfo);
 359                     if (rp)
 360                     {
 361                         drawimage(cl, g, rp,
 362                                   g->Flags&GFLG_SELECTED, FALSE);
 363                         ReleaseGIRPort(rp);
 364                     }
 365                     data->flags &= ~CF_MouseOverGad;
 366                 }
 367             }
 368             else
 369             {
 370                 if (!(data->flags & CF_MouseOverGad))
 371                 {
 372                     rp = ObtainGIRPort(msg->gpi_GInfo);
 373                     if (rp)
 374                     {
 375                         drawimage(cl, g, rp,
 376                                   (g->Flags&GFLG_SELECTED)?FALSE:TRUE, FALSE);
 377                         ReleaseGIRPort(rp);
 378                     }
 379                     data->flags |= CF_MouseOverGad;
 380                 }
 381             }
 382
 383         } /* else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON) */
 384         else if (msg->gpi_IEvent->ie_Code == MENUDOWN)
 385         {
 386             retval = GMR_NOREUSE;
 387         }
 388
 389     } /* if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE) */
 390
 391     return retval;
 392 }
 393
 394 /**********************************************************************************************/
 395
 396 IPTR GTCheckBox__GM_GOINACTIVE(Class *cl, struct Gadget *g, struct gpGoInactive *msg)
 397 {
 398     struct CheckBoxData *data;
 399     struct RastPort     *rp;
 400
 401     data = INST_DATA(cl, g);
 402     data->flags &= ~CF_MouseOverGad;
 403     rp = ObtainGIRPort(msg->gpgi_GInfo);
 404     if (rp)
 405     {
 406         drawimage(cl, g, rp, g->Flags & GFLG_SELECTED, FALSE);
 407         ReleaseGIRPort(rp);
 408     }
 409
 410     return 0;
 411 }
 412
 413 /**********************************************************************************************/