workbench/libs/asl/colorpickerclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6
   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 #include <exec/memory.h>
  13 #include <intuition/screens.h>
  14 #include <intuition/cghooks.h>
  15 #include <intuition/imageclass.h>
  16 #include <intuition/gadgetclass.h>
  17 #include <graphics/gfx.h>
  18
  19 #include <string.h>
  20 #include <math.h>
  21
  22 #include "asl_intern.h"
  23 #include "layout.h"
  24
  25 #define SDEBUG 0
  26 #define DEBUG 0
  27
  28 #include <aros/debug.h>
  29
  30 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  31 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  32
  33 #define AslBase CLASS_ASLBASE
  34
  35 /********************** ASL CYCLE CLASS **************************************************/
  36
  37 #define CYCLEIMAGEWIDTH 19
  38 #define ARROWWIDTH      7
  39 #define ARROWHEIGHT     4
  40
  41 #define ARROW_DOWN      1
  42 #define ARROW_UP        2
  43
  44 /***********************************************************************************/
  45
  46 IPTR AslColorPicker__OM_SET(Class * cl, struct Gadget * g, struct opSet *msg);
  47
  48 /***********************************************************************************/
  49
  50 static void RenderObject_Update(Class *cl, struct Gadget *g, struct GadgetInfo *gi)
  51 {
  52     struct RastPort *rp;
  53
  54     if ((rp = ObtainGIRPort(gi)))
  55     {
  56         DoMethod((Object *)g, GM_RENDER,
  57                               (IPTR) gi,
  58                               (IPTR) rp,
  59                               GREDRAW_UPDATE
  60         );
  61
  62         ReleaseGIRPort(rp);
  63     }
  64 }
  65
  66 /***********************************************************************************/
  67
  68 static void DrawArrow(Class *cl, struct RastPort *rp, WORD x1, WORD y1, WORD type)
  69 {
  70     WORD dy = 1;
  71
  72     if (type == ARROW_UP)
  73     {
  74         y1 += 3; dy = -1;
  75     }
  76
  77     RectFill(rp, x1, y1, x1 + 6, y1); y1 += dy;
  78     RectFill(rp, x1 + 1, y1, x1 + 5, y1); y1 += dy;
  79     RectFill(rp, x1 + 2, y1, x1 + 4, y1); y1 += dy;
  80
  81     WritePixel(rp, x1 + 3, y1);
  82 }
  83
  84 /***********************************************************************************/
  85
  86 static void DrawCell(Class *cl, struct AslColorPickerData  *data, WORD index)
  87 {
  88     WORD                        x1, y1, x2, y2, col, row;
  89
  90     row = index % data->columns;
  91     col = index / data->columns;
  92
  93     x1 = data->menux1 + row * (data->cellwidth + data->cellspacex);
  94     y1 = data->menuy1 + col * (data->cellheight + data->cellspacey);
  95
  96     x2 = x1 + data->cellwidth - 1;
  97     y2 = y1 + data->cellheight - 1;
  98
  99     SetDrMd(data->rp, JAM1);
 100     SetAPen(data->rp, data->colortable ? data->colortable[index] : index);
 101     RectFill(data->rp, x1, y1, x2, y2);
 102 }
 103
 104 /***********************************************************************************/
 105
 106 static void DrawCellMark(Class *cl, struct AslColorPickerData  *data, struct DrawInfo *dri, WORD index, BOOL selected)
 107 {
 108     WORD                        x1, y1, x2, y2, col, row;
 109
 110     row = index % data->columns;
 111     col = index / data->columns;
 112
 113     x1 = data->menux1 + row * (data->cellwidth + data->cellspacex) - 2;
 114     y1 = data->menuy1 + col * (data->cellheight + data->cellspacey) - 2;
 115
 116     x2 = x1 + data->cellwidth - 1 + 4;
 117     y2 = y1 + data->cellheight - 1 + 4;
 118
 119     SetDrMd(data->rp, JAM1);
 120     SetAPen(data->rp, dri->dri_Pens[selected ? SHADOWPEN : SHINEPEN]);
 121
 122     Move(data->rp, x1, y1);
 123     Draw(data->rp, x2, y1);
 124     Draw(data->rp, x2, y2);
 125     Draw(data->rp, x1, y2);
 126     Draw(data->rp, x1, y1);
 127 }
 128
 129 /***********************************************************************************/
 130
 131 static void DrawAllCells(Class *cl, struct AslColorPickerData  *data)
 132 {
 133     WORD                        i;
 134
 135     for(i = 0; i < data->numcolors; i++)
 136     {
 137         DrawCell(cl, data, i);
 138     }
 139 }
 140
 141 /***********************************************************************************/
 142
 143 IPTR AslColorPicker__OM_NEW(Class * cl, Object * o, struct opSet *msg)
 144 {
 145     struct AslColorPickerData  *data;
 146     struct TagItem              fitags[] =
 147     {
 148         {IA_FrameType, FRAME_BUTTON},
 149         {IA_EdgesOnly, FALSE       },
 150         {TAG_DONE    , 0UL         }
 151     };
 152
 153     struct Gadget *g = (struct Gadget *)DoSuperMethodA(cl, o, (Msg)msg);
 154     if (g)
 155     {
 156         data = INST_DATA(cl, g);
 157
 158         /* We want to get a GM_LAYOUT message, no matter if gadget is GFLG_RELRIGHT/RELBOTTOM/
 159            RELWIDTH/RELHEIGHT or not */
 160         g->Flags |= GFLG_RELSPECIAL;
 161
 162         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
 163         if (data->frame)
 164         {
 165             AslColorPicker__OM_SET(cl, g, msg);
 166
 167         } else {
 168
 169             CoerceMethod(cl, (Object *)g, OM_DISPOSE);
 170             g = NULL;
 171
 172         }
 173     };
 174
 175     return (IPTR)g;
 176 }
 177
 178 /***********************************************************************************/
 179
 180 IPTR AslColorPicker__OM_DISPOSE(Class * cl, Object * o, Msg msg)
 181 {
 182     struct AslColorPickerData *data = INST_DATA(cl, o);
 183
 184     if (data->frame) DisposeObject(data->frame);
 185
 186     return DoSuperMethodA(cl, o, msg);
 187 }
 188
 189 /***********************************************************************************/
 190
 191 IPTR AslColorPicker__OM_SET(Class * cl, struct Gadget * g, struct opSet *msg)
 192 {
 193     struct AslColorPickerData   *data = INST_DATA(cl, g);
 194     struct TagItem              *tag;
 195     const struct TagItem *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 /***********************************************************************************/