home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / intuition / removeclass.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  1.8 KB  |  86 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: removeclass.c,v 1.4 1997/01/27 00:36:43 ldp Exp $
  4.     $Log: removeclass.c,v $
  5.     Revision 1.4  1997/01/27 00:36:43  ldp
  6.     Polish
  7.  
  8.     Revision 1.3  1996/12/10 14:00:08  aros
  9.     Moved #include into first column to allow makedepend to see it.
  10.  
  11.     Revision 1.2  1996/10/24 15:51:24  aros
  12.     Use the official AROS macros over the __AROS versions.
  13.  
  14.     Revision 1.1  1996/08/28 17:55:36  digulla
  15.     Proportional gadgets
  16.     BOOPSI
  17.  
  18.  
  19.     Desc:
  20.     Lang: english
  21. */
  22. #include <proto/exec.h>
  23. #include "intuition_intern.h"
  24.  
  25. /*****************************************************************************
  26.  
  27.     NAME */
  28. #include <intuition/classes.h>
  29. #include <proto/intuition.h>
  30.  
  31.     AROS_LH1(void, RemoveClass,
  32.  
  33. /*  SYNOPSIS */
  34.     AROS_LHA(struct IClass *, classPtr, A0),
  35.  
  36. /*  LOCATION */
  37.     struct IntuitionBase *, IntuitionBase, 118, Intuition)
  38.  
  39. /*  FUNCTION
  40.     Makes a public class inaccessible. This function may be called
  41.     several times on the same class and even if the class never was
  42.     in the public list.
  43.  
  44.     INPUTS
  45.     classPtr - Pointer to the result of MakeClass(). May be NULL.
  46.  
  47.     RESULT
  48.     None.
  49.  
  50.     NOTES
  51.  
  52.     EXAMPLE
  53.  
  54.     BUGS
  55.  
  56.     SEE ALSO
  57.     MakeClass(), FreeClass(), AddClass(), "Basic Object-Oriented
  58.     Programming System for Intuition" and "boopsi Class Reference"
  59.     Dokument.
  60.  
  61.     INTERNALS
  62.  
  63.     HISTORY
  64.     29-10-95    digulla automatically created from
  65.                 intuition_lib.fd and clib/intuition_protos.h
  66.  
  67. *****************************************************************************/
  68. {
  69.     AROS_LIBFUNC_INIT
  70.     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  71.  
  72.     /* Klasse da und noch/schon in der Liste ? */
  73.     if (classPtr && (classPtr->cl_Flags & CLF_INLIST))
  74.     {
  75.     Forbid ();
  76.  
  77.     Remove ((struct Node *)classPtr);
  78.  
  79.     Permit ();
  80.  
  81.     classPtr->cl_Flags &= ~CLF_INLIST;
  82.     }
  83.  
  84.     AROS_LIBFUNC_EXIT
  85. } /* RemoveClass */
  86.