/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#include "config.h"

#include <string.h>

#include <gtk/gtk.h>

#include "libgimpbase/gimpbase.h"

#include "gui-types.h"

#include "core/gimpobject.h"

#include "widgets/gimpitemfactory.h"
#include "widgets/gimpmenufactory.h"

#include "debug-commands.h"
#include "menus.h"


#ifdef ENABLE_DEBUG_ENTRIES

/*  local function prototypes  */

static void   debug_dump_menus_recurse_menu (GtkWidget *menu,
                                             gint       depth,
                                             gchar     *path);


/*  public functions  */

void
debug_dump_menus_cmd_callback (GtkWidget *widget,
                               gpointer   data,
                               guint      action)
{
  GList *list;

  for (list = global_menu_factory->registered_menus;
       list;
       list = g_list_next (list))
    {
      GimpMenuFactoryEntry *entry;
      GimpItemFactory      *item_factory;

      entry = list->data;

      item_factory = gimp_item_factory_from_path (entry->identifier);

      if (item_factory)
        {
          GtkWidget *menu_item;

          g_print ("%s\n", entry->identifier);

          menu_item = gtk_item_factory_get_item (GTK_ITEM_FACTORY (item_factory),
                                                 entry->entries[0].entry.path);

          if (menu_item         &&
              menu_item->parent &&
              GTK_IS_MENU (menu_item->parent))
            debug_dump_menus_recurse_menu (menu_item->parent, 1,
                                           entry->identifier);

          g_print ("\n");
        }
    }
}

void
debug_mem_profile_cmd_callback (GtkWidget *widget,
                                gpointer   data,
                                guint      action)
{
  extern gboolean gimp_debug_memsize;

  gimp_debug_memsize = TRUE;

  gimp_object_get_memsize (GIMP_OBJECT (data));

  gimp_debug_memsize = FALSE;
}


/*  private functions  */

static void
debug_dump_menus_recurse_menu (GtkWidget *menu,
                               gint       depth,
                               gchar     *path)
{
  GtkItemFactory *item_factory;
  GtkWidget      *menu_item;
  GList          *list;
  const gchar    *label;
  gchar          *help_page;
  gchar          *help_path;
  gchar          *factory_path;
  gchar          *hash;
  gchar          *full_path;
  gchar          *format_str;

  for (list = GTK_MENU_SHELL (menu)->children; list; list = g_list_next (list))
    {
      menu_item = GTK_WIDGET (list->data);
      
      if (GTK_IS_LABEL (GTK_BIN (menu_item)->child))
	{
	  label = gtk_label_get_text (GTK_LABEL (GTK_BIN (menu_item)->child));
	  full_path = g_strconcat (path, "/", label, NULL);

	  item_factory = GTK_ITEM_FACTORY (gimp_item_factory_from_path (path));
          help_page    = g_object_get_data (G_OBJECT (menu_item), "help_page");

	  if (item_factory)
	    {
	      factory_path = g_object_get_data (G_OBJECT (item_factory),
                                                "factory_path");

              if (factory_path)
                {
                  help_page = g_build_filename (factory_path, help_page, NULL);
                }
              else
                {
                  help_page = g_strdup (help_page);
                }
	    }
	  else
	    {
	      help_page = g_strdup (help_page);
	    }

	  if (help_page)
	    {
	      help_path = g_build_filename (gimp_data_directory (),
                                            "help", "C", help_page, NULL);

	      if ((hash = strchr (help_path, '#')) != NULL)
		*hash = '\0';

	      if (g_file_test (help_path, G_FILE_TEST_EXISTS))
		{
		  g_free (help_path);
		  help_path = g_strconcat ("! ", help_page, NULL);
		  g_free (help_page);
		  help_page = help_path;
		}
	      else
		{
		  g_free (help_path);
		}
	    }

	  format_str = g_strdup_printf ("%%%ds%%%ds %%-20s %%s\n", 
					depth * 2, depth * 2 - 40);
	  g_print (format_str, 
		   "", label, "", help_page ? help_page : "");
	  g_free (format_str);
	  g_free (help_page);

	  if (GTK_MENU_ITEM (menu_item)->submenu)
	    debug_dump_menus_recurse_menu (GTK_MENU_ITEM (menu_item)->submenu, 
                                           depth + 1, full_path);

	  g_free (full_path);
	}
    }
}

#endif  /*  ENABLE_DEBUG_ENTRIES  */