1 GtkType GTK_TYPE_ARRAY = 0;
2 GtkType GTK_TYPE_STRING_ARRAY = 0;
3 GtkType GTK_TYPE_FLOAT_ARRAY = 0;
4 GtkType GTK_TYPE_INT_ARRAY = 0;
5 GtkType GTK_TYPE_LISTOF = 0;
6 GtkType GTK_TYPE_STRING_LIST = 0;
7 GtkType GTK_TYPE_OBJECT_LIST = 0;
8 GtkType GTK_TYPE_GDK_GC = 0;
11 xemacs_type_register (gchar *name, GtkType parent)
16 info.type_name = name;
19 info.class_init_func = NULL;
20 info.object_init_func = NULL;
21 info.reserved_1 = NULL;
22 info.reserved_2 = NULL;
24 type_id = gtk_type_unique (parent, &info);
30 xemacs_init_gtk_classes (void)
34 GTK_TYPE_ARRAY = xemacs_type_register ("GtkArrayOf", 0);
35 GTK_TYPE_STRING_ARRAY = xemacs_type_register ("GtkArrayOfString", GTK_TYPE_ARRAY);
36 GTK_TYPE_FLOAT_ARRAY = xemacs_type_register ("GtkArrayOfFloat", GTK_TYPE_ARRAY);
37 GTK_TYPE_INT_ARRAY = xemacs_type_register ("GtkArrayOfInteger", GTK_TYPE_ARRAY);
38 GTK_TYPE_LISTOF = xemacs_type_register ("GtkListOf", 0);
39 GTK_TYPE_STRING_LIST = xemacs_type_register ("GtkListOfString", GTK_TYPE_LISTOF);
40 GTK_TYPE_OBJECT_LIST = xemacs_type_register ("GtkListOfObject", GTK_TYPE_LISTOF);
41 GTK_TYPE_GDK_GC = xemacs_type_register ("GdkGC", GTK_TYPE_BOXED);
46 xemacs_list_to_gtklist (Lisp_Object obj, GtkArg *arg)
50 if (arg->type == GTK_TYPE_STRING_LIST)
52 Lisp_Object temp = obj;
53 GList *strings = NULL;
57 CHECK_STRING (XCAR (temp));
65 strings = g_list_append (strings, XSTRING_DATA (XCAR (temp)));
69 GTK_VALUE_POINTER(*arg) = strings;
71 else if (arg->type == GTK_TYPE_OBJECT_LIST)
73 Lisp_Object temp = obj;
74 GList *objects = NULL;
78 CHECK_GTK_OBJECT (XCAR (temp));
86 objects = g_list_append (objects, XGTK_OBJECT (XCAR (temp))->object);
90 GTK_VALUE_POINTER(*arg) = objects;
99 __make_gtk_object_mapper (gpointer data, gpointer user_data)
101 Lisp_Object *rv = (Lisp_Object *) user_data;
103 *rv = Fcons (build_gtk_object (GTK_OBJECT (data)), *rv);
107 __make_string_mapper (gpointer data, gpointer user_data)
109 Lisp_Object *rv = (Lisp_Object *) user_data;
111 *rv = Fcons (build_string ((char *)data), *rv);
115 xemacs_gtklist_to_list (GtkArg *arg)
117 Lisp_Object rval = Qnil;
119 if (GTK_VALUE_POINTER (*arg))
121 if (arg->type == GTK_TYPE_STRING_LIST)
123 g_list_foreach (GTK_VALUE_POINTER (*arg), __make_string_mapper, &rval);
125 else if (arg->type == GTK_TYPE_OBJECT_LIST)
127 g_list_foreach (GTK_VALUE_POINTER (*arg), __make_gtk_object_mapper, &rval);
138 xemacs_list_to_array (Lisp_Object obj, GtkArg *arg)
142 #define FROB(ret_type,check_fn,extract_fn) \
144 Lisp_Object temp = obj; \
146 ret_type *array = NULL; \
148 while (!NILP (temp)) \
150 check_fn (XCAR (temp)); \
152 temp = XCDR (temp); \
155 array = xnew_array_and_zero (ret_type, length + 2); \
159 while (!NILP (temp)) \
161 array[length++] = extract_fn (XCAR (temp)); \
162 temp = XCDR (temp); \
165 GTK_VALUE_POINTER(*arg) = array; \
168 if (arg->type == GTK_TYPE_STRING_ARRAY)
170 FROB(gchar *, CHECK_STRING, XSTRING_DATA);
172 else if (arg->type == GTK_TYPE_FLOAT_ARRAY)
174 FROB(gfloat, CHECK_FLOAT, extract_float);
176 else if (arg->type == GTK_TYPE_INT_ARRAY)
178 FROB(gint, CHECK_INT, XINT);
187 extern GdkGC *gtk_get_gc (struct device *d, Lisp_Object font, Lisp_Object fg, Lisp_Object bg,
188 Lisp_Object bg_pmap, Lisp_Object lwidth);
191 face_to_gc (Lisp_Object face)
193 Lisp_Object device = Fselected_device (Qnil);
195 return (gtk_get_gc (XDEVICE (device),
196 Fspecifier_instance (Fget (face, Qfont, Qnil), device, Qnil, Qnil),
197 Fspecifier_instance (Fget (face, Qforeground, Qnil), device, Qnil, Qnil),
198 Fspecifier_instance (Fget (face, Qbackground, Qnil), device, Qnil, Qnil),
199 Fspecifier_instance (Fget (face, Qbackground_pixmap, Qnil), device, Qnil, Qnil),
204 face_to_style (Lisp_Object face)
206 Lisp_Object device = Fselected_device (Qnil);
207 GtkStyle *style = gtk_style_new ();
210 Lisp_Object font = Fspecifier_instance (Fget (face, Qfont, Qnil), device, Qnil, Qnil);
211 Lisp_Object fg = Fspecifier_instance (Fget (face, Qforeground, Qnil), device, Qnil, Qnil);
212 Lisp_Object bg = Fspecifier_instance (Fget (face, Qbackground, Qnil), device, Qnil, Qnil);
213 Lisp_Object pm = Fspecifier_instance (Fget (face, Qbackground_pixmap, Qnil), device, Qnil, Qnil);
215 for (i = 0; i < 5; i++) style->fg[i] = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (fg));
216 for (i = 0; i < 5; i++) style->bg[i] = * COLOR_INSTANCE_GTK_COLOR (XCOLOR_INSTANCE (bg));
218 if (IMAGE_INSTANCEP (pm))
220 for (i = 0; i < 5; i++) style->bg_pixmap[i] = XIMAGE_INSTANCE_GTK_PIXMAP (pm);
223 style->font = FONT_INSTANCE_GTK_FONT (XFONT_INSTANCE (font));
228 extern int gtk_event_to_emacs_event (struct frame *, GdkEvent *, struct Lisp_Event *);
231 gdk_event_to_emacs_event(GdkEvent *ev)
233 Lisp_Object emacs_event = Qnil;
237 emacs_event = Fmake_event (Qnil, Qnil);
238 if (!gtk_event_to_emacs_event (NULL, ev, XEVENT (emacs_event)))
240 /* We need to handle a few more cases than the normal event
241 ** loop does. Mainly the double/triple click events.
243 if ((ev->type == GDK_2BUTTON_PRESS) || (ev->type == GDK_3BUTTON_PRESS))
245 struct Lisp_Event *le = XEVENT (emacs_event);
247 le->event_type = misc_user_event;
248 le->event.misc.button = ev->button.button;
249 le->event.misc.modifiers = 0;
250 le->event.misc.x = ev->button.x;
251 le->event.misc.y = ev->button.y;
252 if (ev->type == GDK_2BUTTON_PRESS)
253 le->event.misc.function = intern ("double-click");
255 le->event.misc.function = intern ("triple-click");
259 Fdeallocate_event (emacs_event);
264 return (emacs_event);