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
  13 #ifndef AROS_CREATE_ROM
  14 #  define STATIC_MID static OOP_MethodID mid
  15 #else
  16 #  define STATIC_MID OOP_MethodID mid = 0
  17 #endif
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <proto/oop.h>
  23
  24         AROS_LH2(IPTR, OOP_SetAttrs,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(OOP_Object     *, object, A0),
  28         AROS_LHA(struct TagItem *, attrList, A1),
  29
  30 /*  LOCATION */
  31         struct Library *, OOPBase, 17, OOP)
  32
  33 /*  FUNCTION
  34         Sets the object's attributes as specified in the
  35         supplied taglist.
  36
  37     INPUTS
  38         object  - pointer to a object in whih we
  39                   want to set attributes.
  40
  41         tagList -  List of attributes an their new values.
  42
  43
  44     RESULT
  45         Undefined.
  46
  47     NOTES
  48
  49     EXAMPLE
  50
  51     BUGS
  52
  53     SEE ALSO
  54         OOP_DisposeObject()
  55
  56     INTERNALS
  57
  58     HISTORY
  59         29-10-95    digulla automatically created from
  60                             intuition_lib.fd and clib/intuition_protos.h
  61
  62 *****************************************************************************/
  63 {
  64     AROS_LIBFUNC_INIT
  65
  66     struct pRoot_Set p;
  67     STATIC_MID;
  68
  69     EnterFunc(bug("OOP_SetAttrs())\n"));
  70     ASSERT_VALID_PTR(object);
  71     ASSERT_VALID_PTR(attrList);
  72
  73     if (!mid)
  74         mid = OOP_GetMethodID(IID_Root, moRoot_Set);
  75
  76     p.mID       = mid;
  77     p.attrList  = attrList;
  78
  79     /* Call the Get() method on the object */
  80     ReturnPtr ("OOP_SetAttrs", IPTR, OOP_DoMethod(object, (OOP_Msg)&p));
  81
  82     AROS_LIBFUNC_EXIT
  83 } /* OOP_SetAttrs */