workbench/libs/muimaster/mui_newobject.c

   1 /*
   2     Copyright © 2002-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/intuition.h>
   8 #include <proto/muimaster.h>
   9
  10 #include "mui.h"
  11 #include "muimaster_intern.h"
  12
  13 /* #define MYDEBUG 1 */
  14 #include "debug.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19         AROS_LH2(Object *, MUI_NewObjectA,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(ClassID, classid,     A0),
  23         AROS_LHA(struct TagItem *, tags, A1),
  24
  25 /*  LOCATION */
  26         struct Library *, MUIMasterBase, 5, MUIMaster)
  27
  28 /*  FUNCTION
  29         Create object from MUI class.
  30
  31     INPUTS
  32         classid - case sensitive name/ID string of a MUI class.
  33         taglist - attribute/value pairs for the new object.
  34
  35     RESULT
  36         Pointer to object. NULL means failure.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45         MUI_DisposeObject(), intuition.library/SetAttrsA()
  46         intuition.library/GetAttr()
  47
  48     INTERNALS
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     Class  *cl;
  55
  56     cl = MUI_GetClass(classid);
  57     if (cl)
  58     {
  59         Object *obj = NewObjectA(cl, NULL, tags);
  60
  61         if (obj) return obj;
  62
  63         bug("*** Could not create object of %s\n", classid);
  64         MUI_FreeClass(cl);
  65     }
  66
  67     bug("*** Couldn't find %s\n", classid);
  68
  69     return NULL;
  70
  71     AROS_LIBFUNC_EXIT
  72 } /* MUIA_NewObjectA */