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     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 RastPort     *rport;
 245     IPTR                retval;
 246
 247     EG(o)->Flags |= GFLG_SELECTED;
 248
 249     rport = ObtainGIRPort(msg->gpi_GInfo);
 250     if (rport)
 251     {
 252         struct gpRender rmsg =
 253             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 254         DoMethodA(o, (Msg)p_rmsg);
 255         ReleaseGIRPort(rport);
 256         retval = GMR_MEACTIVE;
 257     } else
 258         retval = GMR_NOREUSE;
 259
 260     return retval;
 261 }
 262
 263 /***********************************************************************************/
 264
 265 IPTR AROSCycle__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
 266 {
 267     struct RastPort     *rport;
 268     struct CycleData    *data;
 269     IPTR                retval = GMR_MEACTIVE;
 270
 271     data = INST_DATA(cl, o);
 272
 273     if (msg->gpi_IEvent->ie_Class == IECLASS_RAWMOUSE)
 274     {
 275         if (msg->gpi_IEvent->ie_Code == SELECTUP)
 276         {
 277             if (G(o)->Flags & GFLG_SELECTED)
 278             {
 279                 /* mouse is over gadget */
 280
 281                 data->active++;
 282                 if (data->active == data->numlabels)
 283                     data->active = 0;
 284
 285
 286                 *msg->gpi_Termination = data->active;
 287                 retval = GMR_NOREUSE | GMR_VERIFY;
 288             } else
 289                 /* mouse is not over gadget */
 290                 retval = GMR_NOREUSE;
 291
 292 /*
 293             G(o)->Flags &= ~GFLG_SELECTED;
 294
 295             rport = ObtainGIRPort(msg->gpi_GInfo);
 296             if (rport)
 297             {
 298                 struct gpRender rmsg =
 299                     { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE };
 300                 DoMethodA(o, (Msg)&rmsg);
 301                 ReleaseGIRPort(rport);
 302             }*/
 303
 304         } else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 305         {
 306             struct gpHitTest htmsg =
 307                 { GM_HITTEST, msg->gpi_GInfo,
 308                   { msg->gpi_Mouse.X, msg->gpi_Mouse.Y },
 309                 }, *p_htmsg = &htmsg;
 310             if (DoMethodA(o, (Msg)p_htmsg) != GMR_GADGETHIT)
 311             {
 312                 if (EG(o)->Flags & GFLG_SELECTED)
 313                 {
 314                     G(o)->Flags &= ~GFLG_SELECTED;
 315                     rport = ObtainGIRPort(msg->gpi_GInfo);
 316                     if (rport)
 317                     {
 318                         struct gpRender rmsg =
 319                             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 320                         DoMethodA(o, (Msg)p_rmsg);
 321                         ReleaseGIRPort(rport);
 322                     }
 323                 }
 324             } else
 325             {
 326                 if (!(EG(o)->Flags & GFLG_SELECTED))
 327                 {
 328                     EG(o)->Flags |= GFLG_SELECTED;
 329                     rport = ObtainGIRPort(msg->gpi_GInfo);
 330                     if (rport)
 331                     {
 332                         struct gpRender rmsg =
 333                             { GM_RENDER, msg->gpi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 334                         DoMethodA(o, (Msg)p_rmsg);
 335                         ReleaseGIRPort(rport);
 336                     }
 337                 }
 338             }
 339         } else if (msg->gpi_IEvent->ie_Code == MENUDOWN)
 340             retval = GMR_REUSE;
 341     }
 342     return retval;
 343 }
 344
 345 /***********************************************************************************/
 346
 347 IPTR AROSCycle__GM_GOINACTIVE(Class *cl, Object *o, struct gpGoInactive *msg)
 348 {
 349     struct RastPort *rport;
 350
 351     EG(o)->Flags &= ~GFLG_SELECTED;
 352
 353     rport = ObtainGIRPort(msg->gpgi_GInfo);
 354     if (rport)
 355     {
 356         struct gpRender rmsg = { GM_RENDER, msg->gpgi_GInfo, rport, GREDRAW_UPDATE }, *p_rmsg = &rmsg;
 357
 358         DoMethodA(o, (Msg)p_rmsg);
 359         ReleaseGIRPort(rport);
 360     }
 361
 362     return 0;
 363 }