workbench/libs/gadtools/gt_getgadgetattrsa.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <exec/ports.h>
   8 #include "gadtools_intern.h"
   9
  10 /*********************************************************************
  11
  12     NAME */
  13 #include <exec/types.h>
  14 #include <proto/gadtools.h>
  15 #include <intuition/intuition.h>
  16 #include <utility/tagitem.h>
  17
  18         AROS_LH4(LONG, GT_GetGadgetAttrsA,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct Gadget *, gad, A0),
  22         AROS_LHA(struct Window *, win, A1),
  23         AROS_LHA(struct Requester *, req, A2),
  24         AROS_LHA(struct TagItem *, taglist, A3),
  25
  26 /*  LOCATION */
  27         struct Library *, GadToolsBase, 29, GadTools)
  28
  29 /*  FUNCTION
  30         Get a list of attributes from a specific gadget.
  31
  32     INPUTS
  33         gad -     the gadget from which to get attributes.
  34                   may be null. if so, this function returns 0.
  35         win -     the window, in which the gadget is
  36         req -     the requester, in which the gadget is, or NULL
  37         taglist - the list of attributes to get. ti_Tag specifies the attribute
  38                   and ti_Data is a pointer to an IPTR, where the data is to be
  39                   stored
  40
  41     RESULT
  42         The number of attributes, which were filled correctly.
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         GT_SetGadgetAttrsA(), intuition.library/GetAttr()
  52
  53     INTERNALS
  54
  55 ***************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     LONG                  count = 0;
  60     struct TagItem           *tag;
  61     struct TagItem *mytags = taglist;
  62
  63     if (gad == NULL || taglist == NULL)
  64         return 0L;
  65
  66     while ((tag = NextTagItem(&mytags)))
  67         if (GetAttr(tag->ti_Tag, (Object *)gad, (IPTR *)tag->ti_Data))
  68             count++;
  69
  70     return count;
  71
  72     AROS_LIBFUNC_EXIT
  73
  74 } /* GT_GetGadgetAttrsA */