workbench/libs/icon/newdiskobject.c

   1 /*
   2     Copyright © 1995-2013, 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         Creates an empty DiskObject structure.
  28
  29     INPUTS
  30         type - WBDISK, WBDRAWER, WBTOOL, WBPROJECT,
  31                WBGARBAGE, WBDEVICE or WBKICK
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     APTR result = NULL;
  50     struct NativeIcon *ni;
  51     UWORD i;
  52
  53     ni = (struct NativeIcon *)AllocMem(sizeof(struct NativeIcon), MEMF_CLEAR);
  54     if (ni == NULL)
  55         return NULL;
  56
  57     ni->ni_DiskObject.do_Type = type;
  58
  59     NEWLIST(&ni->ni_FreeList.fl_MemList);
  60     for (i = 0; i < 2; i++)
  61         ni->ni_Image[i].TransparentColor = -1;
  62
  63     AddIconToList(ni, IconBase);
  64     result = &ni->ni_DiskObject;
  65
  66     return result;
  67
  68     AROS_LIBFUNC_EXIT
  69 }