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                 struct GT_ContextGadget *contextgad = (struct GT_ContextGadget *)glist;
  77                 struct GT_GenericGadget *genericgad = (struct GT_GenericGadget *)glist;
  78
  79                 if ( (contextgad->magic  == CONTEXT_MAGIC) &&
  80                      (contextgad->magic2 == CONTEXT_MAGIC2) )
  81                 {
  82                     /* This is a GadTools Context Gadget */
  83
  84                     if (contextgad->gtmsg_used)
  85                     {
  86                         /* App is calling FreeGadgets() while still holding unreplied GT Messages.
  87                            Delay killing of context gad because the gtmsg is embedded in it.
  88                            Kill will happen in GT_PostFilterImsg() */
  89
  90                         DEBUG_FREEGADGETS(dprintf("FreeGadgets: delaying freeing of context 0x%lx\n", glist));
  91
  92                         contextgad->killme = TRUE;
  93                     }
  94                     else
  95                     {
  96                         DEBUG_FREEGADGETS(dprintf("FreeGadgets: free context 0x%lx\n", glist));
  97                         FreeMem(glist, sizeof(struct GT_ContextGadget));
  98                     }
  99                 }
 100                 else if ( (genericgad->magic  == GENERIC_MAGIC) &&
 101                           (genericgad->magic2 == GENERIC_MAGIC2) )
 102                 {
 103                     /* This is a GadTools Generic Kind Gadget */
 104
 105                     DEBUG_FREEGADGETS(dprintf("FreeGadgets: free generic 0x%lx\n", glist));
 106                     freeitext(GTB(GadToolsBase), ((struct GT_GenericGadget *)glist)->itext);
 107                     FreeMem(glist, sizeof(struct GT_GenericGadget));
 108                 }
 109                 else
 110                 {
 111                     DEBUG_FREEGADGETS(dprintf("FreeGadgets: bad gadget 0x%lx\n", glist));
 112                 }
 113
 114             } /* if ((glist->GadgetType & GTYP_GTYPEMASK) == GTYP_CUSTOMGADGET) else ... */
 115
 116         } /* if (glist->GadgetType & GTYP_GADTOOLS) */
 117         else
 118         {
 119             DEBUG_FREEGADGETS(dprintf("FreeGadgets: skip non-gadtools 0x%lx\n", glist));
 120             if (lastgad != NULL)
 121                 lastgad->NextGadget = glist;
 122             lastgad = glist;
 123         }
 124
 125     } /* for (; glist; glist = nextgad) */
 126
 127     if (lastgad != NULL)
 128         lastgad->NextGadget = NULL;
 129
 130     DEBUG_FREEGADGETS(dprintf("FreeGadgets: done\n"));
 131
 132     AROS_LIBFUNC_EXIT
 133 } /* FreeGadgets */