workbench/classes/gadgets/aroscycle/cycleclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AROS specific cycle class implementation.
   6     Lang: english
   7 */
   8
   9 /***********************************************************************************/
  10
  11 #define USE_BOOPSI_STUBS
  12 #include <exec/libraries.h>
  13 #include <proto/dos.h>
  14 #include <proto/intuition.h>
  15 #include <intuition/classes.h>
  16 #include <intuition/classusr.h>
  17 #include <intuition/imageclass.h>
  18 #include <intuition/intuition.h>
  19 #include <intuition/screens.h>
  20 #include <proto/graphics.h>
  21 #include <graphics/rastport.h>
  22 #include <graphics/text.h>
  23 #include <proto/utility.h>
  24 #include <utility/tagitem.h>
  25 #include <devices/inputevent.h>
  26 #include <gadgets/aroscycle.h>
  27 #include <proto/alib.h>
  28
  29 #ifndef DEBUG
  30 #   define DEBUG 0
  31 #endif
  32 #include <aros/debug.h>
  33
  34 #include "aroscycle_intern.h"
  35
  36 /***********************************************************************************/
  37
  38 #define IM(o) ((struct Image *)(o))
  39 #define EG(o) ((struct Gadget *)(o))
  40
  41 #include <clib/boopsistubs.h>
  42
  43 /***********************************************************************************/
  44
  45 Object *AROSCycle__OM_NEW(Class *cl, Class *rootcl, struct opSet *msg)
  46 {
  47     struct CycleData    *data;
  48     struct TextAttr     *tattr;
  49     struct TagItem      imgtags[] = {
  50         { IA_Width      , 0             },
  51         { IA_Height     , 0             },
  52         { IA_EdgesOnly  , FALSE         },
  53         { IA_FrameType  , FRAME_BUTTON  },
  54         { TAG_DONE      , 0UL           }
  55     };
  56     STRPTR              *labels;
  57     Object              *o;
  58
  59     o = (Object *)DoSuperMethodA(cl, (Object *)rootcl, (Msg)msg);
  60     if (!o)
  61         return NULL;
  62
  63     data = INST_DATA(cl, o);
  64     data->active = GetTagData(AROSCYCLE_Active, 0, msg->ops_AttrList);
  65     data->labels = (STRPTR *)GetTagData(AROSCYCLE_Labels, (IPTR) NULL, msg->ops_AttrList);
  66     data->numlabels = 0;
  67
  68     labels = data->labels;
  69     if (labels)
  70     {
  71         while (labels[0])
  72         {
  73             data->numlabels++;
  74             labels++;
  75         }
  76     }
  77
  78     tattr = (struct TextAttr *)GetTagData(GA_TextAttr, (IPTR) NULL, msg->ops_AttrList);
  79     if (tattr) data->font = OpenFont(tattr);
  80
  81     imgtags[0].ti_Data = (IPTR)EG(o)->Width;
  82     imgtags[1].ti_Data = (IPTR)EG(o)->Height;
  83
  84     EG(o)->GadgetRender = NewObjectA(NULL, FRAMEICLASS, imgtags);
  85     if (!EG(o)->GadgetRender)
  86     {
  87         IPTR methodid = OM_DISPOSE;
  88         CoerceMethodA(cl, o, (Msg)&methodid);
  89         return NULL;
  90     }
  91
  92     return o;
  93 }
  94
  95 /***********************************************************************************/
  96
  97 VOID AROSCycle__OM_DISPOSE(Class *cl, Object *o, Msg msg)
  98 {
  99     struct CycleData *data = INST_DATA(cl, o);
 100
 101     if (EG(o)->GadgetRender)
 102         DisposeObject(EG(o)->GadgetRender);
 103
 104     if (data->font) CloseFont(data->font);
 105
 106     DoSuperMethodA(cl,o,msg);
 107 }
 108
 109 /***********************************************************************************/
 110
 111 IPTR AROSCycle__OM_GET(Class *cl, Object *o, struct opGet *msg)
 112 {
 113     struct CycleData *data = INST_DATA(cl, o);
 114     IPTR             retval = 1;
 115
 116     switch(msg->opg_AttrID)
 117     {
 118         case AROSCYCLE_Active:
 119             *(msg->opg_Storage) = (IPTR)data->active;
 120             break;
 121
 122         case AROSCYCLE_Labels:
 123             *(msg->opg_Storage) = (IPTR)data->labels;
 124             break;
 125
 126         default:
 127             retval = DoSuperMethodA(cl, o, (Msg)msg);
 128             break;
 129     }
 130
 131     return retval;
 132 }
 133
 134 /***********************************************************************************/
 135
 136 IPTR AROSCycle__OM_SET(Class *cl, Object *o, struct opSet *msg)
 137 {
 138     struct CycleData     *data = INST_DATA(cl, o);
 139     const struct TagItem *tag, *taglist = msg->ops_AttrList;
 140     STRPTR               *mylabels;
 141     BOOL                  rerender = FALSE;
 142     IPTR                  result;
 143
 144     result = DoSuperMethodA(cl, o, (Msg)msg);
 145
 146     while((tag = NextTagItem(&taglist)))
 147     {
 148         switch(tag->ti_Tag)
 149         {
 150             case AROSCYCLE_Labels:
 151                 data->labels = (STRPTR *)tag->ti_Data;
 152                 data->numlabels = 0;
 153                 data->active = 0;
 154                 mylabels = data->labels;
 155                 if (mylabels)
 156                 {
 157                     while (mylabels[0])
 158                     {
 159                         data->numlabels++;
 160                         mylabels++;
 161                     }
 162                 }
 163                 rerender = TRUE;
 164                 break;
 165
 166             case AROSCYCLE_Active:
 167                 data->active = tag->ti_Data;
 168                 rerender = TRUE;
 169                 break;
 170
 171             case GA_Disabled:
 172                 rerender = TRUE;
 173                 break;
 174         }
 175     }
 176
 177     /* SDuvan: Removed test (cl == OCLASS(o)) */
 178
 179     if(rerender)
 180     {
 181         struct RastPort *rport;
 182
 183         if(data->active > data->numlabels-1)
 184             data->active = 0;
 185
 186         //kprintf("Rerendering\n");
 187
 188         rport = ObtainGIRPort(msg->ops_GInfo);
 189         if(rport)
 190         {
 191             DoMethod(o, GM_RENDER, (IPTR)msg->ops_GInfo, (IPTR)rport, GREDRAW_UPDATE);
 192             ReleaseGIRPort(rport);
 193             result = FALSE;
 194         }
 195     }
 196
 197     return result;
 198 }
 199
 200 /***********************************************************************************/
 201
 202 IPTR cycle_hittest(Class *cl, Object *o, struct gpHitTest *msg)
 203 {
 204     return pointingadget((struct Gadget *)o,
 205                          msg->gpht_GInfo,
 206                          msg->gpht_Mouse.X,
 207                          msg->gpht_Mouse.Y) ? GMR_GADGETHIT : 0;
 208 }
 209
 210 /***********************************************************************************/
 211
 212 VOID AROSCycle__GM_RENDER(Class *cl, Object *o, struct gpRender *msg)
 213 {
 214     struct CycleData *data = INST_DATA(cl, o);
 215
 216     /* Full redraw: clear and draw border */
 217     DrawImageState(msg->gpr_RPort,IM(EG(o)->GadgetRender),
 218                    EG(o)->LeftEdge, EG(o)->TopEdge,
 219                    EG(o)->Flags&GFLG_SELECTED?IDS_SELECTED:IDS_NORMAL,
 220                    msg->gpr_GInfo->gi_DrInfo);
 221
 222     if (data->font)
 223         SetFont(msg->gpr_RPort, data->font);
 224     else
 225         SetFont(msg->gpr_RPort, msg->gpr_GInfo->gi_DrInfo->dri_Font);
 226
 227     if (data->labels)
 228         renderlabel(EG(o), data->labels[data->active],
 229                     msg->gpr_RPort, msg->gpr_GInfo);
 230
 231     /* Draw disabled pattern */
 232     if (G(o)->Flags & GFLG_DISABLED)
 233         drawdisabledpattern(msg->gpr_RPort,
 234                             msg->gpr_GInfo->gi_DrInfo->dri_Pens[SHADOWPEN],
 235                             G(o)->LeftEdge, G(o)->TopEdge,
 236                             G(o)->Width, G(o)->Height);
 237
 238 }
 239
 240 /***********************************************************************************/
 241
 242 IPTR AROSCycle__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
 243 {
 244     struct CycleData    *data;
 245     struct RastPort     *rport;
 246     IPTR                retval;
 247
 248     data = INST_DATA(cl, o);
 249
 250     EG(o)->Flags |= GFLG_SELECTED;
 251
 252     rport = ObtainGIRPort(msg->gpi_GInfo);
 253     if (rport)
 254     {
 255         struct gpRender rmsg =
 256             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 257         DoMethodA(o, (Msg)p_rmsg);
 258         ReleaseGIRPort(rport);
 259         retval = GMR_MEACTIVE;
 260     } else
 261         retval = GMR_NOREUSE;
 262
 263     return retval;
 264 }
 265
 266 /***********************************************************************************/
 267
 268 IPTR AROSCycle__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
 269 {
 270     struct RastPort     *rport;
 271     struct CycleData    *data;
 272     IPTR                retval = GMR_MEACTIVE;
 273
 274     data = INST_DATA(cl, o);
 275
 276     if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE)
 277     {
 278         if (msg->gpi_IEvent->ie_Code == SELECTUP)
 279         {
 280             if (G(o)->Flags & GFLG_SELECTED)
 281             {
 282                 /* mouse is over gadget */
 283
 284                 data->active++;
 285                 if (data->active == data->numlabels)
 286                     data->active = 0;
 287
 288
 289                 *msg->gpi_Termination = data->active;
 290                 retval = GMR_NOREUSE | GMR_VERIFY;
 291             } else
 292                 /* mouse is not over gadget */
 293                 retval = GMR_NOREUSE;
 294
 295 /*
 296             G(o)->Flags &= ~GFLG_SELECTED;
 297
 298             rport = ObtainGIRPort(msg->gpi_GInfo);
 299             if (rport)
 300             {
 301                 struct gpRender rmsg =
 302                     { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE };
 303                 DoMethodA(o, (Msg)&rmsg);
 304                 ReleaseGIRPort(rport);
 305             }*/
 306
 307         } else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 308         {
 309             struct gpHitTest htmsg =
 310                 { GM_HITTEST, msg->gpi_GInfo,
 311                   { msg->gpi_Mouse.X, msg->gpi_Mouse.Y },
 312                 }, *p_htmsg = &htmsg;
 313             if (DoMethodA(o, (Msg)p_htmsg) != GMR_GADGETHIT)
 314             {
 315                 if (EG(o)->Flags & GFLG_SELECTED)
 316                 {
 317                     G(o)->Flags &= ~GFLG_SELECTED;
 318                     rport = ObtainGIRPort(msg->gpi_GInfo);
 319                     if (rport)
 320                     {
 321                         struct gpRender rmsg =
 322                             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 323                         DoMethodA(o, (Msg)p_rmsg);
 324                         ReleaseGIRPort(rport);
 325                     }
 326                 }
 327             } else
 328             {
 329                 if (!(EG(o)->Flags & GFLG_SELECTED))
 330                 {
 331                     EG(o)->Flags |= GFLG_SELECTED;
 332                     rport = ObtainGIRPort(msg->gpi_GInfo);
 333                     if (rport)
 334                     {
 335                         struct gpRender rmsg =
 336                             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 337                         DoMethodA(o, (Msg)p_rmsg);
 338                         ReleaseGIRPort(rport);
 339                     }
 340                 }
 341             }
 342         } else if (msg->gpi_IEvent->ie_Code == MENUDOWN)
 343             retval = GMR_REUSE;
 344     }
 345     return retval;
 346 }
 347
 348 /***********************************************************************************/
 349
 350 IPTR AROSCycle__GM_GOINACTIVE(Class *cl, Object *o, struct gpGoInactive *msg)
 351 {
 352     struct RastPort *rport;
 353
 354     EG(o)->Flags &= ~GFLG_SELECTED;
 355
 356     rport = ObtainGIRPort(msg->gpgi_GInfo);
 357     if (rport)
 358     {
 359         struct gpRender rmsg = { GM_RENDER, msg->gpgi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 360
 361         DoMethodA(o, (Msg)p_rmsg);
 362         ReleaseGIRPort(rport);
 363     }
 364
 365     return 0;
 366 }