rom/intuition/setattrsa.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/alib.h>
   8 #include <proto/utility.h>
   9 #include "intuition_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <intuition/classusr.h>
  15 #include <proto/intuition.h>
  16
  17     AROS_LH2(ULONG, SetAttrsA,
  18
  19 /*  SYNOPSIS */
  20          AROS_LHA(APTR            , object, A0),
  21          AROS_LHA(struct TagItem *, tagList, A1),
  22
  23 /*  LOCATION */
  24          struct IntuitionBase *, IntuitionBase, 108, Intuition)
  25
  26 /*  FUNCTION
  27     Changes several attributes of an object at the same time. How the
  28     object interprets the new attributes depends on the class.
  29
  30     INPUTS
  31     object - Change the attributes of this object
  32     tagList - This is a list of attribute/value-pairs
  33
  34     RESULT
  35     Depends in the class. For gadgets, this value is non-zero if
  36     they need redrawing after the values have changed. Other classes
  37     will define other return values.
  38
  39     NOTES
  40     This function sends OM_SET to the object.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47     NewObject(), DisposeObject(), GetAttr(), MakeClass(),
  48     "Basic Object-Oriented Programming System for Intuition" and
  49     "boopsi Class Reference" Dokument.
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     struct opSet ops;
  58     ULONG        result;
  59
  60     DEBUG_SETATTRS(dprintf("SetAttrs[%x]: Object 0x%lx Tags 0x%lx\n",
  61                            &ops, object, tagList));
  62
  63     SANITY_CHECKR(object,FALSE)
  64     SANITY_CHECKR(tagList,FALSE)
  65
  66 #if 0
  67     if (tagList)
  68     {
  69         struct TagItem *state = tagList;
  70         struct TagItem *tag;
  71
  72         while (tag = NextTagItem(&state))
  73         {
  74             dprintf("\t%08lx %08lx\n", tag->ti_Tag, tag->ti_Data);
  75         }
  76     }
  77 #endif
  78
  79     ops.MethodID     = OM_SET;
  80     ops.ops_AttrList = tagList;
  81     ops.ops_GInfo    = NULL;
  82
  83     result = DoMethodA (object, (Msg)&ops);
  84
  85     DEBUG_SETATTRS(dprintf("SetAttrs[%x]: Return 0x%lx\n", &ops, result));
  86
  87     return result;
  88
  89     AROS_LIBFUNC_EXIT
  90 } /* SetAttrsA() */