X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/45e96e310f41394738887de16302241bd77bc30c..e3e38b419c6b26b3339b1975facad875ce5955bc:/glib/callback.c

diff --git a/glib/callback.c b/glib/callback.c
index aecf4dd..b872b8b 100644
--- a/glib/callback.c
+++ b/glib/callback.c
@@ -16,9 +16,9 @@
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  */
 
-/* $Id: callback.c,v 1.2 2001/02/11 21:53:03 espen Exp $ */
+/* $Id: callback.c,v 1.6 2001/12/12 20:24:41 espen Exp $ */
 
-#include <gobject/gobject.h>
+#include <glib-object.h>
 
 #ifdef CMUCL
 #include "lisp.h"
@@ -71,7 +71,7 @@ g_lisp_callback_closure_new (guint callback_id)
 
   closure = g_closure_new_simple (sizeof (GClosure), (gpointer)callback_id);
   g_closure_set_marshal (closure, lisp_callback_marshal);
-  g_closure_add_fnotify (closure, (gpointer)callback_id, closure_destroy_notify);
+  g_closure_add_finalize_notifier (closure, (gpointer)callback_id, closure_destroy_notify);
   
   return closure;
 }
@@ -83,3 +83,19 @@ destroy_notify_address ()
   return (void*)destroy_notify;
 }
 #endif
+
+
+GEnumValue*
+g_enum_class_values (GEnumClass *class, guint *n_values)
+{
+  *n_values = class->n_values;
+  return class->values;
+}
+
+GFlagsValue*
+g_flags_class_values (GFlagsClass *class, guint *n_values)
+{
+  *n_values = class->n_values;
+  return class->values;
+}
+