Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
959:87e011e66a78 960:5b372a329b97
326 write_fmt_string (printcharfun, " %p>", (void *)XFFI (obj)->function_ptr); 326 write_fmt_string (printcharfun, " %p>", (void *)XFFI (obj)->function_ptr);
327 } 327 }
328 328
329 #ifdef USE_KKCC 329 #ifdef USE_KKCC
330 DEFINE_LRECORD_IMPLEMENTATION ("ffi", emacs_ffi, 330 DEFINE_LRECORD_IMPLEMENTATION ("ffi", emacs_ffi,
331 0, /*dumpable-flag*/
331 mark_ffi_data, ffi_object_printer, 332 mark_ffi_data, ffi_object_printer,
332 0, 0, 0, 333 0, 0, 0,
333 ffi_data_description, emacs_ffi_data); 334 ffi_data_description, emacs_ffi_data);
334 #else /* not USE_KKCC */ 335 #else /* not USE_KKCC */
335 DEFINE_LRECORD_IMPLEMENTATION ("ffi", emacs_ffi, 336 DEFINE_LRECORD_IMPLEMENTATION ("ffi", emacs_ffi,
932 } 933 }
933 } 934 }
934 935
935 #ifdef USE_KKCC 936 #ifdef USE_KKCC
936 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkObject", emacs_gtk_object, 937 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkObject", emacs_gtk_object,
938 0, /*dumpable-flag*/
937 mark_gtk_object_data, /* marker function */ 939 mark_gtk_object_data, /* marker function */
938 emacs_gtk_object_printer, /* print function */ 940 emacs_gtk_object_printer, /* print function */
939 emacs_gtk_object_finalizer, /* finalizer */ 941 emacs_gtk_object_finalizer, /* finalizer */
940 0, /* equality */ 942 0, /* equality */
941 0, /* hash */ 943 0, /* hash */
1107 return (Qt); 1109 return (Qt);
1108 } 1110 }
1109 1111
1110 1112
1111 /* GTK_TYPE_BOXED wrapper for Emacs lisp */ 1113 /* GTK_TYPE_BOXED wrapper for Emacs lisp */
1114 #ifdef USE_KKCC
1115 static const struct lrecord_description emacs_gtk_boxed_description [] = {
1116 { XD_END }
1117 };
1118 #endif /* USE_KKCC */
1119
1112 static void 1120 static void
1113 emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 1121 emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
1114 { 1122 {
1115 if (print_readably) 1123 if (print_readably)
1116 printing_unreadable_object ("#<GtkBoxed %p>", XGTK_BOXED (obj)->object); 1124 printing_unreadable_object ("#<GtkBoxed %p>", XGTK_BOXED (obj)->object);
1135 { 1143 {
1136 emacs_gtk_boxed_data *data = XGTK_BOXED(obj); 1144 emacs_gtk_boxed_data *data = XGTK_BOXED(obj);
1137 return (HASH2 ((unsigned long)data->object, data->object_type)); 1145 return (HASH2 ((unsigned long)data->object, data->object_type));
1138 } 1146 }
1139 1147
1148 #ifdef USE_KKCC
1149 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkBoxed", emacs_gtk_boxed,
1150 0, /*dumpable-flag*/
1151 0, /* marker function */
1152 emacs_gtk_boxed_printer, /* print function */
1153 0, /* nuker */
1154 emacs_gtk_boxed_equality, /* equality */
1155 emacs_gtk_boxed_hash, /* hash */
1156 emacs_gtk_boxed_description, /* desc */
1157 0, /* get prop */
1158 0, /* put prop */
1159 0, /* rem prop */
1160 0, /* plist */
1161 emacs_gtk_boxed_data);
1162 #else /* not USE_KKCC */
1140 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkBoxed", emacs_gtk_boxed, 1163 DEFINE_LRECORD_IMPLEMENTATION_WITH_PROPS ("GtkBoxed", emacs_gtk_boxed,
1141 0, /* marker function */ 1164 0, /* marker function */
1142 emacs_gtk_boxed_printer, /* print function */ 1165 emacs_gtk_boxed_printer, /* print function */
1143 0, /* nuker */ 1166 0, /* nuker */
1144 emacs_gtk_boxed_equality, /* equality */ 1167 emacs_gtk_boxed_equality, /* equality */
1147 0, /* get prop */ 1170 0, /* get prop */
1148 0, /* put prop */ 1171 0, /* put prop */
1149 0, /* rem prop */ 1172 0, /* rem prop */
1150 0, /* plist */ 1173 0, /* plist */
1151 emacs_gtk_boxed_data); 1174 emacs_gtk_boxed_data);
1152 1175 #endif /* not USE_KKCC */
1153 /* Currently defined GTK_TYPE_BOXED structures are: 1176 /* Currently defined GTK_TYPE_BOXED structures are:
1154 1177
1155 GtkAccelGroup - 1178 GtkAccelGroup -
1156 GtkSelectionData - 1179 GtkSelectionData -
1157 GtkStyle - 1180 GtkStyle -