/* GTK - The GIMP Toolkit
 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */

/*
 * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
 * file for a list of people on the GTK+ Team.  See the ChangeLog
 * files for a list of changes.  These files are distributed with
 * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
 */

#include <ctype.h>
#include <gdk/gdkkeysyms.h>
#include <gtk/gtkbindings.h>
#include <gtk/gtklabel.h>
#include <gtk/gtkmain.h>
#include "gtkmenu.h"
#include <gtk/gtkmenuitem.h>
#include <gtk/gtksignal.h>
#include <gtk/gtkwindow.h>

#define MENU_ITEM_CLASS(w)   GTK_MENU_ITEM_CLASS (GTK_OBJECT (w)->klass)
#define	MENU_NEEDS_RESIZE(m) GTK_MENU_SHELL (m)->menu_flag

#define SUBMENU_NAV_REGION_PADDING 2
#define SUBMENU_NAV_HYSTERESIS_TIMEOUT 333

#define MENU_SCROLL_ARROW_HEIGHT	16
#define MENU_SCROLL_TIMEOUT             200

typedef struct _GtkMenuAttachData	GtkMenuAttachData;

struct _GtkMenuAttachData
{
  GtkWidget *attach_widget;
  GtkMenuDetachFunc detacher;
};


static void	gtk_menu_class_init    (GtkMenuClass	  *klass);
static void	gtk_menu_init	       (GtkMenu		  *menu);
static void	gtk_menu_destroy       (GtkObject	  *object);
static void	gtk_menu_realize       (GtkWidget	  *widget);
static void	gtk_menu_size_request  (GtkWidget	  *widget,
					GtkRequisition    *requisition);
static void	gtk_menu_size_allocate (GtkWidget	  *widget,
					GtkAllocation     *allocation);
static void	gtk_menu_paint	       (GtkWidget	  *widget);
static void	gtk_menu_draw	       (GtkWidget	  *widget,
					GdkRectangle      *area);
static gboolean gtk_menu_expose	       (GtkWidget	  *widget,
					GdkEventExpose    *event);
static gboolean gtk_menu_key_press     (GtkWidget	  *widget,
					GdkEventKey       *event);
static gboolean gtk_menu_motion_notify (GtkWidget	  *widget,
					GdkEventMotion    *event);
static gboolean gtk_menu_enter_notify  (GtkWidget         *widget,
					GdkEventCrossing  *event); 
static gboolean gtk_menu_leave_notify  (GtkWidget         *widget,
					GdkEventCrossing  *event);

static void     gtk_menu_stop_navigating_submenu       (GtkMenu          *menu);
static gboolean gtk_menu_stop_navigating_submenu_cb    (gpointer          user_data);
static gboolean gtk_menu_navigating_submenu            (GtkMenu          *menu,
							gint              event_x,
							gint              event_y);
static void     gtk_menu_set_submenu_navigation_region (GtkMenu          *menu,
							GtkMenuItem      *menu_item,
							GdkEventCrossing *event);
static GdkRegion *gtk_menu_get_navigation_region       (GtkMenu          *menu);
static void     gtk_menu_set_navigation_region         (GtkMenu          *menu,
							GdkRegion        *region);
static guint    gtk_menu_get_navigation_timeout        (GtkMenu          *menu);
static void     gtk_menu_set_navigation_timeout        (GtkMenu          *menu,
							guint            timeout);
 
static void gtk_menu_deactivate	    (GtkMenuShell      *menu_shell);
static void gtk_menu_show_all       (GtkWidget         *widget);
static void gtk_menu_hide_all       (GtkWidget         *widget);
static void gtk_menu_position       (GtkMenu           *menu);
static void gtk_menu_top_position   (GtkMenu	       *menu,
				     gint	       x,
				     gint              y,
				     gint              width,
				     gint              height);
static void gtk_menu_reparent       (GtkMenu           *menu, 
				     GtkWidget         *new_parent, 
				     gboolean           unrealize);
static void gtk_menu_set_scrolling  (GtkMenu	       *menu,
				     gboolean		scroll_up,
				     gboolean		scroll_down);
static gboolean gtk_menu_scroll_up  (GtkMenu		*menu,
					guint		scroll_count);				     				     
static gboolean gtk_menu_scroll_down  (GtkMenu		*menu,
					guint		scroll_count);
static gboolean gtk_menu_timeout_up	(gpointer	data);				     				     
static gboolean gtk_menu_timeout_down	(gpointer	data);				     				     
static void gtk_menu_remove         (GtkContainer      *menu,
				     GtkWidget         *widget);

static GtkMenuShellClass *parent_class = NULL;
static const gchar	 *attach_data_key = "gtk-menu-attach-data";
static GQuark             quark_uline_accel_group = 0;

static const gchar       *navigation_region_key = "gtk-menu-navigation_region";
static GQuark             navigation_region_key_id = 0;
static const gchar       *navigation_timeout_key = "gtk-menu-navigation_timeout";
static GQuark             navigation_timeout_key_id = 0;


GtkType
gtk_menu_get_type (void)
{
  static GtkType menu_type = 0;
  
  if (!menu_type)
    {
      static const GtkTypeInfo menu_info =
      {
	"GtkMenu",
	(guint)sizeof (GtkMenu),
	(guint)sizeof (GtkMenuClass),
	(GtkClassInitFunc) gtk_menu_class_init,
	(GtkObjectInitFunc) gtk_menu_init,
	/* reserved_1 */ NULL,
	/* reserved_2 */ NULL,
        (GtkClassInitFunc) NULL,
      };
      
      menu_type = gtk_type_unique (gtk_menu_shell_get_type (), &menu_info);
    }
  
  return menu_type;
}

static void
gtk_menu_class_init (GtkMenuClass *class)
{
  GtkObjectClass *object_class;
  GtkWidgetClass *widget_class;
  GtkContainerClass *container_class;
  GtkMenuShellClass *menu_shell_class;

  GtkBindingSet *binding_set;
  
  object_class = (GtkObjectClass*) class;
  widget_class = (GtkWidgetClass*) class;
  container_class = (GtkContainerClass*) class;
  menu_shell_class = (GtkMenuShellClass*) class;
  parent_class = gtk_type_class (gtk_menu_shell_get_type ());
  
  object_class->destroy = gtk_menu_destroy;
  
  widget_class->realize = gtk_menu_realize;
  widget_class->draw = gtk_menu_draw;
  widget_class->size_request = gtk_menu_size_request;
  widget_class->size_allocate = gtk_menu_size_allocate;
  widget_class->expose_event = gtk_menu_expose;
  widget_class->key_press_event = gtk_menu_key_press;
  widget_class->motion_notify_event = gtk_menu_motion_notify;
  widget_class->show_all = gtk_menu_show_all;
  widget_class->hide_all = gtk_menu_hide_all;
  widget_class->enter_notify_event = gtk_menu_enter_notify;
  widget_class->leave_notify_event = gtk_menu_leave_notify;

  container_class->remove = gtk_menu_remove;
  
  menu_shell_class->submenu_placement = GTK_LEFT_RIGHT;
  menu_shell_class->deactivate = gtk_menu_deactivate;

  binding_set = gtk_binding_set_by_class (class);
  gtk_binding_entry_add_signal (binding_set,
				GDK_Up, 0,
				"move_current", 1,
				GTK_TYPE_MENU_DIRECTION_TYPE,
				GTK_MENU_DIR_PREV);
  gtk_binding_entry_add_signal (binding_set,
				GDK_Down, 0,
				"move_current", 1,
				GTK_TYPE_MENU_DIRECTION_TYPE,
				GTK_MENU_DIR_NEXT);
  gtk_binding_entry_add_signal (binding_set,
				GDK_Left, 0,
				"move_current", 1,
				GTK_TYPE_MENU_DIRECTION_TYPE,
				GTK_MENU_DIR_PARENT);
  gtk_binding_entry_add_signal (binding_set,
				GDK_Right, 0,
				"move_current", 1,
				GTK_TYPE_MENU_DIRECTION_TYPE,
				GTK_MENU_DIR_CHILD);
}

static gboolean
gtk_menu_window_event (GtkWidget *window,
		       GdkEvent  *event,
		       GtkWidget *menu)
{
  gboolean handled = FALSE;

  gtk_widget_ref (window);
  gtk_widget_ref (menu);

  switch (event->type)
    {
    case GDK_KEY_PRESS:
    case GDK_KEY_RELEASE:
      (void)gtk_widget_event (menu, event);
      handled = TRUE;
      break;
    default:
      break;
    }

  gtk_widget_unref (window);
  gtk_widget_unref (menu);

  return handled;
}

