workbench/libs/asl/colorpickerclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/alib.h>
   7 #include <proto/exec.h>
   8 #include <proto/dos.h>
   9 #include <proto/utility.h>
  10 #include <proto/intuition.h>
  11 #include <proto/graphics.h>
  12
  13 #include <exec/memory.h>
  14 #include <intuition/screens.h>
  15 #include <intuition/cghooks.h>
  16 #include <intuition/imageclass.h>
  17 #include <intuition/gadgetclass.h>
  18 #include <graphics/gfx.h>
  19
  20 #include <string.h>
  21 #include <math.h>
  22
  23 #include "asl_intern.h"
  24 #include "layout.h"
  25
  26 #define SDEBUG 0
  27 #define DEBUG 0
  28
  29 #include <aros/debug.h>
  30
  31 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  32 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  33
  34 #define AslBase CLASS_ASLBASE
  35
  36 /********************** ASL CYCLE CLASS **************************************************/
  37
  38 #define CYCLEIMAGEWIDTH 19
  39 #define ARROWWIDTH      7
  40 #define ARROWHEIGHT     4
  41
  42 #define ARROW_DOWN      1
  43 #define ARROW_UP        2
  44
  45 /***********************************************************************************/
  46
  47 IPTR AslColorPicker__OM_SET(Class * cl, struct Gadget * g, struct opSet *msg);
  48
  49 /***********************************************************************************/
  50
  51 static void RenderObject_Update(Class *cl, struct Gadget *g, struct GadgetInfo *gi)
  52 {
  53     struct RastPort *rp;
  54
  55     if ((rp = ObtainGIRPort(gi)))
  56     {
  57         DoMethod((Object *)g, GM_RENDER,
  58                               (IPTR) gi,
  59                               (IPTR) rp,
  60                               GREDRAW_UPDATE
  61         );
  62
  63         ReleaseGIRPort(rp);
  64     }
  65 }
  66
  67 /***********************************************************************************/
  68
  69 static void DrawArrow(Class *cl, struct RastPort *rp, WORD x1, WORD y1, WORD type)
  70 {
  71     WORD dy = 1;
  72
  73     if (type == ARROW_UP)
  74     {
  75         y1 += 3; dy = -1;
  76     }
  77
  78     RectFill(rp, x1, y1, x1 + 6, y1); y1 += dy;
  79     RectFill(rp, x1 + 1, y1, x1 + 5, y1); y1 += dy;
  80     RectFill(rp, x1 + 2, y1, x1 + 4, y1); y1 += dy;
  81
  82     WritePixel(rp, x1 + 3, y1);
  83 }
  84
  85 /***********************************************************************************/
  86
  87 static void DrawCell(Class *cl, struct AslColorPickerData  *data, WORD index)
  88 {
  89     WORD                        x1, y1, x2, y2, col, row;
  90
  91     row = index % data->columns;
  92     col = index / data->columns;
  93
  94     x1 = data->menux1 + row * (data->cellwidth + data->cellspacex);
  95     y1 = data->menuy1 + col * (data->cellheight + data->cellspacey);
  96
  97     x2 = x1 + data->cellwidth - 1;
  98     y2 = y1 + data->cellheight - 1;
  99
 100     SetDrMd(data->rp, JAM1);
 101     SetAPen(data->rp, data->colortable ? data->colortable[index] : index);
 102     RectFill(data->rp, x1, y1, x2, y2);
 103 }
 104
 105 /***********************************************************************************/
 106
 107 static void DrawCellMark(Class *cl, struct AslColorPickerData  *data, struct DrawInfo *dri, WORD index, BOOL selected)
 108 {
 109     WORD                        x1, y1, x2, y2, col, row;
 110
 111     row = index % data->columns;
 112     col = index / data->columns;
 113
 114     x1 = data->menux1 + row * (data->cellwidth + data->cellspacex) - 2;
 115     y1 = data->menuy1 + col * (data->cellheight + data->cellspacey) - 2;
 116
 117     x2 = x1 + data->cellwidth - 1 + 4;
 118     y2 = y1 + data->cellheight - 1 + 4;
 119
 120     SetDrMd(data->rp, JAM1);
 121     SetAPen(data->rp, dri->dri_Pens[selected ? SHADOWPEN : SHINEPEN]);
 122
 123     Move(data->rp, x1, y1);
 124     Draw(data->rp, x2, y1);
 125     Draw(data->rp, x2, y2);
 126     Draw(data->rp, x1, y2);
 127     Draw(data->rp, x1, y1);
 128 }
 129
 130 /***********************************************************************************/
 131
 132 static void DrawAllCells(Class *cl, struct AslColorPickerData  *data)
 133 {
 134     WORD                        i;
 135
 136     for(i = 0; i < data->numcolors; i++)
 137     {
 138         DrawCell(cl, data, i);
 139     }
 140 }
 141
 142 /***********************************************************************************/
 143
 144 IPTR AslColorPicker__OM_NEW(Class * cl, Object * o, struct opSet *msg)
 145 {
 146     struct AslColorPickerData  *data;
 147     struct TagItem              fitags[] =
 148     {
 149         {IA_FrameType, FRAME_BUTTON},
 150         {IA_EdgesOnly, FALSE       },
 151         {TAG_DONE    , 0UL         }
 152     };
 153
 154     struct Gadget *g = (struct Gadget *)DoSuperMethodA(cl, o, (Msg)msg);
 155     if (g)
 156     {
 157         data = INST_DATA(cl, g);
 158
 159         /* We want to get a GM_LAYOUT message, no matter if gadget is GFLG_RELRIGHT/RELBOTTOM/
 160            RELWIDTH/RELHEIGHT or not */
 161         g->Flags |= GFLG_RELSPECIAL;
 162
 163         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
 164         if (data->frame)
 165         {
 166             AslColorPicker__OM_SET(cl, g, msg);
 167
 168         } else {
 169
 170             CoerceMethod(cl, (Object *)g, OM_DISPOSE);
 171             g = NULL;
 172
 173         }
 174     };
 175
 176     return (IPTR)g;
 177 }
 178
 179 /***********************************************************************************/
 180
 181 IPTR AslColorPicker__OM_DISPOSE(Class * cl, Object * o, Msg msg)
 182 {
 183     struct AslColorPickerData *data = INST_DATA(cl, o);
 184
 185     if (data->frame) DisposeObject(data->frame);
 186
 187     return DoSuperMethodA(cl, o, msg);
 188 }
 189
 190 /***********************************************************************************/
 191
 192 IPTR AslColorPicker__OM_SET(Class * cl, struct Gadget * g, struct opSet *msg)
 193 {
 194     struct AslColorPickerData   *data = INST_DATA(cl, g);
 195     struct TagItem              *tag, *tstate = msg->ops_AttrList;
 196     IPTR                         retval, tidata;
 197
 198     retval = DoSuperMethod(cl, (Object *)g, OM_SET, (IPTR) msg->ops_AttrList, (IPTR) msg->ops_GInfo);
 199
 200     while((tag = NextTagItem(&tstate)))
 201     {
 202         tidata = tag->ti_Data;
 203
 204         switch(tag->ti_Tag)
 205         {
 206             case ASLCP_Color:
 207                 data->color = tidata;
 208                 retval += 1;
 209                 break;
 210
 211             case ASLCP_ColorTable:
 212                 data->colortable = (UBYTE *)tidata;
 213                 retval += 1;
 214                 break;
 215
 216             case ASLCP_NumColors:
 217                 data->numcolors = tidata;
 218                 retval += 1;
 219                 break;
 220
 221         } /* switch(tag->ti_Tag) */
 222
 223     } /* while((tag = NextTagItem(&tstate))) */
 224
 225     if (retval)
 226     {
 227         RenderObject_Update(cl, g, msg->ops_GInfo);
 228     }
 229
 230     return retval;
 231 }
 232
 233
 234 /***********************************************************************************/
 235
 236 IPTR AslColorPicker__OM_GET(Class * cl, Object * o, struct opGet *msg)
 237 {
 238     struct AslColorPickerData *data = INST_DATA(cl, o);
 239     IPTR                       retval = 1;
 240
 241     switch(msg->opg_AttrID)
 242     {
 243         case ASLCP_Color:
 244             *msg->opg_Storage = data->color;
 245             break;
 246
 247         default:
 248             retval = DoSuperMethodA(cl, o, (Msg)msg);
 249             break;
 250     }
 251
 252     return retval;
 253 }
 254
 255 /***********************************************************************************/
 256
 257 IPTR AslColorPicker__GM_RENDER(Class * cl, struct Gadget * g, struct gpRender *msg)
 258 {
 259     struct AslColorPickerData   *data = INST_DATA(cl, g);
 260     struct RastPort             *rp   = msg->gpr_RPort;
 261     struct DrawInfo             *dri  = msg->gpr_GInfo->gi_DrInfo;
 262     WORD                         gadx, gady, gadw, gadh, x, y, y2, a1, a2;
 263
 264     if (rp)
 265     {
 266         struct TagItem im_tags[] =
 267         {
 268             {IA_Width   , 0     },
 269             {IA_Height  , 0     },
 270             {TAG_DONE           }
 271         };
 272
 273         getgadgetcoords(g, msg->gpr_GInfo, &gadx, &gady, &gadw, &gadh);
 274
 275         if (msg->gpr_Redraw == GREDRAW_REDRAW)
 276         {
 277             im_tags[0].ti_Data = gadw;
 278             im_tags[1].ti_Data = gadh;
 279
 280             SetAttrsA(data->frame, im_tags);
 281
 282             DrawImageState(msg->gpr_RPort,
 283                            (struct Image *)data->frame,
 284                            gadx,
 285                            gady,
 286                            (g->Flags & GFLG_SELECTED) ? IDS_SELECTED : IDS_NORMAL,
 287                            msg->gpr_GInfo->gi_DrInfo);
 288
 289             x = gadx + gadw - CYCLEIMAGEWIDTH;
 290             y = gady + 2;
 291             y2 = gady + gadh - 1 - 2;
 292
 293             /* separator bar */
 294
 295             SetAPen(rp, dri->dri_Pens[SHINEPEN]);
 296             RectFill(rp, x + 1, y , x + 1, y2);
 297             SetAPen(rp, dri->dri_Pens[SHADOWPEN]);
 298             RectFill(rp, x, y, x, y2);
 299
 300             y = gady + (gadh - 4) / 2;
 301             x += 6;
 302
 303             DrawArrow(cl, rp, x, y, ARROW_DOWN);
 304         }
 305
 306         /* color */
 307
 308         a1 = gadx + 3;
 309         a2 = gadx + gadw - CYCLEIMAGEWIDTH - 3;
 310
 311         SetAPen(rp, data->color);
 312         RectFill(rp, a1, gady + 3, a2, gady + gadh - 1 - 3);
 313
 314     } /* if (rp) */
 315
 316     return (IPTR)0;
 317 }
 318
 319 /***********************************************************************************/
 320
 321 IPTR AslColorPicker__GM_GOACTIVE(Class * cl, struct Gadget * g, struct gpInput *msg)
 322 {
 323     struct AslColorPickerData   *data = INST_DATA(cl, g);
 324     struct DrawInfo             *dri = msg->gpi_GInfo->gi_DrInfo;
 325     WORD                         x, y, x2, y2, gadx, gady, gadw, gadh;
 326     IPTR                         rc = GMR_MEACTIVE;
 327
 328     if (!msg->gpi_IEvent || !data->numcolors) return GMR_NOREUSE;
 329
 330     data->sentgadgetup = FALSE;
 331
 332     getgadgetcoords(g, msg->gpi_GInfo, &gadx, &gady, &gadw, &gadh);
 333
 334     data->borderleft    = 4;
 335     data->bordertop     = 4;
 336     data->borderright   = 4;
 337     data->borderbottom  = 4;
 338
 339     if (!data->colortable && data->numcolors > (1L << dri->dri_Depth))
 340     {
 341         data->numcolors = 1L << dri->dri_Depth;
 342     }
 343 #ifdef AROS_NOFPU
 344     {
 345         ULONG n = 0;
 346         /*
 347          * Do a sqrt 'by hand'
 348          */
 349         while ((n*n) <= data->numcolors) {
 350             n++;
 351         }
 352         if ((n * n) > data->numcolors) {
 353             n--;
 354         }
 355         data->rows = n;
 356     }
 357 #else
 358     data->rows = (WORD)sqrt((double)data->numcolors);
 359 #endif
 360     data->columns = (data->numcolors + data->rows - 1) / data->rows;
 361
 362     data->cellspacex = 3;
 363     data->cellspacey = 3;
 364
 365     data->cellwidth = dri->dri_Font->tf_YSize;
 366     data->cellheight = data->cellwidth;
 367
 368     data->menuwidth = data->columns * data->cellwidth +
 369                       (data->columns - 1) * data->cellspacex +
 370                       data->borderleft + data->borderright;
 371
 372     data->menuheight = data->rows * data->cellheight +
 373                        (data->rows - 1) * data->cellspacey +
 374                        data->bordertop + data->borderbottom;
 375
 376     data->menux1 = data->borderleft;
 377     data->menuy1 = data->bordertop;
 378     data->menux2 = data->menuwidth - data->borderright - 1;
 379     data->menuy2 = data->menuheight - data->borderbottom - 1;
 380
 381
 382     x = msg->gpi_GInfo->gi_Window->MouseX;
 383
 384     x = msg->gpi_GInfo->gi_Window->LeftEdge + gadx;
 385     y = msg->gpi_GInfo->gi_Window->TopEdge + gady + gadh;
 386
 387     if (x < 0) x = 0;
 388     if ((x + data->menuwidth) > msg->gpi_GInfo->gi_Screen->Width)
 389     {
 390         x = msg->gpi_GInfo->gi_Screen->Width - data->menuwidth;
 391     }
 392
 393     if (y < 0) y = 0;
 394     if ((y + data->menuheight) > msg->gpi_GInfo->gi_Screen->Height)
 395     {
 396         y = msg->gpi_GInfo->gi_Screen->Height - data->menuheight;
 397     }
 398
 399     x2 = x + data->menuwidth - 1;
 400     y2 = y + data->menuheight - 1;
 401
 402     if ((data->popupwindow = OpenWindowTags(0,WA_CustomScreen   , (IPTR) msg->gpi_GInfo->gi_Screen ,
 403                                               WA_Left           , x                         ,
 404                                               WA_Top            , y                         ,
 405                                               WA_Width          , data->menuwidth           ,
 406                                               WA_Height         , data->menuheight          ,
 407                                               WA_Flags          , WFLG_BORDERLESS           ,
 408                                               WA_BackFill       , (IPTR) LAYERS_NOBACKFILL          ,
 409                                               TAG_DONE)))
 410     {
 411         data->rp = data->popupwindow->RPort;
 412
 413         data->layerx1 = x;  data->layery1 = y;
 414         data->layerx2 = x2; data->layery2 = y2;
 415
 416         data->selected = -1;
 417         SetDrMd(data->rp, JAM1);
 418
 419         x = 0;
 420         y = 0;
 421         x2 = x + data->menuwidth - 1;
 422         y2 = y + data->menuheight - 1;
 423
 424         SetAPen(data->rp, dri->dri_Pens[SHADOWPEN]);
 425         RectFill(data->rp, x, y, x2, y);
 426         RectFill(data->rp, x2, y + 1, x2, y2);
 427         RectFill(data->rp, x, y2, x2 - 1, y2);
 428         RectFill(data->rp, x, y + 1, x, y2 - 1);
 429
 430         SetAPen (data->rp, dri->dri_Pens[SHINEPEN]);
 431         RectFill(data->rp, x + 1, y  + 1, x2  - 1, y2 - 1);
 432
 433         DrawAllCells(cl, data);
 434     }
 435     else
 436     {
 437         rc = GMR_NOREUSE;
 438     }
 439
 440     return rc;
 441 }
 442
 443 /***********************************************************************************/
 444
 445 IPTR AslColorPicker__GM_HANDLEINPUT(Class * cl, struct Gadget * g, struct gpInput *msg)
 446 {
 447     struct AslColorPickerData  *data = INST_DATA(cl, g);
 448     WORD                        gadx, gady, gadw, gadh, x, y, sel;
 449     IPTR                        rc = GMR_MEACTIVE;
 450
 451     getgadgetcoords(g, msg->gpi_GInfo, &gadx, &gady, &gadw, &gadh);
 452
 453     switch(msg->gpi_IEvent->ie_Class)
 454     {
 455         case IECLASS_RAWMOUSE:
 456             if (msg->gpi_IEvent->ie_Code == SELECTUP)
 457             {
 458                 rc = GMR_NOREUSE;
 459                 if (data->selected != -1)
 460                 {
 461                     data->color = data->colortable ? data->colortable[data->selected] : data->selected;
 462                     data->sentgadgetup = TRUE;
 463
 464                     rc |= GMR_VERIFY;
 465                     *msg->gpi_Termination = data->color;
 466                 }
 467                 break;
 468             }
 469             else if (msg->gpi_IEvent->ie_Code == IECODE_NOBUTTON)
 470             {
 471                 /* fall through to IECLASS_TIMER */
 472             }
 473             else
 474             {
 475                 break;
 476             }
 477             /* fall through */
 478
 479         case IECLASS_TIMER:
 480             x = msg->gpi_GInfo->gi_Screen->MouseX - data->layerx1;
 481             y = msg->gpi_GInfo->gi_Screen->MouseY - data->layery1;
 482
 483             if ((x < data->menux1) || (x > data->menux2) ||
 484                 (y < data->menuy1) || (y > data->menuy2))
 485             {
 486                 if (data->selected != -1)
 487                 {
 488                     DrawCellMark(cl, data, msg->gpi_GInfo->gi_DrInfo, data->selected, FALSE);
 489                     data->selected = -1;
 490                 }
 491             }
 492             else
 493             {
 494                 x -= data->menux1;
 495                 y -= data->menuy1;
 496
 497                 sel = data->columns * (y / (data->cellheight + data->cellspacey)) +
 498                       x / (data->cellwidth + data->cellspacex);
 499
 500                 if (sel < 0) sel = 0; /* paranoia */
 501
 502                 if (sel != data->selected)
 503                 {
 504                     if (data->selected != -1)
 505                     {
 506                         DrawCellMark(cl, data, msg->gpi_GInfo->gi_DrInfo, data->selected, FALSE);
 507                         data->selected = -1;
 508                     }
 509
 510                     if (sel < data->numcolors)
 511                     {
 512                         data->selected = sel;
 513                         DrawCellMark(cl, data, msg->gpi_GInfo->gi_DrInfo, data->selected, TRUE);
 514                     }
 515                 }
 516
 517             }
 518             break;
 519
 520     } /* switch(msg->gpi_IEvent->ie_Class) */
 521
 522     return rc;
 523
 524 }
 525
 526 /***********************************************************************************/
 527
 528 IPTR AslColorPicker__GM_GOINACTIVE(Class * cl, struct Gadget * g, struct gpGoInactive *msg)
 529 {
 530     struct AslColorPickerData *data = INST_DATA(cl, g);
 531
 532     if (data->popupwindow)
 533     {
 534         CloseWindow(data->popupwindow);
 535         data->popupwindow = 0;
 536     }
 537
 538     if (data->sentgadgetup)
 539     {
 540         RenderObject_Update(cl, g, msg->gpgi_GInfo);
 541     }
 542
 543     return 0;
 544 }
 545
 546 /***********************************************************************************/