workbench/libs/icon/newdiskobject.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <workbench/icon.h>
   8 #include <proto/icon.h>
   9
  10 #include "icon_intern.h"
  11
  12 #   include <aros/debug.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18     AROS_LH1(struct DiskObject *, NewDiskObject,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(ULONG, type, D0),
  22
  23 /*  LOCATION */
  24         struct IconBase *, IconBase, 29, Icon)
  25
  26 /*  FUNCTION
  27         Create empty diskobject structure.
  28
  29     INPUTS
  30         type - WBDISK, WBDRAWER, WBTOOL, WBPROJECT,
  31                WBGARBAGE, WBDEVICE or WBKICK
  32
  33     RESULT
  34
  35     NOTES
  36         Not implemented.
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     int i;
  51     APTR pool;
  52     struct NativeIcon *ni;
  53
  54     pool = CreatePool(0,1024,1024);
  55     if (!pool) return NULL;
  56
  57     /* AROS doesn't need the gfx to be placed in chip niory, so we can use pools */
  58     ni = (struct NativeIcon *)AllocPooled(pool, sizeof(struct NativeIcon));
  59     if (!ni) return NULL;
  60
  61     memset(ni, 0, sizeof(*ni));
  62
  63     ni->ni_DiskObject.do_Type = type;
  64
  65     NEWLIST(&ni->ni_FreeList.fl_MemList);
  66     for (i = 0; i < 2; i++) {
  67         ni->ni_Image[i].TransparentColor = -1;
  68     }
  69
  70     AddIconToList(ni, IconBase);
  71
  72     return &ni->ni_DiskObject;
  73
  74     AROS_LIBFUNC_EXIT
  75 } /* NewDiskObject() */