rom/graphics/remfont.c

   1 /*
   2     Copyright © 1995-2007, 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
  53     struct TextFontExtension *tfe;
  54     BOOL                      can_remove = TRUE;
  55
  56     ASSERT_VALID_PTR(textFont);
  57
  58     Forbid();
  59     tfe = (struct TextFontExtension *)textFont->tf_Extension;
  60     if (tfe)
  61     {
  62         if ((tfe->tfe_MatchWord == TFE_MATCHWORD) && (tfe->tfe_BackPtr == textFont))
  63         {
  64             if (tfe->tfe_Flags0 & TE0F_NOREMFONT)
  65             {
  66                 can_remove = FALSE;
  67             }
  68         }
  69
  70     }
  71
  72     if (can_remove)
  73     {
  74         if (!(textFont->tf_Flags & FPF_REMOVED))
  75         {
  76             textFont->tf_Flags |= FPF_REMOVED;
  77             Remove (&textFont->tf_Message.mn_Node);
  78         }
  79     #if DEBUG
  80         else
  81         {
  82             D(bug("Someone tried to remove font which is already removed!"));
  83         }
  84     #endif
  85
  86         StripFont(textFont);
  87
  88     }
  89
  90     Permit();
  91
  92     AROS_LIBFUNC_EXIT
  93
  94 } /* RemFont */