static void
gtk_menu_init (GtkMenu *menu)
{
  menu->parent_menu_item = NULL;
  menu->old_active_menu_item = NULL;
  menu->accel_group = NULL;
  menu->position_func = NULL;
  menu->position_func_data = NULL;

  menu->first_scroll_child = -1;
  menu->last_scroll_child = -1;
  menu->top_scroll_arrow_lit = FALSE;
  menu->bottom_scroll_arrow_lit = FALSE;
  menu->scroll_up_source_tag = 0;
  menu->scroll_down_source_tag = 0;

  menu->toplevel = gtk_window_new (GTK_WINDOW_POPUP);
  (void)gtk_signal_connect (GTK_OBJECT (menu->toplevel),
		      "event",
		      GTK_SIGNAL_FUNC (gtk_menu_window_event), 
		      GTK_OBJECT (menu));
  gtk_window_set_policy (GTK_WINDOW (menu->toplevel),
			 FALSE, FALSE, TRUE);

  gtk_container_add (GTK_CONTAINER (menu->toplevel), GTK_WIDGET (menu));

  /* Refloat the menu, so that reference counting for the menu isn't
   * affected by it being a child of the toplevel
   */
  GTK_WIDGET_SET_FLAGS (menu, GTK_FLOATING);

  menu->tearoff_window = NULL;
  menu->torn_off = FALSE;

  MENU_NEEDS_RESIZE (menu) = TRUE;
}

static void
gtk_menu_destroy (GtkObject	    *object)
{
  GtkMenu *menu;
  GtkMenuAttachData *data;
  
  g_return_if_fail (object != NULL);
  g_return_if_fail (GTK_IS_MENU (object));

  menu = GTK_MENU (object);
  
  gtk_object_ref (object);
  
  data = gtk_object_get_data (object, attach_data_key);
  if (data)
    gtk_menu_detach (menu);
  
  gtk_menu_stop_navigating_submenu (menu);

  gtk_menu_set_accel_group (menu, NULL);

  if (menu->old_active_menu_item)
    {
      gtk_widget_unref (menu->old_active_menu_item);
      menu->old_active_menu_item = NULL;
    }

  /* Add back the reference count for being a child */
  gtk_object_ref (object);
  
  gtk_widget_destroy (menu->toplevel);
  if (menu->tearoff_window)
    gtk_widget_destroy (menu->tearoff_window);

  if (GTK_OBJECT_CLASS (parent_class)->destroy)
    (* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
  
  gtk_object_unref (object);
}


void
gtk_menu_attach_to_widget (GtkMenu	       *menu,
			   GtkWidget	       *attach_widget,
			   GtkMenuDetachFunc	detacher)
{
  GtkMenuAttachData *data;
  
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));
  g_return_if_fail (attach_widget != NULL);
  g_return_if_fail (GTK_IS_WIDGET (attach_widget));
  g_return_if_fail (detacher != NULL);
  
  /* keep this function in sync with gtk_widget_set_parent()
   */
  
  data = gtk_object_get_data (GTK_OBJECT (menu), attach_data_key);
  if (data)
    {
      g_warning ("gtk_menu_attach_to_widget(): menu already attached to %s",
		 gtk_type_name (GTK_OBJECT_TYPE (data->attach_widget)));
      return;
    }
  
  gtk_object_ref (GTK_OBJECT (menu));
  gtk_object_sink (GTK_OBJECT (menu));
  
  data = g_new (GtkMenuAttachData, 1);
  data->attach_widget = attach_widget;
  data->detacher = detacher;
  gtk_object_set_data (GTK_OBJECT (menu), attach_data_key, data);
  
  if (GTK_WIDGET_STATE (menu) != GTK_STATE_NORMAL)
    gtk_widget_set_state (GTK_WIDGET (menu), GTK_STATE_NORMAL);
  
  /* we don't need to set the style here, since
   * we are a toplevel widget.
   */
}

GtkWidget*
gtk_menu_get_attach_widget (GtkMenu		*menu)
{
  GtkMenuAttachData *data;
  
  g_return_val_if_fail (menu != NULL, NULL);
  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);
  
  data = gtk_object_get_data (GTK_OBJECT (menu), attach_data_key);
  if (data)
    return data->attach_widget;
  return NULL;
}

void
gtk_menu_detach (GtkMenu	     *menu)
{
  GtkMenuAttachData *data;
  
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));
  
  /* keep this function in sync with gtk_widget_unparent()
   */
  data = gtk_object_get_data (GTK_OBJECT (menu), attach_data_key);
  if (!data)
    {
      g_warning ("gtk_menu_detach(): menu is not attached");
      return;
    }
  gtk_object_remove_data (GTK_OBJECT (menu), attach_data_key);
  
  data->detacher (data->attach_widget, menu);
  
  if (GTK_WIDGET_REALIZED (menu))
    gtk_widget_unrealize (GTK_WIDGET (menu));
  
  g_free (data);
  
  gtk_widget_unref (GTK_WIDGET (menu));
}

GtkWidget*
gtk_menu_new (void)
{
  return GTK_WIDGET (gtk_type_new (gtk_menu_get_type ()));
}

void
gtk_menu_append (GtkMenu   *menu,
		 GtkWidget *child)
{
  gtk_menu_shell_append (GTK_MENU_SHELL (menu), child);
}

void
gtk_menu_prepend (GtkMenu   *menu,
		  GtkWidget *child)
{
  gtk_menu_shell_prepend (GTK_MENU_SHELL (menu), child);
}

void
gtk_menu_insert (GtkMenu   *menu,
		 GtkWidget *child,
		 gint	    position)
{
  gtk_menu_shell_insert (GTK_MENU_SHELL (menu), child, position);
}

void 
gtk_menu_remove(GtkContainer *container,
	        GtkWidget    *widget)
{
  GtkMenu *menu;
  g_return_if_fail (GTK_IS_MENU (container));
  g_return_if_fail (GTK_IS_MENU_ITEM (widget));

  menu = GTK_MENU (container);

  /* Clear out old_active_menu_item if it matches the item we are removing
   */
  if (menu->old_active_menu_item == widget)
    {
      gtk_widget_unref (menu->old_active_menu_item);
      menu->old_active_menu_item = NULL;
    }

  GTK_CONTAINER_CLASS (parent_class)->remove (container, widget);
}


static void
gtk_menu_tearoff_bg_copy (GtkMenu *menu)
{
  GtkWidget *widget;

  widget = GTK_WIDGET (menu);

  if (menu->torn_off)
    {
      GdkPixmap *pixmap;
      GdkGC *gc;
      GdkGCValues gc_values;
      
      gc_values.subwindow_mode = GDK_INCLUDE_INFERIORS;
      gc = gdk_gc_new_with_values (widget->window,
				   &gc_values, GDK_GC_SUBWINDOW);
      
      pixmap = gdk_pixmap_new (widget->window,
			       widget->requisition.width,
			       widget->requisition.height,
			       -1);

      gdk_draw_pixmap (pixmap, gc,
		       widget->window,
		       0, 0, 0, 0, -1, -1);
      gdk_gc_unref (gc);
      
      gtk_widget_set_usize (menu->tearoff_window,
			    widget->requisition.width,
			    widget->requisition.height);
      
      gdk_window_set_back_pixmap (menu->tearoff_window->window, pixmap, FALSE);
      gdk_pixmap_unref (pixmap);
    }
}

