rom/graphics/closefont.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$        $Log
   4
   5     Desc: Graphics function CloseFont()
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9 #include "graphics_intern.h"
  10 #include <graphics/text.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <graphics/text.h>
  16 #include <proto/graphics.h>
  17
  18         AROS_LH1(void, CloseFont,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct TextFont *, textFont, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 13, Graphics)
  25
  26 /*  FUNCTION
  27         Close a font.
  28
  29     INPUTS
  30         font - font pointer from OpenFont() or OpenDiskFont()
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45         29-10-95    digulla automatically created from
  46                             graphics_lib.fd and clib/graphics_protos.h
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     if (!textFont) return;
  53
  54     ASSERT_VALID_PTR(textFont);
  55
  56     Forbid();
  57     textFont->tf_Accessors--;
  58     if ((textFont->tf_Accessors == 0) && !(textFont->tf_Flags & FPF_ROMFONT))
  59     {
  60         RemFont(textFont);
  61     }
  62     Permit();
  63
  64     AROS_LIBFUNC_EXIT
  65
  66 } /* CloseFont */