workbench/libs/datatypes/removedtobject.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #define USE_BOOPSI_STUBS
  10 #include <intuition/intuition.h>
  11 #include <intuition/classusr.h>
  12 #include <datatypes/datatypesclass.h>
  13 #include <clib/boopsistubs.h>
  14 #include <proto/dos.h>
  15 #include <proto/intuition.h>
  16 #include "datatypes_intern.h"
  17
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <proto/datatypes.h>
  23
  24         AROS_LH2(LONG, RemoveDTObject,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(struct Window *, window, A0),
  28         AROS_LHA(Object        *, object, A1),
  29
  30 /*  LOCATION */
  31         struct Library *, DataTypesBase, 16, DataTypes)
  32
  33 /*  FUNCTION
  34
  35     Remove an object from the specified window's object list; this will wait
  36     until the AsyncLayout process is ready. The object will receive a message
  37     of type DTM_REMOVEDTOBJECT as a sign of it having been removed.
  38
  39     INPUTS
  40
  41     window  --  pointer to the window in question
  42     object  --  pointer to the object to remove
  43
  44     RESULT
  45
  46     The position of the object in the list before it was removed; if the
  47     object wasn't found -1 is returned.
  48
  49     NOTES
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56
  57     AddDTObject(), intuition.library/RemoveGList()
  58
  59     INTERNALS
  60
  61     HISTORY
  62
  63 *****************************************************************************/
  64 {
  65     AROS_LIBFUNC_INIT
  66
  67     LONG retval = 0;
  68
  69     if(object != NULL)
  70     {
  71         struct DTSpecialInfo *dtsi = ((struct Gadget *)object)->SpecialInfo;
  72
  73         while(dtsi->si_Flags & DTSIF_LAYOUTPROC)
  74         {
  75             Delay(50);
  76         }
  77
  78         retval = RemoveGList(window, (struct Gadget *)object, 1);
  79
  80         DoMethod(object, DTM_REMOVEDTOBJECT, 0);
  81     }
  82
  83     return retval;
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* RemoveDTObject */