void
gtk_menu_popup (GtkMenu		    *menu,
		GtkWidget	    *parent_menu_shell,
		GtkWidget	    *parent_menu_item,
		GtkMenuPositionFunc  func,
		gpointer	     data,
		guint		     button,
		guint32		     activate_time)
{
  GtkWidget *widget;
  GtkWidget *xgrab_shell;
  GtkWidget *parent;
  GdkEvent *current_event;
  GtkMenuShell *menu_shell;
  
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));
  
  widget = GTK_WIDGET (menu);
  menu_shell = GTK_MENU_SHELL (menu);
  
  menu->top_scroll_arrow_lit = FALSE;
  menu->bottom_scroll_arrow_lit = FALSE;

  menu_shell->parent_menu_shell = parent_menu_shell;
  menu_shell->active = TRUE;
  menu_shell->button = button;

  /* If we are popping up the menu from something other than, a button
   * press then, as a heuristic, we ignore enter events for the menu
   * until we get a MOTION_NOTIFY.  
   */

  current_event = gtk_get_current_event();
  if (current_event)
    {
      if ((current_event->type != GDK_BUTTON_PRESS) &&
	  (current_event->type != GDK_ENTER_NOTIFY))
	menu_shell->ignore_enter = TRUE;
      gdk_event_free (current_event);
    }

  if (menu->torn_off)
    {
      gtk_menu_tearoff_bg_copy (menu);

      /* We force an unrealize here so that we don't trigger redrawing/
       * clearing code - we just want to reveal our backing pixmap.
       */
      gtk_menu_reparent (menu, menu->toplevel, TRUE);
    }
  
  menu->parent_menu_item = parent_menu_item;
  menu->position_func = func;
  menu->position_func_data = data;
  menu_shell->activate_time = activate_time;

  gtk_menu_position (menu);

  /* We need to show the menu _here_ because code expects to be
   * able to tell if the menu is onscreen by looking at the
   * GTK_WIDGET_VISIBLE (menu)
   */
  gtk_widget_show (GTK_WIDGET (menu));
  gtk_widget_show (menu->toplevel);
  
  /* Find the last viewable ancestor, and make an X grab on it
   */
  parent = GTK_WIDGET (menu);
  xgrab_shell = NULL;
  while (parent)
    {
      gboolean viewable = TRUE;
      GtkWidget *tmp = parent;
      
      while (tmp)
	{
	  if (!GTK_WIDGET_MAPPED (tmp))
	    {
	      viewable = FALSE;
	      break;
	    }
	  tmp = tmp->parent;
	}
      
      if (viewable)
	xgrab_shell = parent;
      
      parent = GTK_MENU_SHELL (parent)->parent_menu_shell;
    }
  
  if (xgrab_shell && (!GTK_MENU_SHELL (xgrab_shell)->have_xgrab))
    {
      if ((gdk_pointer_grab (xgrab_shell->window, TRUE,
			     GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK |
			     GDK_ENTER_NOTIFY_MASK | GDK_LEAVE_NOTIFY_MASK |
			     GDK_POINTER_MOTION_MASK,
			     NULL, NULL, activate_time) == 0))
	{
	  if (gdk_keyboard_grab (xgrab_shell->window, TRUE,
			      activate_time) == 0)
	    GTK_MENU_SHELL (xgrab_shell)->have_xgrab = TRUE;
	  else
	    {
	      gdk_pointer_ungrab (activate_time);
	    }
	}
    }
  
  gtk_grab_add (GTK_WIDGET (menu));
}

void
gtk_menu_popdown (GtkMenu *menu)
{
  GtkMenuShell *menu_shell;
  
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));
  
  menu_shell = GTK_MENU_SHELL (menu);
  
  menu_shell->parent_menu_shell = NULL;
  menu_shell->active = FALSE;
  menu_shell->ignore_enter = FALSE;
  
  gtk_menu_stop_navigating_submenu (menu);
  
  if (menu_shell->active_menu_item)
    {
      if (menu->old_active_menu_item)
	gtk_widget_unref (menu->old_active_menu_item);
      menu->old_active_menu_item = menu_shell->active_menu_item;
      gtk_widget_ref (menu->old_active_menu_item);
    }

  gtk_menu_shell_deselect (menu_shell);
  gtk_menu_set_scrolling (menu, FALSE, FALSE);
  
  /* The X Grab, if present, will automatically be removed when we hide
   * the window */
  gtk_widget_hide (menu->toplevel);

  if (menu->torn_off)
    {
      if (GTK_BIN (menu->toplevel)->child) 
	{
	  gtk_menu_reparent (menu, menu->tearoff_window, FALSE);
	} 
      else
	{
	  /* We popped up the menu from the tearoff, so we need to 
	   * release the grab - we aren't actually hiding the menu.
	   */
	  if (menu_shell->have_xgrab)
	    {
	      gdk_pointer_ungrab (GDK_CURRENT_TIME);
	      gdk_keyboard_ungrab (GDK_CURRENT_TIME);
	    }
	}
    }
  else
    gtk_widget_hide (GTK_WIDGET (menu));
        
  menu_shell->have_xgrab = FALSE;
  gtk_grab_remove (GTK_WIDGET (menu));
}

GtkWidget*
gtk_menu_get_active (GtkMenu *menu)
{
  GtkWidget *child;
  GList *children;
  
  g_return_val_if_fail (menu != NULL, NULL);
  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);
  
  if (!menu->old_active_menu_item)
    {
      child = NULL;
      children = GTK_MENU_SHELL (menu)->children;
      
      while (children)
	{
	  child = children->data;
	  children = children->next;
	  
	  if (GTK_BIN (child)->child)
	    break;
	  child = NULL;
	}
      
      menu->old_active_menu_item = child;
      if (menu->old_active_menu_item)
	gtk_widget_ref (menu->old_active_menu_item);
    }
  
  return menu->old_active_menu_item;
}

void
gtk_menu_set_active (GtkMenu *menu,
		     guint    index)
{
  GtkWidget *child;
  GList *tmp_list;
  
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));
  
  tmp_list = g_list_nth (GTK_MENU_SHELL (menu)->children, index);
  if (tmp_list)
    {
      child = tmp_list->data;
      if (GTK_BIN (child)->child)
	{
	  if (menu->old_active_menu_item)
	    gtk_widget_unref (menu->old_active_menu_item);
	  menu->old_active_menu_item = child;
	  gtk_widget_ref (menu->old_active_menu_item);
	}
    }
}

void
gtk_menu_set_accel_group (GtkMenu	*menu,
			  GtkAccelGroup *accel_group)
{
  g_return_if_fail (GTK_IS_MENU (menu));
  
  if (menu->accel_group != accel_group)
    {
      if (menu->accel_group)
	gtk_accel_group_unref (menu->accel_group);
      menu->accel_group = accel_group;
      if (menu->accel_group)
	(void)gtk_accel_group_ref (menu->accel_group);
    }
}

GtkAccelGroup*
gtk_menu_get_accel_group (GtkMenu *menu)
{
  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);

  return menu->accel_group;
}

GtkAccelGroup*
gtk_menu_ensure_uline_accel_group (GtkMenu *menu)
{
  GtkAccelGroup *accel_group;

  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);

  if (!quark_uline_accel_group)
    quark_uline_accel_group = g_quark_from_static_string ("GtkMenu-uline-accel-group");

  accel_group = gtk_object_get_data_by_id (GTK_OBJECT (menu), quark_uline_accel_group);
  if (!accel_group)
    {
      accel_group = gtk_accel_group_new ();
      gtk_accel_group_attach (accel_group, GTK_OBJECT (menu));
      gtk_object_set_data_by_id_full (GTK_OBJECT (menu),
				      quark_uline_accel_group,
				      accel_group,
				      (GtkDestroyNotify) gtk_accel_group_unref);
    }

  return accel_group;
}

GtkAccelGroup*
gtk_menu_get_uline_accel_group (GtkMenu *menu)
{
  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);

  return gtk_object_get_data_by_id (GTK_OBJECT (menu), quark_uline_accel_group);
}

void
gtk_menu_reposition (GtkMenu *menu)
{
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));

  if (GTK_WIDGET_DRAWABLE (menu) && !menu->torn_off)
    gtk_menu_position (menu);
}


