rom/intuition/setdefaultscreenfont.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/intuition.h>
  13
  14 AROS_LH1(void, SetDefaultScreenFont,
  15
  16          /*  SYNOPSIS */
  17          AROS_LHA(struct TextFont *, textfont, A0),
  18
  19          /*  LOCATION */
  20          struct IntuitionBase *, IntuitionBase, 144, Intuition)
  21
  22 /*  FUNCTION
  23         Set the default Font.
  24
  25     INPUTS
  26     textfont - The Font to be used.
  27
  28     RESULT
  29
  30     NOTES
  31         PRIVATE(!!!!) Do not use
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41     HISTORY
  42
  43 *****************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  47
  48     if (textfont)
  49     {
  50         ASSERT_VALID_PTR(textfont);
  51
  52         Forbid();
  53         GetPrivIBase(IntuitionBase)->ScreenFont = textfont;
  54         Permit();
  55     }
  56
  57     AROS_LIBFUNC_EXIT
  58
  59 } /* SetDefaultScreenFont */