workbench/libs/gadtools/textclass.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Internal GadTools text class (NUMERIC_KIND and TEXT_KIND) .
   6 */
   7
   8
   9 #include <proto/exec.h>
  10 #include <exec/libraries.h>
  11 #include <exec/memory.h>
  12 #include <proto/dos.h>
  13 #include <intuition/classes.h>
  14 #include <intuition/classusr.h>
  15 #include <intuition/gadgetclass.h>
  16 #include <intuition/imageclass.h>
  17 #include <intuition/intuition.h>
  18 #include <intuition/cghooks.h>
  19 #include <graphics/rastport.h>
  20 #include <graphics/text.h>
  21 #include <utility/tagitem.h>
  22 #include <devices/inputevent.h>
  23 #include <proto/alib.h>
  24 #include <proto/utility.h>
  25
  26 #include <string.h> /* memset() */
  27
  28 #define SDEBUG 0
  29 #define DEBUG 0
  30 #include <aros/debug.h>
  31
  32 #include "gadtools_intern.h"
  33
  34 /**********************************************************************************************/
  35
  36 #define GadToolsBase ((struct GadToolsBase_intern *)cl->cl_UserData)
  37
  38 /**********************************************************************************************/
  39
  40 #define TEXTF_CLIPPED   (1 << 0)
  41 #define TEXTF_BORDER    (1 << 1)
  42 #define TEXTF_COPYTEXT  (1 << 2)
  43
  44 /**********************************************************************************************/
  45
  46 STATIC IPTR text_set(Class * cl, Object * o, struct opSet * msg)
  47 {
  48     IPTR                retval = 0UL;
  49     struct TagItem      *tag, *tstate;
  50     struct TextData     *data = INST_DATA(cl, o);
  51     struct RastPort     *rport;
  52
  53     EnterFunc(bug("Text::Set()\n"));
  54
  55     tstate = msg->ops_AttrList;
  56
  57     while ((tag = NextTagItem(&tstate)))
  58     {
  59         IPTR tidata = tag->ti_Data;
  60
  61         switch (tag->ti_Tag)
  62         {
  63             case GTA_GadgetKind:
  64                 data->gadgetkind = (WORD)tidata;
  65                 break;
  66
  67             case GTNM_Number:
  68                 data->toprint = tidata;
  69                 D(bug("GTNM_Number: %ld\n", tidata));
  70                 if (data->dispfunc)
  71                 {
  72                     struct Gadget *g;
  73
  74                     g = data->parentgadget ? data->parentgadget : (struct Gadget *)o;
  75 #ifdef __MORPHOS__
  76                     REG_A7 -= 8;
  77                     ((ULONG *)REG_A7)[0] = (ULONG)g;
  78                     ((ULONG *)REG_A7)[1] = data->toprint;
  79                     data->toprint = MyEmulHandle->EmulCallDirect68k(data->dispfunc);
  80                     REG_A7 += 8;
  81 #else
  82                     data->toprint = data->dispfunc(g, (WORD)data->toprint);
  83 #endif
  84                 }
  85                 retval = 1UL;
  86                 break;
  87
  88             case GTTX_Text:
  89                 /* If the user has GT_SetGadgetAttrs() us to a different text,
  90                 ** then don't copy it anymore
  91                 */
  92                 if (msg->MethodID != OM_NEW)
  93                 {
  94                     if (data->flags & TEXTF_COPYTEXT)
  95                     {
  96                         FreeVec((APTR)data->toprint);
  97                         data->flags &= ~TEXTF_COPYTEXT;
  98                     }
  99                     data->toprint = tidata;
 100                     D(bug("GTTX_Text: %s\n", tidata));
 101                 }
 102                 retval = 1UL;
 103                 break;
 104
 105             case GTTX_Border:   /* [I]  */
 106             case GTNM_Border:   /* [I]  */
 107                 if (tidata)
 108                     data->flags |= TEXTF_BORDER;
 109
 110                 D(bug("Border: %d\n", tidata));
 111                 break;
 112
 113
 114             /*case GTTX_FrontPen:  [IS] */
 115             case GTNM_FrontPen: /* [IS] */
 116                 data->frontpen = (UBYTE)tidata;
 117                 D(bug("FrontPen: %d\n", tidata));
 118                 retval = 1UL;
 119                 break;
 120
 121             /* case GTTX_BackPen: [IS]  */
 122             case GTNM_BackPen:  /* [IS] */
 123                 data->backpen = (UBYTE)tidata;
 124                 D(bug("BackPen: %d\n", tidata));
 125                 retval = 1UL;
 126                 break;
 127
 128             /* case GTTX_Justification:  [I] */
 129             case GTNM_Justification:    /* [I] */
 130                 data->justification = (UBYTE)tidata;
 131                 D(bug("Justification: %d\n", tidata));
 132                 break;
 133
 134             case GTNM_Format:   /* [I]  */
 135             case GTA_Text_Format:
 136                 data->format = (STRPTR)tidata;
 137                 D(bug("Format: %s\n", tidata));
 138                 break;
 139
 140             /* case GTTX_Clipped:        [I]    */
 141             case GTNM_Clipped:
 142                 if (tidata)
 143                     data->flags |= TEXTF_CLIPPED;
 144                 D(bug("Clipped: %d\n", tidata));
 145                 break;
 146
 147             case GTNM_MaxNumberLen:     /* [I]  */
 148                 data->maxnumberlength = tidata;
 149                 D(bug("MaxNumberLen: %d\n", tidata));
 150                 break;
 151
 152         } /* switch() */
 153
 154     } /* while (iterate taglist) */
 155
 156     /* Redraw the gadget, if an attribute was changed and if this is the
 157        objects' base-class. */
 158     if ((retval) && (OCLASS(o) == cl)) {
 159         rport = ObtainGIRPort(msg->ops_GInfo);
 160         if (rport) {
 161             DoMethod(o, GM_RENDER, (IPTR) msg->ops_GInfo, (IPTR) rport, GREDRAW_UPDATE);
 162             ReleaseGIRPort(rport);
 163             retval = FALSE;
 164         }
 165     }
 166
 167     ReturnInt ("Text::Set", IPTR, retval);
 168 }
 169
 170 /**********************************************************************************************/
 171
 172 IPTR GTText__OM_GET(Class * cl, Object * o, struct opGet *msg)
 173 {
 174     struct TextData     *data = INST_DATA(cl, o);
 175     IPTR                retval;
 176
 177     switch (msg->opg_AttrID)
 178     {
 179         case GTA_GadgetKind:
 180         case GTA_ChildGadgetKind:
 181             *(msg->opg_Storage) = data->gadgetkind;
 182             retval = 1UL;
 183             break;
 184
 185         default:
 186             retval = DoSuperMethodA(cl, o, (Msg)msg);
 187             break;
 188     }
 189
 190     return retval;
 191 }
 192
 193 /**********************************************************************************************/
 194
 195 IPTR GTText__OM_NEW(Class * cl, Object * o, struct opSet *msg)
 196 {
 197
 198     EnterFunc(bug("Text::New()\n"));
 199     o = (Object *) DoSuperMethodA(cl, o, (Msg)msg);
 200     if (o)
 201     {
 202         struct TextData *data = INST_DATA(cl, o);
 203         struct TextAttr *tattr, def_tattr;
 204
 205         /* Set some defaults */
 206         data->format    = "%ld";
 207         data->flags     = 0;
 208         data->frontpen  = TEXTPEN;
 209         data->backpen   = BACKGROUNDPEN;
 210         data->toprint   = (IPTR) NULL;
 211         data->font      = NULL;
 212         data->maxnumberlength = 0; /* This means "no limit" */
 213         data->dispfunc = (APTR)GetTagData(GTA_Text_DispFunc, (IPTR) NULL, msg->ops_AttrList);
 214         data->labelplace = GetTagData(GA_LabelPlace, GV_LabelPlace_Left, msg->ops_AttrList);
 215         data->parentgadget = (struct Gadget *)GetTagData(GTA_Text_ParentGadget, 0, msg->ops_AttrList);
 216
 217         /* Open font to use for gadget */
 218
 219         /* We will *ALWAYS* have a valid DrawInfo struct */
 220         data->dri = (struct DrawInfo *)GetTagData(GA_DrawInfo, (IPTR) NULL, msg->ops_AttrList);
 221
 222         def_tattr.ta_Name  = data->dri->dri_Font->tf_Message.mn_Node.ln_Name;
 223         def_tattr.ta_YSize = data->dri->dri_Font->tf_YSize;
 224         def_tattr.ta_Style = 0;
 225         def_tattr.ta_Flags = 0;
 226
 227         tattr = (struct TextAttr *)GetTagData(GA_TextAttr, (IPTR)&def_tattr, msg->ops_AttrList);
 228
 229         data->font = OpenFont(tattr);
 230         if (!data->font)
 231            goto error;
 232
 233
 234         if (GetTagData(GTTX_CopyText, (IPTR)FALSE, msg->ops_AttrList))
 235         {
 236             STRPTR text;
 237
 238             D(bug("Got GTTX_CopyText\n"));
 239             text = (STRPTR)GetTagData(GTTX_Text, (IPTR)"Text MUST be passed with OM_NEW", msg->ops_AttrList);
 240             if (text)
 241             {
 242                 D(bug("Text: %s\n", text));
 243                 /* Allocate copy buffer for the text */
 244                 data->toprint = (IPTR)AllocVec(strlen(text) + 1, MEMF_ANY);
 245                 if (data->toprint)
 246                 {
 247                     data->flags |= TEXTF_COPYTEXT;
 248                     D(bug("Copying text\n"));
 249                     strcpy((STRPTR)data->toprint, text);
 250                 }
 251                 else
 252                 {
 253                     goto error;
 254                 }
 255             } else {
 256                 /* If text==NULL we have nothing to copy */
 257                 data->toprint = 0;
 258             }
 259         } else {
 260             STRPTR text;
 261
 262             if ((text = (STRPTR)GetTagData(GTTX_Text, (IPTR) NULL, msg->ops_AttrList)))
 263             {
 264                 data->toprint = (IPTR)text;
 265             }
 266         }
 267
 268         D(bug("calling text_set\n"));
 269         text_set(cl, o, msg);
 270
 271         if (data->flags & TEXTF_BORDER)
 272         {
 273             struct TagItem frame_tags[] =
 274             {
 275                 {IA_Width       , GetTagData(GA_Width, 0, msg->ops_AttrList)                            },
 276                 {IA_Height      , GetTagData(GA_Height, 0, msg->ops_AttrList)                           },
 277                 {IA_Resolution  , (data->dri->dri_Resolution.X << 16) + data->dri->dri_Resolution.Y     },
 278                 {IA_FrameType   , FRAME_BUTTON                                                          },
 279                 {IA_Recessed    , TRUE                                                                  },
 280                 {TAG_DONE       , 0UL                                                                   }
 281             };
 282
 283             data->frame = NewObjectA(NULL, FRAMEICLASS, frame_tags);
 284         }
 285
 286     }
 287     ReturnPtr ("Text::New", IPTR, (IPTR)o);
 288
 289 error:
 290     CoerceMethod(cl, o, OM_DISPOSE);
 291     ReturnPtr ("Text::New", IPTR, (IPTR) NULL);
 292 }
 293
 294 /**********************************************************************************************/
 295
 296 #define HBORDER 2
 297 #define VBORDER 2
 298
 299 AROS_UFH2 (void, puttostr,
 300     AROS_UFHA(UBYTE, chr, D0),
 301     AROS_UFHA(STRPTR *,strPtrPtr,A3)
 302 )
 303 {
 304     AROS_USERFUNC_INIT
 305     D(bug("Putting character %c into buffer at adress %p\n",
 306         chr, *strPtrPtr));
 307     *(*strPtrPtr)= chr;
 308     (*strPtrPtr) ++;
 309     AROS_USERFUNC_EXIT
 310 }
 311
 312 /**********************************************************************************************/
 313
 314 IPTR GTText__GM_RENDER(Class *cl, struct Gadget *g, struct gpRender *msg)
 315 {
 316     UWORD               *pens = msg->gpr_GInfo->gi_DrInfo->dri_Pens;
 317     UBYTE               textbuf[256], *str;
 318     struct TextData     *data = INST_DATA(cl, g);
 319     WORD                left, left2, top, width, height, numchars, tlength;
 320     struct TextFont     *oldfont;
 321     struct RastPort     *rp = msg->gpr_RPort;
 322
 323     EnterFunc(bug("Text::Render()\n"));
 324
 325     left   = g->LeftEdge;
 326     top    = g->TopEdge;
 327     width  = g->Width;
 328     height = g->Height;
 329
 330     if (msg->gpr_Redraw == GREDRAW_REDRAW)
 331     {
 332         if (data->frame)
 333         {
 334             DrawImageState(msg->gpr_RPort,
 335                     (struct Image *)data->frame,
 336                     left,
 337                     top,
 338                     IDS_NORMAL,
 339                     msg->gpr_GInfo->gi_DrInfo);
 340         }
 341
 342         renderlabel(GadToolsBase, g, msg->gpr_RPort, data->labelplace);
 343     }
 344
 345     if (data->toprint || (data->gadgetkind != TEXT_KIND))
 346     {
 347         /* preserve font */
 348         oldfont = rp->Font;
 349         SetFont(rp, data->font);
 350
 351         str = textbuf;
 352         if (data->gadgetkind == TEXT_KIND)
 353         {
 354             strncpy(str, (char *)data->toprint, sizeof(textbuf));
 355             textbuf[sizeof(textbuf) - 1] = '\0';
 356         }
 357         else /* NUMERIC_KIND or label of SLIDER_KIND */
 358         {
 359             ULONG value = data->toprint;
 360             RawDoFmt(data->format, (RAWARG)&value, (VOID_FUNC)AROS_ASMSYMNAME(puttostr), &str);
 361         }
 362
 363         D(bug("Text formatted into: %s\n", textbuf));
 364         numchars = strlen(textbuf);
 365
 366         if (data->flags & TEXTF_BORDER)
 367         {
 368             left += VBORDER + 1;
 369             top  += HBORDER + 1;
 370             width  = g->Width -  (VBORDER + 1) * 2;
 371             height = g->Height - (HBORDER + 1) * 2;
 372         }
 373
 374         if (data->flags & TEXTF_CLIPPED)
 375         {
 376             struct TextExtent te;
 377
 378             /* See how many chars fits into the display area */
 379             numchars = TextFit(rp, textbuf, numchars, &te, NULL, 1, width, g->Height);
 380         }
 381
 382         tlength = TextLength(rp, textbuf, numchars);
 383
 384         left2 = left;
 385         switch (data->justification)
 386         {
 387             case GTJ_LEFT:
 388                 break;
 389             case GTJ_RIGHT:
 390                 left2 += (width - tlength);
 391                 break;
 392             case GTJ_CENTER:
 393                 left2 += ((width - tlength) / 2);
 394                 break;
 395         }
 396
 397         /* Render text */
 398         D(bug("Rendering text of lenghth %d at (%d, %d)\n", numchars, left, top));
 399         SetABPenDrMd(rp, pens[data->backpen], pens[data->backpen], JAM2);
 400         RectFill(rp, left, top, left + width - 1, top + height - 1);
 401         SetAPen(rp, pens[data->frontpen]);
 402
 403         Move(rp, left2,
 404              top + ((height - data->font->tf_YSize) / 2) + data->font->tf_Baseline);
 405         Text(rp, textbuf, numchars);
 406
 407         SetFont(rp, oldfont);
 408
 409     } /* if (data->toprint || (data->gadgetkind != TEXT_KIND)) */
 410
 411     ReturnInt("Text::Render", IPTR, 0);
 412 }
 413
 414 /**********************************************************************************************/
 415
 416 IPTR GTText__OM_DISPOSE(Class *cl, Object *o, Msg msg)
 417 {
 418     struct TextData *data = INST_DATA(cl, o);
 419
 420     if (data->flags & TEXTF_COPYTEXT) FreeVec((APTR)data->toprint);
 421     if (data->font) CloseFont(data->font);
 422     if (data->frame) DisposeObject(data->frame);
 423
 424     return DoSuperMethodA(cl, o, msg);
 425
 426 }
 427
 428 /**********************************************************************************************/
 429
 430 IPTR GTText__OM_SET(Class *cl, Object *o, struct opSet *msg)
 431 {
 432     IPTR retval;
 433
 434     retval = DoSuperMethodA(cl, o, (Msg)msg);
 435     retval += text_set(cl, o, msg);
 436
 437     /* If we have been subclassed, OM_UPDATE should not cause a GM_RENDER
 438      * because it would circumvent the subclass from fully overriding it.
 439      * The check of cl == OCLASS(o) should fail if we have been
 440      * subclassed, and we have gotten here via DoSuperMethodA().
 441      */
 442     if ( retval && ( msg->MethodID == OM_UPDATE ) && ( cl == OCLASS(o) ) )
 443     {
 444         struct GadgetInfo *gi = msg->ops_GInfo;
 445         if (gi)
 446         {
 447             struct RastPort *rp = ObtainGIRPort(gi);
 448             if (rp)
 449             {
 450                 DoMethod(o, GM_RENDER, (IPTR) gi, (IPTR) rp, GREDRAW_REDRAW);
 451                 ReleaseGIRPort(rp);
 452             } /* if */
 453         } /* if */
 454     } /* if */
 455
 456     return retval;
 457 }
 458
 459 /**********************************************************************************************/
 460
 461 IPTR GTText__GM_GOACTIVE(Class *cl, Object *o, Msg msg)
 462 {
 463     return (IPTR)GMR_NOREUSE;
 464 }
 465
 466 /**********************************************************************************************/