workbench/libs/gadtools/freemenus.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Free memory allocated by CreateMenusA()
   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, FreeMenus,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct Menu *, menu, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, GadToolsBase, 9, GadTools)
  24
  25 /*  FUNCTION
  26         Frees the menus allocated by CreateMenusA().
  27
  28     INPUTS
  29         menu - pointer to the menu (or first MenuItem) to be freed, may be NULL.
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         CreateMenusA()
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 ***************************************************************************/
  47 #if NEWMENUCODE
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     DEBUG_FREEMENUS(bug("FreeMenus: menu %p\n", menu));
  52     /*
  53      * ULONG BarLabelTable[BarLabelCount]
  54      * ULONG BarLabelCount
  55      * ULONG Menu==0|Item!=0
  56      * Menu:
  57      */
  58     if (menu)
  59     {
  60         ULONG *p = (ULONG *)menu - 1;
  61         ULONG BarLabels;
  62         int i;
  63
  64         DEBUG_FREEMENUS(bug("FreeMenus: p 0x%lx\n", *p));
  65         DEBUG_FREEMENUS(bug("FreeMenus: NextMenu 0x%lx\n", menu->NextMenu));
  66         DEBUG_FREEMENUS(bug("FreeMenus: Left %ld Top %ld Width %ld Height %ld\n", menu->LeftEdge,menu->TopEdge,menu->Width,menu->Height));
  67         DEBUG_FREEMENUS(bug("FreeMenus: Flags 0x%lx\n", menu->Flags));
  68         DEBUG_FREEMENUS(bug("FreeMenus: MenuName <%s> FirstItem 0x%lx\n", menu->MenuName,menu->FirstItem));
  69
  70         p = p - 1;
  71         /*
  72          * p points now on BarLabelCount
  73          */
  74         BarLabels       =       *p;
  75         DEBUG_FREEMENUS(bug("FreeMenus: BarLabels %ld\n", BarLabels));
  76         for (i=0;i<BarLabels;i++)
  77         {
  78                 // get the next Image pointer address
  79                 p = (IPTR) p - sizeof(APTR);
  80                 if (*(APTR*)p)
  81                 {
  82                         DEBUG_FREEMENUS(bug("FreeMenus: Free Image 0x%lx\n", *(APTR*)p));
  83                         DisposeObject(*(APTR*)p);
  84                 }
  85         }
  86         DEBUG_FREEMENUS(bug("FreeMenus: Free MenuMem 0x%lx\n", p));
  87         FreeVec(p);
  88     }
  89     DEBUG_FREEMENUS(bug("FreeMenus: done\n"));
  90
  91     AROS_LIBFUNC_EXIT
  92 } /* FreeMenus */
  93 #else
  94 {
  95     AROS_LIBFUNC_INIT
  96
  97     DEBUG_FREEMENUS(bug("FreeMenus: menu %p\n", menu));
  98
  99     DumpMenu(menu);
 100     if (menu)
 101     {
 102         ULONG *p = (ULONG *)menu - 1;
 103
 104         DEBUG_FREEMENUS(bug("FreeMenus: NextMenu 0x%lx\n", menu->NextMenu));
 105         DEBUG_FREEMENUS(bug("FreeMenus: Left %ld Top %ld Width %ld Height %ld\n", menu->LeftEdge,menu->TopEdge,menu->Width,menu->Height));
 106         DEBUG_FREEMENUS(bug("FreeMenus: Flags 0x%lx\n", menu->Flags));
 107         DEBUG_FREEMENUS(bug("FreeMenus: MenuName <%s> FirstItem 0x%lx\n", menu->MenuName,menu->FirstItem));
 108         /*
 109          * Check if we are freeing a Menu or a MenuItem list.
 110          */
 111         if (*p)
 112         {
 113             DEBUG_FREEMENUS(bug("FreeMenus: menuitem list\n"));
 114             freeitems((struct MenuItem *)menu, (struct GadToolsBase_intern *)GadToolsBase);
 115         }
 116         else
 117         {
 118             DEBUG_FREEMENUS(bug("FreeMenus: menu list\n"));
 119             while (NULL != menu)
 120             {
 121                 struct Menu * _menu;
 122
 123                 _menu = menu->NextMenu;
 124                 DEBUG_FREEMENUS(bug("FreeMenus: menu 0x%lx nextmenu 0x%lx\n",menu,_menu));
 125
 126                 /*
 127                  ** Free all items and subitems of this menu title
 128                  */
 129                 DEBUG_FREEMENUS(bug("FreeMenus: freeitems\n"));
 130                 freeitems(menu->FirstItem, (struct GadToolsBase_intern *)GadToolsBase);
 131
 132                 DEBUG_FREEMENUS(bug("FreeMenus: menu 0x%lx size %ld\n",p,sizeof(ULONG) + sizeof(struct Menu) + sizeof(APTR)));
 133                 FreeMem(p, sizeof(ULONG) + sizeof(struct Menu) + sizeof(APTR));
 134
 135                 menu = _menu;
 136                 p = (ULONG *)menu - 1;
 137             }
 138         }
 139     }
 140     DEBUG_FREEMENUS(bug("FreeMenus: done\n"));
 141
 142     AROS_LIBFUNC_EXIT
 143
 144 } /* FreeMenus */
 145 #endif