X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/be0a901dc0fb4b6d1b15ba7bca22414efa0f36b7..f9e76ebedea0ba6c60589cf75b0327794e800d7a:/gtk/gtkglue.c

diff --git a/gtk/gtkglue.c b/gtk/gtkglue.c
index 2a2fbb8..73716a1 100644
--- 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.7 2001-10-21 23:22:53 espen Exp $ */
+/* $Id: gtkglue.c,v 1.11 2002-03-24 21:55:49 espen Exp $ */
 
 
 #include <gtk/gtk.h>
@@ -37,15 +37,15 @@ gtk_query_version (guint *major, guint *minor, guint *micro)
 }
 
 
-/* Is this necessary? */
-
-GtkType
-gtk_object_type (GtkObject *obj)
+void gtk_callback_marshal (GtkWidget *widget, gpointer data)
 {
-  return GTK_OBJECT_TYPE (obj);
-}
-
+  GValue arg;
 
+  memset (&arg, 0, sizeof (GValue));
+  g_value_init (&arg, gtk_widget_get_type ());
+  g_value_set_object (&arg, widget);
+  callback_marshal ((guint)data, NULL, 1, &arg);
+}
 
 /* Widget */
 
@@ -68,7 +68,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;
@@ -137,13 +137,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;
 }
 
 
@@ -270,29 +270,6 @@ gtk_layout_get_bin_window (GtkLayout *layout)
   return layout->bin_window;
 }
 
-guint
-gtk_layout_get_xoffset (GtkLayout *layout)
-{
-  return layout->xoffset;
-}
-
-void
-gtk_layout_set_xoffset (GtkLayout *layout, guint xoffset)
-{
-  return layout->xoffset = xoffset;
-}
-
-guint
-gtk_layout_get_yoffset (GtkLayout *layout)
-{
-  return layout->yoffset;
-}
-
-void
-gtk_layout_set_yoffset (GtkLayout *layout, guint yoffset)
-{
-  return layout->yoffset = yoffset;
-}
 
 /* List */