workbench/libs/gadtools/sliderclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Internal GadTools slider class.
   6 */
   7
   8
   9 #include <proto/exec.h>
  10 #include <exec/libraries.h>
  11 #include <exec/memory.h>
  12 #include <proto/dos.h>
  13 #include <intuition/classes.h>
  14 #include <intuition/classusr.h>
  15 #include <intuition/gadgetclass.h>
  16 #include <intuition/imageclass.h>
  17 #include <intuition/intuition.h>
  18 #include <intuition/cghooks.h>
  19 #include <graphics/rastport.h>
  20 #include <graphics/text.h>
  21 #include <utility/tagitem.h>
  22 #include <devices/inputevent.h>
  23 #include <proto/alib.h>
  24 #include <proto/utility.h>
  25
  26 #include <string.h> /* memset() */
  27
  28 #define SDEBUG 0
  29 #define DEBUG 0
  30 #include <aros/debug.h>
  31
  32 #include "gadtools_intern.h"
  33
  34 /**********************************************************************************************/
  35
  36 #undef GadToolsBase
  37
  38 STATIC VOID notifylevel(Class *cl, Object *o, WORD level, struct GadgetInfo *ginfo,
  39                         struct GadToolsBase_intern *GadToolsBase)
  40 {
  41
  42     struct TagItem ntags[] =
  43     {
  44         {GTSL_Level     , (IPTR)NULL    },
  45         {TAG_DONE                       }
  46     };
  47
  48     ntags[0].ti_Data = (IPTR)level;
  49     DoSuperMethod(cl, o, OM_NOTIFY, (IPTR) ntags, (IPTR) ginfo, 0);
  50
  51     return;
  52 }
  53
  54 #define GadToolsBase ((struct GadToolsBase_intern *)(cl->cl_UserData))
  55
  56 /**********************************************************************************************/
  57
  58 IPTR GTSlider__OM_SET(Class * cl, Object * o, struct opSet * msg)
  59 {
  60     struct TagItem      *tag, *tstate, *dosuper_tags, tags[] =
  61     {
  62         {PGA_Total      , 0     },
  63         {PGA_Top        , 0     },
  64         {TAG_MORE       , 0     }
  65     };
  66     struct SliderData   *data = INST_DATA(cl, o);
  67
  68     BOOL                val_set = FALSE;
  69
  70     EnterFunc(bug("Slider::Set(attrlist=%p)\n", msg->ops_AttrList));
  71     dosuper_tags = msg->ops_AttrList;
  72
  73     tstate = msg->ops_AttrList;
  74     while ((tag = NextTagItem(&tstate)))
  75     {
  76         WORD tidata = tag->ti_Data;
  77
  78         switch (tag->ti_Tag)
  79         {
  80             case GTSL_Min:
  81                 data->min = tidata;
  82                 val_set = TRUE;
  83                 break;
  84
  85             case GTSL_Max:
  86                 data->max = tidata;
  87                 val_set = TRUE;
  88                 break;
  89
  90             case GTSL_Level:    /* [ISN] */
  91                 /* Ensure that the value is within limits */
  92                 if (tidata < data->min)
  93                     tidata = data->min;
  94                 if (tidata > data->max)
  95                     tidata = data->max;
  96
  97                 if (tidata != data->level)
  98                 {
  99                     data->level = data->freedom == FREEHORIZ ? tidata : data->max - tidata + data->min;
 100                     notifylevel(cl, o, data->level, msg->ops_GInfo, GadToolsBase);
 101                     val_set = TRUE;
 102
 103                 }
 104                 break;
 105
 106         } /* switch () */
 107
 108     } /* while (iterate taglist) */
 109
 110     if (val_set)
 111     {
 112         tags[0].ti_Data = data->max - data->min + 1;
 113         tags[1].ti_Data = data->level - data->min;
 114         tags[2].ti_Data = (IPTR)msg->ops_AttrList;
 115
 116         dosuper_tags = tags;
 117     }
 118
 119     ReturnInt ("Slider::Set", IPTR, DoSuperMethod(cl, o, OM_SET, (IPTR) dosuper_tags, (IPTR) msg->ops_GInfo));
 120 }
 121
 122 /**********************************************************************************************/
 123
 124 IPTR GTSlider__OM_NEW(Class * cl, Object * o, struct opSet *msg)
 125 {
 126     struct DrawInfo     *dri;
 127
 128     struct TagItem      fitags[] =
 129     {
 130         {IA_Width       , 0UL           },
 131         {IA_Height      , 0UL           },
 132         {IA_Resolution  , 0UL           },
 133         {IA_FrameType   , FRAME_BUTTON  },
 134         {IA_EdgesOnly   , TRUE          },
 135         {TAG_DONE                       }
 136     };
 137
 138     EnterFunc(bug("Slider::New()\n"));
 139
 140     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
 141     if (o)
 142     {
 143         struct SliderData *data = INST_DATA(cl, o);
 144
 145         dri = (struct DrawInfo *)GetTagData(GA_DrawInfo, (IPTR) NULL, msg->ops_AttrList);
 146
 147         fitags[0].ti_Data = GetTagData(GA_Width, 0, msg->ops_AttrList) + BORDERPROPSPACINGX * 2;
 148         fitags[1].ti_Data = GetTagData(GA_Height, 0, msg->ops_AttrList) + BORDERPROPSPACINGY * 2;
 149         fitags[2].ti_Data = (dri->dri_Resolution.X << 16) + dri->dri_Resolution.Y;
 150
 151         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
 152         if (data->frame)
 153         {
 154             data->freedom=GetTagData(PGA_Freedom,FREEHORIZ,msg->ops_AttrList);
 155
 156             data->min   = 0;
 157             data->max   = 15;
 158             data->level = data->freedom==FREEHORIZ?data->min:data->max;
 159             notifylevel(cl, o, data->level, msg->ops_GInfo, GadToolsBase);
 160
 161             GTSlider__OM_SET(cl, o, msg);
 162
 163             data->labelplace = GetTagData(GA_LabelPlace, GV_LabelPlace_Left, msg->ops_AttrList);
 164         } else {
 165             CoerceMethod(cl, o, OM_DISPOSE);
 166             o = NULL;
 167         }
 168     }
 169     ReturnPtr("Slider::New", IPTR, (IPTR)o);
 170
 171 }
 172
 173 /**********************************************************************************************/
 174
 175 IPTR GTSlider__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
 176 {
 177     IPTR                retval;
 178     struct SliderData   *data = INST_DATA(cl, o);
 179
 180     EnterFunc(bug("Slider::GoActive()\n"));
 181     retval = DoSuperMethodA(cl, o, (Msg)msg);
 182
 183     if (retval != GMR_MEACTIVE)
 184     {
 185         data->level = data->min + (WORD)*(msg->gpi_Termination);
 186         notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 187     }
 188     ReturnInt("Slider::Goactive", IPTR, retval);
 189 }
 190
 191 /**********************************************************************************************/
 192
 193 IPTR GTSlider__OM_GET(Class *cl, Object *o, struct opGet *msg)
 194 {
 195     struct SliderData   *data = INST_DATA(cl, o);
 196     IPTR                retval = 1UL;
 197
 198     switch (msg->opg_AttrID)
 199     {
 200         case GTA_GadgetKind:
 201         case GTA_ChildGadgetKind:
 202             *msg->opg_Storage = SLIDER_KIND;
 203             break;
 204
 205         case GTSL_Level:
 206           *msg->opg_Storage = data->freedom==FREEHORIZ?data->level:data->max-data->level+data->min;
 207           break;
 208
 209         case GTSL_Max:
 210             *msg->opg_Storage = data->max;
 211             break;
 212
 213         case GTSL_Min:
 214             *msg->opg_Storage = data->min;
 215             break;
 216
 217         default:
 218             retval = DoSuperMethodA(cl, o, (Msg)msg);
 219             break;
 220     }
 221
 222     return retval;
 223 }
 224
 225 /**********************************************************************************************/
 226
 227 IPTR GTSlider__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
 228 {
 229     struct InputEvent   *ie = msg->gpi_IEvent;
 230     IPTR                retval;
 231     struct SliderData   *data = INST_DATA(cl ,o);
 232
 233     EnterFunc(bug("Slider::HandleInput()\n"));
 234     retval = DoSuperMethodA(cl, o, (Msg)msg);
 235     /* Mousemove ? */
 236     if ((ie->ie_Class == IECLASS_RAWMOUSE) && (ie->ie_Code == IECODE_NOBUTTON))
 237     {
 238         LONG top;
 239
 240         /* Get the PGA_Top attribute */
 241         DoSuperMethod(cl, o, OM_GET, PGA_Top, (IPTR) &top);
 242
 243         /* Level changed ? */
 244         if (data->level - data->min != top)
 245         {
 246             data->level = data->min + top;
 247             notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 248         }
 249     }
 250     else
 251     {
 252         if (retval != GMR_MEACTIVE)
 253         {
 254
 255             data->level = data->min + (WORD)*(msg->gpi_Termination);
 256             notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 257         }
 258     }
 259
 260     ReturnInt("Slider::HandleInput", IPTR, retval);
 261 }
 262
 263 /**********************************************************************************************/
 264
 265 IPTR GTSlider__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 266 {
 267     struct SliderData   *data = INST_DATA(cl, g);
 268     IPTR                retval;
 269
 270     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 271     {
 272         DrawImageState(msg->gpr_RPort,
 273                 (struct Image *)data->frame,
 274                 g->LeftEdge - BORDERPROPSPACINGX,
 275                 g->TopEdge  - BORDERPROPSPACINGY,
 276                 IDS_NORMAL,
 277                 msg->gpr_GInfo->gi_DrInfo);
 278
 279     }
 280
 281     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 282
 283     renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 284
 285     ReturnInt("Slider::Render", IPTR, retval);
 286 }
 287
 288 /**********************************************************************************************/
 289
 290 IPTR GTSlider__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 291 {
 292     struct SliderData *data = INST_DATA(cl, o);
 293
 294     if (data->frame) DisposeObject(data->frame);
 295
 296     return DoSuperMethodA(cl, o, msg);
 297 }
 298
 299 /**********************************************************************************************/