?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Check for SYS/GL during library init. Reason is that
[AROS.git] / rom / intuition / propgadgets.c
blob015b690ee10d3d4fb4d8cdfb8527760938fc9118
1 /*
2 Copyright © 1995-2013, The AROS Development Team. All rights reserved.
3 Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
4 $Id$
5 */
6
7 #include <proto/graphics.h>
8 #include <proto/intuition.h>
9 #include <proto/cybergraphics.h>
10 #include <proto/layers.h>
11 #include <proto/utility.h>
12 #include <graphics/gfxmacros.h>
13 #include <intuition/cghooks.h>
14 #include <intuition/intuition.h>
15 #include <intuition/imageclass.h>
16 #include <intuition/windecorclass.h>
17 #include <cybergraphx/cybergraphics.h>
18 #include <graphics/rpattr.h>
19 #include "intuition_intern.h"
20 #include "propgadgets.h"
21 #ifdef SKINS
22 #include "intuition_customize.h"
23 #include "intuition_customizesupport.h"
24 #include "morphos/proprender.h"
25 #endif
26 #include "gadgets.h"
27
28 extern IPTR HookEntry();
29
30 #undef DEBUG
31 #define DEBUG 0
32 # include <aros/debug.h>
33
34 BOOL isonborder(struct Gadget *gadget,struct Window *window);
35
36 static void RenderPropBackground(struct Gadget *gad, struct Window *win, struct DrawInfo *dri,
37 struct Rectangle *rect, struct Rectangle *proprect,
38 struct Rectangle *knobrect, struct PropInfo *pi,
39 struct RastPort *rp, BOOL onborder,
40 struct IntuitionBase *IntuitionBase)
41 {
42 struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
43 struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
44
45 if (onborder)
46 {
47 struct wdpDrawBorderPropBack msg;
48
49 msg.MethodID = WDM_DRAW_BORDERPROPBACK;
50
51 msg.wdp_Window = win;
52 msg.wdp_TrueColor = (((struct IntScreen *)win->WScreen)->DInfo.dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
53 msg.wdp_UserBuffer = ((struct IntWindow *)win)->DecorUserBuffer;
54
55 msg.wdp_RPort = rp;
56 msg.wdp_Gadget = gad;
57 msg.wdp_RenderRect = rect;
58 msg.wdp_PropRect = proprect;
59 msg.wdp_KnobRect = knobrect;
60 msg.wdp_Flags = 0;
61 msg.wdp_Dri = dri;
62
63 DoMethodA(((struct IntScreen *)(win->WScreen))->WinDecorObj, (Msg)&msg);
64 }
65 else
66 {
67 static CONST UWORD pattern[] = {0x5555,0xAAAA};
68 struct Hook *dhook = NULL;
69
70 if ((gad->Flags & GFLG_EXTENDED) != 0)
71 {
72 if ((((struct ExtGadget *) gad)->MoreFlags & GMORE_BOOPSIGADGET) != 0)
73 {
74 GetAttr(PGA_DisplayHook, (Object *) gad, (IPTR *)&dhook);
75 }
76 }
77 if (dhook) {
78
79 struct wdpDrawBorderPropBack msg;
80
81 msg.MethodID = WDM_DRAW_BORDERPROPBACK;
82
83 msg.wdp_Window = win;
84 msg.wdp_TrueColor = (((struct IntScreen *)win->WScreen)->DInfo.dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
85 msg.wdp_RPort = rp;
86 msg.wdp_Gadget = gad;
87 msg.wdp_RenderRect = rect;
88 msg.wdp_PropRect = proprect;
89 msg.wdp_KnobRect = knobrect;
90 msg.wdp_Flags = 0;
91 msg.wdp_Dri = dri;
92
93 CallHookPkt(dhook, (Object *) gad, (Msg)&msg);
94 }
95 else
96 {
97 SetDrMd(rp, JAM2);
98
99 if (pi->Flags & PROPNEWLOOK)
100 {
101 SetAfPt(rp, pattern, 1);
102 SetAPen(rp, dri->dri_Pens[SHADOWPEN]);
103 SetBPen(rp, dri->dri_Pens[BACKGROUNDPEN]);
104
105 RectFill(rp, rect->MinX, rect->MinY, rect->MaxX, rect->MaxY);
106 SetAfPt(rp, NULL, 0);
107 }
108 else
109 {
110 SetAPen(rp, dri->dri_Pens[BACKGROUNDPEN]);
111 RectFill(rp, rect->MinX, rect->MinY, rect->MaxX, rect->MaxY);
112 }
113 }
114 }
115 }
116
117
118 VOID HandlePropSelectDown(struct Gadget *gadget, struct Window *w, struct Requester *req,
119 UWORD mouse_x, UWORD mouse_y, struct IntuitionBase *IntuitionBase)
120 {
121 struct BBox knob;
122 struct PropInfo *pi;
123 UWORD dx, dy, flags;
124
125 pi = (struct PropInfo *)gadget->SpecialInfo;
126
127 if (!pi)
128 return;
129
130 CalcBBox (w, req, gadget, &knob);
131
132 /* This func gets mouse coords relative to gadget box */
133
134 mouse_x += knob.Left;
135 mouse_y += knob.Top;
136
137 if (!CalcKnobSize (gadget, &knob))
138 return;
139
140 GetPrivIBase(IntuitionBase)->prop_clickoffset_x = mouse_x - knob.Left;
141 GetPrivIBase(IntuitionBase)->prop_clickoffset_y = mouse_y - knob.Top;
142
143 dx = pi->HorizPot;
144 dy = pi->VertPot;
145
146 if (pi->Flags & FREEHORIZ)
147 {
148 if (mouse_x < knob.Left)
149 {
150 if (dx > pi->HPotRes)
151 dx -= pi->HPotRes;
152 else
153 dx = 0;
154 }
155 else if (mouse_x >= knob.Left + knob.Width)
156 {
157 if (dx < MAXPOT - pi->HPotRes)
158 dx += pi->HPotRes;
159 else
160 dx = MAXPOT;
161 }
162 }
163
164 if (pi->Flags & FREEVERT)
165 {
166 if (mouse_y < knob.Top)
167 {
168 if (dy > pi->VPotRes)
169 dy -= pi->VPotRes;
170 else
171 dy = 0;
172 }
173 else if (mouse_y >= knob.Top + knob.Height)
174 {
175 if (dy < MAXPOT - pi->VPotRes)
176 dy += pi->VPotRes;
177 else
178 dy = MAXPOT;
179 }
180 }
181
182 flags = pi->Flags;
183
184 /* jDc: when clicked on frame, prop gadget also gets activated! */
185 if (!(flags & PROPBORDERLESS))
186 {
187 if (pi->Flags & FREEVERT)
188 {
189 knob.Left --;
190 knob.Width += 2;
191 } else {
192 knob.Top ++;
193 knob.Height += 2;
194 }
195 }
196
197 if (mouse_x >= knob.Left &&
198 mouse_y >= knob.Top &&
199 mouse_x < knob.Left + knob.Width &&
200 mouse_y < knob.Top + knob.Height)
201 {
202 flags |= KNOBHIT;
203 }
204 else
205 {
206 flags &= ~KNOBHIT;
207 }
208
209 gadget->Flags |= GFLG_SELECTED;
210
211 D(bug("New HPot: %d, new VPot: %d\n", dx, dy));
212
213 NewModifyProp(gadget, w, req, flags, dx, dy, pi->HorizBody, pi->VertBody, 1);
214
215 return;
216 }
217
218 VOID HandlePropSelectUp(struct Gadget *gadget, struct Window *w,
219 struct Requester *req, struct IntuitionBase *IntuitionBase)
220 {
221 struct PropInfo * pi;
222
223 pi = (struct PropInfo *)gadget->SpecialInfo;
224
225 gadget->Flags &= ~GFLG_SELECTED;
226 if (pi) pi->Flags &= ~KNOBHIT;
227
228 if (pi) RefreshPropGadget (gadget, w, req, IntuitionBase);
229
230 /* if (pi)
231 NewModifyProp (gadget
232 , w
233 , req
234 , pi->Flags &= ~KNOBHIT
235 , pi->HorizPot
236 , pi->VertPot
237 , pi->HorizBody
238 , pi->VertBody
239 , 1
240 ); */
241
242 return;
243 }
244
245 VOID HandlePropMouseMove(struct Gadget *gadget, struct Window *w,struct Requester *req,
246 LONG dx, LONG dy, struct IntuitionBase *IntuitionBase)
247 {
248 struct BBox knob;
249 struct PropInfo *pi;
250
251 pi = (struct PropInfo *)gadget->SpecialInfo;
252
253 /* Has propinfo and the mouse was over the knob */
254 if (pi && (pi->Flags & KNOBHIT))
255 {
256 CalcBBox (w, req, gadget, &knob);
257
258 if (!CalcKnobSize (gadget, &knob))
259 return;
260
261 /* Move the knob the same amount, ie.
262 knob.Left += dx; knob.Top += dy;
263
264 knob.Left = knob.Left
265 + (pi->CWidth - knob.Width)
266 * pi->HorizPot / MAXPOT;
267
268 ie. dx = (pi->CWidth - knob.Width)
269 * pi->HorizPot / MAXPOT;
270
271 or
272
273 pi->HorizPot = (dx * MAXPOT) /
274 (pi->CWidth - knob.Width);
275 */
276
277 /* stegerg: dx and dy are not delta values
278 anymore but relative to gadget
279 box */
280
281 dx = dx - GetPrivIBase(IntuitionBase)->prop_clickoffset_x;
282 dy = dy - GetPrivIBase(IntuitionBase)->prop_clickoffset_y;
283
284 if (pi->Flags & FREEHORIZ
285 && pi->CWidth != knob.Width)
286 {
287
288 dx = (dx * MAXPOT) / (pi->CWidth - knob.Width);
289 if (dx < 0)
290 {
291 dx = 0;
292 }
293 else if (dx > MAXPOT)
294 {
295 dx = MAXPOT;
296 }
297
298 } /* FREEHORIZ */
299
300 if (pi->Flags & FREEVERT
301 && pi->CHeight != knob.Height)
302 {
303 dy = (dy * MAXPOT) / (pi->CHeight - knob.Height);
304
305 if (dy < 0)
306 {
307 dy = 0;
308 }
309 else if (dy > MAXPOT)
310 {
311 dy = MAXPOT;
312 }
313
314 } /* FREEVERT */
315
316 if ( ((pi->Flags & FREEHORIZ) && (dx != pi->HorizPot)) ||
317 ((pi->Flags & FREEVERT) && (dy != pi->VertPot)) )
318
319 {
320 NewModifyProp (gadget, w, req, pi->Flags, dx, dy, pi->HorizBody, pi->VertBody, 1);
321 }
322
323 } /* Has PropInfo and Mouse is over knob */
324
325 return;
326 }
327
328 int CalcKnobSize (struct Gadget * propGadget, struct BBox * knobbox)
329 {
330 struct PropInfo *pi;
331 WORD x, y;
332
333 pi = (struct PropInfo *)propGadget->SpecialInfo;
334
335 //dprintf("CalcKnobSize(%lx,%d,%d,%d,%d)\n", propGadget,
336 // propGadget->LeftEdge, propGadget->TopEdge, propGadget->Width, propGadget->Height);
337 //dprintf("knob(%d,%d,%d,%d)\n", knobbox->Left, knobbox->Top, knobbox->Width, knobbox->Height);
338
339 if (pi->Flags & PROPBORDERLESS)
340 {
341 pi->LeftBorder = 0;
342 pi->TopBorder = 0;
343 }
344 else
345 {
346 x = y = 1;
347
348 knobbox->Left += x;
349 knobbox->Top += y;
350 knobbox->Width -= x * 2;
351 knobbox->Height -= y * 2;
352 pi->LeftBorder = x;
353 pi->TopBorder = y;
354 }
355 //dprintf("knob(%d,%d,%d,%d)\n", knobbox->Left, knobbox->Top, knobbox->Width, knobbox->Height);
356
357 pi->CWidth = knobbox->Width;
358 pi->CHeight = knobbox->Height;
359
360 if ((!(pi->Flags & AUTOKNOB)) && propGadget->GadgetRender)
361 {
362 struct Image *im = propGadget->GadgetRender;
363
364 knobbox->Width = im->Width;
365 knobbox->Height = im->Height;
366 }
367
368 if (pi->Flags & FREEHORIZ)
369 {
370 if (pi->Flags & AUTOKNOB)
371 {
372 knobbox->Width = pi->CWidth * pi->HorizBody / MAXBODY;
373 if (knobbox->Width < KNOBHMIN) knobbox->Width = KNOBHMIN;
374 }
375
376 knobbox->Left = knobbox->Left + (pi->CWidth - knobbox->Width)
377 * pi->HorizPot / MAXPOT;
378
379 if (pi->HorizBody)
380 {
381 if (pi->HorizBody < MAXBODY/2)
382 pi->HPotRes = MAXPOT * 32768 / ((MAXBODY * 32768 / pi->HorizBody) - 32768);
383 else
384 pi->HPotRes = MAXPOT;
385 }
386 else
387 pi->HPotRes = 1;
388 }
389
390 if (pi->Flags & FREEVERT)
391 {
392 if (pi->Flags & AUTOKNOB)
393 {
394 knobbox->Height = pi->CHeight * pi->VertBody / MAXBODY;
395 if (knobbox->Height < KNOBVMIN) knobbox->Height = KNOBVMIN;
396 }
397
398 knobbox->Top = knobbox->Top + (pi->CHeight - knobbox->Height)
399 * pi->VertPot / MAXPOT;
400
401 if (pi->VertBody)
402 {
403 if (pi->VertBody < MAXBODY/2)
404 pi->VPotRes = MAXPOT * 32768 / ((MAXBODY * 32768 / pi->VertBody) - 32768);
405 else
406 pi->VPotRes = MAXPOT;
407 }
408 else
409 pi->VPotRes = 1;
410 }
411 //dprintf("knob(%d,%d,%d,%d)\n", knobbox->Left, knobbox->Top, knobbox->Width, knobbox->Height);
412
413 return TRUE;
414 } /* CalcKnobSize */
415
416
417 void RefreshPropGadget (struct Gadget * gadget, struct Window * window,
418 struct Requester * req, struct IntuitionBase * IntuitionBase)
419 {
420 struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
421 struct PropInfo *pi;
422 struct DrawInfo *dri;
423 struct GadgetInfo gi;
424 struct RastPort *rp = 0;
425 struct BBox bbox, kbox;
426 BOOL onborder;
427
428 D(bug("RefreshPropGadget(gad=%p, win=%s, req=%p)\n", gadget, window->Title, req));
429
430 onborder = (IS_BORDER_GADGET(gadget) || isonborder(gadget,window));
431
432 if ((dri = GetScreenDrawInfo(window->WScreen)))
433 {
434
435 SetupGInfo(&gi, window, req, gadget, IntuitionBase);
436
437 if ((rp = ObtainGIRPort(&gi)))
438 {
439 for (;;)
440 {
441 CalcBBox (window, req, gadget, &bbox);
442 kbox = bbox;
443
444 if (bbox.Width <= 0 || bbox.Height <= 0)
445 break;
446
447 if (CalcKnobSize (gadget, &kbox))
448 {
449 pi = (struct PropInfo *)gadget->SpecialInfo;
450
451 if (!pi)
452 break;
453
454 SetDrMd (rp, JAM2);
455
456 if (!(pi->Flags & PROPBORDERLESS))
457 {
458 SetAPen(rp,dri->dri_Pens[SHADOWPEN]);
459 drawrect(rp,bbox.Left,
460 bbox.Top,
461 bbox.Left + bbox.Width - 1,
462 bbox.Top + bbox.Height - 1,
463 IntuitionBase);
464
465 bbox.Left ++; bbox.Top ++;
466 bbox.Width -= 2; bbox.Height -= 2;
467 }
468
469 RefreshPropGadgetKnob (gadget, &bbox, &kbox, window, req, IntuitionBase);
470 }
471 else
472 {
473
474 pi = (struct PropInfo *)gadget->SpecialInfo;
475
476 if (!pi)
477 break;
478
479 SetDrMd (rp, JAM2);
480
481 if (!(pi->Flags & PROPBORDERLESS))
482 {
483 SetAPen(rp,dri->dri_Pens[SHADOWPEN]);
484 drawrect(rp,bbox.Left,
485 bbox.Top,
486 bbox.Left + bbox.Width - 1,
487 bbox.Top + bbox.Height - 1,
488 IntuitionBase);
489
490 bbox.Left ++; bbox.Top ++;
491 bbox.Width -= 2; bbox.Height -= 2;
492
493 }
494
495 {
496 struct Rectangle tmprect;
497
498 tmprect.MinX = bbox.Left;
499 tmprect.MaxX = bbox.Left + bbox.Width - 1;
500 tmprect.MinY = bbox.Top;
501 tmprect.MaxY = bbox.Top + bbox.Height - 1;
502
503 RenderPropBackground(gadget, window, dri, &tmprect, &tmprect, NULL,
504 pi, rp, onborder, IntuitionBase);
505 }
506 } // if (CalcKnob
507 break;
508 }
509
510 } /* if ((rp = ObtainGIRPort(&gi))) */
511
512 if (rp && gadget->Flags & GFLG_DISABLED)
513 {
514 CalcBBox (window, req, gadget, &bbox);
515
516 RenderDisabledPattern(rp, (struct DrawInfo *)dri, bbox.Left,
517 bbox.Top,
518 bbox.Left + bbox.Width - 1,
519 bbox.Top + bbox.Height - 1,
520 IntuitionBase);
521 }
522
523 if (rp) ReleaseGIRPort(rp);
524
525 FreeScreenDrawInfo(window->WScreen, (struct DrawInfo *)dri);
526
527 } /* if ((dri = GetScreenDrawInfo(window->WScreen))) */
528
529 ReturnVoid("RefreshPropGadget");
530 } /* RefreshPropGadget */
531
532
533 void RefreshPropGadgetKnob (struct Gadget * gadget, struct BBox * clear,
534 struct BBox * knob, struct Window * window, struct Requester * req,
535 struct IntuitionBase * IntuitionBase)
536 {
537 struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
538 struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
539 struct DrawInfo *dri;
540 struct RastPort *rp;
541 struct PropInfo *pi;
542 struct GadgetInfo gi;
543 UWORD flags;
544 BOOL onborder;
545
546 D(bug("RefresPropGadgetKnob(flags=%d, clear=%p, knob = %p, win=%s)\n",
547 flags, clear, knob, window->Title));
548
549 if ((knob->Width < 1) || (knob->Height < 1)) return;
550
551 onborder = (IS_BORDER_GADGET(gadget) || isonborder(gadget,window));
552
553 pi = (struct PropInfo *)gadget->SpecialInfo;
554 flags = pi->Flags;
555
556 if ((dri = GetScreenDrawInfo(window->WScreen)))
557 {
558 SetupGInfo(&gi, window, req, gadget, IntuitionBase);
559
560 if ((rp = ObtainGIRPort(&gi)))
561 {
562 struct BBox bbox;
563 struct Rectangle brect;
564 struct Rectangle krect;
565
566 CalcBBox (window, req, gadget, &bbox);
567
568 if ((bbox.Width < 1) || (bbox.Height < 1))
569 {
570 ReleaseGIRPort(rp);
571 FreeScreenDrawInfo(window->WScreen, (struct DrawInfo *)dri);
572
573 return;
574 }
575
576 brect.MinX = bbox.Left;
577 brect.MinY = bbox.Top;
578 brect.MaxX = bbox.Left + bbox.Width - 1;
579 brect.MaxY = bbox.Top + bbox.Height - 1;
580
581 krect.MinX = knob->Left;
582 krect.MinY = knob->Top;
583 krect.MaxX = knob->Left + knob->Width - 1;
584 krect.MaxY = knob->Top + knob->Height - 1;
585
586 SetDrMd (rp, JAM2);
587
588 if (clear)
589 {
590 struct Rectangle a, b, clearrects[4];
591 WORD i, nrects;
592
593 #if (!(PROP_RENDER_OPTIMIZATION))
594 if (!(flags & PROPBORDERLESS))
595 {
596 clear->Left ++; clear->Top ++;
597 clear->Width -= 2; clear->Height -= 2;
598 }
599 #endif
600
601 #if 0
602 D(bug("RefresPropGadgetKnob: clear Left %d Top %d Width %d Height %d\n",
603 clear->Left,
604 clear->Top,
605 clear->Width,
606 clear->Height));
607
608 D(bug("RefresPropGadgetKnob: knob Left %d Top %d Width %d Height %d\n",
609 knob->Left,
610 knob->Top,
611 knob->Width,
612 knob->Height));
613 #endif
614
615 a.MinX = clear->Left;
616 a.MinY = clear->Top;
617 a.MaxX = clear->Left + clear->Width - 1;
618 a.MaxY = clear->Top + clear->Height - 1;
619
620 b.MinX = knob->Left;
621 b.MinY = knob->Top;
622 b.MaxX = knob->Left + knob->Width - 1;
623 b.MaxY = knob->Top + knob->Height - 1;
624
625 #if 0
626 D(bug("RefresPropGadgetKnob: a MinX %d MinY %d MaxX %d MaxY %d\n",
627 a.MinX,
628 a.MinY,
629 a.MaxX,
630 a.MaxY));
631
632 D(bug("RefresPropGadgetKnob: a MinX %d MinY %d MaxX %d MaxY %d\n",
633 b.MinX,
634 b.MinY,
635 b.MaxX,
636 b.MaxY));
637 #endif
638
639 nrects = SubtractRectFromRect(&a, &b, clearrects);
640
641 D(bug("RefresPropGadgetKnob: nrects %d\n",
642 nrects));
643 #if 0
644 D(bug("RefresPropGadgetKnob: clearrects[0] MinX %d MinY %d MaxX %d MaxY %d\n",
645 clearrects[0].MinX,
646 clearrects[0].MinY,
647 clearrects[0].MaxX,
648 clearrects[0].MaxY));
649
650 D(bug("RefresPropGadgetKnob: clearrects[1] MinX %d MinY %d MaxX %d MaxY %d\n",
651 clearrects[1].MinX,
652 clearrects[1].MinY,
653 clearrects[1].MaxX,
654 clearrects[1].MaxY));
655
656 D(bug("RefresPropGadgetKnob: clearrects[2] MinX %d MinY %d MaxX %d MaxY %d\n",
657 clearrects[2].MinX,
658 clearrects[2].MinY,
659 clearrects[2].MaxX,
660 clearrects[2].MaxY));
661
662 D(bug("RefresPropGadgetKnob: clearrects[3] MinX %d MinY %d MaxX %d MaxY %d\n",
663 clearrects[3].MinX,
664 clearrects[3].MinY,
665 clearrects[3].MaxX,
666 clearrects[3].MaxY));
667 #endif
668
669 /*kprintf("\n=== oldknob = %d,%d-%d,%d newknob = %d,%d-%d,%d\n",
670 a.MinX,
671 a.MinY,
672 a.MaxX,
673 a.MaxY,
674 b.MinX,
675 b.MinY,
676 b.MaxX,
677 b.MaxY);*/
678
679 for(i = 0; i < nrects; i++)
680 {
681 RenderPropBackground(gadget, window, dri, &clearrects[i], &brect, &krect,
682 pi, rp, onborder, IntuitionBase);
683 }
684
685 } /* if (clear) */
686
687 if (flags & AUTOKNOB)
688 {
689 int hit = ((flags & KNOBHIT) != 0);
690
691 D(bug("RefresPropGadgetKnob: draw knob Left %d Top %d Width %d Height %d\n",
692 knob->Left,
693 knob->Top,
694 knob->Width,
695 knob->Height));
696
697 if (onborder)
698 {
699 struct wdpDrawBorderPropKnob msg;
700 struct Rectangle knobrect;
701 knobrect.MinX = knob->Left;
702 knobrect.MinY = knob->Top;
703 knobrect.MaxX = knob->Left + knob->Width - 1;
704 knobrect.MaxY = knob->Top + knob->Height - 1;
705
706 msg.MethodID = WDM_DRAW_BORDERPROPKNOB;
707 msg.wdp_TrueColor = (((struct IntScreen *)window->WScreen)->DInfo.dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
708 msg.wdp_UserBuffer = ((struct IntWindow *)window)->DecorUserBuffer;
709 msg.wdp_Window = window;
710 msg.wdp_RPort = rp;
711 msg.wdp_Gadget = gadget;
712 msg.wdp_RenderRect = &knobrect;
713 msg.wdp_PropRect = &brect;
714 msg.wdp_Flags = hit ? WDF_DBPK_HIT : 0;
715 msg.wdp_Dri = dri;
716
717 DoMethodA(((struct IntScreen *)(window->WScreen))->WinDecorObj, (Msg)&msg);
718
719 } /* gadget inside window border */
720 else
721 {
722 struct Hook *dhook = NULL;
723
724 if ((gadget->Flags & GFLG_EXTENDED) != 0)
725 {
726 if ((((struct ExtGadget *) gadget)->MoreFlags & GMORE_BOOPSIGADGET) != 0)
727 {
728 GetAttr(PGA_DisplayHook, (Object *) gadget, (IPTR *)&dhook);
729 }
730 }
731 if (dhook) {
732 struct wdpDrawBorderPropKnob msg;
733 struct Rectangle knobrect;
734 knobrect.MinX = knob->Left;
735 knobrect.MinY = knob->Top;
736 knobrect.MaxX = knob->Left + knob->Width - 1;
737 knobrect.MaxY = knob->Top + knob->Height - 1;
738 msg.MethodID = WDM_DRAW_BORDERPROPKNOB;
739 msg.wdp_TrueColor = (((struct IntScreen *)window->WScreen)->DInfo.dri_Flags & DRIF_DIRECTCOLOR) ? TRUE : FALSE;
740 msg.wdp_Window = window;
741 msg.wdp_RPort = rp;
742 msg.wdp_Gadget = gadget;
743 msg.wdp_RenderRect = &knobrect;
744 msg.wdp_PropRect = &brect;
745 msg.wdp_Flags = hit ? WDF_DBPK_HIT : 0;
746 msg.wdp_Dri = dri;
747
748 CallHookPkt(dhook, (Object *) gadget, (Msg)&msg);
749 }
750 else
751 {
752
753 BOOL stdlook = TRUE;
754
755 #ifdef SKINS
756 stdlook = RenderPropKnob(window,dri,rp,pi,knob,hit,IntuitionBase);
757 #endif
758
759 if (stdlook)
760 {
761 if (flags & PROPBORDERLESS)
762 {
763 SetAPen(rp,dri->dri_Pens[SHADOWPEN]);
764
765 /* paint black right and bottom edges */
766
767 RectFill(rp,knob->Left + knob->Width - 1,
768 knob->Top,
769 knob->Left + knob->Width - 1,
770 knob->Top + knob->Height - 1);
771
772 RectFill(rp,knob->Left,
773 knob->Top + knob->Height - 1,
774 knob->Left + knob->Width - 2,
775 knob->Top + knob->Height - 1);
776
777 knob->Width--;
778 knob->Height--;
779
780 } /* propborderless */
781 else
782 {
783 SetAPen(rp,dri->dri_Pens[SHADOWPEN]);
784
785 if (flags & FREEHORIZ)
786 {
787 /* black line at the left and at the right */
788
789 RectFill(rp,knob->Left,
790 knob->Top,
791 knob->Left,
792 knob->Top + knob->Height - 1);
793
794 RectFill(rp,knob->Left + knob->Width - 1,
795 knob->Top,
796 knob->Left + knob->Width - 1,
797 knob->Top + knob->Height - 1);
798
799 knob->Left++,
800 knob->Width -= 2;
801 }
802 if (flags & FREEVERT)
803 {
804 /* black line at the top and at the bottom */
805
806 RectFill(rp,knob->Left,
807 knob->Top,
808 knob->Left + knob->Width - 1,
809 knob->Top);
810
811 RectFill(rp,knob->Left,
812 knob->Top + knob->Height - 1,
813 knob->Left + knob->Width - 1,
814 knob->Top + knob->Height - 1);
815
816 knob->Top++;
817 knob->Height -= 2;
818 }
819
820 } /* not propborderless */
821
822
823 SetAPen(rp, dri->dri_Pens[SHINEPEN]);
824
825 /* interior */
826 RectFill(rp,knob->Left,
827 knob->Top,
828 knob->Left + knob->Width - 1,
829 knob->Top + knob->Height - 1);
830 } /* stdlook */
831 } /* gadget has no display (render) hook */
832 } /* gadget not inside window border */
833
834 } /* if (flags & AUTOKNOB) */
835 else
836 {
837 struct Image *image = (struct Image *)gadget->GadgetRender;
838
839 #if 0 /* CHECKME */
840 if (knob->Top + image->Height <= bbox.Top + bbox.Height &&
841 knob->Left + image->Width <= bbox.Left + bbox.Width)
842 #endif
843 {
844 #if 1
845 image->LeftEdge = knob->Left - bbox.Left;
846 image->TopEdge = knob->Top - bbox.Top;
847 // image->Width = knob->Width;
848 // image->Height = knob->Height;
849
850 DrawImageState(rp,
851 image,
852 bbox.Left,
853 bbox.Top,
854 IDS_NORMAL,
855 (struct DrawInfo *)dri);
856 #else
857 image->LeftEdge = 0;
858 image->TopEdge = 0;
859
860 DrawImageState(rp,
861 image,
862 knob->Left,
863 knob->Top,
864 IDS_NORMAL,
865 (struct DrawInfo *)dri);
866 #endif
867 }
868 }
869
870 if (gadget->Flags & GFLG_DISABLED)
871 {
872 RenderDisabledPattern(rp, (struct DrawInfo *)dri,
873 brect.MinX, brect.MinY,
874 brect.MaxX, brect.MaxY, IntuitionBase);
875 }
876
877 ReleaseGIRPort(rp);
878
879 } /* if ((rp = ObtainGIRPort(&gi))) */
880
881 FreeScreenDrawInfo(window->WScreen, (struct DrawInfo *)dri);
882
883 } /* if ((dri = GetScreenDrawInfo(window->WScreen))) */
884
885 ReturnVoid("RefreshPropGadgetKnob");
886
887 } /* RefreshPropGadgetKnob */
888
889 BOOL isonborder(struct Gadget *gadget, struct Window *window)
890 {
891 if ((window->BorderBottom > 2) && (gadget->Flags & GFLG_RELBOTTOM))
892 if (window->Height + gadget->TopEdge >= window->Height - window->BorderBottom) return TRUE;
893
894 if ((window->BorderRight > 2) && (gadget->Flags & GFLG_RELRIGHT))
895 if (window->Width + gadget->LeftEdge >= window->Width - window->BorderRight) return TRUE;
896
897 return FALSE;
898 }
Mirror of AROS' svn.