void       
gtk_menu_set_tearoff_state (GtkMenu  *menu,
			    gboolean  torn_off)
{
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));

  if (menu->torn_off != (guint)torn_off)
    {
      menu->torn_off = (guint)torn_off;
      
      if (menu->torn_off)
	{
	  if (GTK_WIDGET_VISIBLE (menu))
	    gtk_menu_popdown (menu);

	  if (!menu->tearoff_window)
	    {
	      GtkWidget *attach_widget;
	      gchar *title;
	      
	      menu->tearoff_window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
	      gtk_widget_set_app_paintable (menu->tearoff_window, TRUE);
	      (void)gtk_signal_connect (GTK_OBJECT (menu->tearoff_window),  
				  "event",
				  GTK_SIGNAL_FUNC (gtk_menu_window_event), 
				  GTK_OBJECT (menu));
	      gtk_widget_realize (menu->tearoff_window);
	      
	      title = gtk_object_get_data (GTK_OBJECT (menu), "gtk-menu-title");
	      if (!title)
		{
		  attach_widget = gtk_menu_get_attach_widget (menu);
		  if (GTK_IS_MENU_ITEM (attach_widget))
		    {
		      GtkWidget *child = GTK_BIN (attach_widget)->child;
		      if (GTK_IS_LABEL (child))
			gtk_label_get (GTK_LABEL (child), &title);
		    }
		}

	      if (title)
		gdk_window_set_title (menu->tearoff_window->window, title);

	      gdk_window_set_decorations (menu->tearoff_window->window, 
					  GDK_DECOR_ALL |
					  GDK_DECOR_RESIZEH |
					  GDK_DECOR_MINIMIZE |
					  GDK_DECOR_MAXIMIZE);
	      gtk_window_set_policy (GTK_WINDOW (menu->tearoff_window),
				     FALSE, FALSE, TRUE);
	    }
	  gtk_menu_reparent (menu, menu->tearoff_window, FALSE);

	  gtk_menu_position (menu);
	  
	  gtk_widget_show (GTK_WIDGET (menu));
	  gtk_widget_show (menu->tearoff_window);
	}
      else
	{
	  gtk_widget_hide (menu->tearoff_window);
	  gtk_menu_reparent (menu, menu->toplevel, FALSE);
	}
    }
}

void       
gtk_menu_set_title (GtkMenu     *menu,
		    const gchar *title)
{
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));

  gtk_object_set_data_full (GTK_OBJECT (menu), "gtk-menu-title",
			    g_strdup (title), (GtkDestroyNotify) g_free);
}

void
gtk_menu_reorder_child (GtkMenu   *menu,
                        GtkWidget *child,
                        gint       position)
{
  GtkMenuShell *menu_shell;
  g_return_if_fail (GTK_IS_MENU (menu));
  g_return_if_fail (GTK_IS_MENU_ITEM (child));
  menu_shell = GTK_MENU_SHELL (menu);
  if (g_list_find (menu_shell->children, child))
    {   
      menu_shell->children = g_list_remove (menu_shell->children, child);
      menu_shell->children = g_list_insert (menu_shell->children, child, position);   
      if (GTK_WIDGET_VISIBLE (menu_shell))
        gtk_widget_queue_resize (GTK_WIDGET (menu_shell));
    }   
}

static void
gtk_menu_realize (GtkWidget *widget)
{
  GdkWindowAttr attributes;
  gint attributes_mask;
  
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));
  
  GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
  
  attributes.window_type = GDK_WINDOW_CHILD;
  attributes.x = widget->allocation.x;
  attributes.y = widget->allocation.y;
  attributes.width = (gint16)widget->allocation.width;
  attributes.height = (gint16)widget->allocation.height;
  attributes.wclass = GDK_INPUT_OUTPUT;
  attributes.visual = gtk_widget_get_visual (widget);
  attributes.colormap = gtk_widget_get_colormap (widget);
  attributes.event_mask = gtk_widget_get_events (widget);
  attributes.event_mask |= (GDK_EXPOSURE_MASK | GDK_KEY_PRESS_MASK);
  
  attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP;
  widget->window = gdk_window_new (gtk_widget_get_parent_window (widget), &attributes, attributes_mask);
  gdk_window_set_user_data (widget->window, widget);
  
  widget->style = gtk_style_attach (widget->style, widget->window);
  gtk_style_set_background (widget->style, widget->window, GTK_STATE_NORMAL);
  gtk_menu_paint(widget);
}

static void
gtk_menu_size_request (GtkWidget      *widget,
		       GtkRequisition *requisition)
{
  GtkMenu *menu;
  GtkMenuShell *menu_shell;
  GtkWidget *child;
  GList *children;
  guint max_toggle_size;
  guint max_accel_width;
  GtkRequisition child_requisition;
  
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));
  g_return_if_fail (requisition != NULL);
  
  menu = GTK_MENU (widget);
  menu_shell = GTK_MENU_SHELL (widget);
  
  requisition->width = 0;
  requisition->height = 0;
  
  max_toggle_size = 0;
  max_accel_width = 0;
  
  children = menu_shell->children;
  while (children)
    {
      child = children->data;
      children = children->next;
      
      if (GTK_WIDGET_VISIBLE (child))
	{
	  GTK_MENU_ITEM (child)->show_submenu_indicator = TRUE;
	  gtk_widget_size_request (child, &child_requisition);
	  
	  requisition->width = MAX (requisition->width, child_requisition.width);
	  requisition->height += child_requisition.height;
	  
	  max_toggle_size = MAX (max_toggle_size, MENU_ITEM_CLASS (child)->toggle_size);
	  max_accel_width = MAX (max_accel_width, GTK_MENU_ITEM (child)->accelerator_width);
	}
    }
  
  requisition->width += max_toggle_size + max_accel_width;
  requisition->width += (GTK_CONTAINER (menu)->border_width +
			 widget->style->klass->xthickness) * 2;
  requisition->height += (GTK_CONTAINER (menu)->border_width +
			  widget->style->klass->ythickness) * 2;
  
  children = menu_shell->children;
  while (children)
    {
      child = children->data;
      children = children->next;
      
      GTK_MENU_ITEM (child)->toggle_size = (guint16)max_toggle_size;
    }
}

static void
gtk_menu_size_allocate (GtkWidget     *widget,
			GtkAllocation *allocation)
{
  GtkMenu *menu;
  GtkMenuShell *menu_shell;
  GtkWidget *child;
  GtkAllocation child_allocation;
  GList *children;
  
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));
  g_return_if_fail (allocation != NULL);
  
  menu = GTK_MENU (widget);
  menu_shell = GTK_MENU_SHELL (widget);
  
  widget->allocation = *allocation;
  if (GTK_WIDGET_REALIZED (widget))
    gdk_window_move_resize (widget->window,
			    allocation->x, allocation->y,
			    (gint)allocation->width, (gint)allocation->height);

  if (menu_shell->children)
    {
      gint child_num;

      child_allocation.x = (gint16) (GTK_CONTAINER (menu)->border_width +
	                   GTK_WIDGET (menu)->style->klass->xthickness);
      child_allocation.y = (gint16) (GTK_CONTAINER (menu)->border_width +
	                   GTK_WIDGET (menu)->style->klass->ythickness);
      child_allocation.width = (guint16)MAX (1, (gint)allocation->width - child_allocation.x * 2);

      if (menu->first_scroll_child != -1)
	child_allocation.y += MENU_SCROLL_ARROW_HEIGHT;
      
      child_num = 0;
      children = menu_shell->children;
      while (children)
	{
	  child = children->data;
	  children = children->next;
	  
	  if (GTK_WIDGET_VISIBLE (child))
	    {
	      GtkRequisition child_requisition;
	      gtk_widget_get_child_requisition (child, &child_requisition);

	      if (child_num < menu->first_scroll_child 
		  || (child_num > menu->last_scroll_child
		      && menu->last_scroll_child != -1)) 
		{
		  GtkAllocation outside_allocation;
		    
		  outside_allocation.x = -child_requisition.width;
		  outside_allocation.y = -child_requisition.height;
		  outside_allocation.width = (guint16)child_requisition.width;
		  outside_allocation.height = (guint16)child_requisition.height;

		  gtk_widget_size_allocate (child, &outside_allocation); 
		}
	      else
	      { 
		  child_allocation.height = (guint16)child_requisition.height;
	      
		  gtk_widget_size_allocate (child, &child_allocation);
		  gtk_widget_queue_draw (child);
		  
		  child_allocation.y += child_allocation.height;
	      } 
	    }

	  child_num++;
	}
    }
}

