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