rom/oop/setattrs.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Set attributes of an object.
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include <aros/debug.h>
  11 #include "intern.h"
  12 #include <oop/static_mid.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/oop.h>
  18
  19         AROS_LH2(IPTR, OOP_SetAttrs,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(OOP_Object     *, object, A0),
  23         AROS_LHA(struct TagItem *, attrList, A1),
  24
  25 /*  LOCATION */
  26         struct Library *, OOPBase, 17, OOP)
  27
  28 /*  FUNCTION
  29         Sets the object's attributes as specified in the
  30         supplied taglist.
  31
  32     INPUTS
  33         object  - pointer to a object in whih we
  34                   want to set attributes.
  35
  36         tagList -  List of attributes and their new values.
  37
  38     RESULT
  39         Undefined.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         OOP_DisposeObject()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct pRoot_Set p;
  57     struct IntOOPBase *iOOPBase = (struct IntOOPBase *)OOPBase;
  58
  59     EnterFunc(bug("OOP_SetAttrs())\n"));
  60     ASSERT_VALID_PTR(object);
  61     ASSERT_VALID_PTR_OR_NULL(attrList);
  62
  63     if (!iOOPBase->ob_mRoot_Set)
  64         iOOPBase->ob_mRoot_Set = OOP_GetMethodID(IID_Root, moRoot_Set);
  65
  66     p.mID       = iOOPBase->ob_mRoot_Set;
  67     p.attrList  = attrList;
  68
  69     /* Call the Set() method on the object */
  70     ReturnPtr ("OOP_SetAttrs", IPTR, OOP_DoMethod(object, (OOP_Msg)&p));
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* OOP_SetAttrs */