static void
gtk_menu_paint (GtkWidget *widget)
{
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));
  
  if (GTK_WIDGET_DRAWABLE (widget))
    {
      gint border;
      gint width, height;

      border = (gint) (GTK_CONTAINER (widget)->border_width +
	       widget->style->klass->ythickness + 1);
      gdk_window_get_size (widget->window, &width, &height);

      gtk_paint_box (widget->style,
		     widget->window,
		     GTK_STATE_NORMAL,
		     GTK_SHADOW_OUT,
		     NULL, widget, "menu",
		     0, 0, -1, -1);

      if (GTK_MENU (widget)->first_scroll_child != -1)
	{
	  gtk_paint_arrow (widget->style,
			   widget->window,
			   GTK_MENU (widget)->top_scroll_arrow_lit ?
			       GTK_STATE_PRELIGHT : GTK_STATE_NORMAL,
			   GTK_SHADOW_OUT,
			   NULL, widget, "menu",
			   GTK_ARROW_UP,
			   TRUE,
			   width / 2 - MENU_SCROLL_ARROW_HEIGHT / 2 + 1, 
			   border, 
			   MENU_SCROLL_ARROW_HEIGHT - 2, 
			   MENU_SCROLL_ARROW_HEIGHT - 2);
	}
      if (GTK_MENU (widget)->last_scroll_child != -1)
	{
	  gtk_paint_arrow (widget->style,
			   widget->window,
			   GTK_MENU (widget)->bottom_scroll_arrow_lit ?
			       GTK_STATE_PRELIGHT : GTK_STATE_NORMAL,
			   GTK_SHADOW_OUT,
			   NULL, widget, "menu",
			   GTK_ARROW_DOWN,
			   TRUE,
			   width / 2 - MENU_SCROLL_ARROW_HEIGHT / 2 + 1, 
			   height - border - MENU_SCROLL_ARROW_HEIGHT + 2, 
			   MENU_SCROLL_ARROW_HEIGHT - 2, 
			   MENU_SCROLL_ARROW_HEIGHT - 2);
	}
    }
}

static void
gtk_menu_draw (GtkWidget    *widget,
	       GdkRectangle *area)
{
  GtkMenuShell *menu_shell;
  GtkWidget *child;
  GdkRectangle child_area;
  GList *children;
  
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));
  g_return_if_fail (area != NULL);
  
  if (GTK_WIDGET_DRAWABLE (widget))
    {
      gtk_menu_paint (widget);
      
      menu_shell = GTK_MENU_SHELL (widget);
      
      children = menu_shell->children;
      while (children)
	{
	  child = children->data;
	  children = children->next;
	  
	  if (gtk_widget_intersect (child, area, &child_area))
	    gtk_widget_draw (child, &child_area);
	}
    }
}

static gboolean
gtk_menu_expose (GtkWidget	*widget,
		 GdkEventExpose *event)
{
  GtkMenuShell *menu_shell;
  GtkWidget *child;
  GdkEventExpose child_event;
  GList *children;
  GtkMenu *menu;
  
  g_return_val_if_fail (widget != NULL, FALSE);
  g_return_val_if_fail (GTK_IS_MENU (widget), FALSE);
  g_return_val_if_fail (event != NULL, FALSE);

  menu_shell = GTK_MENU_SHELL (widget);
  menu = GTK_MENU (widget);
  
  if (GTK_WIDGET_DRAWABLE (widget))
    {
      gtk_menu_paint (widget);
      
      child_event = *event;
      
      children = menu_shell->children;
      while (children)
	{
	  child = children->data;
	  children = children->next;
	  
	  if (GTK_WIDGET_NO_WINDOW (child) &&
	      gtk_widget_intersect (child, &event->area, &child_event.area))
	    (void)gtk_widget_event (child, (GdkEvent*) &child_event);
	}
    }
  
  return FALSE;
}

static gboolean
gtk_menu_key_press (GtkWidget	*widget,
		    GdkEventKey *event)
{
  GtkMenuShell *menu_shell;
  gboolean delete = FALSE;
  
  g_return_val_if_fail (widget != NULL, FALSE);
  g_return_val_if_fail (GTK_IS_MENU (widget), FALSE);
  g_return_val_if_fail (event != NULL, FALSE);
      
  menu_shell = GTK_MENU_SHELL (widget);

  gtk_menu_stop_navigating_submenu (GTK_MENU (widget));

  if (GTK_WIDGET_CLASS (parent_class)->key_press_event (widget, event))
    return TRUE;

  switch (event->keyval)
    {
    case GDK_Delete:
    case GDK_KP_Delete:
    case GDK_BackSpace:
      delete = TRUE;
      break;
    default:
      break;
    }

  /* Modify the accelerators */
  if (menu_shell->active_menu_item &&
      GTK_BIN (menu_shell->active_menu_item)->child &&
      GTK_MENU_ITEM (menu_shell->active_menu_item)->submenu == NULL &&
      !gtk_widget_accelerators_locked (menu_shell->active_menu_item) &&
      (delete ||
       (gtk_accelerator_valid (event->keyval, event->state) &&
	(event->state ||
	 !gtk_menu_get_uline_accel_group (GTK_MENU (menu_shell)) ||
	 (event->keyval >= GDK_F1 && event->keyval <= GDK_F35)))))
    {
      GtkMenuItem *menu_item;
      GtkAccelGroup *accel_group;
      
      menu_item = GTK_MENU_ITEM (menu_shell->active_menu_item);
      
      if (!GTK_MENU (widget)->accel_group)
	accel_group = gtk_accel_group_get_default ();
      else
	accel_group = GTK_MENU (widget)->accel_group;
      
      gtk_widget_remove_accelerators (GTK_WIDGET (menu_item),
				      gtk_signal_name (menu_item->accelerator_signal),
				      TRUE);
      
      if (!delete &&
	  0 == gtk_widget_accelerator_signal (GTK_WIDGET (menu_item),
					      accel_group,
					      event->keyval,
					      event->state))
	{
	  GSList *slist;
	  
	  slist = gtk_accel_group_entries_from_object (GTK_OBJECT (menu_item));
	  while (slist)
	    {
	      GtkAccelEntry *ac_entry;
	      
	      ac_entry = slist->data;
	      
	      if (ac_entry->signal_id == menu_item->accelerator_signal)
		break;
	      
	      slist = slist->next;
	    }
	  
	  if (!slist)
	    gtk_widget_add_accelerator (GTK_WIDGET (menu_item),
					gtk_signal_name (menu_item->accelerator_signal),
					accel_group,
					event->keyval,
					event->state,
					GTK_ACCEL_VISIBLE);
	}
    }
  
  return TRUE;
}

static gboolean
gtk_menu_motion_notify  (GtkWidget	   *widget,
			 GdkEventMotion    *event)
{
  GtkWidget *menu_item;
  GtkMenu *menu;
  GdkRegion *navigation_region;
  GtkMenuShell *menu_shell;

  gboolean need_enter;
  gboolean old_top_lit,old_bottom_lit;
  gboolean scroll_up,scroll_down;
  gint width,height;
  gint menuwidth,menuheight;
  gint menuposx,menuposy;
  guint border;
  gboolean in_window;
  
  /* We received the event for one of two reasons:
   *
   * a) We are the active menu, and did gtk_grab_add()
   * b) The widget is a child of ours, and the event was propagated
   *
   * Since for computation of navigation regions, we want the menu which
   * is the parent of the menu item, for a), we need to find that menu,
   * which may be different from 'widget'.
   */
  
  menu_item = gtk_get_event_widget ((GdkEvent*) event);
  if (!menu_item || !GTK_IS_MENU_ITEM (menu_item) || !GTK_WIDGET_IS_SENSITIVE (menu_item) ||
      !GTK_IS_MENU (menu_item->parent))
    return FALSE;

  menu_shell = GTK_MENU_SHELL (menu_item->parent);
  menu = GTK_MENU (menu_shell);

  navigation_region = gtk_menu_get_navigation_region (menu);
  
  need_enter = (navigation_region != NULL || menu_shell->ignore_enter);

  /* Check to see if we are within an active submenu's navigation region
   */
  if (gtk_menu_navigating_submenu (menu, (gint)event->x_root,(gint)event->y_root))
    return TRUE; 
      in_window=FALSE;
      gdk_window_get_size (event->window, &width, &height);
	gdk_window_get_size(menu_item->parent->window, &menuwidth,&menuheight);
        gdk_window_get_root_origin(menu_item->parent->window,&menuposx,&menuposy);
      if ((gint)event->x >= 0 && (gint)event->x < width &&
	  (gint)event->y >= 0 && (gint)event->y < height)
		in_window=TRUE;

	border =GTK_CONTAINER(widget)->border_width + 
		widget->style->klass->ythickness;
 #if 1
  if (need_enter)
    {
      /* The menu is now sensitive to enter events on its items, but
       * was previously sensitive.  So we fake an enter event.
       */
      
      menu_shell->ignore_enter = FALSE; 

	if(in_window){
	  GdkEvent send_event;
	  
	  send_event.crossing.type = GDK_ENTER_NOTIFY;
	  send_event.crossing.window = event->window;
	  send_event.crossing.time = event->time;
	  send_event.crossing.send_event = TRUE;
	  send_event.crossing.x_root = event->x_root;
	  send_event.crossing.y_root = event->y_root;
	  send_event.crossing.x = event->x;
	  send_event.crossing.y = event->y;

	  /* We send the event to 'widget', the currently active menu,
	   * instead of 'menu', the menu that the pointer is in. This
	   * will ensure that the event will be ignored unless the
	   * menuitem is a child of the active menu or some parent
	   * menu of the active menu.
	   */
	  return gtk_widget_event (widget, &send_event);
	}
    }
#endif
  old_top_lit = GTK_MENU (widget)->top_scroll_arrow_lit;
  old_bottom_lit = GTK_MENU (widget)->bottom_scroll_arrow_lit;
  GTK_MENU (widget)->top_scroll_arrow_lit = FALSE;
  GTK_MENU (widget)->bottom_scroll_arrow_lit = FALSE;

  scroll_up = FALSE;
  scroll_down = FALSE;

  if (/*event->window == widget->window 
      &&*/ event->y <= (double) (border + MENU_SCROLL_ARROW_HEIGHT)
      && (gint)event->y_root < menuheight/6+menuposy
      && GTK_MENU (widget)->first_scroll_child != -1)
    {
      if (in_window)
	GTK_MENU (widget)->top_scroll_arrow_lit = TRUE;
      
      if (GTK_MENU_SHELL (widget)->button)
	{
	  scroll_up = TRUE;
	  GTK_MENU (widget)->top_scroll_arrow_lit = TRUE;
	}
    }
  if (/*event->window == widget->window
      &&*/ event->y >= (double) (height - border - MENU_SCROLL_ARROW_HEIGHT)
      && (gint)event->y_root > menuheight*5/6+menuposy
      && GTK_MENU (widget)->last_scroll_child != -1)
    {
      if (in_window)
	GTK_MENU (widget)->bottom_scroll_arrow_lit = TRUE;
      
      if (GTK_MENU_SHELL (widget)->button)
	{
	  scroll_down = TRUE;
	  GTK_MENU (widget)->bottom_scroll_arrow_lit = TRUE;
	}
    }

  gtk_menu_set_scrolling (GTK_MENU (widget), scroll_up, scroll_down);

  if (GTK_MENU (widget)->top_scroll_arrow_lit != old_top_lit
      || GTK_MENU (widget)->bottom_scroll_arrow_lit != old_bottom_lit)
    gtk_menu_paint (widget);

  return FALSE;
}

