workbench/libs/gadtools/mxclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Internal GadTools mx class.
   6     Lang: English
   7 */
   8
   9
  10 #include <proto/exec.h>
  11 #include <exec/libraries.h>
  12 #include <exec/memory.h>
  13 #include <proto/dos.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/classusr.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <intuition/imageclass.h>
  18 #include <intuition/intuition.h>
  19 #include <intuition/cghooks.h>
  20 #include <graphics/rastport.h>
  21 #include <graphics/text.h>
  22 #include <utility/tagitem.h>
  23 #include <devices/inputevent.h>
  24 #include <proto/alib.h>
  25 #include <proto/utility.h>
  26 #include <gadgets/arosmx.h>
  27
  28 #include <string.h> /* memset() */
  29
  30 #define SDEBUG 0
  31 #define DEBUG 0
  32 #include <aros/debug.h>
  33
  34 #include "gadtools_intern.h"
  35
  36 /**********************************************************************************************/
  37
  38 #define GadToolsBase    ((struct GadToolsBase_intern *)cl->cl_UserData)
  39
  40 /**********************************************************************************************/
  41
  42 STATIC VOID mx_setnew(Class *cl, Object *o, struct opSet *msg)
  43 {
  44     struct MXData  *data = INST_DATA(cl, o);
  45     struct TagItem *tag;
  46     struct TagItem *taglist = msg->ops_AttrList;
  47
  48     while ((tag = NextTagItem(&taglist)))
  49     {
  50         switch (tag->ti_Tag)
  51         {
  52             case GA_DrawInfo:
  53                 data->dri = (struct DrawInfo *) tag->ti_Data;
  54                 break;
  55
  56             case GA_TextAttr:
  57                 data->tattr = (struct TextAttr *) tag->ti_Data;
  58                 break;
  59
  60             case GA_LabelPlace:
  61                 data->labelplace = (LONG) tag->ti_Data;
  62                 break;
  63
  64             case GTMX_Active:
  65                 data->active = tag->ti_Data;
  66                 break;
  67
  68             case GTMX_Labels:
  69                 data->labels = (STRPTR *) tag->ti_Data;
  70                 data->numlabels = 0;
  71                 while (data->labels[data->numlabels])
  72                     data->numlabels++;
  73                 break;
  74
  75             case GTMX_Spacing:
  76                 data->spacing = tag->ti_Data;
  77                 break;
  78
  79             case GTMX_TickLabelPlace:
  80                 data->ticklabelplace = (LONG) tag->ti_Data;
  81                 break;
  82         }
  83     }
  84 }
  85
  86 /**********************************************************************************************/
  87
  88 IPTR GTMX__OM_NEW(Class *cl, Object *objcl, struct opSet *msg)
  89 {
  90     struct MXData   *data;
  91     struct TagItem  tags[] =
  92     {
  93         {IA_Width       , 0             },
  94         {IA_Height      , 0             },
  95         {SYSIA_DrawInfo , (IPTR) NULL   },
  96         {SYSIA_Which    , MXIMAGE       },
  97         {TAG_DONE       , 0L            }
  98     };
  99     struct Gadget    *g;
 100
 101     g = (struct Gadget *) DoSuperMethodA(cl, objcl, (Msg)msg);
 102     if (!g)
 103         return (IPTR)NULL;
 104
 105     g->Activation = GACT_IMMEDIATE;
 106
 107     data = INST_DATA(cl, g);
 108
 109     data->dri            = NULL;
 110     data->tattr          = NULL;
 111     data->active         = 0;
 112     data->labels         = NULL;
 113     data->spacing        = 1;
 114     data->labelplace     = GV_LabelPlace_Above;
 115     data->ticklabelplace = GV_LabelPlace_Right;
 116
 117     mx_setnew(cl, (Object *)g, msg);
 118
 119     if (data->tattr)
 120         data->font = OpenFont(data->tattr);
 121
 122     /* Calculate fontheight */
 123     if (data->tattr)
 124         data->fontheight = data->tattr->ta_YSize;
 125     else if ((g->Flags & GFLG_LABELITEXT) && (g->GadgetText))
 126         data->fontheight = g->GadgetText->ITextFont->ta_YSize;
 127     else
 128         data->fontheight = g->Height;
 129
 130     /* Calculate gadget size */
 131     if (g->Width == 0)
 132         g->Width = MX_WIDTH;
 133
 134     g->Height = (data->fontheight + data->spacing) *data->numlabels -
 135                 data->spacing;
 136
 137     tags[0].ti_Data = g->Width;
 138     tags[1].ti_Data = GetTagData(GTMX_TickHeight, MX_HEIGHT, msg->ops_AttrList);
 139     tags[2].ti_Data = (IPTR) data->dri;
 140     data->mximage = (struct Image *) NewObjectA(NULL, SYSICLASS, tags);
 141
 142     if ((!data->dri) || (!data->labels) || (!data->mximage) || (!data->numlabels))
 143     {
 144         CoerceMethod(cl, (Object *)g, OM_DISPOSE);
 145         g = NULL;
 146     }
 147
 148     return (IPTR)g;
 149 }
 150
 151 /**********************************************************************************************/
 152
 153 IPTR GTMX__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 154 {
 155     struct MXData   *data = INST_DATA(cl, o);
 156     IPTR            retval;
 157
 158     if (data->font) CloseFont(data->font);
 159     if (data->mximage) DisposeObject(data->mximage);
 160
 161     retval = DoSuperMethodA(cl, o, msg);
 162
 163     return retval;
 164 }
 165
 166 /**********************************************************************************************/
 167
 168 IPTR GTMX__OM_SET(Class *cl, Object *o, struct opSet *msg)
 169 {
 170     struct MXData   *data = INST_DATA(cl, o);
 171     struct TagItem  *tag;
 172     struct TagItem *taglist = msg->ops_AttrList;
 173     IPTR            retval = FALSE;
 174
 175     if (msg->MethodID != OM_NEW)
 176         retval = DoSuperMethodA(cl, o, (Msg)msg);
 177
 178     while ((tag = NextTagItem(&taglist)))
 179     {
 180         switch (tag->ti_Tag)
 181         {
 182             case GA_Disabled:
 183                 retval = TRUE;
 184                 break;
 185
 186             case GTMX_Active:
 187                 if ((tag->ti_Data >= 0) && (tag->ti_Data < data->numlabels))
 188                 {
 189                     data->active = tag->ti_Data;
 190                     retval = TRUE;
 191                 }
 192                 break;
 193         }
 194     }
 195
 196     if ((retval) && ((msg->MethodID != OM_UPDATE) || (cl == OCLASS(o))))
 197     {
 198         struct RastPort *rp;
 199
 200         rp = ObtainGIRPort(msg->ops_GInfo);
 201         if (rp)
 202         {
 203             DoMethod(o, GM_RENDER, (IPTR)msg->ops_GInfo, (IPTR)rp, GREDRAW_REDRAW);
 204             ReleaseGIRPort(rp);
 205             retval = FALSE;
 206         }
 207     }
 208
 209     return retval;
 210 }
 211
 212 /**********************************************************************************************/
 213
 214 IPTR GTMX__OM_GET(Class *cl, Object *o, struct opGet *msg)
 215 {
 216     struct MXData   *data;
 217     IPTR            retval;
 218
 219     data = INST_DATA(cl, o);
 220
 221     switch (msg->opg_AttrID)
 222     {
 223         case GTA_GadgetKind:
 224         case GTA_ChildGadgetKind:
 225             *(msg->opg_Storage) = MX_KIND;
 226             retval = 1UL;
 227             break;
 228
 229         case GTMX_Active:
 230             *(msg->opg_Storage) = data->active;
 231             retval = 1UL;
 232             break;
 233
 234         default:
 235             retval = DoSuperMethodA(cl, o, (Msg)msg);
 236             break;
 237     }
 238
 239     return retval;
 240 }
 241
 242 /**********************************************************************************************/
 243
 244 IPTR GTMX__GM_RENDER(Class *cl, struct ExtGadget *g, struct gpRender *msg)
 245 {
 246     struct MXData   *data = INST_DATA(cl, g);
 247     WORD            ypos = g->TopEdge;
 248     UWORD           maxtextwidth;
 249     int             y;
 250
 251     if (msg->gpr_Redraw == GREDRAW_UPDATE)
 252     {
 253         /* Only redraw the current and the last tick activated */
 254         DrawImageState(msg->gpr_RPort, data->mximage,
 255                        g->LeftEdge, ypos + data->active *(data->fontheight + data->spacing),
 256                        IDS_NORMAL, data->dri);
 257
 258         DrawImageState(msg->gpr_RPort, data->mximage,
 259                        g->LeftEdge, ypos + data->newactive *(data->fontheight + data->spacing),
 260                        IDS_SELECTED, data->dri);
 261     }
 262     else
 263     {
 264         /* Full redraw */
 265         STRPTR *labels;
 266         WORD minx, miny, maxx, maxy;
 267
 268         if (data->font)
 269             SetFont(msg->gpr_RPort, data->font);
 270         else
 271             SetFont(msg->gpr_RPort, msg->gpr_GInfo->gi_DrInfo->dri_Font);
 272
 273         /* Draw ticks */
 274         for (y=0; y<data->numlabels; y++)
 275         {
 276             ULONG state;
 277
 278             if (y == data->active)
 279                 state = IDS_SELECTED;
 280             else
 281                 state = IDS_NORMAL;
 282             DrawImageState(msg->gpr_RPort, data->mximage,
 283                            g->LeftEdge, ypos,
 284                            state, data->dri);
 285             ypos += data->fontheight + data->spacing;
 286         }
 287
 288         /* Draw labels */
 289         SetABPenDrMd(msg->gpr_RPort,
 290                      data->dri->dri_Pens[TEXTPEN],
 291                      data->dri->dri_Pens[BACKGROUNDPEN],
 292                      JAM1);
 293
 294         ypos = g->TopEdge;
 295
 296         maxtextwidth = 0;
 297
 298         minx = g->LeftEdge;
 299         miny = g->TopEdge;
 300         maxx = minx + g->Width - 1;
 301         maxy = miny + g->Height - 1;
 302
 303         for (labels = data->labels; *labels; labels++)
 304         {
 305             struct TextExtent   te;
 306             WORD                x, y, width, height, len;
 307
 308             x = g->LeftEdge;
 309             y = ypos;
 310
 311             len = strlen(*labels);
 312             TextExtent(msg->gpr_RPort, *labels, len, &te);
 313             width  = te.te_Width;
 314             height = te.te_Height;
 315
 316             if (width > maxtextwidth) maxtextwidth = width;
 317
 318             switch(data->ticklabelplace)
 319             {
 320                 case GV_LabelPlace_Right:
 321                     x += data->mximage->Width + 5;
 322                     y += (data->mximage->Height - height) / 2 + 1;
 323                     break;
 324
 325                 case GV_LabelPlace_Above:
 326                     x += (data->mximage->Width - width) / 2;
 327                     y -= (height + 2);
 328                     break;
 329
 330                 case GV_LabelPlace_Below:
 331                     x += (data->mximage->Width - width) / 2;
 332                     y += (data->mximage->Height + 3);
 333                     break;
 334
 335                 case GV_LabelPlace_In:
 336                     x += (data->mximage->Width - width) / 2;
 337                     y += (data->mximage->Height - height) / 2;
 338                     break;
 339
 340                 default: /* GV_LabelPlace_Left: */
 341                     x -= (width + 4);
 342                     y += (data->mximage->Height - height) / 2 + 1;
 343                     break;
 344             }
 345
 346             Move(msg->gpr_RPort, x, y + msg->gpr_RPort->Font->tf_Baseline);
 347             Text(msg->gpr_RPort, *labels, len);
 348
 349             if (x < minx) minx = x;
 350             if (y < miny) miny = y;
 351             if (x + width - 1 > maxx) maxx = x + width - 1;
 352             if (y + height - 1 > maxy) maxy = y + height - 1;
 353
 354             ypos += data->fontheight + data->spacing;
 355         }
 356
 357         g->BoundsLeftEdge = minx;
 358         g->BoundsTopEdge  = miny;
 359         g->BoundsWidth    = maxx - minx + 1;
 360         g->BoundsHeight   = maxy - miny + 1;
 361         g->MoreFlags |= GMORE_BOUNDS;
 362
 363         data->maxtextwidth = maxtextwidth;
 364
 365         /* Draw main label */
 366
 367         /* bug: this will not be rendered at the correct
 368                 position if ticklabel place and labelplace
 369                 are the same. I don't think any app will
 370                 ever do this:
 371
 372                    x Item 1
 373                    x Item 2 Label
 374                    x Item 3
 375
 376         */
 377
 378         renderlabel(GadToolsBase,
 379                     (struct Gadget *)g,
 380                     msg->gpr_RPort,
 381                     data->labelplace);
 382
 383     }
 384
 385     /* Draw disabled pattern */
 386     if (g->Flags & GFLG_DISABLED)
 387         DoDisabledPattern(msg->gpr_RPort,
 388                           g->LeftEdge,
 389                           g->TopEdge,
 390                           g->LeftEdge + g->Width - 1,
 391                           g->TopEdge + g->Height - 1,
 392                           data->dri->dri_Pens[SHADOWPEN],
 393                           GadToolsBase);
 394
 395     return TRUE;
 396 }
 397
 398 /**********************************************************************************************/
 399
 400 IPTR GTMX__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
 401 {
 402     struct MXData   *data = INST_DATA(cl, o);
 403     int             y, blobheight = data->spacing + data->fontheight;
 404     IPTR            retval = GMR_NOREUSE;
 405
 406     D(bug("blobheight: %d\n", blobheight));
 407
 408     for (y = 0; y < data->numlabels; y++)
 409     {
 410         D(bug("Mouse.Y: %d, y: %d\n", msg->gpi_Mouse.Y, y));
 411         if (msg->gpi_Mouse.Y < blobheight *(y + 1))
 412         {
 413             if (y != data->active)
 414             {
 415                 struct RastPort *rp;
 416
 417                 rp = ObtainGIRPort(msg->gpi_GInfo);
 418                 if (rp)
 419                 {
 420                     data->newactive = y;
 421                     DoMethod(o, GM_RENDER, (IPTR)msg->gpi_GInfo, (IPTR)rp, GREDRAW_UPDATE);
 422                     ReleaseGIRPort(rp);
 423                     *msg->gpi_Termination = data->active = y;
 424                     retval |= GMR_VERIFY;
 425                 }
 426             }
 427             y = data->numlabels;
 428         }
 429     }
 430
 431     return retval;
 432 }
 433
 434 /**********************************************************************************************/