workbench/libs/datatypes/adddtobject.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/intuition.h>
   9 #include <intuition/intuition.h>
  10 #include "datatypes_intern.h"   /* Must be after <intuition/intuition.h> */
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/datatypes.h>
  16
  17         AROS_LH4(LONG, AddDTObject,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Window    *, win, A0),
  21         AROS_LHA(struct Requester *, req, A1),
  22         AROS_LHA(Object           *, obj, A2),
  23         AROS_LHA(LONG              , pos, D0),
  24
  25 /*  LOCATION */
  26         struct Library *, DataTypesBase, 12, DataTypes)
  27
  28 /*  FUNCTION
  29
  30     Add an object to the window 'win' or requester 'req' at the position
  31     in the gadget list specified by the 'pos' argument.
  32
  33     INPUTS
  34
  35     win  --  window the object should be added to; may be NULL in which case
  36              nothing is done
  37     req  --  requester the object should be added to
  38     obj  --  the object to add; may be NULL in which case nothing is done
  39     pos  --  the position of the object in the list
  40
  41
  42     RESULT
  43
  44     The position where the object was added (may be different from what
  45     you asked for).
  46
  47     NOTES
  48
  49     The object will receice a GM_LAYOUT message with the gpl_Initial field
  50     set to 1 when the object is added.
  51
  52     EXAMPLE
  53
  54     BUGS
  55
  56     SEE ALSO
  57
  58     RemoveDTObject(), intuition.library/AddGList()
  59
  60     INTERNALS
  61
  62     HISTORY
  63
  64 *****************************************************************************/
  65 {
  66     AROS_LIBFUNC_INIT
  67     AROS_LIBBASE_EXT_DECL(struct Library *,DataTypesBase)
  68
  69     if(obj == NULL || win == NULL)
  70         return -1;
  71
  72     return AddGList(win, (struct Gadget *)obj, pos, 1, req);
  73
  74     AROS_LIBFUNC_EXIT
  75 } /* AddDTObject */
  76