static gboolean
gtk_menu_enter_notify (GtkWidget        *widget,
		       GdkEventCrossing *event)
{
  GtkWidget *menu_item;

  /* If this is a faked enter (see gtk_menu_motion_notify), 'widget'
   * will not correspond to the event widget's parent.  Check to see
   * if we are in the parent's navigation region.
   */
  menu_item = gtk_get_event_widget ((GdkEvent*) event);
  if (menu_item && GTK_IS_MENU_ITEM (menu_item) && GTK_IS_MENU (menu_item->parent) &&
      gtk_menu_navigating_submenu (GTK_MENU (menu_item->parent), (gint)event->x_root, (gint)event->y_root))
    return TRUE; 

  return GTK_WIDGET_CLASS (parent_class)->enter_notify_event (widget, event); 
}

static gboolean
gtk_menu_leave_notify (GtkWidget        *widget,
		       GdkEventCrossing *event)
{
  GtkMenuShell *menu_shell;
  GtkMenu *menu;
  GtkMenuItem *menu_item;
  GtkWidget *event_widget; 

  menu = GTK_MENU (widget);
  menu_shell = GTK_MENU_SHELL (widget); 
  
  if (gtk_menu_navigating_submenu (menu, (gint)event->x_root, (gint)event->y_root))
    return TRUE; 
  
  event_widget = gtk_get_event_widget ((GdkEvent*) event);
  
  if (!event_widget || !GTK_IS_MENU_ITEM (event_widget))
    return TRUE;
  
  menu_item = GTK_MENU_ITEM (event_widget); 
  
  /* Here we check to see if we're leaving an active menu item with a submenu, 
   * in which case we enter submenu navigation mode. 
   */
  if (menu_shell->active_menu_item != NULL
      && menu_item->submenu != NULL
      && menu_item->submenu_placement == GTK_LEFT_RIGHT)
    {
      if (menu_item->submenu->window != NULL) 
	{
	  gtk_menu_set_submenu_navigation_region (menu, menu_item, event);
	  return TRUE;
	}
    }
  
  return GTK_WIDGET_CLASS (parent_class)->leave_notify_event (widget, event); 
}

static void 
gtk_menu_stop_navigating_submenu (GtkMenu *menu)
{
  GdkRegion *navigation_region;
  guint navigation_timeout;

  navigation_region = gtk_menu_get_navigation_region (menu);
  navigation_timeout = gtk_menu_get_navigation_timeout (menu);

  if (navigation_region) 
    {
      gdk_region_destroy (navigation_region);
      gtk_menu_set_navigation_region (menu, NULL);
    }
  
  if (navigation_timeout)
    {
      gtk_timeout_remove (navigation_timeout);
      gtk_menu_set_navigation_timeout (menu, 0);
    }
}

/* When the timeout is elapsed, the navigation region is destroyed
 * and the menuitem under the pointer (if any) is selected.
 */
static gboolean
gtk_menu_stop_navigating_submenu_cb (gpointer user_data)
{
  GdkEventCrossing send_event;

  GtkMenu *menu = user_data;
  GdkWindow *child_window;

  gtk_menu_stop_navigating_submenu (menu);
  
  if (GTK_WIDGET_REALIZED (menu))
    {
      child_window = gdk_window_get_pointer (GTK_WIDGET (menu)->window, NULL, NULL, NULL);

      if (child_window)
	{
	  send_event.window = child_window;
	  send_event.type = GDK_ENTER_NOTIFY;
	  send_event.time = GDK_CURRENT_TIME; /* Bogus */
	  send_event.send_event = TRUE;

	  (void)GTK_WIDGET_CLASS (parent_class)->enter_notify_event (GTK_WIDGET (menu), &send_event); 
	}
    }

  return FALSE; 
}

static gboolean
gtk_menu_navigating_submenu (GtkMenu *menu,
			     gint     event_x,
			     gint     event_y)
{
  GdkRegion *navigation_region;

  navigation_region = gtk_menu_get_navigation_region (menu);

  if (navigation_region)
    {
      if (gdk_region_point_in (navigation_region, event_x, event_y))
	return TRUE;
      else
	{
	  gtk_menu_stop_navigating_submenu (menu);
	  return FALSE;
	}
    }
  return FALSE;
}

static void
gtk_menu_set_submenu_navigation_region (GtkMenu          *menu,
					GtkMenuItem      *menu_item,
					GdkEventCrossing *event)
{
  gint submenu_left = 0;
  gint submenu_right = 0;
  gint submenu_top = 0;
  gint submenu_bottom = 0;
  gint width = 0;
  gint height = 0;
  GdkPoint point[3];
  GtkWidget *event_widget;
  GdkRegion *navigation_region;
  guint navigation_timeout;

  g_return_if_fail (menu_item->submenu != NULL);
  g_return_if_fail (event != NULL);
  
  event_widget = gtk_get_event_widget ((GdkEvent*) event);
  
  (void)gdk_window_get_origin (menu_item->submenu->window, &submenu_left, &submenu_top);
  gdk_window_get_size (menu_item->submenu->window, &width, &height);
  submenu_right = submenu_left + width;
  submenu_bottom = submenu_top + height;
  
  gdk_window_get_size (event_widget->window, &width, &height);
  
  if (event->x >= 0 && (gint)event->x < width)
    {
      /* Set navigation region */
      /* We fudge/give a little padding in case the user
       * ``misses the vertex'' of the triangle/is off by a pixel or two.
       */ 
      if (menu_item->submenu_direction == GTK_DIRECTION_RIGHT)
	point[0].x = (gint16) (event->x_root - SUBMENU_NAV_REGION_PADDING); 
      else                             
	point[0].x = (gint16) (event->x_root + SUBMENU_NAV_REGION_PADDING);  
      
      /* Exiting the top or bottom? */ 
      if (event->y < 0)
        { /* top */
	  point[0].y = (gint16)(event->y_root + SUBMENU_NAV_REGION_PADDING);
	  point[1].y = (gint16)submenu_top;

	  if (point[0].y <= point[1].y)
	    return;
	}
      else
        { /* bottom */
	  point[0].y = (gint16) (event->y_root - SUBMENU_NAV_REGION_PADDING); 
	  point[1].y = (gint16)submenu_bottom;

	  if (point[0].y >= point[1].y)
	    return;
	}
      
      /* Submenu is to the left or right? */ 
      if (menu_item->submenu_direction == GTK_DIRECTION_RIGHT)
	point[1].x = (gint16)submenu_left;  /* right */
      else
	point[1].x = (gint16)submenu_right; /* left */
      
      point[2].x = point[1].x;
      point[2].y = point[0].y;

      gtk_menu_stop_navigating_submenu (menu);
      
      navigation_region = gdk_region_polygon (point, 3, GDK_WINDING_RULE);

      gtk_menu_set_navigation_region (menu, navigation_region);

      navigation_timeout = gtk_timeout_add (SUBMENU_NAV_HYSTERESIS_TIMEOUT, 
					    gtk_menu_stop_navigating_submenu_cb, menu);

      gtk_menu_set_navigation_timeout (menu, navigation_timeout);
    }
}

