workbench/libs/reqtools/boopsi.c

   1 #include <graphics/gfxbase.h>
   2 #include <graphics/rastport.h>
   3 #include <graphics/text.h>
   4 #include <intuition/intuition.h>
   5 #include <intuition/imageclass.h>
   6 #include <intuition/intuition.h>
   7 #ifdef __AROS__
   8 #include <aros/asmcall.h>
   9 #endif
  10
  11 #include "filereq.h"
  12
  13 #include <string.h>
  14
  15 extern struct IClass *ButtonImgClass;
  16
  17 extern ULONG ASM myTextLength (ASM_REGPARAM(a1, char *,),
  18                                ASM_REGPARAM(a0, struct TextAttr *,),
  19                                ASM_REGPARAM(a3, UBYTE *,),
  20                                ASM_REGPARAM(a2, struct Image *,),
  21                                ASM_REGPARAM(d7, ULONG,));
  22
  23 const UWORD defaultpens[] =
  24 {
  25     1, 0, 1, 2, 1, 3, 1, 0, 2
  26 };
  27
  28 /****************************************************************************************/
  29
  30 char KeyFromStr(char *string, char underchar)
  31 {
  32     char c, ret = 0;
  33
  34     while ((c = *string++))
  35     {
  36         if (c == underchar)
  37         {
  38             ret = ToUpper(*string);
  39             break;
  40         }
  41     }
  42
  43     return ret;
  44 }
  45
  46 /****************************************************************************************/
  47
  48 ULONG myTextLength(char *str, struct TextAttr *attr, UBYTE *underscore,
  49                    struct Image *im, ULONG do_lod)
  50 {
  51     struct RastPort temprp;
  52     struct TextFont *font = NULL;
  53     WORD   pixellen = 0;
  54
  55     InitRastPort(&temprp);
  56
  57     if (attr)
  58     {
  59         font = OpenFont(attr);
  60         if (font)
  61         {
  62             SetFont(&temprp, font);
  63         }
  64         else
  65         {
  66            SetFont(&temprp, GfxBase->DefaultFont);
  67         }
  68     }
  69     else
  70     {
  71         SetFont(&temprp, GfxBase->DefaultFont);
  72     }
  73
  74     if (str)
  75     {
  76         struct LocalObjData     *lod = (struct LocalObjData *)0xDEADBEAF;
  77         char                    c, *str2;
  78         WORD                    len = strlen(str), underoff;
  79
  80         if (do_lod)
  81         {
  82             im->PlaneOnOff = 0;
  83
  84             lod = INST_DATA(ButtonImgClass, im);
  85             lod->lod_UnderOff = len;
  86
  87             im->Height = temprp.TxHeight;
  88         }
  89
  90         pixellen = TextLength(&temprp, str, len);
  91
  92         str2 = str;
  93
  94         underoff = -1;
  95
  96         while((c = *str2++))
  97         {
  98             underoff++;
  99
 100             if (c == *underscore)
 101             {
 102                 pixellen -= TextLength(&temprp, underscore, 1);
 103
 104                 if (do_lod)
 105                 {
 106                     im->PlaneOnOff = *str2;                     /* store code of underscored key */
 107                     lod->lod_UnderOff = underoff;               /* store offset of underscore */
 108                     lod->lod_RestLen = len - underoff - 1;      /* store len of remaining string */
 109                     lod->lod_UnderY = temprp.TxBaseline + 2;    /* Y position of underscore */
 110
 111                     lod->lod_UnderWidth = TextLength(&temprp, str2, 1);
 112                 }
 113                 break;
 114             }
 115         }
 116
 117     } /* if (str) */
 118
 119 #ifdef __AROS__
 120     DeinitRastPort(&temprp);
 121 #endif
 122
 123     if (font) CloseFont(font);
 124
 125     return pixellen;
 126 }
 127
 128 /****************************************************************************************/
 129
 130 #define imsg ((struct impDraw *)msg)
 131
 132 #ifdef __AROS__
 133 AROS_UFH3(IPTR, myBoopsiDispatch,
 134           AROS_UFHA(Class *, cl, A0),
 135           AROS_UFHA(struct Image *, im, A2),
 136           AROS_UFHA(Msg, msg, A1))
 137 {
 138     AROS_USERFUNC_INIT
 139 #else
 140 IPTR myBoopsiDispatch(REGPARAM(a0, Class *, cl),
 141                       REGPARAM(a2, struct Image *, im),
 142                       REGPARAM(a1, Msg, msg))
 143 {
 144 #endif
 145     struct LocalObjData *data;
 146     struct TextFont     *font, *oldfont;
 147     struct RastPort     *rp;
 148     struct Gadget       *gad;
 149     UWORD               *pens;
 150     WORD                xpos, ypos;
 151     IPTR                retval = 0;
 152
 153     switch(msg->MethodID)
 154     {
 155         case OM_NEW:
 156             retval = DoSuperMethodA(cl, (Object *)im, msg);
 157             if (retval)
 158             {
 159                 UBYTE underscorechar;
 160                 union {
 161                     struct {
 162                         WORD Width;
 163                         WORD Height;
 164                     } size;
 165                     ULONG magic;
 166                 } __tmp;
 167
 168                 im = (struct Image *)retval;
 169
 170                 data = INST_DATA(cl, im);
 171                 data->lod_IData = *(struct InitData *)im->ImageData;
 172
 173                 underscorechar = (UBYTE)data->lod_IData.idata_Underscore;
 174
 175                 im->Width = myTextLength(data->lod_IData.idata_Label,
 176                                          data->lod_IData.idata_TextAttr,
 177                                          &underscorechar,
 178                                          im,
 179                                          cl->cl_InstOffset      /* for C Routines its not really more than a flag */
 180                                          );
 181
 182                 /* Calculate text position if we have a gadget */
 183
 184                 if ((gad = data->lod_IData.idata_Gadget))
 185                 {
 186                     im->LeftEdge = (gad->Width - im->Width) / 2;
 187                     im->TopEdge = (gad->Height - im->Height) / 2;
 188
 189                 }
 190
 191                 im->ImageData = (UWORD *)im;
 192                 __tmp.magic = BUTTON_MAGIC_LONGWORD;
 193                 im->Width = __tmp.size.Width;
 194                 im->Height = __tmp.size.Height;
 195             }
 196             break;
 197
 198         case IM_DRAW:
 199             data = INST_DATA(cl, im);
 200
 201             rp = imsg->imp_RPort;
 202
 203             SetDrMd(rp, JAM1);
 204             oldfont = rp->Font;
 205             font = OpenFont(data->lod_IData.idata_TextAttr);
 206
 207             if (font)
 208                 SetFont(rp, font);
 209             else
 210                 SetFont(rp, GfxBase->DefaultFont);
 211
 212             SetSoftStyle(rp, data->lod_IData.idata_TextAttr->ta_Style, data->lod_IData.idata_TextAttr->ta_Style);
 213
 214             xpos = imsg->imp_Offset.X;
 215             ypos = imsg->imp_Offset.Y;
 216
 217             pens = imsg->imp_DrInfo->dri_Pens;
 218             if (!pens) pens = (UWORD *)defaultpens;
 219
 220             if ((gad = data->lod_IData.idata_Gadget))
 221             {
 222                 xpos = gad->LeftEdge;
 223                 ypos = gad->TopEdge;
 224
 225                 SetAPen(rp, pens[(imsg->imp_State == IDS_SELECTED) ? FILLPEN : BACKGROUNDPEN]);
 226
 227                 RectFill(rp, xpos,
 228                              ypos,
 229                              gad->LeftEdge + gad->Width - 1,
 230                              gad->TopEdge + gad->Height -1 );
 231                 im->PlanePick = (imsg->imp_State == IDS_SELECTED) ? FILLTEXTPEN : TEXTPEN;
 232             }
 233
 234             xpos += im->LeftEdge;
 235             ypos += im->TopEdge;
 236
 237             SetAPen(rp, pens[im->PlanePick]);
 238
 239             Move(rp, xpos, ypos + rp->TxBaseline);
 240
 241             /* Draw first part of text (entire text if no underscore */
 242
 243             if (data->lod_UnderOff)
 244                 Text(rp, data->lod_IData.idata_Label, data->lod_UnderOff);
 245
 246             /* Is there an underscore in text */
 247
 248             if (im->PlaneOnOff)
 249             {
 250                 /* First draw rest of text */
 251
 252                 xpos = rp->cp_x;
 253
 254                 Text(rp, data->lod_IData.idata_Label + data->lod_UnderOff + 1, data->lod_RestLen);
 255
 256                 /* Draw underscore */
 257
 258                 Move(rp, xpos, ypos + data->lod_UnderY);
 259                 Draw(rp, xpos + data->lod_UnderWidth - 1, ypos + data->lod_UnderY);
 260             }
 261
 262             if (gad)
 263             {
 264                 struct TagItem beveltags[] =
 265                 {
 266                     {GT_VisualInfo      , (IPTR)data->lod_IData.idata_VisualInfo        },
 267                     {GTBB_Recessed      , TRUE                                          },
 268                     {TAG_DONE                                                           }
 269                 };
 270
 271                 if (imsg->imp_State != IDS_SELECTED) beveltags[1].ti_Tag = TAG_IGNORE;
 272
 273                 /* draw bevelbox around gadget container (recessed if selected) */
 274
 275                 DrawBevelBoxA(rp,
 276                               gad->LeftEdge,
 277                               gad->TopEdge,
 278                               gad->Width,
 279                               gad->Height,
 280                               beveltags);
 281             }
 282
 283             SetFont(rp, oldfont);
 284             if (font) CloseFont(font);
 285             break;
 286
 287         default:
 288             retval = DoSuperMethodA(cl, (Object *)im, msg);
 289             break;
 290
 291     } /* switch(msg->MethodID) */
 292
 293     return retval;
 294 #ifdef __AROS__
 295     AROS_USERFUNC_EXIT
 296 #endif
 297 }
 298
 299 /****************************************************************************************/
 300 /****************************************************************************************/