# HG changeset patch
# User wmperry
# Date 1017409910 0
# Node ID 776fcda0ee36828aba34d13ff6fd22647e0d28d3
# Parent  7a6013500383cd6a996c164504cb84a9b80b24c6
[xemacs-hg @ 2002-03-29 13:51:37 by wmperry]
Use wrap_emacs_* instead of wrap_* for gtk_boxed, gtk_object, and ffi LispObjects.

diff -r 7a6013500383 -r 776fcda0ee36 src/ChangeLog
--- a/src/ChangeLog	Fri Mar 29 11:12:44 2002 +0000
+++ b/src/ChangeLog	Fri Mar 29 13:51:50 2002 +0000
@@ -1,3 +1,11 @@
+2002-03-29  William M. Perry  <wmperry@gnu.org>
+
+	* ui-gtk.c (Fgtk_import_function_internal): 
+	(emacs_gtk_object_finalizer): 
+	(build_gtk_object): 
+	(build_gtk_boxed): Use wrap_emacs_*() instead of wrap_*()
+	for gtk_boxed, gtk_object, ffi
+
 2002-03-24  Ben Wing  <ben@xemacs.org>
 
 	* Makefile.in.in (gui_objs):
diff -r 7a6013500383 -r 776fcda0ee36 src/ui-gtk.c
--- a/src/ui-gtk.c	Fri Mar 29 11:12:44 2002 +0000
+++ b/src/ui-gtk.c	Fri Mar 29 13:51:50 2002 +0000
@@ -659,7 +659,7 @@
   data->function_ptr = name_func;
   data->marshal = marshaller_func;
 
-  rval = wrap_ffi (data);
+  rval = wrap_emacs_ffi (data);
   return (rval);
 }
 
@@ -908,7 +908,7 @@
 
   if (for_disksave)
     {
-      Lisp_Object obj = wrap_gtk_object (data);
+      Lisp_Object obj = wrap_emacs_gtk_object (data);
 
 
       invalid_operation
@@ -977,7 +977,7 @@
 
       data->object = obj;
       data->alive_p = TRUE;
-      retval = wrap_gtk_object (data);
+      retval = wrap_emacs_gtk_object (data);
 
       id = new_gui_id ();
       gtk_object_set_data (obj, "xemacs::gui_id", (gpointer) id);
@@ -1165,7 +1165,7 @@
   data->object = obj;
   data->object_type = t;
 
-  retval = wrap_gtk_boxed (data);
+  retval = wrap_emacs_gtk_boxed (data);
 
   return (retval);
 }