/*
Copyright (C) 2001-2006, William Joseph.
All Rights Reserved.

This file is part of GtkRadiant.

GtkRadiant 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.

GtkRadiant 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 GtkRadiant; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/

#include "menu.h"

#include <ctype.h>
#include <gtk/gtkmenu.h>
#include <gtk/gtkmenubar.h>
#include <gtk/gtkradiomenuitem.h>
#include <gtk/gtktearoffmenuitem.h>
#include <gtk/gtkaccellabel.h>

#include "generic/callback.h"

#include "accelerator.h"
#include "closure.h"
#include "container.h"
#include "pointer.h"

void menu_add_item(GtkMenu* menu, GtkMenuItem* item)
{
	gtk_container_add(GTK_CONTAINER(menu), GTK_WIDGET(item));
}

GtkMenuItem* menu_separator(GtkMenu* menu)
{
  GtkMenuItem* menu_item = GTK_MENU_ITEM(gtk_menu_item_new());
  container_add_widget(GTK_CONTAINER(menu), GTK_WIDGET(menu_item));
  gtk_widget_set_sensitive(GTK_WIDGET(menu_item), FALSE);
  gtk_widget_show(GTK_WIDGET(menu_item));
  return menu_item;
}

GtkTearoffMenuItem* menu_tearoff(GtkMenu* menu)
{
  GtkTearoffMenuItem* menu_item = GTK_TEAROFF_MENU_ITEM(gtk_tearoff_menu_item_new());
  container_add_widget(GTK_CONTAINER(menu), GTK_WIDGET(menu_item));
// gtk_widget_set_sensitive(GTK_WIDGET(menu_item), FALSE); -- controls whether menu is detachable
  gtk_widget_show(GTK_WIDGET(menu_item));
  return menu_item;
}

GtkMenuItem* new_sub_menu_item_with_mnemonic(const char* mnemonic)
{
  GtkMenuItem* item = GTK_MENU_ITEM(gtk_menu_item_new_with_mnemonic(mnemonic));
  gtk_widget_show(GTK_WIDGET(item));

  GtkWidget* sub_menu = gtk_menu_new();
  gtk_menu_item_set_submenu(item, sub_menu);

  return item;
}

GtkMenu* create_sub_menu_with_mnemonic(GtkMenuShell* parent, const char* mnemonic)
{
  GtkMenuItem* item = new_sub_menu_item_with_mnemonic(mnemonic);
  container_add_widget(GTK_CONTAINER(parent), GTK_WIDGET(item));
  return GTK_MENU(gtk_menu_item_get_submenu(item));
}

GtkMenu* create_sub_menu_with_mnemonic(GtkMenuBar* bar, const char* mnemonic)
{
  return create_sub_menu_with_mnemonic(GTK_MENU_SHELL(bar), mnemonic);
}

GtkMenu* create_sub_menu_with_mnemonic(GtkMenu* parent, const char* mnemonic)
{
  return create_sub_menu_with_mnemonic(GTK_MENU_SHELL(parent), mnemonic);
}

void activate_closure_callback(GtkWidget* widget, gpointer data)
{
  (*reinterpret_cast<Callback*>(data))();
}

guint menu_item_connect_callback(GtkMenuItem* item, const Callback& callback)
{
#if 1
  return g_signal_connect_swapped(G_OBJECT(item), "activate", G_CALLBACK(callback.getThunk()), callback.getEnvironment());
#else
  return g_signal_connect_closure(G_OBJECT(item), "activate", create_cclosure(G_CALLBACK(activate_closure_callback), callback), FALSE);
#endif
}

guint check_menu_item_connect_callback(GtkCheckMenuItem* item, const Callback& callback)
{
#if 1
  guint handler = g_signal_connect_swapped(G_OBJECT(item), "toggled", G_CALLBACK(callback.getThunk()), callback.getEnvironment());
#else
  guint handler = g_signal_connect_closure(G_OBJECT(item), "toggled", create_cclosure(G_CALLBACK(activate_closure_callback), callback), TRUE);
#endif
  g_object_set_data(G_OBJECT(item), "handler", gint_to_pointer(handler));
  return handler;
}

GtkMenuItem* new_menu_item_with_mnemonic(const char *mnemonic, const Callback& callback)
{
  GtkMenuItem* item = GTK_MENU_ITEM(gtk_menu_item_new_with_mnemonic(mnemonic));
  gtk_widget_show(GTK_WIDGET(item));
  menu_item_connect_callback(item, callback);
  return item;
}

GtkMenuItem* create_menu_item_with_mnemonic(GtkMenu* menu, const char *mnemonic, const Callback& callback)
{
  GtkMenuItem* item = new_menu_item_with_mnemonic(mnemonic, callback);
  container_add_widget(GTK_CONTAINER(menu), GTK_WIDGET(item));
  return item;
}

GtkCheckMenuItem* new_check_menu_item_with_mnemonic(const char* mnemonic, const Callback& callback)
{
  GtkCheckMenuItem* item = GTK_CHECK_MENU_ITEM(gtk_check_menu_item_new_with_mnemonic(mnemonic));
  gtk_widget_show(GTK_WIDGET(item));
  check_menu_item_connect_callback(item, callback);
  return item;
}

GtkCheckMenuItem* create_check_menu_item_with_mnemonic(GtkMenu* menu, const char* mnemonic, const Callback& callback)
{
  GtkCheckMenuItem* item = new_check_menu_item_with_mnemonic(mnemonic, callback);
  container_add_widget(GTK_CONTAINER(menu), GTK_WIDGET(item));
  return item;
}

GtkRadioMenuItem* new_radio_menu_item_with_mnemonic(GSList** group, const char* mnemonic, const Callback& callback)
{
  GtkRadioMenuItem* item = GTK_RADIO_MENU_ITEM(gtk_radio_menu_item_new_with_mnemonic(*group, mnemonic));
  if(*group == 0)
  {
    gtk_check_menu_item_set_state(GTK_CHECK_MENU_ITEM(item), TRUE);
  }
  *group = gtk_radio_menu_item_group(item);
  gtk_widget_show(GTK_WIDGET(item));
  check_menu_item_connect_callback(GTK_CHECK_MENU_ITEM(item), callback);
  return item;
}

GtkRadioMenuItem* create_radio_menu_item_with_mnemonic(GtkMenu* menu, GSList** group, const char* mnemonic, const Callback& callback)
{
  GtkRadioMenuItem* item = new_radio_menu_item_with_mnemonic(group, mnemonic, callback);
  container_add_widget(GTK_CONTAINER(menu), GTK_WIDGET(item));
  return item;
}

void check_menu_item_set_active_no_signal(GtkCheckMenuItem* item, gboolean active)
{
  guint handler_id = gpointer_to_int(g_object_get_data(G_OBJECT(item), "handler"));
  g_signal_handler_block(G_OBJECT(item), handler_id);
  gtk_check_menu_item_set_active(item, active);
  g_signal_handler_unblock(G_OBJECT(item), handler_id);
}



void radio_menu_item_set_active_no_signal(GtkRadioMenuItem* item, gboolean active)
{
  {
    for(GSList* l = gtk_radio_menu_item_get_group(item); l != 0; l = g_slist_next(l))
    {
      g_signal_handler_block(G_OBJECT(l->data), gpointer_to_int(g_object_get_data(G_OBJECT(l->data), "handler")));
    }
  }
  gtk_check_menu_item_set_active(GTK_CHECK_MENU_ITEM(item), active);
  {
    for(GSList* l = gtk_radio_menu_item_get_group(item); l != 0; l = g_slist_next(l))
    {
      g_signal_handler_unblock(G_OBJECT(l->data), gpointer_to_int(g_object_get_data(G_OBJECT(l->data), "handler")));
    }
  }
}


void menu_item_set_accelerator(GtkMenuItem* item, GClosure* closure)
{
  GtkAccelLabel* accel_label = GTK_ACCEL_LABEL(gtk_bin_get_child(GTK_BIN(item)));
  gtk_accel_label_set_accel_closure(accel_label, closure);
}

void accelerator_name(const Accelerator& accelerator, GString* gstring)
{
  gboolean had_mod = FALSE;
  if (accelerator.modifiers & GDK_SHIFT_MASK)
  {
    g_string_append (gstring, "Shift");
    had_mod = TRUE;
  }
  if (accelerator.modifiers & GDK_CONTROL_MASK)
  {
    if (had_mod)
      g_string_append (gstring, "+");
    g_string_append (gstring, "Ctrl");
    had_mod = TRUE;
  }
  if (accelerator.modifiers & GDK_MOD1_MASK)
  {
    if (had_mod)
      g_string_append (gstring, "+");
    g_string_append (gstring, "Alt");
    had_mod = TRUE;
  }

  if (had_mod)
    g_string_append (gstring, "+");
  if (accelerator.key < 0x80 || (accelerator.key > 0x80 && accelerator.key <= 0xff))
  {
    switch (accelerator.key)
    {
    case ' ':
      g_string_append (gstring, "Space");
      break;
    case '\\':
      g_string_append (gstring, "Backslash");
      break;
    default:
      g_string_append_c (gstring, gchar(toupper(accelerator.key)));
      break;
    }
  }
  else
  {
    gchar *tmp;

    tmp = gtk_accelerator_name (accelerator.key, (GdkModifierType)0);
    if (tmp[0] != 0 && tmp[1] == 0)
      tmp[0] = gchar(toupper(tmp[0]));
    g_string_append (gstring, tmp);
    g_free (tmp);
  }
}

void menu_item_set_accelerator(GtkMenuItem* item, Accelerator accelerator)
{
  GtkAccelLabel* accel_label = GTK_ACCEL_LABEL(gtk_bin_get_child(GTK_BIN(item)));

  g_free (accel_label->accel_string);
  accel_label->accel_string = 0;

  GString* gstring = g_string_new (accel_label->accel_string);
  g_string_append (gstring, "   ");

  accelerator_name(accelerator, gstring);

  g_free (accel_label->accel_string);
  accel_label->accel_string = gstring->str;
  g_string_free (gstring, FALSE);

  if (!accel_label->accel_string)
    accel_label->accel_string = g_strdup ("");

  gtk_widget_queue_resize (GTK_WIDGET (accel_label));
}

void menu_item_add_accelerator(GtkMenuItem* item, Accelerator accelerator)
{
  if(accelerator.key != 0)
  {
    GClosure* closure = global_accel_group_find(accelerator);
    if(closure != 0)
    {
      menu_item_set_accelerator(item, closure);
    }
    else
    {
      menu_item_set_accelerator(item, accelerator);
    }
  }
}

GtkMenuItem* create_menu_item_with_mnemonic(GtkMenu* menu, const char* mnemonic, const Command& command)
{
  GtkMenuItem* item = create_menu_item_with_mnemonic(menu, mnemonic, command.m_callback);
  menu_item_add_accelerator(item, command.m_accelerator);
  return item;
}

void check_menu_item_set_active_callback(GtkCheckMenuItem& item, bool enabled)
{
  check_menu_item_set_active_no_signal(&item, enabled);
}
typedef ReferenceCaller1<GtkCheckMenuItem, bool, check_menu_item_set_active_callback> CheckMenuItemSetActiveCaller;

GtkCheckMenuItem* create_check_menu_item_with_mnemonic(GtkMenu* menu, const char* mnemonic, const Toggle& toggle)
{
  GtkCheckMenuItem* item = create_check_menu_item_with_mnemonic(menu, mnemonic, toggle.m_command.m_callback);
  menu_item_add_accelerator(GTK_MENU_ITEM(item), toggle.m_command.m_accelerator);
  toggle.m_exportCallback(CheckMenuItemSetActiveCaller(*item));
  return item;
}