workbench/libs/gadtools/freegadgets.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include "gadtools_intern.h"
  10
  11 /*********************************************************************
  12
  13     NAME */
  14 #include <proto/gadtools.h>
  15 #include <intuition/intuition.h>
  16
  17         AROS_LH1(VOID, FreeGadgets,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Gadget *, glist, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, GadToolsBase, 6, GadTools)
  24
  25 /*  FUNCTION
  26         Frees all gadtools gadgets in a linked list of gadgets.
  27
  28     INPUTS
  29         glist - pointer to the first gadget to be freed, may be NULL.
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         CreateGadgetA()
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 ***************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct Gadget       *lastgad = NULL, *nextgad = NULL;
  51
  52     DEBUG_FREEGADGETS(dprintf("FreeGadgets: glist 0x%lx\n", glist));
  53
  54     if (!glist)
  55         return;
  56
  57     for (; glist; glist = nextgad)
  58     {
  59         nextgad = glist->NextGadget;
  60         if (glist->GadgetType & GTYP_GADTOOLS)
  61         {
  62             if ((glist->GadgetType & GTYP_GTYPEMASK) == GTYP_CUSTOMGADGET)
  63             {
  64                 DEBUG_FREEGADGETS(dprintf("FreeGadgets: free gadget 0x%lx\n", glist));
  65
  66                 /* must check this, because arrowclass uses GA_LabelImage! */
  67                 if ((glist->Flags & GFLG_LABELMASK) == GFLG_LABELITEXT)
  68                 {
  69                     freeitext(GTB(GadToolsBase), glist->GadgetText);
  70                 }
  71                 DisposeObject(glist);
  72
  73             } /* if ((glist->GadgetType & GTYP_GTYPEMASK) == GTYP_CUSTOMGADGET) */
  74             else
  75             {
  76                 if ( (((struct GT_ContextGadget *)glist)->magic  == CONTEXT_MAGIC) &&
  77                      (((struct GT_ContextGadget *)glist)->magic2 == CONTEXT_MAGIC2) )
  78                 {
  79                     /* This is a GadTools Context Gadget */
  80
  81                     DEBUG_FREEGADGETS(dprintf("FreeGadgets: free context 0x%lx\n", glist));
  82                     FreeMem(glist, sizeof(struct GT_ContextGadget));
  83                 }
  84                 else if ( (((struct GT_GenericGadget *)glist)->magic  == GENERIC_MAGIC) &&
  85                           (((struct GT_GenericGadget *)glist)->magic2 == GENERIC_MAGIC2) )
  86                 {
  87                     /* This is a GadTools Generic Kind Gadget */
  88
  89                     DEBUG_FREEGADGETS(dprintf("FreeGadgets: free generic 0x%lx\n", glist));
  90                     freeitext(GTB(GadToolsBase), ((struct GT_GenericGadget *)glist)->itext);
  91                     FreeMem(glist, sizeof(struct GT_GenericGadget));
  92                 }
  93                 else
  94                 {
  95                     DEBUG_FREEGADGETS(dprintf("FreeGadgets: bad gadget 0x%lx\n", glist));
  96                 }
  97
  98             } /* if ((glist->GadgetType & GTYP_GTYPEMASK) == GTYP_CUSTOMGADGET) else ... */
  99
 100         } /* if (glist->GadgetType & GTYP_GADTOOLS) */
 101         else
 102         {
 103             DEBUG_FREEGADGETS(dprintf("FreeGadgets: skip non-gadtools 0x%lx\n", glist));
 104             if (lastgad != NULL)
 105                 lastgad->NextGadget = glist;
 106             lastgad = glist;
 107         }
 108
 109     } /* for (; glist; glist = nextgad) */
 110
 111     if (lastgad != NULL)
 112         lastgad->NextGadget = NULL;
 113
 114     DEBUG_FREEGADGETS(dprintf("FreeGadgets: done\n"));
 115
 116     AROS_LIBFUNC_EXIT
 117 } /* FreeGadgets */