Mercurial > hg > xemacs-beta

diff src/ui-gtk.c @ 960:5b372a329b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-12 08:00:01 by michaels] 2002-08-02 Marcus Crestani <crestani@informatik.uni-tuebingen.de> Additions for USE_KKCC: * tooltalk.c: Add dumpable-flag to tooltalk_message and tooltalk_pattern. * ui-gtk.c: Add dumpable-flag to emacs_ffi and emacs_gtk_object. Add description for emacs_gtk_boxed. 2002-08-12 Mike Sperber <mike@xemacs.org> * event-Xt.c (x_to_emacs_keysym): (enqueue_focus_event): Properly initialize event type for USE_KKCC (due to suggestions from David Bush <David.Bush@intel.com>).
author michaels
date Mon, 12 Aug 2002 08:00:07 +0000
parents c925bacdda60
children e22b0213b713
line wrap: on
line diff
--- a/src/ui-gtk.c	Mon Aug 12 07:45:38 2002 +0000
+++ b/src/ui-gtk.c	Mon Aug 12 08:00:07 2002 +0000
@@ -328,6 +328,7 @@
 
 #ifdef USE_KKCC
 DEFINE_LRECORD_IMPLEMENTATION ("ffi", emacs_ffi,
+			       0, /*dumpable-flag*/
 			       mark_ffi_data, ffi_object_printer,
 			       0, 0, 0, 
 			       ffi_data_description, emacs_ffi_data);
@@ -934,6 +935,7 @@
 
 #ifdef USE_KKCC
 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkObject", emacs_gtk_object,
+					  0, /*dumpable-flag*/
 					  mark_gtk_object_data, /* marker function */
 					  emacs_gtk_object_printer, /* print function */
 					  emacs_gtk_object_finalizer, /* finalizer */
@@ -1109,6 +1111,12 @@
 
 
 /* GTK_TYPE_BOXED wrapper for Emacs lisp */
+#ifdef USE_KKCC
+static const struct lrecord_description emacs_gtk_boxed_description [] = {
+  { XD_END }
+};
+#endif /* USE_KKCC */
+
 static void
 emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
 {
@@ -1137,6 +1145,21 @@
   return (HASH2 ((unsigned long)data->object, data->object_type));
 }
 
+#ifdef USE_KKCC
+DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkBoxed", emacs_gtk_boxed,
+					  0, /*dumpable-flag*/
+					  0, /* marker function */
+					  emacs_gtk_boxed_printer, /* print function */
+					  0, /* nuker */
+					  emacs_gtk_boxed_equality, /* equality */
+					  emacs_gtk_boxed_hash, /* hash */
+					  emacs_gtk_boxed_description, /* desc */
+					  0, /* get prop */
+					  0, /* put prop */
+					  0, /* rem prop */
+					  0, /* plist */
+					  emacs_gtk_boxed_data);
+#else /* not USE_KKCC */
 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkBoxed", emacs_gtk_boxed,
 					  0, /* marker function */
 					  emacs_gtk_boxed_printer, /* print function */
@@ -1149,7 +1172,7 @@
 					  0, /* rem prop */
 					  0, /* plist */
 					  emacs_gtk_boxed_data);
-
+#endif /* not USE_KKCC */
 /* Currently defined GTK_TYPE_BOXED structures are:
 
    GtkAccelGroup -