rom/intuition/boolgadgets.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     Routines for BOOL Gadgets
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #include <proto/graphics.h>
  12 #include <proto/intuition.h>
  13 #include <intuition/cghooks.h>
  14 #include <intuition/imageclass.h>
  15 #include <graphics/gfxmacros.h>
  16
  17 #include <string.h>
  18
  19 #include "intuition_intern.h"
  20 #include "gadgets.h"
  21
  22 #define DEBUG_REFRESHBOOLGADGET(x)  ;
  23
  24 /****************************************************************************************/
  25
  26 #define RENDERGADGET(win,gad,rend)                  \
  27     if (rend)                                       \
  28     {                                               \
  29         if (gad->Flags & GFLG_GADGIMAGE)            \
  30         {                                           \
  31             DrawImageState (rp                      \
  32                             , (struct Image *)rend  \
  33                             , bbox.Left             \
  34                             , bbox.Top              \
  35                             , state                 \
  36                             , dri                   \
  37                            );                       \
  38         }                                           \
  39         else                                        \
  40         {                                           \
  41             DrawBorder (rp                          \
  42                         , (struct Border *)rend     \
  43                         , bbox.Left                 \
  44                         , bbox.Top                  \
  45                        );                           \
  46         }                                           \
  47     }
  48
  49 #define GETRENDER(gad)  (gad->SelectRender && (gad->Flags & GFLG_SELECTED)) ? \
  50                         gad->SelectRender : gad->GadgetRender;
  51
  52 #define BOXSIZEX 4
  53 #define BOXSIZEY 4
  54
  55 /****************************************************************************************/
  56
  57 static void RenderBoolLabel(struct RastPort *rp, struct Gadget *gadget, struct BBox *bbox,
  58                             struct DrawInfo *dri, struct IntuitionBase *IntuitionBase)
  59 {
  60     #warning Amiga handmade (non-boopsi) bool gadgets do not seem to know anything about
  61     #warning GFLG_LABELSTRING/GFLG_LABELIMAGE. Instead they always assume GadgetText to
  62     #warning point to a struct IntuiText!!!
  63
  64     if (gadget->GadgetText)
  65     {
  66         SetFont(rp, dri->dri_Font);
  67
  68         switch (gadget->Flags & GFLG_LABELMASK)
  69         {
  70             case GFLG_LABELITEXT:
  71                 PrintIText (rp, gadget->GadgetText, bbox->Left, bbox->Top);
  72                 break;
  73
  74             case GFLG_LABELSTRING:
  75                 {
  76                     STRPTR text = (STRPTR) gadget->GadgetText;
  77                     int    len, labelwidth, labelheight;
  78
  79                     len = strlen (text);
  80
  81                     labelwidth = LabelWidth (rp, text, len, IntuitionBase);
  82                     labelheight = rp->Font->tf_YSize;
  83
  84                     SetAPen (rp, 1);
  85                     SetDrMd (rp, JAM1);
  86
  87                     Move (rp, bbox->Left + bbox->Width  / 2 - labelwidth / 2,
  88                           bbox->Top  + bbox->Height / 2 - labelheight / 2 + rp->Font->tf_Baseline);
  89
  90                     RenderLabel (rp, text, len, IntuitionBase);
  91                     break;
  92                 }
  93
  94             case GFLG_LABELIMAGE:
  95                 DrawImageState (rp, (struct Image *)gadget->GadgetText,
  96                                 bbox->Left,
  97                                 bbox->Top,
  98                                 IDS_NORMAL,
  99                                 dri);
 100                 break;
 101
 102         } /* switch (gadget->Flags & GFLG_LABELMASK) */
 103
 104     } /* GadgetText */
 105
 106 }
 107
 108 /****************************************************************************************/
 109
 110 void RefreshBoolGadget (struct Gadget * gadget, struct Window * window,
 111                         struct Requester * requester, struct IntuitionBase * IntuitionBase)
 112 {
 113     struct RastPort     *rp;
 114     struct GadgetInfo    gi;
 115     struct DrawInfo     *dri;
 116     struct BBox          bbox;
 117     ULONG                state;
 118     APTR                 render;
 119
 120     DEBUG_REFRESHBOOLGADGET(dprintf("RefreshBoolGadget: gadget %p window %p req %p\n",
 121                                     gadget, window, requester));
 122
 123     CalcBBox (window, requester, gadget, &bbox);
 124
 125     state = GetGadgetState(window, gadget);
 126
 127     SetupGInfo(&gi, window, requester, gadget, IntuitionBase);
 128
 129     rp = ObtainGIRPort(&gi);
 130     if (!rp) return;
 131
 132     dri = GetScreenDrawInfo(window->WScreen);
 133
 134     SetDrMd (rp, JAM1);
 135
 136     switch (gadget->Flags & GFLG_GADGHIGHBITS)
 137     {
 138         case GFLG_GADGHIMAGE:
 139             render = GETRENDER(gadget);
 140             RENDERGADGET(window,gadget,render);
 141             break;
 142
 143         case GFLG_GADGHCOMP:
 144         case GFLG_GADGHNONE:
 145         case GFLG_GADGHBOX:
 146             render = gadget->GadgetRender;
 147             RENDERGADGET(window,gadget,render);
 148             break;
 149
 150     } /* switch GadgetHighlightMethod */
 151
 152     RenderBoolLabel(rp, gadget, &bbox, dri, IntuitionBase);
 153
 154     if ((bbox.Width >= 1) && (bbox.Height >= 1))
 155     {
 156         switch (gadget->Flags & GFLG_GADGHIGHBITS)
 157         {
 158             case GFLG_GADGHCOMP:
 159                 if (gadget->Flags & GFLG_SELECTED)
 160                 {
 161                     SetDrMd (rp, COMPLEMENT);
 162
 163                     RectFill (rp, bbox.Left,
 164                               bbox.Top,
 165                               bbox.Left + bbox.Width - 1,
 166                               bbox.Top + bbox.Height - 1);
 167                 }
 168                 break;
 169
 170             case GFLG_GADGHBOX:
 171                 if (gadget->Flags & GFLG_SELECTED)
 172                 {
 173                     SetDrMd (rp, COMPLEMENT);
 174
 175                     RectFill (rp, bbox.Left - BOXSIZEX,
 176                               bbox.Top  - BOXSIZEY,
 177                               bbox.Left + bbox.Width  - 1 + BOXSIZEX,
 178                               bbox.Top  + bbox.Height - 1 + BOXSIZEY);
 179
 180                     RectFill (rp, bbox.Left,
 181                               bbox.Top,
 182                               bbox.Left + bbox.Width - 1,
 183                               bbox.Top + bbox.Height - 1);
 184                 }
 185
 186                 break;
 187
 188         } /* Highlight after contents have been drawn */
 189
 190         if ( gadget->Flags & GFLG_DISABLED )
 191         {
 192             RenderDisabledPattern(rp, dri, bbox.Left,
 193                                   bbox.Top,
 194                                   bbox.Left + bbox.Width - 1,
 195                                   bbox.Top + bbox.Height - 1,
 196                                   IntuitionBase );
 197         }
 198
 199     } /* if ((bbox.Width >= 1) && (bbox.Height >= 1)) */
 200
 201     FreeScreenDrawInfo(window->WScreen, dri);
 202
 203     ReleaseGIRPort(rp);
 204
 205 } /* RefreshBoolGadget */
 206
 207 /*****************************************************************************************
 208
 209 This function is called by Intuition's InputHandler when the GFLG_SELECTED state changed
 210
 211 *****************************************************************************************/
 212
 213 void RefreshBoolGadgetState(struct Gadget * gadget, struct Window * window,
 214                             struct Requester * requester, struct IntuitionBase *IntuitionBase)
 215 {
 216     struct GadgetInfo    gi;
 217     struct RastPort     *rp;
 218     struct DrawInfo     *dri;
 219     struct BBox          bbox;
 220     ULONG                state;
 221     APTR                 render;
 222
 223     DEBUG_REFRESHBOOLGADGET(dprintf("RefreshBoolGadgetState: gadget %p window %p req %p\n",
 224                                     gadget, window, requester));
 225
 226     if ((gadget->Flags & GFLG_GADGHIGHBITS) == GFLG_GADGHNONE) return;
 227
 228     CalcBBox (window, requester, gadget, &bbox);
 229
 230     state = GetGadgetState(window, gadget);
 231
 232     SetupGInfo(&gi, window, requester, gadget, IntuitionBase);
 233
 234     rp = ObtainGIRPort(&gi);
 235     if (!rp) return;
 236
 237     dri = GetScreenDrawInfo(window->WScreen);
 238
 239     SetDrMd (rp, JAM1);
 240
 241     switch (gadget->Flags & GFLG_GADGHIGHBITS)
 242     {
 243         case GFLG_GADGHIMAGE:
 244             render = GETRENDER(gadget);
 245             RENDERGADGET(window,gadget,render);
 246             RenderBoolLabel(rp, gadget, &bbox, dri, IntuitionBase);
 247             break;
 248
 249     } /* switch GadgetHighlightMethod */
 250
 251     if ((bbox.Width >= 1) && (bbox.Height >= 1))
 252     {
 253         switch (gadget->Flags & GFLG_GADGHIGHBITS)
 254         {
 255             case GFLG_GADGHCOMP:
 256                 SetDrMd (rp, COMPLEMENT);
 257
 258                 RectFill (rp, bbox.Left,
 259                           bbox.Top,
 260                           bbox.Left + bbox.Width - 1,
 261                           bbox.Top + bbox.Height - 1);
 262                 break;
 263
 264             case GFLG_GADGHBOX:
 265                 SetDrMd (rp, COMPLEMENT);
 266
 267                 RectFill (rp, bbox.Left - BOXSIZEX,
 268                           bbox.Top  - BOXSIZEY,
 269                           bbox.Left + bbox.Width  - 1 + BOXSIZEX,
 270                           bbox.Top  + bbox.Height - 1 + BOXSIZEY);
 271
 272                 RectFill (rp, bbox.Left,
 273                           bbox.Top,
 274                           bbox.Left + bbox.Width - 1,
 275                           bbox.Top + bbox.Height - 1);
 276                 break;
 277
 278         } /* switch (gadget->Flags & GFLG_GADGHIGHBITS) */
 279
 280     } /* if ((bbox.Width >= 1) && (bbox.Height >= 1)) */
 281
 282     FreeScreenDrawInfo(window->WScreen, dri);
 283
 284     ReleaseGIRPort(rp);
 285 }
 286
 287 /****************************************************************************************/