workbench/libs/muimaster/classes/scrollbutton.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7 #include <stdlib.h>
   8 #include <stdio.h>
   9
  10 #include <intuition/intuitionbase.h>
  11
  12 #include <clib/alib_protos.h>
  13 #include <proto/exec.h>
  14 #include <proto/utility.h>
  15 #include <proto/intuition.h>
  16 #include <proto/muimaster.h>
  17
  18 #include "mui.h"
  19 #include "muimaster_intern.h"
  20 #include "support.h"
  21
  22 extern struct Library *MUIMasterBase;
  23
  24 struct Scrollbutton_DATA
  25 {
  26   WORD mx,my;
  27   WORD cx,cy;
  28   ULONG pos;
  29   Object *horiz_prop;
  30   Object *vert_prop;
  31   struct MUI_EventHandlerNode ehn;
  32 };
  33
  34
  35 IPTR Scrollbutton__OM_NEW(struct IClass * cl, Object * o, struct opSet * msg)
  36 {
  37   return (ULONG) DoSuperNewTags(cl, o, NULL,
  38         ButtonFrame,
  39         MUIA_InputMode, MUIV_InputMode_RelVerify,
  40         MUIA_Background, MUII_ButtonBack,
  41         TAG_MORE, (IPTR) msg->ops_AttrList);
  42 }
  43
  44 IPTR Scrollbutton__OM_GET(struct IClass * cl, Object * o, struct opGet * msg)
  45 {
  46     struct Scrollbutton_DATA *data = (struct Scrollbutton_DATA *) INST_DATA(cl, o);
  47     switch (msg->opg_AttrID)
  48     {
  49         case    MUIA_Scrollbutton_NewPosition:
  50                 *msg->opg_Storage = data->pos;
  51                 return TRUE;
  52
  53         case    MUIA_Scrollbutton_HorizProp:
  54                 *msg->opg_Storage = (ULONG)data->horiz_prop;
  55                 return TRUE;
  56
  57         case    MUIA_Scrollbutton_VertProp:
  58                 *msg->opg_Storage = (ULONG)data->horiz_prop;
  59                 return TRUE;
  60
  61         default:
  62                 return DoSuperMethodA(cl, o, (Msg) msg);
  63     }
  64 }
  65
  66 IPTR Scrollbutton__OM_SET(struct IClass * cl, Object * o, struct opSet * msg)
  67 {
  68     struct Scrollbutton_DATA *data = (struct Scrollbutton_DATA *) INST_DATA(cl, o);
  69     struct TagItem *tl = msg->ops_AttrList;
  70     struct TagItem *ti;
  71
  72     while ((ti = NextTagItem(&tl)))
  73     {
  74         switch (ti->ti_Tag)
  75         {
  76             case    MUIA_Scrollbutton_Horiz:
  77                     data->cx = ti->ti_Data;
  78                     break;
  79
  80             case    MUIA_Scrollbutton_Vert:
  81                     data->cy = ti->ti_Data;
  82                     break;
  83         }
  84     }
  85     return DoSuperMethodA(cl, o, (Msg) msg);
  86 }
  87
  88 IPTR Scrollbutton__MUIM_AskMinMax(struct IClass *cl, Object *o, struct MUIP_AskMinMax *msg)
  89 {
  90     DoSuperMethodA(cl, o, (Msg) msg);
  91
  92     msg->MinMaxInfo->MinWidth += 2;
  93     msg->MinMaxInfo->DefWidth += 2;
  94     msg->MinMaxInfo->MaxWidth += MUI_MAXMAX;
  95
  96     msg->MinMaxInfo->MinHeight += 2;
  97     msg->MinMaxInfo->DefHeight += 2;
  98     msg->MinMaxInfo->MaxHeight += MUI_MAXMAX;
  99     return 0;
 100 }
 101
 102 IPTR Scrollbutton__MUIM_Setup(struct IClass * cl, Object * o, Msg msg)
 103 {
 104     struct Scrollbutton_DATA *data = (struct Scrollbutton_DATA *) INST_DATA(cl, o);
 105     if (!DoSuperMethodA(cl, o, msg))
 106         return FALSE;
 107
 108     data->ehn.ehn_Events   = IDCMP_MOUSEBUTTONS;
 109     data->ehn.ehn_Priority = 0;
 110     data->ehn.ehn_Flags    = 0;
 111     data->ehn.ehn_Object   = o;
 112     data->ehn.ehn_Class    = cl;
 113
 114     DoMethod(_win(o), MUIM_Window_AddEventHandler, (IPTR)&data->ehn);
 115
 116     return TRUE;
 117 }
 118
 119 IPTR Scrollbutton__MUIM_Cleanup(struct IClass * cl, Object * o, Msg msg)
 120 {
 121     struct Scrollbutton_DATA *data = (struct Scrollbutton_DATA *) INST_DATA(cl, o);
 122     DoMethod(_win(o), MUIM_Window_RemEventHandler, (IPTR)&data->ehn);
 123     DoSuperMethodA(cl, o, msg);
 124     return 0;
 125 }
 126
 127 IPTR Scrollbutton__MUIM_HandleEvent(struct IClass * cl, Object * o, struct MUIP_HandleEvent * msg)
 128 {
 129     struct Scrollbutton_DATA *data = (struct Scrollbutton_DATA *) INST_DATA(cl, o);
 130     if (msg->imsg)
 131     {
 132         switch (msg->imsg->Class)
 133         {
 134             case    IDCMP_MOUSEBUTTONS:
 135                     if (msg->imsg->Code == SELECTDOWN)
 136                     {
 137                         if (msg->imsg->MouseX >= _left(o) && msg->imsg->MouseX <= _right(o) && msg->imsg->MouseY >= _top(o) && msg->imsg->MouseY <= _bottom(o))
 138                         {
 139                             DoMethod(_win(o), MUIM_Window_RemEventHandler, (IPTR)&data->ehn);
 140                             data->ehn.ehn_Events |= IDCMP_MOUSEMOVE;
 141                             DoMethod(_win(o), MUIM_Window_AddEventHandler, (IPTR)&data->ehn);
 142
 143                             set(o,MUIA_Selected, TRUE);
 144                             data->mx = msg->imsg->MouseX;
 145                             data->my = msg->imsg->MouseY;
 146
 147                         }
 148                     } else
 149                     {
 150                         if (data->ehn.ehn_Events & IDCMP_MOUSEMOVE)
 151                         {
 152                             DoMethod(_win(o), MUIM_Window_RemEventHandler, (IPTR)&data->ehn);
 153                             data->ehn.ehn_Events &= ~IDCMP_MOUSEMOVE;
 154                             DoMethod(_win(o), MUIM_Window_AddEventHandler, (IPTR)&data->ehn);
 155
 156                             set(o,MUIA_Selected, FALSE);
 157                         }
 158                     }
 159                     break;
 160
 161             case    IDCMP_MOUSEMOVE:
 162                     {
 163                         int sel;
 164                         get(o,MUIA_Selected, &sel);
 165                         if (sel)
 166                         {
 167                             UWORD x = (msg->imsg->MouseX - data->mx) + data->cx;
 168                             UWORD y = (msg->imsg->MouseY - data->my) + data->cy;
 169                             ULONG pos = x << 16 | y;
 170
 171                             data->pos = pos;
 172                             set(o,MUIA_Scrollbutton_NewPosition,pos);
 173                         }
 174                         break;
 175                     }
 176         }
 177     }
 178     return 0;
 179 }
 180
 181
 182 BOOPSI_DISPATCHER(IPTR, Scrollbutton_Dispatcher, cl, obj, msg)
 183 {
 184     switch (msg->MethodID)
 185     {
 186         case OM_NEW:           return Scrollbutton__OM_NEW(cl, obj, (struct opSet *) msg);
 187         case OM_GET:           return Scrollbutton__OM_GET(cl, obj, (struct opGet *) msg);
 188         case OM_SET:           return Scrollbutton__OM_SET(cl, obj, (struct opSet *) msg);
 189         case MUIM_AskMinMax:   return Scrollbutton__MUIM_AskMinMax(cl, obj, (struct MUIP_AskMinMax *) msg);
 190         case MUIM_Setup:       return Scrollbutton__MUIM_Setup(cl, obj, msg);
 191         case MUIM_Cleanup:     return Scrollbutton__MUIM_Cleanup(cl, obj, msg);
 192         case MUIM_HandleEvent: return Scrollbutton__MUIM_HandleEvent(cl, obj, (struct MUIP_HandleEvent *) msg);
 193         default:               return DoSuperMethodA(cl, obj, msg);
 194     }
 195 }
 196 BOOPSI_DISPATCHER_END
 197
 198 const struct __MUIBuiltinClass _MUI_Scrollbutton_desc =
 199 {
 200     MUIC_Scrollbutton,
 201     MUIC_Area,
 202     sizeof(struct Scrollbutton_DATA),
 203     (void*)Scrollbutton_Dispatcher
 204 };