static GdkRegion *
gtk_menu_get_navigation_region (GtkMenu *menu)
{
  GdkRegion *region;

  g_return_val_if_fail (GTK_IS_MENU (menu), NULL);

  if (!navigation_region_key_id)
    navigation_region_key_id = g_quark_from_static_string (navigation_region_key);

  region = gtk_object_get_data_by_id (GTK_OBJECT (menu),
				      navigation_region_key_id);

  return region;
}

static void
gtk_menu_set_navigation_region (GtkMenu   *menu,
				GdkRegion *region)
{
  g_return_if_fail (GTK_IS_MENU (menu));

  if (!navigation_region_key_id)
    navigation_region_key_id = g_quark_from_static_string (navigation_region_key);

  gtk_object_set_data_by_id (GTK_OBJECT (menu),
			     navigation_region_key_id,
			     region);
}

static guint
gtk_menu_get_navigation_timeout (GtkMenu *menu)
{
  gpointer data;

  g_return_val_if_fail (GTK_IS_MENU (menu), 0);

  if (!navigation_timeout_key_id)
    navigation_timeout_key_id = g_quark_from_static_string (navigation_timeout_key);

  data = gtk_object_get_data_by_id (GTK_OBJECT (menu),
				    navigation_timeout_key_id);

  return GPOINTER_TO_UINT (data);
}

static void
gtk_menu_set_navigation_timeout (GtkMenu *menu,
				 guint    timeout)
{
  gpointer data;

  g_return_if_fail (GTK_IS_MENU (menu));

  if (!navigation_timeout_key_id)
    navigation_timeout_key_id = g_quark_from_static_string (navigation_timeout_key);

  data = GUINT_TO_POINTER (timeout);

  gtk_object_set_data_by_id (GTK_OBJECT (menu),
			     navigation_timeout_key_id,
			     data);
}

static void
gtk_menu_deactivate (GtkMenuShell *menu_shell)
{
  GtkWidget *parent;
  
  g_return_if_fail (menu_shell != NULL);
  g_return_if_fail (GTK_IS_MENU (menu_shell));
  
  parent = menu_shell->parent_menu_shell;
  
  menu_shell->activate_time = 0;
  gtk_menu_popdown (GTK_MENU (menu_shell));
  
  if (parent)
    gtk_menu_shell_deactivate (GTK_MENU_SHELL (parent));
}


static void
gtk_menu_position (GtkMenu *menu)
{
  GtkWidget *widget;
  GtkRequisition requisition;
  gint x, y;
 
  g_return_if_fail (menu != NULL);
  g_return_if_fail (GTK_IS_MENU (menu));

  widget = GTK_WIDGET (menu);

  (void)gdk_window_get_pointer (NULL, &x, &y, NULL);

  /* We need the requisition to figure out the right place to
   * popup the menu. In fact, we always need to ask here, since
   * if one a size_request was queued while we weren't popped up,
   * the requisition won't have been recomputed yet.
   */
  gtk_widget_size_request (widget, &requisition);
      
  if (menu->position_func)
    (* menu->position_func) (menu, &x, &y, menu->position_func_data);
  else
    {
      gint screen_width;
      gint screen_height;
      
      screen_width = gdk_screen_width ();
      screen_height = gdk_screen_height ();
	  
      x = CLAMP (x - 2, 0, MAX (0, screen_width - requisition.width));
      y = CLAMP (y - 2, 0, MAX (0, screen_height - requisition.height));
    }

  /* FIXME: The MAX() here is because gtk_widget_set_uposition
   * is broken. Once we provide an alternate interface that
   * allows negative values, then we can remove them.
   */
/*  gtk_widget_set_uposition (GTK_MENU_SHELL (menu)->active ?
			        menu->toplevel : menu->tearoff_window, 
			    MAX (x, 0), MAX (y, 0));
*/
	gtk_menu_top_position( menu, x, y, requisition.width, requisition.height);
}

/* Reparent the menu, taking care of the refcounting
 */
static void 
gtk_menu_reparent (GtkMenu      *menu, 
		   GtkWidget    *new_parent, 
		   gboolean      unrealize)
{
  GtkObject *object = GTK_OBJECT (menu);
  GtkWidget *widget = GTK_WIDGET (menu);
  gboolean was_floating = GTK_OBJECT_FLOATING (object);

  gtk_object_ref (object);
  gtk_object_sink (object);

  if (unrealize)
    {
      gtk_object_ref (object);
      gtk_container_remove (GTK_CONTAINER (widget->parent), widget);
      gtk_container_add (GTK_CONTAINER (new_parent), widget);
      gtk_object_unref (object);
    }
  else
    gtk_widget_reparent (GTK_WIDGET (menu), new_parent);
  gtk_widget_set_usize (new_parent, -1, -1);
  
  if (was_floating)
    GTK_OBJECT_SET_FLAGS (object, GTK_FLOATING);
  else
    gtk_object_unref (object);
}

static void
gtk_menu_show_all (GtkWidget *widget)
{
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));

  /* Show children, but not self. */
  gtk_container_foreach (GTK_CONTAINER (widget), (GtkCallback) gtk_widget_show_all, NULL);
}


