?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
revert between 56095 -> 55830 in arch
[AROS.git] / workbench / classes / gadgets / arospalette / paletteclass.c
blob91172ec768bee92bed90e262806756cead207891
1 /*
2 Copyright © 1995-2005, The AROS Development Team. All rights reserved.
3 $Id$
4
5 AROS Palette gadget for use in gadtools.
6 */
7
8 #define USE_BOOPSI_STUBS
9 #include <proto/utility.h>
10 #include <proto/intuition.h>
11 #include <proto/graphics.h>
12 #include <intuition/classes.h>
13 #include <intuition/classusr.h>
14 #include <intuition/cghooks.h>
15 #include <intuition/gadgetclass.h>
16 #include <utility/tagitem.h>
17 #include <gadgets/arospalette.h>
18 #include <aros/asmcall.h>
19 #include <stdlib.h> /* abs() */
20 #include "arospalette_intern.h"
21
22 #define SDEBUG 0
23 #define DEBUG 0
24 #include <aros/debug.h>
25
26 #define AROSPaletteBase ((struct PaletteBase_intern *)(cl->cl_UserData))
27
28 #include <clib/boopsistubs.h>
29
30
31 STATIC IPTR _OM_SET(Class *cl, Object *o, struct opSet *msg, BOOL render)
32 {
33 struct TagItem *tag, *tstate;
34 IPTR retval = (IPTR)0;
35 struct PaletteData *data = INST_DATA(cl, o);
36
37 BOOL labelplace_set = FALSE, relayout = FALSE;
38 BOOL colortag_found = FALSE, numcolorstag_found = FALSE;
39
40 EnterFunc(bug("Palette::Set()\n"));
41
42 for (tstate = msg->ops_AttrList; (tag = NextTagItem(&tstate)); )
43 {
44 IPTR tidata = tag->ti_Data;
45
46
47 switch (tag->ti_Tag)
48 {
49 case AROSA_Palette_Depth: /* [ISU] */
50 /* NumColors tag overrides Depth tag! */
51 if (!numcolorstag_found)
52 {
53 data->pd_NumColors = (1 << ((UBYTE)tidata));
54
55 D(bug("Depth initialized to %d\n", tidata));
56 relayout = TRUE;
57 retval++;
58 }
59 break;
60
61 case AROSA_Palette_Color: /* [IS] */
62 colortag_found = TRUE;
63
64 data->pd_OldColor = data->pd_Color;
65 data->pd_Color = (UBYTE)tidata;
66 D(bug("Color set to %d\n", tidata));
67 retval++;
68 break;
69
70 case AROSA_Palette_ColorOffset: /* [I] */
71 data->pd_ColorOffset = (UBYTE)tidata;
72 D(bug("ColorOffset initialized to %d\n", tidata));
73 retval++;
74 break;
75
76 case AROSA_Palette_IndicatorWidth: /* [I] */
77 data->pd_IndWidth = (UWORD)tidata;
78 D(bug("Indicatorwidth set to %d\n", tidata));
79
80 /* If palette has an indictor on left, GA_LabelPlace
81 ** defaults to GV_LabelPlace_Left
82 */
83 if (!labelplace_set)
84 data->pd_LabelPlace = GV_LabelPlace_Left;
85 break;
86
87 case AROSA_Palette_IndicatorHeight: /* [I] */
88 data->pd_IndHeight = (UWORD)tidata;
89 D(bug("Indicatorheight set to %d\n", tidata));
90 break;
91
92 case GA_LabelPlace: /* [I] */
93 data->pd_LabelPlace = (LONG)tidata;
94 D(bug("Labelplace set to %d\n", tidata));
95
96 labelplace_set = TRUE;
97 break;
98
99 case GA_TextAttr: /* [I] */
100 data->pd_TAttr = (struct TextAttr *)tidata;
101 D(bug("TextAttr set to %s %d\n",
102 data->pd_TAttr->ta_Name, data->pd_TAttr->ta_YSize));
103 break;
104
105 case AROSA_Palette_ColorTable:
106 data->pd_ColorTable = (UBYTE *)tidata;
107 break;
108
109 case AROSA_Palette_NumColors:
110 numcolorstag_found = TRUE;
111
112 data->pd_NumColors = (UWORD)tidata;
113 relayout = TRUE;
114 break;
115
116 } /* switch (tag->ti_Tag) */
117
118 } /* for (each attr in attrlist) */
119
120 if (colortag_found)
121 {
122 /* convert pen number to index */
123
124 if (data->pd_ColorTable)
125 {
126 WORD i;
127
128 /* convert pen number to index number */
129 for(i = 0; i < data->pd_NumColors; i++)
130 {
131 if (data->pd_ColorTable[i] == data->pd_Color)
132 {
133 data->pd_Color = i;
134 break;
135 }
136 }
137
138 } else {
139 data->pd_Color -= data->pd_ColorOffset;
140 }
141
142 } /* if (colortag_found) */
143
144 if (relayout)
145 {
146 /* Check if the old selected fits into the new depth */
147 if (data->pd_Color > data->pd_NumColors - 1)
148 {
149 data->pd_Color = 0;
150 data->pd_OldColor = 0; /* So that UpdateActiveColor() don't get confused */
151 }
152
153 /* Relayout the gadget */
154 DoMethod(o, GM_LAYOUT, (IPTR)msg->ops_GInfo, FALSE);
155 }
156
157 if ( render )
158 {
159 struct GadgetInfo *gi = ((struct opSet *)msg)->ops_GInfo;
160
161 if (gi)
162 {
163 struct RastPort *rp = ObtainGIRPort(gi);
164
165 if (rp)
166 {
167 DoMethod(o,
168 GM_RENDER,
169 (IPTR)gi,
170 (IPTR)rp,
171 FindTagItem(GA_Disabled, ((struct opSet *)msg)->ops_AttrList) ? GREDRAW_REDRAW : GREDRAW_UPDATE
172 );
173
174 ReleaseGIRPort(rp);
175 }
176 }
177 }
178
179 ReturnPtr ("Palette::Set", IPTR, retval);
180 }
181
182 /************************
183 ** Palette::Update() **
184 ************************/
185 IPTR AROSPalette__OM_UPDATE(Class *cl, Object *o, struct opSet *msg)
186 {
187 IPTR retval = DoSuperMethodA(cl, o, msg);
188 /* Only rerender when we are not subclassed */
189 return retval + _OM_SET(cl, o, msg, cl == OCLASS(o));
190 }
191
192 /*********************
193 ** Palette::Set() **
194 *********************/
195 IPTR AROSPalette__OM_SET(Class *cl, Object *o, struct opSet *msg)
196 {
197 IPTR retval = DoSuperMethodA(cl, o, msg);
198 /* Always rerender for the OM_SET method */
199 return retval + _OM_SET(cl, o, msg, TRUE);
200 }
201
202 /*********************
203 ** Palette::New() **
204 *********************/
205 Object *AROSPalette__OM_NEW(Class *cl, Object *o, struct opSet *msg)
206 {
207 struct opSet ops, *p_ops = &ops;
208 struct TagItem tags[] =
209 {
210 {GA_RelSpecial, TRUE},
211 {TAG_MORE, 0}
212 };
213
214 EnterFunc(bug("Palette::New()\n"));
215
216 tags[1].ti_Data = (IPTR)msg->ops_AttrList;
217
218 ops.MethodID = OM_NEW;
219 ops.ops_GInfo = NULL;
220 ops.ops_AttrList = &tags[0];
221
222 o = (Object *)DoSuperMethodA(cl, o, (Msg)p_ops);
223 if (o)
224 {
225 struct PaletteData *data = INST_DATA(cl, o);
226
227 /* Set some defaults */
228 data->pd_NumColors = 2;
229 data->pd_ColorTable = NULL;
230 data->pd_Color = 0;
231 data->pd_OldColor = 0 ; /* = data->pd_OldColor */
232 data->pd_ColorOffset = 0;
233 data->pd_IndWidth = 0;
234 data->pd_IndHeight = 0;
235 data->pd_LabelPlace = GV_LabelPlace_Above;
236
237
238 _OM_SET(cl, o, msg, FALSE);
239
240
241 }
242 ReturnPtr ("Palette::New", Object *, o);
243 }
244
245 /*********************
246 ** Palette::Get() **
247 *********************/
248 IPTR AROSPalette__OM_GET(Class *cl, Object *o, struct opGet *msg)
249 {
250 struct PaletteData *data = INST_DATA(cl, o);
251 IPTR retval = 1UL;
252
253 switch(msg->opg_AttrID)
254 {
255 case AROSA_Palette_Color:
256 *msg->opg_Storage = (IPTR)GetPalettePen(data, data->pd_Color);
257 break;
258
259 case AROSA_Palette_ColorOffset:
260 *msg->opg_Storage = (IPTR)data->pd_ColorOffset;
261 break;
262
263 case AROSA_Palette_ColorTable:
264 *msg->opg_Storage = (IPTR)data->pd_ColorTable;
265 break;
266
267 default:
268 retval = DoSuperMethodA(cl, o, (Msg)msg);
269 break;
270 }
271
272 return retval;
273 }
274
275 /************************
276 ** Palette::Render() **
277 ************************/
278 VOID AROSPalette__GM_RENDER(Class *cl, Object *o, struct gpRender *msg)
279 {
280 struct PaletteData *data = INST_DATA(cl, o);
281
282 struct DrawInfo *dri = msg->gpr_GInfo->gi_DrInfo;
283 struct RastPort *rp;
284 struct IBox *gbox = &(data->pd_GadgetBox);
285
286 EnterFunc(bug("Palette::Render()\n"));
287
288 rp = msg->gpr_RPort;
289
290
291 switch (msg->gpr_Redraw)
292 {
293 case GREDRAW_REDRAW:
294 D(bug("Doing total redraw\n"));
295
296 /* Render gadget label in correct position */
297 RenderLabel((struct Gadget *)o, gbox, rp,
298 data->pd_LabelPlace, AROSPaletteBase);
299
300 RenderFrame(data, rp, gbox, dri, FALSE, FALSE, AROSPaletteBase);
301
302 RenderPalette(data, rp, AROSPaletteBase);
303
304 /* Render frame aroun ibox */
305 if (data->pd_IndWidth || data->pd_IndHeight)
306 {
307 RenderFrame(data, rp, &(data->pd_IndicatorBox), dri, TRUE, TRUE, AROSPaletteBase);
308 }
309
310 case GREDRAW_UPDATE:
311 D(bug("Doing redraw update\n"));
312
313 UpdateActiveColor(data, dri, rp, AROSPaletteBase);
314
315 if (data->pd_IndWidth || data->pd_IndHeight)
316 {
317 struct IBox *ibox = &(data->pd_IndicatorBox);
318 SetAPen(rp, GetPalettePen(data, data->pd_Color));
319
320 D(bug("Drawing indocator at: (%d, %d, %d, %d)\n",
321 ibox->Left, ibox->Top,
322 ibox->Left + ibox->Width, ibox->Top + ibox->Height));
323
324 RectFill(msg->gpr_RPort,
325 ibox->Left + VBORDER + VSPACING,
326 ibox->Top + HBORDER + HSPACING,
327 ibox->Left + ibox->Width - 1 - VBORDER - VSPACING,
328 ibox->Top + ibox->Height - 1 - HBORDER - HSPACING);
329
330 }
331 break;
332
333
334 } /* switch (redraw method) */
335
336 if (EG(o)->Flags & GFLG_DISABLED)
337 {
338 DrawDisabledPattern(rp, gbox, dri->dri_Pens[SHADOWPEN], AROSPaletteBase);
339 }
340
341 ReturnVoid("Palette::Render");
342 }
343
344 /*************************
345 ** Palette::Dispose() **
346 *************************/
347 VOID AROSPalette__OM_DISPOSE(Class *cl, Object *o, Msg msg)
348 {
349 struct PaletteData *data = INST_DATA(cl, o);
350
351 if (data->pd_Frame) DisposeObject(data->pd_Frame);
352
353 DoSuperMethodA(cl, o, msg);
354 }
355
356 /*************************
357 ** Palette::HitTest() **
358 *************************/
359 IPTR AROSPalette__GM_HITTEST(Class *cl, Object *o, struct gpHitTest *msg)
360 {
361 WORD x, y;
362
363 IPTR retval = 0UL;
364 struct PaletteData *data = INST_DATA(cl, o);
365
366 EnterFunc(bug("Palette::HitTest()\n"));
367
368 /* One might think that this method is not necessary to implement,
369 ** but here is an example to show the opposite:
370 ** Consider a 16 color palette with 8 rows and 2 cols.
371 ** Gadget is 87 pix. heigh. Each row will then be 10 pix hight + 7 pix
372 ** of "nowhere". To prevent anything from happening when this area is
373 ** clicked, we rule it out here.
374 */
375
376 x = msg->gpht_Mouse.X + data->pd_GadgetBox.Left;
377 y = msg->gpht_Mouse.Y + data->pd_GadgetBox.Top;
378
379 if ( (x > data->pd_PaletteBox.Left)
380 && (x < data->pd_PaletteBox.Left + data->pd_PaletteBox.Width - 1)
381 && (y > data->pd_PaletteBox.Top)
382 && (y < data->pd_PaletteBox.Top + data->pd_PaletteBox.Height - 1)
383 )
384 {
385 retval = GMR_GADGETHIT;
386 }
387
388 ReturnInt ("Palette::HitTest", IPTR, retval);
389 }
390
391 /************************
392 ** Palette::GoActive **
393 ************************/
394 IPTR AROSPalette__GM_GOACTIVE(Class *cl, Object *o, struct gpInput *msg)
395 {
396 IPTR retval = 0UL;
397 struct PaletteData *data = INST_DATA(cl, o);
398
399 EnterFunc(bug("Palette::GoActive()\n"));
400 if (EG(o)->Flags & GFLG_DISABLED)
401 {
402 retval = GMR_NOREUSE;
403 }
404 else
405 {
406 if (msg->gpi_IEvent)
407 {
408 UBYTE clicked_color;
409
410 /* Set temporary active to the old active */
411 data->pd_ColorBackup = data->pd_Color;
412
413 clicked_color = ComputeColor(data,
414 msg->gpi_Mouse.X + data->pd_GadgetBox.Left,
415 msg->gpi_Mouse.Y + data->pd_GadgetBox.Top);
416
417 if (clicked_color != data->pd_Color)
418 {
419 struct RastPort *rp;
420
421 data->pd_Color = clicked_color;
422
423 if ((rp = ObtainGIRPort(msg->gpi_GInfo)))
424 {
425 DoMethod(o, GM_RENDER, (IPTR)msg->gpi_GInfo, (IPTR)rp, GREDRAW_UPDATE);
426
427 ReleaseGIRPort(rp);
428 }
429 }
430
431 retval = GMR_MEACTIVE;
432 } /* if (gadget activated is a result of user input) */
433
434 else
435 retval = GMR_NOREUSE;
436 } /* if (gadget isn't disabled) */
437
438 ReturnInt("Palette::GoActive", IPTR, retval);
439 }
440
441
442
443 /*****************************
444 ** Palette::HandleInput() **
445 *****************************/
446 IPTR AROSPalette__GM_HANDLEINPUT(Class *cl, Object *o, struct gpInput *msg)
447 {
448 struct PaletteData *data = INST_DATA(cl, o);
449 IPTR retval = 0UL;
450 struct InputEvent *ie = msg->gpi_IEvent;
451
452 EnterFunc(bug("Palette::HandleInput\n"));
453
454 retval = GMR_MEACTIVE;
455
456 if (ie->ie_Class == IECLASS_RAWMOUSE)
457 {
458 WORD x = msg->gpi_Mouse.X + data->pd_GadgetBox.Left;
459 WORD y = msg->gpi_Mouse.Y + data->pd_GadgetBox.Top;
460
461 if (x <= data->pd_PaletteBox.Left) x = data->pd_PaletteBox.Left + 1;
462 if (y <= data->pd_PaletteBox.Top) y = data->pd_PaletteBox.Top + 1;
463 if (x >= data->pd_PaletteBox.Left + data->pd_PaletteBox.Width - 1)
464 x = data->pd_PaletteBox.Left + data->pd_PaletteBox.Width - 2;
465 if (y >= data->pd_PaletteBox.Top + data->pd_PaletteBox.Height - 1)
466 y = data->pd_PaletteBox.Top + data->pd_PaletteBox.Height - 2;
467
468 switch (ie->ie_Code)
469 {
470 case SELECTUP: {
471 /* If the button was released outside the gadget, then
472 ** go back to old state --> no longer: stegerg
473 */
474
475 D(bug("IECLASS_RAWMOUSE: SELECTUP\n"));
476
477 #if 0
478 if (!InsidePalette(data, x, y))
479 {
480 struct RastPort *rp;
481
482 /* Left released outside of gadget area, go back
483 ** to old state
484 */
485 data->pd_Color = data->pd_ColorBackup;
486 D(bug("Left released outside gadget\n"));
487
488 if ((rp = ObtainGIRPort(msg->gpi_GInfo)))
489 {
490 DoMethod(o, GM_RENDER, msg->gpi_GInfo, rp, GREDRAW_UPDATE);
491
492 ReleaseGIRPort(rp);
493 }
494 }
495 else
496 {
497 #endif
498
499 D(bug("Left released inside gadget, color=%d\n", GetPalettePen(data, data->pd_Color)));
500 *(msg->gpi_Termination) = GetPalettePen(data, data->pd_Color);
501 retval = GMR_VERIFY;
502
503 #if 0
504 }
505 #endif
506
507 retval |= GMR_NOREUSE;
508 } break;
509
510 case IECODE_NOBUTTON: {
511
512 UBYTE over_color;
513
514 D(bug("IECLASS_POINTERPOS\n"));
515
516 if (InsidePalette(data, x, y))
517 {
518
519 over_color = ComputeColor(data, x, y);
520
521 if (over_color != data->pd_Color)
522 {
523 struct RastPort *rp;
524
525 data->pd_Color = over_color;
526 if ((rp = ObtainGIRPort(msg->gpi_GInfo)))
527 {
528 DoMethod(o, GM_RENDER, (IPTR)msg->gpi_GInfo, (IPTR)rp, GREDRAW_UPDATE);
529
530 ReleaseGIRPort(rp);
531 }
532 } /* if (mouse is over a different color) */
533
534 } /* if (mouse is over gadget) */
535
536 retval = GMR_MEACTIVE;
537
538 } break;
539
540
541 case MENUUP: {
542
543 /* Right released on gadget, go back to old state */
544
545 struct RastPort *rp;
546
547 data->pd_Color = data->pd_ColorBackup;
548 D(bug("Right mouse pushed \n"));
549
550 if ((rp = ObtainGIRPort(msg->gpi_GInfo)))
551 {
552 DoMethod(o, GM_RENDER, (IPTR)msg->gpi_GInfo, (IPTR)rp, GREDRAW_UPDATE);
553
554 ReleaseGIRPort(rp);
555 }
556
557 retval = GMR_NOREUSE;
558 } break;
559
560 } /* switch (ie->ie_Code) */
561
562 } /* if (mouse event) */
563
564 ReturnInt("Palette::HandleInput", IPTR, retval);
565 }
566
567 /************************
568 ** Palette::Layout() **
569 ************************/
570 VOID AROSPalette__GM_LAYOUT(Class *cl, Object *o, struct gpLayout *msg)
571 {
572
573 /* The palette gadget has been resized and we need to update our layout */
574
575 struct PaletteData *data = INST_DATA(cl, o);
576 struct IBox *gbox = &(data->pd_GadgetBox),
577 *pbox = &(data->pd_PaletteBox),
578 *indbox = &(data->pd_IndicatorBox);
579
580
581 UWORD cols, rows;
582
583 WORD factor1, factor2, ratio;
584 UWORD fault, smallest_so_far;
585
586 UWORD *largest, *smallest;
587
588 WORD leftover_width, leftover_height;
589
590 EnterFunc(bug("Palette::Layout()\n"));
591
592 if (!msg->gpl_GInfo)
593 ReturnVoid("Palette::Layout"); /* We MUST have a GInfo to get screen aspect ratio */
594
595 /* Delete the old gadget box */
596 if (!msg->gpl_Initial)
597 {
598
599 struct RastPort *rp;
600
601 if ((rp = ObtainGIRPort(msg->gpl_GInfo)))
602 {
603 SetAPen(rp, msg->gpl_GInfo->gi_DrInfo->dri_Pens[BACKGROUNDPEN]);
604 D(bug("Clearing area (%d, %d, %d, %d)\n",
605 gbox->Left, gbox->Top, gbox->Left + gbox->Width, gbox->Top + gbox->Height));
606 RectFill(rp, gbox->Left, gbox->Top,
607 gbox->Left + gbox->Width - 1, gbox->Top + gbox->Height - 1);
608
609 ReleaseGIRPort(rp);
610 }
611 }
612
613 /* get the IBox surrounding the whole palette */
614 GetGadgetIBox(o, msg->gpl_GInfo, gbox);
615 D(bug("Got palette ibox: (%d, %d, %d, %d)\n",
616 gbox->Left, gbox->Top, gbox->Width, gbox->Height));
617
618 /* Get the palette box */
619 pbox->Left = gbox->Left + VBORDER + VSPACING;
620 pbox->Top = gbox->Top + HBORDER + HSPACING;
621 pbox->Width = gbox->Width - VBORDER * 2 - VSPACING * 2;
622 pbox->Height = gbox->Height - HBORDER * 2 - HSPACING * 2;
623
624
625 /* If we have an indicator box then account for this */
626 if (data->pd_IndHeight)
627 {
628 indbox->Top = pbox->Top;
629 indbox->Left = pbox->Left;
630 indbox->Width = pbox->Width;
631 indbox->Height = data->pd_IndHeight;
632
633 pbox->Height -= (indbox->Height + HSPACING * 2);
634 pbox->Top += (data->pd_IndHeight + HSPACING * 2);
635 }
636 else if (data->pd_IndWidth)
637 {
638 indbox->Left = pbox->Left;
639 indbox->Top = pbox->Top;
640 indbox->Width = data->pd_IndWidth;
641 indbox->Height = pbox->Height;
642
643 pbox->Width -= (indbox->Width + VSPACING * 2);
644 pbox->Left += (data->pd_IndWidth + VSPACING * 2);
645 }
646
647
648 /* Compute initial aspect ratio */
649 if (pbox->Width > pbox->Height)
650 {
651 cols = pbox->Width / pbox->Height;
652 rows = 1;
653 largest = &cols;
654 smallest = &rows;
655 }
656 else
657 {
658 rows = pbox->Height / pbox->Width;
659 cols = 1;
660 largest = &rows;
661 smallest = &cols;
662 }
663
664 D(bug("Biggest aspect: %d\n", *largest));
665
666 ratio = *largest;
667
668 smallest_so_far = 0xFFFF;
669
670 factor1 = 1 << Colors2Depth(data->pd_NumColors);
671 factor2 = 1;
672
673 while (factor1 >= factor2)
674 {
675
676 D(bug("trying aspect %dx%d\n", factor1, factor2));
677
678 fault = abs(ratio - (factor1 / factor2));
679 D(bug("Fault: %d, smallest fault so far: %d\n", fault, smallest_so_far));
680
681 if (fault < smallest_so_far)
682 {
683 *largest = factor1;
684 *smallest = factor2;
685
686 smallest_so_far = fault;
687 }
688
689 factor1 >>= 1;
690 factor2 <<= 1;
691
692 }
693
694 data->pd_NumCols = (UBYTE)cols;
695 data->pd_NumRows = (UBYTE)rows;
696
697 data->pd_ColWidth = pbox->Width / data->pd_NumCols;
698 data->pd_RowHeight = pbox->Height / data->pd_NumRows;
699
700 D(bug("cols=%d, rows=%d\n", data->pd_NumCols, data->pd_NumRows));
701 D(bug("colwidth=%d, rowheight=%d\n", data->pd_ColWidth, data->pd_RowHeight));
702
703 /* Adjust the pbox's and indbox's height according to leftovers */
704
705 leftover_width = pbox->Width % data->pd_NumCols;
706 leftover_height = pbox->Height % data->pd_NumRows;
707
708 pbox->Width -= leftover_width;
709 pbox->Height -= leftover_height;
710
711 if (data->pd_IndHeight)
712 indbox->Width -= leftover_width;
713 else if (data->pd_IndWidth)
714 indbox->Height -= leftover_height;
715
716 ReturnVoid("Palette::Layout");
717 }
Mirror of AROS' svn.