rom/intuition/intuitextlength.c

   1 /*
   2     Copyright © 1995-2011, 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 systems 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     HISTORY
  49     29-10-95    digulla automatically created from
  50                 intuition_lib.fd and clib/intuition_protos.h
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  57     struct RastPort  rp;
  58     struct TextFont *newfont = NULL;
  59     LONG             width;
  60
  61     DEBUG_INTUITEXTLENGTH(dprintf("IntuiTextLength(itext 0x%lx)\n",iText));
  62
  63     SANITY_CHECKR(iText,0)
  64
  65     InitRastPort(&rp);
  66
  67     if (iText->ITextFont)
  68     {
  69         newfont = OpenFont(iText->ITextFont);
  70
  71         if (newfont)
  72             SetFont(&rp, newfont);
  73     }
  74
  75     width = TextLength(&rp, iText->IText, strlen(iText->IText));
  76
  77     if (newfont)
  78         CloseFont(newfont);
  79
  80     return width;
  81
  82     AROS_LIBFUNC_EXIT
  83 } /* IntuiTextLength */