workbench/libs/asl/fontpreviewclass.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/rpattr.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
  32 #ifdef __MORPHOS__
  33 #ifndef NewRectRegion
  34 #define NewRectRegion(_MinX,_MinY,_MaxX,_MaxY) \
  35 ({ struct Region *_region; \
  36         if ((_region = NewRegion())) \
  37         { struct Rectangle _rect; \
  38                 _rect.MinX = _MinX; \
  39                 _rect.MinY = _MinY; \
  40                 _rect.MaxX = _MaxX; \
  41                 _rect.MaxY = _MaxY; \
  42                 if (!OrRectRegion(_region, &_rect)) { DisposeRegion(_region); _region = NULL; } \
  43         } \
  44         _region; \
  45 })
  46 #endif
  47 #endif
  48
  49
  50 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  51 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  52
  53 #define AslBase CLASS_ASLBASE
  54
  55 #define PREVIEW_TEXT "123 AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz!@#$%^&*()"
  56 #define PREVIEW_BORDER_X 4
  57 #define PREVIEW_BORDER_Y 4
  58
  59 /********************** ASL FONTPREVIEW CLASS **************************************************/
  60
  61 IPTR AslFontPreview__OM_NEW(Class * cl, Object * o, struct opSet * msg)
  62 {
  63     struct AslFontPreviewData *data;
  64     struct TagItem fitags[] =
  65     {
  66         {IA_FrameType, FRAME_BUTTON},
  67         {IA_EdgesOnly, TRUE        },
  68         {IA_Recessed , TRUE        },
  69         {TAG_DONE, 0UL}
  70     };
  71
  72     o = (Object *)DoSuperMethodA(cl, o, (Msg)msg);
  73
  74     if (o)
  75     {
  76         data = INST_DATA(cl, o);
  77
  78         data->frame = NewObjectA(NULL, FRAMEICLASS, fitags);
  79         data->previewtext = (STRPTR)GetTagData(ASLFP_SampleText, 0, msg->ops_AttrList);
  80         if (!data->previewtext) data->previewtext = PREVIEW_TEXT;
  81
  82         data->apen = 1;
  83         data->bpen = 0;
  84         data->drawstyle = FS_NORMAL;
  85
  86     } /* if (o) */
  87
  88     return (IPTR)o;
  89 }
  90
  91 /***********************************************************************************/
  92
  93 IPTR AslFontPreview__OM_DISPOSE(Class * cl, Object * o, Msg msg)
  94 {
  95     struct AslFontPreviewData *data;
  96     IPTR retval;
  97
  98     data = INST_DATA(cl, o);
  99     if (data->frame) DisposeObject(data->frame);
 100
 101     retval = DoSuperMethodA(cl, o, msg);
 102
 103     return retval;
 104 }
 105
 106 /***********************************************************************************/
 107
 108 IPTR AslFontPreview__OM_SET(Class * cl, Object * o, struct opSet * msg)
 109 {
 110     struct AslFontPreviewData   *data;
 111     struct TagItem              *tag;
 112     struct TagItem              *tstate = msg->ops_AttrList;
 113     struct RastPort             *rp;
 114     BOOL                         redraw = FALSE;
 115     IPTR                         retval;
 116
 117     data = INST_DATA(cl, o);
 118
 119     retval = DoSuperMethodA(cl, o, (Msg)msg);
 120
 121     while((tag = NextTagItem(&tstate)))
 122     {
 123         switch(tag->ti_Tag)
 124         {
 125             case ASLFP_APen:
 126                 data->apen = tag->ti_Data;
 127                 redraw = TRUE;
 128                 break;
 129
 130             case ASLFP_BPen:
 131                 data->bpen = tag->ti_Data;
 132                 redraw = TRUE;
 133                 break;
 134
 135             case ASLFP_Style:
 136                 data->drawstyle = tag->ti_Data;
 137                 redraw = TRUE;
 138                 break;
 139
 140             case ASLFP_Font:
 141                 data->font = (struct TextFont *)tag->ti_Data;
 142                 redraw = TRUE;
 143                 break;
 144         }
 145     }
 146
 147     if (redraw)
 148     {
 149         if ((rp = ObtainGIRPort(msg->ops_GInfo)))
 150         {
 151             struct gpRender gpr;
 152
 153             gpr.MethodID = GM_RENDER;
 154             gpr.gpr_GInfo = msg->ops_GInfo;
 155             gpr.gpr_RPort = rp;
 156             gpr.gpr_Redraw = GREDRAW_UPDATE;
 157
 158             DoMethodA(o, (Msg)&gpr);
 159
 160             ReleaseGIRPort(rp);
 161         }
 162     }
 163
 164     return retval;
 165
 166 }
 167
 168 /***********************************************************************************/
 169
 170 IPTR AslFontPreview__GM_HITTEST(Class *cl, Object *o, struct gpHitTest *msg)
 171 {
 172     return 0;
 173 }
 174
 175
 176 /***********************************************************************************/
 177
 178 IPTR AslFontPreview__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 179 {
 180     struct AslFontPreviewData *data;
 181     struct RastPort           *rp;
 182     struct TagItem im_tags[] =
 183     {
 184         {IA_Width       , 0     },
 185         {IA_Height      , 0     },
 186         {TAG_DONE               }
 187     };
 188     struct Region *clip, *oldclip;
 189
 190     WORD x, y, w, h, x2, y2;
 191
 192     getgadgetcoords(g, msg->gpr_GInfo, &x, &y, &w, &h);
 193
 194     data = INST_DATA(cl, g);
 195     rp = msg->gpr_RPort;
 196
 197     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 198     {
 199         if (data->frame)
 200         {
 201             im_tags[0].ti_Data = w;
 202             im_tags[1].ti_Data = h;
 203
 204             SetAttrsA(data->frame, im_tags);
 205
 206             DrawImageState(rp,
 207                            (struct Image *)data->frame,
 208                            x,
 209                            y,
 210                            IDS_NORMAL,
 211                            msg->gpr_GInfo->gi_DrInfo);
 212
 213         #if AVOID_FLICKER
 214             {
 215                 struct IBox ibox, fbox;
 216
 217                 fbox.Left = x;
 218                 fbox.Top = y;
 219                 fbox.Width = w;
 220                 fbox.Height = h;
 221
 222                 ibox.Left = x + PREVIEW_BORDER_X;
 223                 ibox.Top = y + PREVIEW_BORDER_Y;
 224                 ibox.Width = w - PREVIEW_BORDER_X * 2;
 225                 ibox.Height = h - PREVIEW_BORDER_Y * 2;
 226
 227                 PaintInnerFrame(msg->gpr_RPort,
 228                                 msg->gpr_GInfo->gi_DrInfo,
 229                                 data->frame,
 230                                 &fbox,
 231                                 &ibox,
 232                                 msg->gpr_GInfo->gi_DrInfo->dri_Pens[BACKGROUNDPEN],
 233                                 AslBase);
 234             }
 235         #endif
 236         }
 237     }
 238
 239     x2 = x + w - 1 - PREVIEW_BORDER_X;
 240     y2 = y + h - 1 - PREVIEW_BORDER_Y;
 241     x += PREVIEW_BORDER_X;
 242     y += PREVIEW_BORDER_Y;
 243
 244     if ((clip = NewRectRegion(x, y, x2, y2)))
 245     {
 246         struct TextFont *font;
 247         struct Layer *lay = msg->gpr_GInfo->gi_Layer;
 248         STRPTR text;
 249         IPTR   did_remap_colorfonts;
 250         WORD   textlen, pixellen;
 251         BOOL   updating;
 252
 253         updating = (lay->Flags & LAYERUPDATING) != 0;
 254         if (updating) EndUpdate(lay, FALSE);
 255
 256         font = data->font ? data->font : msg->gpr_GInfo->gi_DrInfo->dri_Font;
 257         text = data->font ? data->previewtext : (STRPTR)"???";
 258
 259         oldclip = InstallClipRegion(lay, clip);
 260
 261         if (updating) BeginUpdate(lay);
 262
 263         SetAPen(rp, data->bpen);
 264         RectFill(rp, x, y, x2, y2);
 265
 266         SetABPenDrMd(rp, data->apen, data->bpen, JAM2);
 267         SetFont(rp, font);
 268         SetSoftStyle(rp, data->drawstyle, AskSoftStyle(rp));
 269
 270         textlen = strlen(text);
 271         pixellen = TextLength(rp, text, textlen);
 272         if (pixellen <= (x2 - x + 1))
 273         {
 274             x += (x2 - x + 1 - pixellen) / 2;
 275         }
 276
 277         GetRPAttrs(rp, RPTAG_RemapColorFonts, &did_remap_colorfonts, TAG_DONE);
 278         SetRPAttrs(rp, RPTAG_RemapColorFonts, TRUE, TAG_DONE);
 279
 280         Move(rp, x, (y + y2 + 1 - font->tf_YSize) / 2 + font->tf_Baseline);
 281         Text(rp, text, textlen);
 282
 283         SetRPAttrs(rp, RPTAG_RemapColorFonts, did_remap_colorfonts, TAG_DONE);
 284
 285         if (updating) EndUpdate(lay, FALSE);
 286         InstallClipRegion(lay, oldclip);
 287         if (updating) BeginUpdate(lay);
 288
 289         DisposeRegion(clip);
 290     }
 291     return 0;
 292 }
 293
 294 /***********************************************************************************/