rom/graphics/remfont.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Remove a font from the list of public available fonts.
   6     Lang: english
   7 */
   8 #include <aros/debug.h>
   9 #include "graphics_intern.h"
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <graphics/text.h>
  16 #include <proto/graphics.h>
  17
  18         AROS_LH1(void, RemFont,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct TextFont *, textFont, A1),
  22
  23 /*  LOCATION */
  24         struct GfxBase *, GfxBase, 81, Graphics)
  25
  26 /*  FUNCTION
  27         Remove a font from the list of public available fonts. Afterwards,
  28         you can close it.
  29
  30     INPUTS
  31         textFont - Remove this font.
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         OpenFont(), CloseFont(), SetFont(), AddFont()
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  53
  54     struct TextFontExtension *tfe;
  55     BOOL                      can_remove = TRUE;
  56
  57     ASSERT_VALID_PTR(textFont);
  58
  59     Forbid();
  60     tfe = (struct TextFontExtension *)textFont->tf_Extension;
  61     if (tfe)
  62     {
  63         if ((tfe->tfe_MatchWord == TFE_MATCHWORD) && (tfe->tfe_BackPtr == textFont))
  64         {
  65             if (tfe->tfe_Flags0 & TE0F_NOREMFONT)
  66             {
  67                 can_remove = FALSE;
  68             }
  69         }
  70
  71     }
  72
  73     if (can_remove)
  74     {
  75         if (!(textFont->tf_Flags & FPF_REMOVED))
  76         {
  77             textFont->tf_Flags |= FPF_REMOVED;
  78             Remove (&textFont->tf_Message.mn_Node);
  79         }
  80     #if DEBUG
  81         else
  82         {
  83             D(bug("Someone tried to remove font which is already removed!"));
  84         }
  85     #endif
  86
  87         StripFont(textFont);
  88
  89     }
  90
  91     Permit();
  92
  93     AROS_LIBFUNC_EXIT
  94
  95 } /* RemFont */