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     IPTR                retval = 0UL;
  61     const struct TagItem *tstate;
  62     struct TagItem      *tag, *dosuper_tags, tags[] =
  63     {
  64         {PGA_Total      , 0     },
  65         {PGA_Top        , 0     },
  66         {TAG_MORE       , 0     }
  67     };
  68     struct SliderData   *data = INST_DATA(cl, o);
  69
  70     BOOL                val_set = FALSE;
  71
  72     EnterFunc(bug("Slider::Set(attrlist=%p)\n", msg->ops_AttrList));
  73     dosuper_tags = msg->ops_AttrList;
  74
  75     tstate = msg->ops_AttrList;
  76     while ((tag = NextTagItem(&tstate)))
  77     {
  78         IPTR tidata = tag->ti_Data;
  79
  80         switch (tag->ti_Tag)
  81         {
  82             case GTSL_Min:
  83                 data->min = (WORD)tidata;
  84                 val_set = TRUE;
  85                 break;
  86
  87             case GTSL_Max:
  88                 data->max = (WORD)tidata;
  89                 val_set = TRUE;
  90                 break;
  91
  92             case GTSL_Level:    /* [ISN] */
  93                 if (tidata != data->level)
  94                 {
  95                     data->level = data->freedom==FREEHORIZ?(WORD)tidata:data->max-(WORD)tidata+data->min;
  96                     notifylevel(cl, o, data->level, msg->ops_GInfo, GadToolsBase);
  97                     val_set = TRUE;
  98
  99                 }
 100                 break;
 101
 102         } /* switch () */
 103
 104     } /* while (iterate taglist) */
 105
 106     if (val_set)
 107     {
 108         tags[0].ti_Data = data->max - data->min + 1;
 109         tags[1].ti_Data = data->level - data->min;
 110         tags[2].ti_Data = (IPTR)msg->ops_AttrList;
 111
 112         dosuper_tags = tags;
 113
 114         retval = 1UL;
 115     }
 116
 117     ReturnInt ("Slider::Set", IPTR, DoSuperMethod(cl, o, OM_SET, (IPTR) dosuper_tags, (IPTR) msg->ops_GInfo));
 118 }
 119
 120 /**********************************************************************************************/
 121
 122 IPTR GTSlider__OM_NEW(Class * cl, Object * o, struct opSet *msg)
 123 {
 124     struct DrawInfo     *dri;
 125
 126     struct TagItem      fitags[] =
 127     {
 128         {IA_Width       , 0UL           },
 129         {IA_Height      , 0UL           },
 130         {IA_Resolution  , 0UL           },
 131         {IA_FrameType   , FRAME_BUTTON  },
 132         {IA_EdgesOnly   , TRUE          },
 133         {TAG_DONE                       }
 134     };
 135
 136     EnterFunc(bug("Slider::New()\n"));
 137
 138     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
 139     if (o)
 140     {
 141         struct SliderData *data = INST_DATA(cl, o);
 142
 143         dri = (struct DrawInfo *)GetTagData(GA_DrawInfo, (IPTR) NULL, msg->ops_AttrList);
 144
 145         fitags[0].ti_Data = GetTagData(GA_Width, 0, msg->ops_AttrList) + BORDERPROPSPACINGX * 2;
 146         fitags[1].ti_Data = GetTagData(GA_Height, 0, msg->ops_AttrList) + BORDERPROPSPACINGY * 2;
 147         fitags[2].ti_Data = (dri->dri_Resolution.X << 16) + dri->dri_Resolution.Y;
 148
 149         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
 150         if (data->frame)
 151         {
 152             data->freedom=GetTagData(PGA_Freedom,FREEHORIZ,msg->ops_AttrList);
 153
 154             data->min   = 0;
 155             data->max   = 15;
 156             data->level = data->freedom==FREEHORIZ?data->min:data->max;
 157
 158             GTSlider__OM_SET(cl, o, msg);
 159
 160             data->labelplace = GetTagData(GA_LabelPlace, GV_LabelPlace_Left, msg->ops_AttrList);
 161         } else {
 162             CoerceMethod(cl, o, OM_DISPOSE);
 163             o = NULL;
 164         }
 165     }
 166     ReturnPtr("Slider::New", IPTR, (IPTR)o);
 167
 168 }
 169
 170 /**********************************************************************************************/
 171
 172 IPTR GTSlider__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
 173 {
 174     IPTR                retval;
 175     struct SliderData   *data = INST_DATA(cl, o);
 176
 177     EnterFunc(bug("Slider::GoActive()\n"));
 178     retval = DoSuperMethodA(cl, o, (Msg)msg);
 179
 180     if (retval != GMR_MEACTIVE)
 181     {
 182         data->level = data->min + (WORD)*(msg->gpi_Termination);
 183         notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 184     }
 185     ReturnInt("Slider::Goactive", IPTR, retval);
 186 }
 187
 188 /**********************************************************************************************/
 189
 190 IPTR GTSlider__OM_GET(Class *cl, Object *o, struct opGet *msg)
 191 {
 192     struct SliderData   *data = INST_DATA(cl, o);
 193     IPTR                retval = 1UL;
 194
 195     switch (msg->opg_AttrID)
 196     {
 197         case GTA_GadgetKind:
 198         case GTA_ChildGadgetKind:
 199             *msg->opg_Storage = SLIDER_KIND;
 200             break;
 201
 202         case GTSL_Level:
 203           *msg->opg_Storage = data->freedom==FREEHORIZ?data->level:data->max-data->level+data->min;
 204           break;
 205
 206         case GTSL_Max:
 207             *msg->opg_Storage = data->max;
 208             break;
 209
 210         case GTSL_Min:
 211             *msg->opg_Storage = data->min;
 212             break;
 213
 214         default:
 215             retval = DoSuperMethodA(cl, o, (Msg)msg);
 216             break;
 217     }
 218
 219     return retval;
 220 }
 221
 222 /**********************************************************************************************/
 223
 224 IPTR GTSlider__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
 225 {
 226     struct InputEvent   *ie = msg->gpi_IEvent;
 227     IPTR                retval;
 228     struct SliderData   *data = INST_DATA(cl ,o);
 229
 230     EnterFunc(bug("Slider::HandleInput()\n"));
 231     retval = DoSuperMethodA(cl, o, (Msg)msg);
 232     /* Mousemove ? */
 233     if ((ie->ie_Class == IECLASS_RAWMOUSE) && (ie->ie_Code == IECODE_NOBUTTON))
 234     {
 235         LONG top;
 236
 237         /* Get the PGA_Top attribute */
 238         DoSuperMethod(cl, o, OM_GET, PGA_Top, (IPTR) &top);
 239
 240         /* Level changed ? */
 241         if (data->level - data->min != top)
 242         {
 243             data->level = data->min + top;
 244             notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 245         }
 246     }
 247     else
 248     {
 249         if (retval != GMR_MEACTIVE)
 250         {
 251
 252             data->level = data->min + (WORD)*(msg->gpi_Termination);
 253             notifylevel(cl, o, data->level, msg->gpi_GInfo, GadToolsBase);
 254         }
 255     }
 256
 257     ReturnInt("Slider::HandleInput", IPTR, retval);
 258 }
 259
 260 /**********************************************************************************************/
 261
 262 IPTR GTSlider__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 263 {
 264     struct SliderData   *data = INST_DATA(cl, g);
 265     IPTR                retval;
 266
 267     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 268     {
 269         DrawImageState(msg->gpr_RPort,
 270                 (struct Image *)data->frame,
 271                 g->LeftEdge - BORDERPROPSPACINGX,
 272                 g->TopEdge  - BORDERPROPSPACINGY,
 273                 IDS_NORMAL,
 274                 msg->gpr_GInfo->gi_DrInfo);
 275
 276     }
 277
 278     retval = DoSuperMethodA(cl, (Object *)g, (Msg)msg);
 279
 280     renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 281
 282     ReturnInt("Slider::Render", IPTR, retval);
 283 }
 284
 285 /**********************************************************************************************/
 286
 287 IPTR GTSlider__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 288 {
 289     struct SliderData *data = INST_DATA(cl, o);
 290
 291     if (data->frame) DisposeObject(data->frame);
 292
 293     return DoSuperMethodA(cl, o, msg);
 294 }
 295
 296 /**********************************************************************************************/