static void
gtk_menu_hide_all (GtkWidget *widget)
{
  g_return_if_fail (widget != NULL);
  g_return_if_fail (GTK_IS_MENU (widget));

  /* Hide children, but not self. */
  gtk_container_foreach (GTK_CONTAINER (widget), (GtkCallback) gtk_widget_hide_all, NULL);
}
 /* Set the actual position of the toplevel window.  Also, if part of the
  * toplevel window would fall offscreen, truncate the window and note that
  * we will use scroll arrows.
  */ 
 static void
 gtk_menu_top_position (GtkMenu	*menu,
 		       gint	 x,
 		       gint	 y,
 		       gint	 width,
 		       gint	 height)
 {
   gint border_height;
 
   border_height = (gint) (GTK_CONTAINER (menu)->border_width +
                   GTK_WIDGET (menu)->style->klass->ythickness);
 
   if (GTK_MENU_SHELL (menu)->active)
     {
       GList *child_list;
       gint screen_height;
       gint on_line;
 
       child_list = GTK_MENU_SHELL (menu)->children;
       screen_height = gdk_screen_height ();
 
       on_line = y + border_height;
 
       if (y < 0) 
 	{
 	  guint offset;
 
 	  offset = 0;
 	  menu->first_scroll_child = 0;
 	  while (on_line < MENU_SCROLL_ARROW_HEIGHT + border_height 
 		 && child_list)
 	    {
 	      GtkWidget *child;
 
 	      child = GTK_WIDGET (child_list->data);
 	      if (GTK_WIDGET_VISIBLE (child))
 		{
 		  gtk_widget_size_request (child, &child->requisition);
 
 		  height -= child->requisition.height;
 		  on_line += child->requisition.height;
 		  y += child->requisition.height;
 		}
 	      child_list = child_list->next;
 	      menu->first_scroll_child++;
 	    }
 	  y -= MENU_SCROLL_ARROW_HEIGHT;
 	  height += MENU_SCROLL_ARROW_HEIGHT;
 	}
       else
 	menu->first_scroll_child = -1;
 
       if (y + height >= screen_height)
 	{
 	  menu->last_scroll_child = menu->first_scroll_child;
 	  if (menu->last_scroll_child == -1)
 	    menu->last_scroll_child = 0;
 
 	  while (on_line + MENU_SCROLL_ARROW_HEIGHT + border_height 
 		     < screen_height 
 		 && child_list)
 	    {
 	      GtkWidget *child;
 
 	      child = GTK_WIDGET (child_list->data);
 	      if (GTK_WIDGET_VISIBLE (child))
 		{
 		  gtk_widget_size_request (child, &child->requisition);
 
 		  height = on_line + MENU_SCROLL_ARROW_HEIGHT + border_height
 		             - y;
 		  on_line += child->requisition.height;
 		}
 	      child_list = child_list->next;
 	      menu->last_scroll_child++;
 	    }
 	  menu->last_scroll_child -= 2;
 	  if(menu->last_scroll_child < 0)
 	    menu->last_scroll_child = menu->first_scroll_child;
 	}
       else
 	menu->last_scroll_child = -1;
 
       gtk_widget_set_uposition (menu->toplevel, x, y);
       gtk_widget_set_usize (menu->toplevel, width, height);
     }
   else
     {
       gtk_widget_set_uposition (menu->tearoff_window, x, y);
     }
}
 /*  Set the scrolling state of the menu.  It is harmless to call this 
  *  if there is no change in scrolling state.  (That is, it won't interrupt
  *  or reset the scrolling timers if the scrolling settings are the same).
  */

 static void 
 gtk_menu_set_scrolling (GtkMenu 	*menu,
 			gboolean	 scroll_up,
 			gboolean	 scroll_down)
 {
   if (!scroll_up && menu->scroll_up_source_tag)
     {
       (void)g_source_remove (menu->scroll_up_source_tag);
       menu->scroll_up_source_tag = 0;
     }
 
   if (!scroll_down && menu->scroll_down_source_tag)
     {
       (void)g_source_remove (menu->scroll_down_source_tag);
       menu->scroll_down_source_tag = 0;
     }
 
   if(scroll_up && !menu->scroll_up_source_tag)
     {
       if (gtk_menu_scroll_up (menu, 1))
 	menu->scroll_up_source_tag = 
 	    g_timeout_add (MENU_SCROLL_TIMEOUT, gtk_menu_timeout_up, menu);
     }
 
   if(scroll_down && !menu->scroll_down_source_tag)
     {
       if (gtk_menu_scroll_down (menu, 1))
 	menu->scroll_down_source_tag = 
 	    g_timeout_add (MENU_SCROLL_TIMEOUT, gtk_menu_timeout_down, menu);
     }
 }
 
 static gboolean
 gtk_menu_scroll_up (GtkMenu	*menu,
 		    guint        scroll_count)
 {
   gboolean return_value;
   gint x, y, width, height;
   gint screen_height;
   gint on_line;
   gint last_line;
   gint on_child;
   gint border;
   GList *child;
   GtkAllocation allocation;
 
   return_value = TRUE;


   gdk_window_get_geometry (menu->toplevel->window, 
 			   &x, &y, 
 			   &width, &height,
 			   NULL);
   screen_height = gdk_screen_height ();
 
   border = (gint) (GTK_CONTAINER (menu)->border_width +
            GTK_WIDGET (menu)->style->klass->ythickness);
 
   menu->first_scroll_child--;
   if (menu->first_scroll_child <= 0) {
     menu->first_scroll_child = -1;
     return_value = FALSE;
   }
 
   on_line = y + border;
   last_line = on_line;
   if (menu->first_scroll_child != -1)
     on_line += MENU_SCROLL_ARROW_HEIGHT;
 
   on_child = 0;
   child = GTK_MENU_SHELL (menu)->children;
   while (child && on_line + border + MENU_SCROLL_ARROW_HEIGHT < screen_height)
     {
       GtkWidget *widget;
 
       widget = GTK_WIDGET (child->data);
       if (on_child >= menu->first_scroll_child
 	  && GTK_WIDGET_VISIBLE (widget))
 	{
 	  last_line = on_line;
 	  on_line += widget->allocation.height;
 	}
 
       on_child++;
       child = child->next;
     }
   if (child) 
     {
       on_line = last_line;
       on_child--;
     }
   if (child)
     {
       menu->last_scroll_child = on_child - 1;
       if (menu->last_scroll_child < menu->first_scroll_child)
 	menu->last_scroll_child = menu->first_scroll_child;
       on_line += MENU_SCROLL_ARROW_HEIGHT + border;
     }
   else
     {
       menu->last_scroll_child = -1;
       on_line += border;
     }
 
   gdk_window_move_resize (menu->toplevel->window,
 			  x, y, width, on_line - y);
 
   allocation.x = 0;
   allocation.y = 0;
   allocation.width = (guint16)width;
   allocation.height = (guint16)(on_line - y);
   gtk_widget_size_allocate (GTK_WIDGET (menu), &allocation);  
 
   return return_value;
 }
 
 static gboolean
 gtk_menu_scroll_down (GtkMenu	*menu,
 		      guint      scroll_count)
 {
   gboolean return_value;
   gint x, y, width, height;
   gint screen_height;
   gint on_line;
   gint last_line;
   gint new_height;
   gint on_child;
   gint border;
   GList *children_copy;
   GList *child;
   GtkAllocation allocation;
 
   return_value = TRUE;

 
   gdk_window_get_geometry (menu->toplevel->window, 
 			   &x, &y, 
 			   &width, &height,
 			   NULL);
   screen_height = gdk_screen_height ();
 
   border = (gint) (GTK_CONTAINER (menu)->border_width +
            GTK_WIDGET (menu)->style->klass->ythickness);
 
   menu->last_scroll_child++;
   if (menu->last_scroll_child >= 
         (gint)g_list_length (GTK_MENU_SHELL (menu)->children)) {
     menu->last_scroll_child = -1;
     return_value = FALSE;
   }
 
   on_line = y + height - border;
   last_line = on_line;
   if (menu->last_scroll_child != -1)
     on_line -= MENU_SCROLL_ARROW_HEIGHT;
 
   on_child = (gint) (g_list_length (GTK_MENU_SHELL (menu)->children) - 1);
   children_copy = g_list_copy (GTK_MENU_SHELL (menu)->children);
   children_copy = g_list_reverse(children_copy);
   child = GTK_MENU_SHELL (menu)->children;
   while (child && on_line - border - MENU_SCROLL_ARROW_HEIGHT >= 0)
     {
       GtkWidget *widget;
 
       widget = GTK_WIDGET (child->data);
       if ((on_child <= menu->last_scroll_child 
 	     || menu->last_scroll_child == -1)
 	  && GTK_WIDGET_VISIBLE (widget))
 	{
 	  last_line = on_line;
 	  on_line -= widget->allocation.height;
 	}
 
       on_child--;
       child = child->next;
     }
   if (child) 
     {
       on_line = last_line;
       on_child++;
     }
   if (child)
     {
       menu->first_scroll_child = on_child + 1;
       if (menu->first_scroll_child > menu->last_scroll_child
 	  && menu->last_scroll_child != -1)
 	menu->first_scroll_child = menu->last_scroll_child;
       on_line -= MENU_SCROLL_ARROW_HEIGHT + border;
     }
   else
     {
       menu->first_scroll_child = -1;
       on_line -= border;
     }
 
   new_height = y + height - on_line;
 
   gdk_window_move_resize (menu->toplevel->window,
 			  x, on_line, width, new_height);
 
   allocation.x = 0;
   allocation.y = 0;
   allocation.width = (guint16)width;
   allocation.height = (guint16)new_height;
   gtk_widget_size_allocate (GTK_WIDGET (menu), &allocation);  
 
   g_list_free(children_copy);
 
   return return_value;
 }
 
 static gboolean
 gtk_menu_timeout_up (gpointer	data)
 {
   GtkMenu *menu;
 
   menu = GTK_MENU (data);
   if (gtk_menu_scroll_up (menu, 1))
     return TRUE;
   else
     {
       menu->scroll_up_source_tag = 0;
       return FALSE;
     }
 }
 
 static gboolean
 gtk_menu_timeout_down (gpointer	data)
 {
   GtkMenu *menu;
 
   menu = GTK_MENU (data);
 
   if (gtk_menu_scroll_down (menu, 1))
     return TRUE;
   else
     {
       menu->scroll_down_source_tag = 0;
       return FALSE;
     }
 }


syntax highlighted by Code2HTML, v. 0.9.1