workbench/classes/gadgets/aroscheckbox/checkboxclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AROS specific checkbox class implementation.
   6     Lang: English
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #undef SDEBUG
  12 #define SDEBUG 0
  13 #undef DEBUG
  14 #define DEBUG 0
  15 #include <aros/debug.h>
  16
  17 #define USE_BOOPSI_STUBS
  18
  19 /****************************************************************************************/
  20
  21 #include <proto/exec.h>
  22 #include <exec/libraries.h>
  23 #include <proto/intuition.h>
  24 #include <intuition/classes.h>
  25 #include <intuition/classusr.h>
  26 #include <intuition/imageclass.h>
  27 #include <intuition/intuition.h>
  28 #include <gadgets/aroscheckbox.h>
  29 #include <proto/graphics.h>
  30 #include <graphics/rastport.h>
  31 #include <graphics/text.h>
  32 #include <proto/utility.h>
  33 #include <utility/tagitem.h>
  34 #include <devices/inputevent.h>
  35 #include <libraries/gadtools.h>
  36 #include <proto/alib.h>
  37
  38 #include "aroscheckbox_intern.h"
  39
  40 /****************************************************************************************/
  41
  42 #include <clib/boopsistubs.h>
  43
  44 /****************************************************************************************/
  45
  46 void drawimage(Class *cl, struct Gadget *gad, struct RastPort *rport,
  47                BOOL checked, BOOL disabled)
  48 {
  49     struct CheckData *data = INST_DATA(cl, (Object *)gad);
  50     struct Image     *img;
  51     ULONG            state = IDS_NORMAL;
  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(rport, 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         drawdisabledpattern(rport, data->dri->dri_Pens[SHADOWPEN],
  90                             gad->LeftEdge, gad->TopEdge,
  91                             gad->Width, gad->Height
  92         );
  93     }
  94
  95 }
  96
  97 /****************************************************************************************/
  98
  99 IPTR AROSCheckbox__OM_SET(Class * cl, Object * obj, struct opSet * msg)
 100 {
 101     struct CheckData     *data = INST_DATA(cl, obj);
 102     struct TagItem *tag, *taglist = msg->ops_AttrList;
 103     struct RastPort      *rport;
 104     IPTR                  retval = FALSE;
 105
 106     if (data->flags & CF_CustomImage)
 107     {
 108         tag = FindTagItem(GA_Image, taglist);
 109         if (tag)
 110         {
 111             DisposeObject(G(obj)->GadgetRender);
 112             G(obj)->GadgetRender = NULL;
 113             data->flags &= ~CF_CustomImage;
 114         }
 115     }
 116
 117     if (msg->MethodID != OM_NEW)
 118         retval = DoSuperMethodA(cl, obj, (Msg)msg);
 119
 120     while ((tag = NextTagItem(&taglist)))
 121     {
 122         switch (tag->ti_Tag)
 123         {
 124             case GA_Disabled:
 125                 retval = TRUE;
 126                 break;
 127
 128             case GA_DrawInfo:
 129                 if (msg->MethodID == OM_NEW)
 130                     data->dri = (struct DrawInfo *) tag->ti_Data;
 131                 break;
 132
 133             case GA_Image:
 134             case GA_SelectRender:
 135                 retval = TRUE;
 136                 break;
 137
 138             case GA_LabelPlace:
 139                 if (msg->MethodID == OM_NEW)
 140                     data->labelplace = (LONG)tag->ti_Data;
 141                 break;
 142
 143             case AROSCB_Checked:
 144                 if (tag->ti_Data)
 145                     data->flags |= CF_Checked;
 146                 else
 147                     data->flags &= ~CF_Checked;
 148                 retval = TRUE;
 149                 break;
 150
 151         } /* switch (tag->ti_Tag) */
 152
 153     } /* while ((tag = NextTagItem(&taglist))) */
 154
 155     if (G(obj)->Width == 0)
 156         G(obj)->Width = CHECKBOX_WIDTH;
 157     if (G(obj)->Height == 0)
 158         G(obj)->Height = CHECKBOX_HEIGHT;
 159
 160     /* Redraw ourself? */
 161
 162     if ((retval) && (msg->MethodID != OM_NEW) &&
 163         ((msg->MethodID != OM_UPDATE) || (OCLASS(obj) == cl)))
 164     {
 165         rport = ObtainGIRPort(msg->ops_GInfo);
 166         if (rport)
 167         {
 168             DoMethod(obj, GM_RENDER, (IPTR)msg->ops_GInfo, (IPTR)rport, GREDRAW_UPDATE);
 169             ReleaseGIRPort(rport);
 170             retval = FALSE;
 171         }
 172     }
 173
 174     return retval;
 175 }
 176
 177 /****************************************************************************************/
 178
 179 IPTR AROSCheckbox__OM_GET(Class * cl, Object * obj, struct opGet * msg)
 180 {
 181     struct CheckData *data = INST_DATA(cl, obj);
 182
 183     if (msg->opg_AttrID == AROSCB_Checked)
 184     {
 185         *(msg->opg_Storage) = data->flags & CF_Checked;
 186         return (IPTR)1UL;
 187     }
 188     else
 189         return DoSuperMethodA(cl, obj, (Msg)msg);
 190 }
 191
 192 /****************************************************************************************/
 193
 194 Object *AROSCheckbox__OM_NEW(Class *cl, Class *rootcl, struct opSet *msg)
 195 {
 196     struct CheckData    *data;
 197     struct TagItem      tags[] =
 198     {
 199         {IA_Width       , 0UL       },
 200         {IA_Height      , 0UL       },
 201         {SYSIA_DrawInfo , 0UL       },
 202         {SYSIA_Which    , CHECKIMAGE},
 203         {TAG_DONE                   }
 204     };
 205     Object              *obj;
 206
 207     //EnterFunc(bug("CheckBox::New()\n"));
 208
 209     obj = (Object *)DoSuperMethodA(cl, (Object *)rootcl, (Msg)msg);
 210     if (!obj)
 211         return NULL;
 212
 213     G(obj)->Activation |= GACT_RELVERIFY;
 214
 215     data = INST_DATA(cl, obj);
 216     data->dri = NULL;
 217     data->flags = 0;
 218     AROSCheckbox__OM_SET(cl, obj, msg);
 219
 220     if (!G(obj)->GadgetRender)
 221     {
 222         tags[0].ti_Data = G(obj)->Width;
 223         tags[1].ti_Data = G(obj)->Height;
 224         tags[2].ti_Data = (IPTR) data->dri;
 225         G(obj)->GadgetRender = (struct Image *) NewObjectA(NULL, SYSICLASS,
 226                                                            tags);
 227         data->flags |= CF_CustomImage;
 228     }
 229
 230     if ((!data->dri) || (!G(obj)->GadgetRender))
 231     {
 232         CoerceMethod(cl, obj, OM_DISPOSE);
 233         return NULL;
 234     }
 235
 236     ReturnPtr("CheckBox::New", Object *, obj);
 237 }
 238
 239 /****************************************************************************************/
 240
 241 IPTR AROSCheckbox__OM_DISPOSE(Class *cl, Class *obj, struct opSet *msg)
 242 {
 243     struct CheckData *data = INST_DATA(cl, obj);
 244     if (data->flags & CF_CustomImage)
 245     {
 246         DisposeObject(G(obj)->GadgetRender);
 247         G(obj)->GadgetRender = NULL;
 248     }
 249     return DoSuperMethodA(cl, (Object *)obj, (Msg)msg);
 250 }
 251
 252 /****************************************************************************************/
 253
 254 IPTR AROSCheckbox__GM_RENDER(Class * cl, Object * obj, struct gpRender * msg)
 255 {
 256     struct CheckData *data = INST_DATA(cl, obj);
 257     IPTR             result = TRUE;
 258
 259     /* Render image */
 260     drawimage(cl, G(obj), msg->gpr_RPort,
 261               data->flags&CF_Checked, G(obj)->Flags&GFLG_DISABLED);
 262
 263     /* Render gadget label */
 264     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 265     {
 266         result = renderlabel(G(obj), msg->gpr_RPort, data->labelplace);
 267     }
 268
 269     return result;
 270 }
 271
 272 /****************************************************************************************/
 273
 274 IPTR AROSCheckbox__GM_HANDLEINPUT(Class * cl, Object * obj, struct gpInput * msg)
 275 {
 276     struct CheckData    *data = INST_DATA(cl, obj);
 277     struct RastPort     *rport;
 278     IPTR                retval = GMR_MEACTIVE;
 279
 280     if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE)
 281     {
 282         if (msg->gpi_IEvent->ie_Code == SELECTUP)
 283         {
 284             if (G(obj)->Flags & GFLG_SELECTED)
 285             {
 286                 /* mouse is over gadget */
 287                 if (data->flags & CF_Checked)
 288                     data->flags &= ~CF_Checked;
 289                 else
 290                     data->flags |= CF_Checked;
 291                 *msg->gpi_Termination = data->flags&CF_Checked?TRUE:FALSE;
 292                 retval = GMR_NOREUSE | GMR_VERIFY;
 293             }
 294             else
 295             {
 296                 /* mouse is not over gadget */
 297                 retval = GMR_NOREUSE;
 298             }
 299         }
 300         else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 301         {
 302             struct gpHitTest htmsg, *p_htmsg = &htmsg;
 303
 304             htmsg.MethodID = GM_HITTEST;
 305             htmsg.gpht_GInfo = msg->gpi_GInfo;
 306             htmsg.gpht_Mouse.X = msg->gpi_Mouse.X;
 307             htmsg.gpht_Mouse.Y = msg->gpi_Mouse.Y;
 308
 309             if (DoMethodA(obj, (Msg) p_htmsg) != GMR_GADGETHIT)
 310             {
 311                 if (G(obj)->Flags & GFLG_SELECTED)
 312                 {
 313                     rport = ObtainGIRPort(msg->gpi_GInfo);
 314                     if (rport)
 315                     {
 316                         drawimage(cl, G(obj), rport,
 317                                   data->flags&CF_Checked, FALSE);
 318                         ReleaseGIRPort(rport);
 319                     }
 320                     G(obj)->Flags &= ~GFLG_SELECTED;
 321                 }
 322             }
 323             else
 324             {
 325                 if (!(G(obj)->Flags & GFLG_SELECTED))
 326                 {
 327                     rport = ObtainGIRPort(msg->gpi_GInfo);
 328                     if (rport)
 329                     {
 330                         drawimage(cl, G(obj), rport,
 331                                   (data->flags&CF_Checked)?FALSE:TRUE, FALSE);
 332                         ReleaseGIRPort(rport);
 333                     }
 334                     G(obj)->Flags |= GFLG_SELECTED;
 335                 }
 336             }
 337
 338         } /* else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON) */
 339         else if (msg->gpi_IEvent->ie_Code == MENUDOWN)
 340         {
 341             retval = GMR_REUSE;
 342         }
 343
 344     } /* if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE) */
 345
 346     return retval;
 347 }
 348
 349 /****************************************************************************************/
 350
 351 IPTR AROSCheckbox__GM_GOACTIVE(Class *cl, Object *obj, struct gpInput *msg)
 352 {
 353     struct CheckData *data = INST_DATA(cl, obj);
 354     struct RastPort  *rport;
 355
 356     G(obj)->Flags |= GFLG_SELECTED;
 357     rport = ObtainGIRPort(msg->gpi_GInfo);
 358     if (rport)
 359     {
 360         drawimage(cl, G(obj), rport,
 361                   (data->flags&CF_Checked)?FALSE:TRUE, FALSE);
 362         ReleaseGIRPort(rport);
 363         return (IPTR)GMR_MEACTIVE;
 364     }
 365     else
 366         return (IPTR)GMR_NOREUSE;
 367 }
 368
 369 /****************************************************************************************/
 370
 371 void AROSCheckbox__GM_GOINACTIVE(Class *cl, Object *obj, struct gpGoInactive *msg)
 372 {
 373     struct CheckData *data = INST_DATA(cl, obj);
 374     struct RastPort  *rport;
 375
 376     G(obj)->Flags &= ~GFLG_SELECTED;
 377     rport = ObtainGIRPort(msg->gpgi_GInfo);
 378     if (rport)
 379     {
 380         drawimage(cl, G(obj), rport,
 381                   data->flags & CF_Checked, FALSE
 382         );
 383         ReleaseGIRPort(rport);
 384     }
 385 }
 386
 387 /****************************************************************************************/