rom/intuition/setdefaultscreenfont.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 "intuition_intern.h"
   8
   9 /*****i***********************************************************************
  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         None.
  30
  31     NOTES
  32         This function is actually private and intended only for use
  33         by IPrefs program.
  34         This private function is also present in MorphOS v50.
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  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 */