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
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39         The function itself is a bug ;-) Remove it!
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45     HISTORY
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     Class  *cl;
  52
  53     cl = MUI_GetClass(classid);
  54     if (cl)
  55     {
  56         Object *obj = NewObjectA(cl, NULL, tags);
  57
  58         if (obj) return obj;
  59
  60         bug("*** Could not create object of %s\n", classid);
  61         MUI_FreeClass(cl);
  62     }
  63
  64     bug("*** Couldn't find %s\n", classid);
  65
  66     return NULL;
  67
  68     AROS_LIBFUNC_EXIT
  69 } /* MUIA_NewObjectA */