workbench/libs/muimaster/classes/numericbutton.c

   1 /*
   2     Copyright  2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #include <exec/memory.h>
   9 #include <clib/alib_protos.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/intuition.h>
  13 #include <proto/graphics.h>
  14 #include <proto/utility.h>
  15 #include <proto/muimaster.h>
  16
  17 #include <string.h>
  18 #include <stdio.h>
  19
  20 #include "mui.h"
  21 #include "muimaster_intern.h"
  22 #include "support.h"
  23 #include "frame.h"
  24 #include "support_classes.h"
  25 #include "prefs.h"
  26 #include "imspec.h"
  27 #include "debug.h"
  28 #include "numericbutton_private.h"
  29
  30 extern struct Library *MUIMasterBase;
  31
  32 #define longget(obj,attr,var) \
  33     do \
  34     { \
  35             IPTR _iptr_var = *(var); \
  36         get(obj,attr,&_iptr_var); \
  37         *var = (LONG)_iptr_var; \
  38     } while(0)
  39
  40 IPTR Numericbutton__OM_NEW(struct IClass *cl, Object *obj,
  41     struct opSet *msg)
  42 {
  43     obj = (Object *) DoSuperNewTags(cl, obj, NULL,
  44         MUIA_Background, MUII_ButtonBack,
  45         MUIA_Frame, MUIV_Frame_Button,
  46         TAG_MORE, (IPTR) msg->ops_AttrList);
  47
  48     if (obj)
  49     {
  50         struct Numericbutton_DATA *data = INST_DATA(cl, obj);
  51
  52         data->ehn.ehn_Events = IDCMP_MOUSEBUTTONS;
  53         data->ehn.ehn_Priority = 0;
  54         data->ehn.ehn_Flags = 0;
  55         data->ehn.ehn_Object = obj;
  56         data->ehn.ehn_Class = cl;
  57     }
  58
  59     return (IPTR) obj;
  60 }
  61
  62 /**************************************************************************
  63  OM_SET
  64 **************************************************************************/
  65 static ULONG Numericbutton__OM_SET(struct IClass *cl, Object *obj,
  66     struct opSet *msg)
  67 {
  68     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
  69     struct TagItem *tags;
  70     struct TagItem *tag;
  71
  72     for (tags = msg->ops_AttrList; (tag = NextTagItem(&tags));)
  73     {
  74         switch (tag->ti_Tag)
  75         {
  76         case MUIA_Numeric_Max:
  77             if (tag->ti_Data != XGET(obj, MUIA_Numeric_Max))
  78                 data->needs_to_recalculate_sizes = TRUE;
  79             break;
  80         case MUIA_Numeric_Min:
  81             if (tag->ti_Data != XGET(obj, MUIA_Numeric_Min))
  82                 data->needs_to_recalculate_sizes = TRUE;
  83             break;
  84         case MUIA_Numeric_Format:
  85             if (tag->ti_Data != XGET(obj, MUIA_Numeric_Format))
  86                 data->needs_to_recalculate_sizes = TRUE;
  87             break;
  88         }
  89     }
  90
  91     return DoSuperMethodA(cl, obj, (Msg) msg);
  92 }
  93
  94 IPTR Numericbutton__MUIM_Setup(struct IClass *cl, Object *obj,
  95     struct MUIP_Setup *msg)
  96 {
  97     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
  98 //  const struct ZuneFrameGfx *knob_frame;
  99     IPTR retval;
 100
 101     retval = DoSuperMethodA(cl, obj, (Msg) msg);
 102     if (retval)
 103     {
 104         //knob_frame = zune_zframe_get(obj,
 105         //    &muiGlobalInfo(obj)->mgi_Prefs->frames[MUIV_Frame_Knob]);
 106
 107         data->knob_bg =
 108             zune_imspec_setup(MUII_ButtonBack, muiRenderInfo(obj));
 109
 110         DoMethod(_win(obj), MUIM_Window_AddEventHandler,
 111             (IPTR) & data->ehn);
 112
 113         data->needs_to_recalculate_sizes = TRUE;
 114     }
 115
 116     return retval;
 117 }
 118
 119 IPTR Numericbutton__MUIM_Cleanup(struct IClass *cl, Object *obj,
 120     struct MUIP_Cleanup *msg)
 121 {
 122     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
 123
 124     if (data->knob_bg)
 125     {
 126         zune_imspec_cleanup(data->knob_bg);
 127         data->knob_bg = NULL;
 128     }
 129
 130     DoMethod(_win(obj), MUIM_Window_RemEventHandler, (IPTR) & data->ehn);
 131
 132     return DoSuperMethodA(cl, obj, (Msg) msg);
 133 }
 134
 135 /**************************************************************************
 136  MUIM_AskMinMax
 137 **************************************************************************/
 138 IPTR Numericbutton__MUIM_AskMinMax(struct IClass *cl, Object *obj,
 139     struct MUIP_AskMinMax *msg)
 140 {
 141     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
 142
 143     DoSuperMethodA(cl, obj, (Msg) msg);
 144
 145     if (data->needs_to_recalculate_sizes)
 146     {
 147         struct RastPort rp;
 148         LONG min = 0, max = 0, val, width;
 149
 150         InitRastPort(&rp);
 151         SetFont(&rp, _font(obj));
 152
 153         width = 0;
 154
 155         longget(obj, MUIA_Numeric_Min, &min);
 156         longget(obj, MUIA_Numeric_Max, &max);
 157
 158         /* Determine the width of the knob */
 159         for (val = min; val <= max; val++)
 160         {
 161             LONG nw;
 162             char *buf;
 163
 164             buf = (char *)DoMethod(obj, MUIM_Numeric_Stringify, val);
 165             nw = TextLength(&rp, buf, strlen(buf));
 166
 167             if (nw > width)
 168                 width = nw;
 169         }
 170
 171         data->max_text_width = width;
 172         data->text_height = _font(obj)->tf_YSize;
 173
 174         data->needs_to_recalculate_sizes = FALSE;
 175     }
 176
 177     msg->MinMaxInfo->MinWidth += data->max_text_width;
 178     msg->MinMaxInfo->MinHeight += data->text_height;
 179     msg->MinMaxInfo->DefWidth += data->max_text_width;
 180     msg->MinMaxInfo->DefHeight += data->text_height;
 181     msg->MinMaxInfo->MaxWidth += data->max_text_width;
 182     msg->MinMaxInfo->MaxHeight += data->text_height;
 183
 184     return TRUE;
 185 }
 186
 187 static void DrawKnob(Object *obj, struct Numericbutton_DATA *data,
 188     BOOL force)
 189 {
 190     struct RastPort *rp, *saverp;
 191     LONG x, val, pixeloffset, textlen, pixellen;
 192     STRPTR text;
 193
 194     pixeloffset =
 195         data->popwin->MouseX - data->pop_innerx - 2 -
 196         data->knob_clickoffset_x;
 197
 198     val = DoMethod(obj, MUIM_Numeric_ScaleToValue, 0,
 199         data->pop_innerw - data->knob_width, pixeloffset);
 200
 201     data->knob_left = data->pop_innerx + pixeloffset;
 202     data->knob_top = data->pop_innery;
 203     data->knob_val = val;
 204
 205     if (!force && (data->knob_left == data->knob_prev_left))
 206     {
 207         return;
 208     }
 209     data->knob_prev_left = data->knob_left;
 210
 211     if (data->knob_left < data->pop_innerx)
 212     {
 213         data->knob_left = data->pop_innerx;
 214     }
 215     else if (data->knob_left >
 216         data->pop_innerx + data->pop_innerw - data->knob_width)
 217     {
 218         data->knob_left =
 219             data->pop_innerx + data->pop_innerw - data->knob_width;
 220     }
 221
 222     saverp = _rp(obj);
 223     _rp(obj) = rp = data->popwin->RPort;
 224
 225     SetABPenDrMd(rp, _pens(obj)[MPEN_SHINE], 0, JAM1);
 226     RectFill(rp, data->knob_left, data->knob_top,
 227         data->knob_left, data->knob_top + data->knob_height - 1);
 228     RectFill(rp, data->knob_left + 1, data->knob_top,
 229         data->knob_left + data->knob_width - 1, data->knob_top);
 230     SetAPen(rp, _pens(obj)[MPEN_SHADOW]);
 231     RectFill(rp, data->knob_left + data->knob_width - 1, data->knob_top + 1,
 232         data->knob_left + data->knob_width - 1,
 233         data->knob_top + data->knob_height - 1);
 234     RectFill(rp, data->knob_left + 1,
 235         data->knob_top + data->knob_height - 1,
 236         data->knob_left + data->knob_width - 2,
 237         data->knob_top + data->knob_height - 1);
 238
 239     if (data->knob_bg)
 240     {
 241         // FIXME: Ugly hack?
 242
 243         struct IBox old_mad_Box = muiAreaData(obj)->mad_Box;
 244
 245         muiAreaData(obj)->mad_Box.Left = data->knob_left + 1;
 246         muiAreaData(obj)->mad_Box.Top = data->knob_top + 1;
 247         muiAreaData(obj)->mad_Box.Width = data->knob_width - 2;
 248         muiAreaData(obj)->mad_Box.Height = data->knob_height - 2;
 249
 250         zune_imspec_draw(data->knob_bg, muiRenderInfo(obj),
 251             data->knob_left + 1,
 252             data->knob_top + 1,
 253             data->knob_width - 2, data->knob_height - 2, 0, 0, 0);
 254
 255         muiAreaData(obj)->mad_Box = old_mad_Box;
 256     }
 257     else
 258     {
 259         SetAPen(rp, _pens(obj)[MPEN_BACKGROUND]);
 260         RectFill(rp, data->knob_left + 1, data->knob_top + 1,
 261             data->knob_left + data->knob_width - 2,
 262             data->knob_top + data->knob_height - 2);
 263     }
 264
 265     SetFont(rp, _font(obj));
 266
 267     text = (STRPTR) DoMethod(obj, MUIM_Numeric_Stringify, val);
 268     textlen = strlen(text);
 269     pixellen = TextLength(_rp(obj), text, textlen);
 270
 271     SetAPen(rp, _pens(obj)[MPEN_TEXT]);
 272     Move(rp, data->knob_left + 2 + (data->knob_width - 4 - pixellen) / 2,
 273         data->knob_top + 1 + rp->TxBaseline);
 274     Text(rp, text, textlen);
 275
 276     SetAPen(rp, _pens(obj)[MPEN_BACKGROUND]);
 277
 278     if (data->knob_left - 1 >= data->pop_innerx)
 279     {
 280         RectFill(rp, data->pop_innerx, data->pop_innery,
 281             data->knob_left - 1, data->pop_innery + data->pop_innerh - 1);
 282     }
 283
 284     x = data->knob_left + data->knob_width;
 285     if (x <= data->pop_innerx + data->pop_innerw - 1)
 286     {
 287         RectFill(rp, x, data->pop_innery,
 288             data->pop_innerx + data->pop_innerw - 1,
 289             data->pop_innery + data->pop_innerh - 1);
 290     }
 291
 292     _rp(obj) = saverp;
 293 }
 294
 295 static void KillPopupWin(Object *obj, struct Numericbutton_DATA *data)
 296 {
 297     if (data->popwin)
 298     {
 299         CloseWindow(data->popwin);
 300         data->popwin = NULL;
 301     }
 302
 303     if (data->ehn.ehn_Events & IDCMP_MOUSEMOVE)
 304     {
 305         DoMethod(_win(obj), MUIM_Window_RemEventHandler,
 306             (IPTR) & data->ehn);
 307         data->ehn.ehn_Events &= ~IDCMP_MOUSEMOVE;
 308         DoMethod(_win(obj), MUIM_Window_AddEventHandler,
 309             (IPTR) & data->ehn);
 310     }
 311
 312 }
 313
 314 static BOOL MakePopupWin(Object *obj, struct Numericbutton_DATA *data)
 315 {
 316     const struct ZuneFrameGfx *zframe;
 317     struct RastPort *rp, *saverp;
 318     LONG winx, winy, winw, winh;
 319     LONG framew, frameh;
 320     LONG min = 0, max = 0;
 321
 322     zframe =
 323         zune_zframe_get_with_state(obj,
 324         &muiGlobalInfo(obj)->mgi_Prefs->frames[MUIV_Frame_Slider],
 325         muiGlobalInfo(obj)->mgi_Prefs->frames[MUIV_Frame_Slider].state);
 326
 327     data->pop_innerx = zframe->ileft;
 328     data->pop_innery = zframe->itop;
 329
 330     data->knob_width = data->max_text_width + 4;
 331     data->knob_height = data->text_height + 2;
 332
 333     framew = data->pop_innerx + zframe->iright;
 334     frameh = data->pop_innery + zframe->ibottom;
 335
 336     longget(obj, MUIA_Numeric_Min, &min);
 337     longget(obj, MUIA_Numeric_Max, &max);
 338
 339     winw = max - min + data->knob_width + framew;
 340     winh = data->knob_height + frameh;
 341
 342     if (winw > _screen(obj)->Width)
 343     {
 344         winw = _screen(obj)->Width;
 345     }
 346
 347     if ((winw < data->knob_width + framew) || (winh > _screen(obj)->Height))
 348     {
 349         return FALSE;
 350     }
 351
 352     data->pop_innerw = winw - framew;
 353     data->pop_innerh = winh - frameh;
 354
 355     data->knob_left =
 356         DoMethod(obj, MUIM_Numeric_ValueToScale, 0,
 357         data->pop_innerw - data->knob_width);
 358
 359     winx = _window(obj)->LeftEdge + _mleft(obj) -
 360         data->pop_innerx - 2 - data->knob_left;
 361     winy = _window(obj)->TopEdge + _mtop(obj) - 1 - data->pop_innery;
 362
 363     data->popwin =
 364         OpenWindowTags(NULL, WA_CustomScreen, (IPTR) _screen(obj), WA_Left,
 365         winx, WA_Top, winy, WA_Width, winw, WA_Height, winh, WA_AutoAdjust,
 366         TRUE, WA_Borderless, TRUE, WA_Activate, FALSE, WA_BackFill,
 367         (IPTR) LAYERS_NOBACKFILL, TAG_DONE);
 368
 369     if (!data->popwin)
 370     {
 371         return FALSE;
 372     }
 373
 374     rp = data->popwin->RPort;
 375
 376     saverp = _rp(obj);
 377     _rp(obj) = rp;
 378     zframe->draw(zframe->customframe, muiRenderInfo(obj), 0, 0, winw, winh,
 379         0, 0, winw, winh);
 380
 381     DrawKnob(obj, data, TRUE);
 382
 383
 384     _rp(obj) = saverp;
 385
 386     return TRUE;
 387
 388 }
 389
 390 /**************************************************************************
 391  MUIM_Show
 392 **************************************************************************/
 393 IPTR Numericbutton__MUIM_Show(struct IClass *cl, Object *obj,
 394     struct MUIP_Show *msg)
 395 {
 396     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
 397     IPTR retval;
 398
 399     retval = DoSuperMethodA(cl, obj, (Msg) msg);
 400
 401     if (data->knob_bg)
 402         zune_imspec_show(data->knob_bg, obj);
 403
 404     return retval;
 405 }
 406
 407 /**************************************************************************
 408  MUIM_Hide
 409 **************************************************************************/
 410 IPTR Numericbutton__MUIM_Hide(struct IClass *cl, Object *obj,
 411     struct MUIP_Hide *msg)
 412 {
 413     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
 414
 415     if (data->popwin)
 416     {
 417         KillPopupWin(obj, data);
 418     }
 419
 420     if (data->knob_bg)
 421         zune_imspec_hide(data->knob_bg);
 422
 423     return DoSuperMethodA(cl, obj, (Msg) msg);
 424 }
 425
 426
 427 /**************************************************************************
 428  MUIM_Draw
 429 **************************************************************************/
 430 IPTR Numericbutton__MUIM_Draw(struct IClass *cl, Object *obj,
 431     struct MUIP_Draw *msg)
 432 {
 433     IPTR val = 0;
 434     char *buf;
 435     int width;
 436
 437     DoSuperMethodA(cl, obj, (Msg) msg);
 438
 439     if (!(msg->flags & (MADF_DRAWOBJECT | MADF_DRAWUPDATE)))
 440         return FALSE;
 441
 442     DoMethod(obj, MUIM_DrawBackground, _mleft(obj), _mtop(obj),
 443         _mwidth(obj), _mheight(obj), _mleft(obj), _mtop(obj), 0);
 444
 445     SetFont(_rp(obj), _font(obj));
 446     SetABPenDrMd(_rp(obj), _pens(obj)[MPEN_TEXT],
 447         _pens(obj)[MPEN_BACKGROUND], JAM1);
 448
 449     get(obj, MUIA_Numeric_Value, &val);
 450     buf = (char *)DoMethod(obj, MUIM_Numeric_Stringify, val);
 451     width = TextLength(_rp(obj), buf, strlen(buf));
 452
 453     Move(_rp(obj), _mleft(obj) + (_mwidth(obj) - width) / 2,
 454         _mtop(obj) + _font(obj)->tf_Baseline);
 455
 456     Text(_rp(obj), buf, strlen(buf));
 457
 458     return TRUE;
 459 }
 460
 461 /**************************************************************************
 462  MUIM_HandleEvent
 463 **************************************************************************/
 464 IPTR Numericbutton__MUIM_HandleEvent(struct IClass *cl, Object *obj,
 465     struct MUIP_HandleEvent *msg)
 466 {
 467     struct Numericbutton_DATA *data = INST_DATA(cl, obj);
 468
 469     if (!msg->imsg)
 470     {
 471         return 0;
 472     }
 473
 474     switch (msg->imsg->Class)
 475     {
 476     case IDCMP_MOUSEBUTTONS:
 477         switch (msg->imsg->Code)
 478         {
 479         case SELECTDOWN:
 480             if (_between(_left(obj), msg->imsg->MouseX, _right(obj)) &&
 481                 _between(_top(obj), msg->imsg->MouseY, _bottom(obj)) &&
 482                 (muiAreaData(obj)->mad_Flags & MADF_CANDRAW) &&
 483                 !data->popwin)
 484             {
 485                 data->knob_clickoffset_x = msg->imsg->MouseX - _mleft(obj);
 486
 487                 if (MakePopupWin(obj, data))
 488                 {
 489                     DoMethod(_win(obj), MUIM_Window_RemEventHandler,
 490                         (IPTR) & data->ehn);
 491                     data->ehn.ehn_Events |= IDCMP_MOUSEMOVE;
 492                     DoMethod(_win(obj), MUIM_Window_AddEventHandler,
 493                         (IPTR) & data->ehn);
 494
 495                     return 0;
 496                 }
 497             }
 498             break;
 499
 500         case SELECTUP:
 501         case MENUUP:
 502         case MIDDLEUP:
 503         default:
 504             if (data->popwin)
 505             {
 506                 KillPopupWin(obj, data);
 507                 if ((msg->imsg->Code == SELECTUP))
 508                 {
 509                     set(obj, MUIA_Numeric_Value, data->knob_val);
 510                 }
 511                 return 0;
 512             }
 513             break;
 514
 515
 516         }                       /* switch(msg->imsg->Code) */
 517         break;
 518
 519     case IDCMP_MOUSEMOVE:
 520         if (data->popwin)
 521         {
 522             DrawKnob(obj, data, FALSE);
 523
 524             return 0;
 525         }
 526         break;
 527
 528     }                           /* switch(msg->imsg->Class) */
 529
 530     return 0;
 531 }
 532
 533
 534 #if ZUNE_BUILTIN_NUMERICBUTTON
 535 BOOPSI_DISPATCHER(IPTR, Numericbutton_Dispatcher, cl, obj, msg)
 536 {
 537     switch (msg->MethodID)
 538     {
 539     case OM_NEW:
 540         return Numericbutton__OM_NEW(cl, obj, (struct opSet *)msg);
 541     case OM_SET:
 542         return Numericbutton__OM_SET(cl, obj, (struct opSet *)msg);
 543
 544     case MUIM_Setup:
 545         return Numericbutton__MUIM_Setup(cl, obj, (struct MUIP_Setup *)msg);
 546     case MUIM_Cleanup:
 547         return Numericbutton__MUIM_Cleanup(cl, obj,
 548             (struct MUIP_Cleanup *)msg);
 549     case MUIM_Show:
 550         return Numericbutton__MUIM_Show(cl, obj, (struct MUIP_Show *)msg);
 551     case MUIM_Hide:
 552         return Numericbutton__MUIM_Hide(cl, obj, (struct MUIP_Hide *)msg);
 553     case MUIM_AskMinMax:
 554         return Numericbutton__MUIM_AskMinMax(cl, obj,
 555             (struct MUIP_AskMinMax *)msg);
 556     case MUIM_Draw:
 557         return Numericbutton__MUIM_Draw(cl, obj, (struct MUIP_Draw *)msg);
 558     case MUIM_HandleEvent:
 559         return Numericbutton__MUIM_HandleEvent(cl, obj,
 560             (struct MUIP_HandleEvent *)msg);
 561     default:
 562         return DoSuperMethodA(cl, obj, msg);
 563     }
 564 }
 565 BOOPSI_DISPATCHER_END
 566
 567 const struct __MUIBuiltinClass _MUI_Numericbutton_desc =
 568 {
 569     MUIC_Numericbutton,
 570     MUIC_Numeric,
 571     sizeof(struct Numericbutton_DATA),
 572     (void *) Numericbutton_Dispatcher
 573 };
 574 #endif /* ZUNE_BUILTIN_NUMERICBUTTON */