rom/graphics/askfont.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "graphics_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <graphics/text.h>
  14 #include <proto/graphics.h>
  15
  16         AROS_LH2(void, AskFont,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(struct RastPort *, rp, A1),
  20         AROS_LHA(struct TextAttr *, textAttr, A0),
  21
  22 /*  LOCATION */
  23         struct GfxBase *, GfxBase, 79, Graphics)
  24
  25 /*  FUNCTION
  26         Query the attributes of the current font in a RastPort.
  27
  28     INPUTS
  29         rp - Query this RastPort.
  30
  31     RESULT
  32         textAttr will contain a description of the font.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  50
  51     textAttr->ta_Name  = rp->Font->tf_Message.mn_Node.ln_Name;
  52     textAttr->ta_YSize = rp->Font->tf_YSize;
  53     textAttr->ta_Style = rp->Font->tf_Style;
  54     textAttr->ta_Flags = rp->Font->tf_Flags;
  55
  56     AROS_LIBFUNC_EXIT
  57 } /* AskFont */