rom/intuition/removeclass.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/exec.h>
   8 #include "intuition_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <intuition/classes.h>
  14 #include <proto/intuition.h>
  15
  16     AROS_LH1(void, RemoveClass,
  17
  18 /*  SYNOPSIS */
  19          AROS_LHA(struct IClass *, classPtr, A0),
  20
  21 /*  LOCATION */
  22          struct IntuitionBase *, IntuitionBase, 118, Intuition)
  23
  24 /*  FUNCTION
  25     Makes a public class inaccessible. This function may be called
  26     several times on the same class and even if the class never was
  27     in the public list.
  28
  29     INPUTS
  30     classPtr - Pointer to the result of MakeClass(). May be NULL.
  31
  32     RESULT
  33     None.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42     MakeClass(), FreeClass(), AddClass(), "Basic Object-Oriented
  43     Programming System for Intuition" and "boopsi Class Reference"
  44     Dokument.
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     ObtainSemaphore( &GetPrivIBase(IntuitionBase)->ClassListLock );
  53
  54     /* Class there and still/already in the list ? */
  55     if (classPtr && (classPtr->cl_Flags & CLF_INLIST))
  56     {
  57         Remove ((struct Node *)classPtr);
  58         classPtr->cl_Flags &= ~CLF_INLIST;
  59     }
  60
  61     ReleaseSemaphore( &GetPrivIBase(IntuitionBase)->ClassListLock );
  62
  63     AROS_LIBFUNC_EXIT
  64 } /* RemoveClass() */