workbench/libs/asl/fontstyleclass.c

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