rom/intuition/boolgadgets.c

   1 /*
   2     Copyright © 1995-2011, 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     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  61     /* FIXME: Amiga handmade (non-boopsi) bool gadgets do not seem to know anything about
  62      * GFLG_LABELSTRING/GFLG_LABELIMAGE. Instead they always assume GadgetText to
  63      * point to a struct IntuiText!!!
  64      */
  65
  66     if (gadget->GadgetText)
  67     {
  68         SetFont(rp, dri->dri_Font);
  69
  70         switch (gadget->Flags & GFLG_LABELMASK)
  71         {
  72             case GFLG_LABELITEXT:
  73                 PrintIText (rp, gadget->GadgetText, bbox->Left, bbox->Top);
  74                 break;
  75
  76             case GFLG_LABELSTRING:
  77                 {
  78                     STRPTR text = (STRPTR) gadget->GadgetText;
  79                     int    len, labelwidth, labelheight;
  80
  81                     len = strlen (text);
  82
  83                     labelwidth = LabelWidth (rp, text, len, IntuitionBase);
  84                     labelheight = rp->Font->tf_YSize;
  85
  86                     SetAPen (rp, 1);
  87                     SetDrMd (rp, JAM1);
  88
  89                     Move (rp, bbox->Left + bbox->Width  / 2 - labelwidth / 2,
  90                           bbox->Top  + bbox->Height / 2 - labelheight / 2 + rp->Font->tf_Baseline);
  91
  92                     RenderLabel (rp, text, len, IntuitionBase);
  93                     break;
  94                 }
  95
  96             case GFLG_LABELIMAGE:
  97                 DrawImageState (rp, (struct Image *)gadget->GadgetText,
  98                                 bbox->Left,
  99                                 bbox->Top,
 100                                 IDS_NORMAL,
 101                                 dri);
 102                 break;
 103
 104         } /* switch (gadget->Flags & GFLG_LABELMASK) */
 105
 106     } /* GadgetText */
 107
 108 }
 109
 110 /****************************************************************************************/
 111
 112 void RefreshBoolGadget (struct Gadget * gadget, struct Window * window,
 113                         struct Requester * requester, struct IntuitionBase * IntuitionBase)
 114 {
 115     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
 116     struct RastPort     *rp;
 117     struct GadgetInfo    gi;
 118     struct DrawInfo     *dri;
 119     struct BBox          bbox;
 120     ULONG                state;
 121     APTR                 render;
 122
 123     DEBUG_REFRESHBOOLGADGET(dprintf("RefreshBoolGadget: gadget %p window %p req %p\n",
 124                                     gadget, window, requester));
 125
 126     CalcBBox (window, requester, gadget, &bbox);
 127
 128     state = GetGadgetState(window, gadget);
 129
 130     SetupGInfo(&gi, window, requester, gadget, IntuitionBase);
 131
 132     rp = ObtainGIRPort(&gi);
 133     if (!rp) return;
 134
 135     dri = GetScreenDrawInfo(window->WScreen);
 136
 137     SetDrMd (rp, JAM1);
 138
 139     switch (gadget->Flags & GFLG_GADGHIGHBITS)
 140     {
 141         case GFLG_GADGHIMAGE:
 142             render = GETRENDER(gadget);
 143             RENDERGADGET(window,gadget,render);
 144             break;
 145
 146         case GFLG_GADGHCOMP:
 147         case GFLG_GADGHNONE:
 148         case GFLG_GADGHBOX:
 149             render = gadget->GadgetRender;
 150             RENDERGADGET(window,gadget,render);
 151             break;
 152
 153     } /* switch GadgetHighlightMethod */
 154
 155     RenderBoolLabel(rp, gadget, &bbox, dri, IntuitionBase);
 156
 157     if ((bbox.Width >= 1) && (bbox.Height >= 1))
 158     {
 159         switch (gadget->Flags & GFLG_GADGHIGHBITS)
 160         {
 161             case GFLG_GADGHCOMP:
 162                 if (gadget->Flags & GFLG_SELECTED)
 163                 {
 164                     SetDrMd (rp, COMPLEMENT);
 165
 166                     RectFill (rp, bbox.Left,
 167                               bbox.Top,
 168                               bbox.Left + bbox.Width - 1,
 169                               bbox.Top + bbox.Height - 1);
 170                 }
 171                 break;
 172
 173             case GFLG_GADGHBOX:
 174                 if (gadget->Flags & GFLG_SELECTED)
 175                 {
 176                     SetDrMd (rp, COMPLEMENT);
 177
 178                     RectFill (rp, bbox.Left - BOXSIZEX,
 179                               bbox.Top  - BOXSIZEY,
 180                               bbox.Left + bbox.Width  - 1 + BOXSIZEX,
 181                               bbox.Top  + bbox.Height - 1 + BOXSIZEY);
 182
 183                     RectFill (rp, bbox.Left,
 184                               bbox.Top,
 185                               bbox.Left + bbox.Width - 1,
 186                               bbox.Top + bbox.Height - 1);
 187                 }
 188
 189                 break;
 190
 191         } /* Highlight after contents have been drawn */
 192
 193         if ( gadget->Flags & GFLG_DISABLED )
 194         {
 195             RenderDisabledPattern(rp, dri, bbox.Left,
 196                                   bbox.Top,
 197                                   bbox.Left + bbox.Width - 1,
 198                                   bbox.Top + bbox.Height - 1,
 199                                   IntuitionBase );
 200         }
 201
 202     } /* if ((bbox.Width >= 1) && (bbox.Height >= 1)) */
 203
 204     FreeScreenDrawInfo(window->WScreen, dri);
 205
 206     ReleaseGIRPort(rp);
 207
 208 } /* RefreshBoolGadget */
 209
 210 /*****************************************************************************************
 211
 212 This function is called by Intuition's InputHandler when the GFLG_SELECTED state changed
 213
 214 *****************************************************************************************/
 215
 216 void RefreshBoolGadgetState(struct Gadget * gadget, struct Window * window,
 217                             struct Requester * requester, struct IntuitionBase *IntuitionBase)
 218 {
 219     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
 220     struct GadgetInfo    gi;
 221     struct RastPort     *rp;
 222     struct DrawInfo     *dri;
 223     struct BBox          bbox;
 224     ULONG                state;
 225     APTR                 render;
 226
 227     DEBUG_REFRESHBOOLGADGET(dprintf("RefreshBoolGadgetState: gadget %p window %p req %p\n",
 228                                     gadget, window, requester));
 229
 230     if ((gadget->Flags & GFLG_GADGHIGHBITS) == GFLG_GADGHNONE) return;
 231
 232     CalcBBox (window, requester, gadget, &bbox);
 233
 234     state = GetGadgetState(window, gadget);
 235
 236     SetupGInfo(&gi, window, requester, gadget, IntuitionBase);
 237
 238     rp = ObtainGIRPort(&gi);
 239     if (!rp) return;
 240
 241     dri = GetScreenDrawInfo(window->WScreen);
 242
 243     SetDrMd (rp, JAM1);
 244
 245     switch (gadget->Flags & GFLG_GADGHIGHBITS)
 246     {
 247         case GFLG_GADGHIMAGE:
 248             render = GETRENDER(gadget);
 249             RENDERGADGET(window,gadget,render);
 250             RenderBoolLabel(rp, gadget, &bbox, dri, IntuitionBase);
 251             break;
 252
 253     } /* switch GadgetHighlightMethod */
 254
 255     if ((bbox.Width >= 1) && (bbox.Height >= 1))
 256     {
 257         switch (gadget->Flags & GFLG_GADGHIGHBITS)
 258         {
 259             case GFLG_GADGHCOMP:
 260                 SetDrMd (rp, COMPLEMENT);
 261
 262                 RectFill (rp, bbox.Left,
 263                           bbox.Top,
 264                           bbox.Left + bbox.Width - 1,
 265                           bbox.Top + bbox.Height - 1);
 266                 break;
 267
 268             case GFLG_GADGHBOX:
 269                 SetDrMd (rp, COMPLEMENT);
 270
 271                 RectFill (rp, bbox.Left - BOXSIZEX,
 272                           bbox.Top  - BOXSIZEY,
 273                           bbox.Left + bbox.Width  - 1 + BOXSIZEX,
 274                           bbox.Top  + bbox.Height - 1 + BOXSIZEY);
 275
 276                 RectFill (rp, bbox.Left,
 277                           bbox.Top,
 278                           bbox.Left + bbox.Width - 1,
 279                           bbox.Top + bbox.Height - 1);
 280                 break;
 281
 282         } /* switch (gadget->Flags & GFLG_GADGHIGHBITS) */
 283
 284     } /* if ((bbox.Width >= 1) && (bbox.Height >= 1)) */
 285
 286     FreeScreenDrawInfo(window->WScreen, dri);
 287
 288     ReleaseGIRPort(rp);
 289 }
 290
 291 /****************************************************************************************/