workbench/libs/asl/fontstyleclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/alib.h>
   7 #include <proto/exec.h>
   8 #include <proto/utility.h>
   9 #include <proto/intuition.h>
  10 #include <proto/graphics.h>
  11 #include <proto/layers.h>
  12
  13 #include <exec/memory.h>
  14 #include <intuition/screens.h>
  15 #include <intuition/cghooks.h>
  16 #include <intuition/imageclass.h>
  17 #include <intuition/gadgetclass.h>
  18 #include <graphics/gfx.h>
  19 #include <graphics/text.h>
  20
  21 #include <string.h>
  22
  23 #include "asl_intern.h"
  24 #include "layout.h"
  25
  26 #define SDEBUG 0
  27 #define DEBUG 0
  28
  29 #include <aros/debug.h>
  30
  31 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  32 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  33
  34 #define AslBase CLASS_ASLBASE
  35
  36 /********************** ASL FONTPREVIEW CLASS **************************************************/
  37
  38 static const UBYTE gadindextostylemap[3] =
  39 {
  40     FSF_BOLD,
  41     FSF_ITALIC,
  42     FSF_UNDERLINED
  43 };
  44
  45 /***********************************************************************************/
  46
  47 IPTR AslFontStyle__OM_NEW(Class * cl, Object * o, struct opSet * msg)
  48 {
  49     struct AslFontStyleData *data;
  50     struct TagItem fitags[] =
  51     {
  52         {IA_FrameType, FRAME_BUTTON},
  53         {IA_EdgesOnly, FALSE       },
  54         {TAG_DONE, 0UL}
  55     };
  56     STRPTR *labelarray;
  57
  58     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
  59
  60     if (o)
  61     {
  62         data = INST_DATA(cl, o);
  63
  64         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
  65
  66         data->style = GetTagData(ASLFS_Style, FS_NORMAL, msg->ops_AttrList);
  67
  68         if ((labelarray = (STRPTR *)GetTagData(ASLFS_LabelArray, 0, msg->ops_AttrList)))
  69         {
  70             data->text[0] = labelarray[0];
  71             data->text[1] = labelarray[1];
  72             data->text[2] = labelarray[2];
  73         }
  74         else
  75         {
  76             data->text[0] = "B";
  77             data->text[1] = "I";
  78             data->text[2] = "U";
  79         }
  80
  81     } /* if (o) */
  82
  83     return (IPTR)o;
  84 }
  85
  86 /***********************************************************************************/
  87
  88 IPTR AslFontStyle__OM_DISPOSE(Class * cl, Object * o, Msg msg)
  89 {
  90     struct AslFontStyleData *data;
  91     IPTR retval;
  92
  93     data = INST_DATA(cl, o);
  94     if (data->frame) DisposeObject(data->frame);
  95
  96     retval = DoSuperMethodA(cl, o, msg);
  97
  98     return retval;
  99 }
 100
 101 /***********************************************************************************/
 102
 103 IPTR AslFontStyle__OM_SET(Class * cl, Object * o, struct opSet * msg)
 104 {
 105     struct AslFontStyleData     *data;
 106     struct TagItem              *tag;
 107     struct TagItem              *tstate = msg->ops_AttrList;
 108     struct RastPort             *rp;
 109     BOOL                         redraw = FALSE;
 110     IPTR                         retval;
 111
 112     data = INST_DATA(cl, o);
 113
 114     retval = DoSuperMethodA(cl, o, (Msg)msg);
 115
 116     while((tag = NextTagItem(&tstate)))
 117     {
 118         switch(tag->ti_Tag)
 119         {
 120             case ASLFS_Style:
 121                 data->style = tag->ti_Data;
 122                 redraw = TRUE;
 123                 break;
 124
 125         }
 126     }
 127
 128     if (redraw)
 129     {
 130         if ((rp = ObtainGIRPort(msg->ops_GInfo)))
 131         {
 132             struct gpRender gpr;
 133
 134             gpr.MethodID   = GM_RENDER;
 135             gpr.gpr_GInfo  = msg->ops_GInfo;
 136             gpr.gpr_RPort  = rp;
 137             gpr.gpr_Redraw = GREDRAW_UPDATE;
 138
 139             DoMethodA(o, (Msg)&gpr);
 140
 141             ReleaseGIRPort(rp);
 142         }
 143     }
 144
 145     return retval;
 146
 147 }
 148
 149 /***********************************************************************************/
 150
 151 IPTR AslFontStyle__OM_GET(Class *cl, Object *o, struct opGet *msg)
 152 {
 153     struct AslFontStyleData *data = INST_DATA(cl, o);
 154
 155     IPTR retval = 1;
 156
 157     switch(msg->opg_AttrID)
 158     {
 159         case ASLFS_Style:
 160             *msg->opg_Storage = data->style;
 161             break;
 162
 163         default:
 164             retval = DoSuperMethodA(cl, o, (Msg)msg);
 165             break;
 166     }
 167
 168     return retval;
 169 }
 170
 171
 172 /***********************************************************************************/
 173
 174 IPTR AslFontStyle__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 175 {
 176     struct AslFontStyleData     *data;
 177     struct RastPort             *rp;
 178     WORD                         x, y, w, h, i, sw;
 179
 180     getgadgetcoords(g, msg->gpr_GInfo, &x, &y, &w, &h);
 181
 182     data = INST_DATA(cl, g);
 183     rp = msg->gpr_RPort;
 184
 185     sw = w / 3;
 186
 187     if (data->frame)
 188     {
 189         SetAttrs(data->frame, IA_Width, sw,
 190                               IA_Height, h,
 191                               TAG_DONE);
 192     }
 193
 194     for(i = 0; i < 3; i++)
 195     {
 196         struct TextExtent te;
 197         BOOL set;
 198
 199         set = (data->style & gadindextostylemap[i]) ? TRUE : FALSE;
 200
 201         if (data->frame)
 202         {
 203
 204             DrawImageState(rp,
 205                            (struct Image *)data->frame,
 206                            x,
 207                            y,
 208                            set ? IDS_SELECTED : IDS_NORMAL,
 209                            msg->gpr_GInfo->gi_DrInfo);
 210         }
 211
 212         SetSoftStyle(rp, gadindextostylemap[i], AskSoftStyle(rp));
 213         SetAPen(rp, msg->gpr_GInfo->gi_DrInfo->dri_Pens[set ? HIGHLIGHTTEXTPEN : TEXTPEN]);
 214         SetDrMd(rp, JAM1);
 215
 216         TextExtent(rp, data->text[i], strlen(data->text[i]), &te);
 217         w = te.te_Extent.MaxX - te.te_Extent.MinX + 1;
 218
 219         Move(rp,
 220              x + (sw - w) / 2 - te.te_Extent.MinX,
 221              y + (h - rp->TxHeight) / 2 + rp->TxBaseline);
 222         Text(rp, data->text[i], strlen(data->text[i]));
 223
 224         x += sw;
 225     }
 226
 227     return 0;
 228 }
 229
 230 /***********************************************************************************/
 231
 232 IPTR AslFontStyle__GM_GOACTIVE(Class *cl, struct Gadget *g, struct gpInput *msg)
 233 {
 234     struct AslFontStyleData *data;
 235     struct RastPort         *rp;
 236     WORD                     x, y, w, h;
 237
 238     if (!msg->gpi_IEvent) return GMR_NOREUSE;
 239
 240     getgadgetcoords(g, msg->gpi_GInfo, &x, &y, &w, &h);
 241
 242     data = INST_DATA(cl, g);
 243
 244     w /= 3;
 245     x = msg->gpi_Mouse.X / w;
 246     if (x < 0) x = 0; else if (x > 2) x = 2;
 247
 248     data->style ^= gadindextostylemap[x];
 249
 250     if ((rp = ObtainGIRPort(msg->gpi_GInfo)))
 251     {
 252         struct gpRender gpr;
 253
 254         gpr.MethodID   = GM_RENDER;
 255         gpr.gpr_GInfo  = msg->gpi_GInfo;
 256         gpr.gpr_RPort  = rp;
 257         gpr.gpr_Redraw = GREDRAW_UPDATE;
 258
 259         DoMethodA((Object *)g, (Msg)&gpr);
 260
 261         ReleaseGIRPort(rp);
 262     }
 263
 264     *msg->gpi_Termination = data->style;
 265
 266     return GMR_NOREUSE | GMR_VERIFY;
 267 }
 268
 269
 270 /***********************************************************************************/