comparison src/ui-gtk.c @ 2168:95fee4a1420e

[xemacs-hg @ 2004-07-07 12:00:58 by malcolmp] Working GK tab_control widget. Other GTK widgets drawn with the correct location and size.
author malcolmp
date Wed, 07 Jul 2004 12:01:07 +0000
parents 91d4c8c65a0f
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
2167:54e1ecdc5778 2168:95fee4a1420e
9 9
10 #include <config.h> 10 #include <config.h>
11 #include "lisp.h" 11 #include "lisp.h"
12 12
13 #include "buffer.h" 13 #include "buffer.h"
14 #include "console-gtk.h" 14 #include "console-gtk-impl.h"
15 #include "device.h" 15 #include "device.h"
16 #include "elhash.h" 16 #include "elhash.h"
17 #include "event-gtk.h" 17 #include "event-gtk.h"
18 #include "events.h" 18 #include "events.h"
19 #include "faces.h" 19 #include "faces.h"
978 { 978 {
979 Lisp_Object retval = Qnil; 979 Lisp_Object retval = Qnil;
980 emacs_gtk_object_data *data = NULL; 980 emacs_gtk_object_data *data = NULL;
981 GUI_ID id = 0; 981 GUI_ID id = 0;
982 982
983 id = (GUI_ID) gtk_object_get_data (obj, "xemacs::gui_id"); 983 id = (GUI_ID) gtk_object_get_data (obj, GTK_DATA_GUI_IDENTIFIER);
984 984
985 if (id) 985 if (id)
986 { 986 {
987 retval = get_gcpro_popup_callbacks (id); 987 retval = get_gcpro_popup_callbacks (id);
988 } 988 }
994 data->object = obj; 994 data->object = obj;
995 data->alive_p = TRUE; 995 data->alive_p = TRUE;
996 retval = wrap_emacs_gtk_object (data); 996 retval = wrap_emacs_gtk_object (data);
997 997
998 id = new_gui_id (); 998 id = new_gui_id ();
999 gtk_object_set_data (obj, "xemacs::gui_id", (gpointer) id); 999 gtk_object_set_data (obj, GTK_DATA_GUI_IDENTIFIER, (gpointer) id);
1000 gcpro_popup_callbacks (id, retval); 1000 gcpro_popup_callbacks (id, retval);
1001 gtk_object_ref (obj); 1001 gtk_object_ref (obj);
1002 gtk_signal_connect (obj, "destroy", GTK_SIGNAL_FUNC (__notice_object_destruction), (gpointer)id); 1002 gtk_signal_connect (obj, "destroy", GTK_SIGNAL_FUNC (__notice_object_destruction), (gpointer)id);
1003 } 1003 }
1004 1004