workbench/libs/datatypes/disposedtobject.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <datatypes/datatypesclass.h>
   9 #include <proto/dos.h>
  10 #include <proto/exec.h>
  11 #include <proto/intuition.h>
  12 #include "datatypes_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/datatypes.h>
  18
  19         AROS_LH1(void, DisposeDTObject,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(Object *, o, A0),
  23
  24 /*  LOCATION */
  25         struct Library *, DataTypesBase, 9, DataTypes)
  26
  27 /*  FUNCTION
  28
  29     Dispose a data type object obtained by NewDTObjectA().
  30
  31     INPUTS
  32
  33     o   --  The data type object to dispose of; may be NULL.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     NewDTObjectA()
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     if(o != NULL)
  56     {
  57         struct DTSpecialInfo    *dtsi = ((struct Gadget *)o)->SpecialInfo;
  58         struct IClass           *cl = OCLASS(o);
  59         struct Library          *DTClassBase = (struct Library *)cl->cl_UserData;
  60
  61         while(dtsi->si_Flags & (DTSIF_PRINTING | DTSIF_LAYOUTPROC))
  62         {
  63             Delay(50);
  64         }
  65
  66         DisposeObject(o);
  67
  68         CloseLibrary(DTClassBase);
  69     }
  70
  71     AROS_LIBFUNC_EXIT
  72 } /* DisposeDTObject */