rom/intuition/intuitextlength.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/graphics.h>
   8
   9 #include "intuition_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <intuition/intuition.h>
  15 #include <proto/intuition.h>
  16
  17         AROS_LH1(LONG, IntuiTextLength,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct IntuiText *, iText, A0),
  21
  22 /*  LOCATION */
  23         struct IntuitionBase *, IntuitionBase, 55, Intuition)
  24
  25 /*  FUNCTION
  26         Measure the length of the IntuiText passed to the function. Further
  27         IntuiTexts in iText->NextText are ignored. The length is measured in
  28         pixels.
  29
  30     INPUTS
  31         iText - The size of this text. If iText->ITextFont contains NULL,
  32             the system's font is used (and *not* the font of the currently
  33             active screen!).
  34
  35     RESULT
  36         The width of the text in pixels.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  53     struct RastPort  rp;
  54     struct TextFont *newfont = NULL;
  55     LONG             width;
  56
  57     DEBUG_INTUITEXTLENGTH(dprintf("IntuiTextLength(itext 0x%lx)\n",iText));
  58
  59     SANITY_CHECKR(iText,0)
  60
  61     InitRastPort(&rp);
  62
  63     if (iText->ITextFont)
  64     {
  65         newfont = OpenFont(iText->ITextFont);
  66
  67         if (newfont)
  68             SetFont(&rp, newfont);
  69     }
  70
  71     width = TextLength(&rp, iText->IText, strlen(iText->IText));
  72
  73     if (newfont)
  74         CloseFont(newfont);
  75
  76     return width;
  77
  78     AROS_LIBFUNC_EXIT
  79 } /* IntuiTextLength */