rom/oop/setattrs.c

   1 /*
   2     Copyright © 1995-2007, 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 an their new values.
  37
  38
  39     RESULT
  40         Undefined.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         OOP_DisposeObject()
  50
  51     INTERNALS
  52
  53     HISTORY
  54         29-10-95    digulla automatically created from
  55                             intuition_lib.fd and clib/intuition_protos.h
  56
  57 *****************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     struct pRoot_Set p;
  62     struct IntOOPBase *iOOPBase = (struct IntOOPBase *)OOPBase;
  63
  64     EnterFunc(bug("OOP_SetAttrs())\n"));
  65     ASSERT_VALID_PTR(object);
  66     ASSERT_VALID_PTR_OR_NULL(attrList);
  67
  68     if (!iOOPBase->ob_mRoot_Set)
  69         iOOPBase->ob_mRoot_Set = OOP_GetMethodID(IID_Root, moRoot_Set);
  70
  71     p.mID       = iOOPBase->ob_mRoot_Set;
  72     p.attrList  = attrList;
  73
  74     /* Call the Set() method on the object */
  75     ReturnPtr ("OOP_SetAttrs", IPTR, OOP_DoMethod(object, (OOP_Msg)&p));
  76
  77     AROS_LIBFUNC_EXIT
  78 } /* OOP_SetAttrs */