Moved from main gtk source directory

[clg] / gtk / gtkglue.c

diff --git a/gtk/gtkglue.c b/gtk/gtkglue.c
index 5ac61a039d9972fa6085358e15e949ec867164db..6d57b43921876d9f5e1d645efa23449dfa95a7c4 100644 (file)
--- a/gtk/gtkglue.c
+++ b/gtk/gtkglue.c
@@ -1,5 +1,5 @@
 /* Common Lisp bindings for GTK+ v2.0
- * Copyright (C) 1999-2000 Espen S. Johnsen <esj@stud.cs.uit.no>
+ * Copyright (C) 1999-2002 Espen S. Johnsen <espen@users.sourceforge.net>
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -16,7 +16,7 @@
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */
 
-/* $Id: gtkglue.c,v 1.9 2002-03-22 22:34:45 espen Exp $ */
+/* $Id: gtkglue.c,v 1.12 2002-04-02 15:05:44 espen Exp $ */
 
 
 #include <gtk/gtk.h>
@@ -47,6 +47,23 @@ void gtk_callback_marshal (GtkWidget *widget, gpointer data)
   callback_marshal ((guint)data, NULL, 1, &arg);
 }
 
+void gtk_menu_position_callback_marshal (GtkMenu *menu, gint x, gint y,
+                                        gboolean push_in, gpointer data)
+{
+  GValue args[3];
+
+  memset (args, 0, 3 * sizeof (GValue));
+  g_value_init (&args[0], G_TYPE_INT);
+  g_value_set_int (&args[0], x);
+  g_value_init (&args[1], G_TYPE_INT);
+  g_value_set_int (&args[1], y);
+  g_value_init (&args[2], G_TYPE_BOOLEAN);
+  g_value_set_boolean (&args[2], push_in);
+  
+  callback_marshal ((guint)data, NULL, 3, args);
+}
+
+
 /* Widget */
 
 GdkWindow*
@@ -68,7 +85,7 @@ gtk_widget_mapped_p (GtkWidget *widget)
 }
 
 void
-gtk_widget_allocation (GtkWidget *widget, int *width, int *height)
+gtk_widget_get_size_allocation (GtkWidget *widget, int *width, int *height)
 {
   *width = widget->allocation.width;
   *height = widget->allocation.height;
@@ -100,28 +117,6 @@ gtk_dialog_get_action_area (GtkDialog *dialog)
 
 
 
-/* Menu item */
-
-GtkSubmenuPlacement
-gtk_menu_item_get_placement (GtkMenuItem* menu_item)
-{
-  return menu_item->submenu_placement;
-}
-
-gint
-gtk_menu_item_get_show_submenu (GtkMenuItem* menu_item)
-{
-  return menu_item->show_submenu_indicator;
-}
-
-void
-gtk_menu_item_set_show_submenu (GtkMenuItem* menu_item, guint show)
-{
-  menu_item->show_submenu_indicator = show;
-}
-
-
-
 /* Check menu item */
 
 gboolean
@@ -137,13 +132,13 @@ gtk_check_menu_item_get_show_toggle (GtkCheckMenuItem* check_menu_item)
 }
 
 
+
 /* Window */
 
-void
-gtk_window_wmclass (GtkWindow* window, gchar* name, gchar* class)
+GtkWidget*
+gtk_window_get_default (GtkWindow *window)
 {
-  name = window->wmclass_name;
-  class = window->wmclass_class;
+  return window->default_widget;
 }
 
 
@@ -252,15 +247,6 @@ gtk_paned_child2 (GtkPaned *paned, guint *resize, guint *shrink)
   return paned->child2;
 }
 
-gint
-gtk_paned_get_position (GtkPaned *paned)
-{
-  if (paned->position_set == TRUE) 
-    return paned->child1_size;
-  else
-    return -1;
-}
-
 
 /* Layout */
 
@@ -283,12 +269,6 @@ gtk_list_selection (GtkList *list)
 
 /* Toolbar */
 
-gint
-gtk_toolbar_num_children (GtkToolbar *toolbar)
-{
-  return toolbar->num_children;
-}
-
 gint
 gtk_toolbar_get_tooltips (GtkToolbar *toolbar)
 {