Mercurial > hg > xemacs-beta

comparison src/gtk-glue.c @ 5074:8af6a32b170d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modify XLIKE_get_gc's prototype src/ChangeLog addition: 2010-02-24 Didier Verna <didier@xemacs.org> Modify XLIKE_get_gc's prototype. * redisplay-xlike-inc.c (XLIKE_get_gc): Take a frame instead of a device as first argument. * redisplay-xlike-inc.c (XLIKE_output_string): Update caller. * redisplay-xlike-inc.c (XLIKE_output_pixmap): Ditto. * redisplay-xlike-inc.c (XLIKE_output_blank): Ditto. * redisplay-xlike-inc.c (XLIKE_output_horizontal_line): Ditto. * redisplay-xlike-inc.c (XLIKE_clear_region): Ditto. * redisplay-xlike-inc.c (XLIKE_output_eol_cursor): Ditto. * console-gtk.h (gtk_get_gc): Take a frame instead of a device as first argument. * gtk-glue.c (face_to_gc): Update caller.
author Didier Verna <didier@lrde.epita.fr>
date Wed, 24 Feb 2010 15:45:20 +0100
parents e813cf16c015
children 5502045ec510
comparison
equal deleted inserted replaced
5073:78a3c171a427 5074:8af6a32b170d
206 } 206 }
207 207
208 static GdkGC * 208 static GdkGC *
209 face_to_gc (Lisp_Object face) 209 face_to_gc (Lisp_Object face)
210 { 210 {
211 Lisp_Object device = Fselected_device (Qnil); 211 Lisp_Object frame = Fselected_frame (Qnil);
212 212
213 return (gtk_get_gc (XDEVICE (device), 213 return (gtk_get_gc (XFRAME (frame),
214 Fspecifier_instance (Fget (face, Qfont, Qnil), 214 Fspecifier_instance (Fget (face, Qfont, Qnil),
215 device, Qnil, Qnil), 215 frame, Qnil, Qnil),
216 Fspecifier_instance (Fget (face, Qforeground, Qnil), 216 Fspecifier_instance (Fget (face, Qforeground, Qnil),
217 device, Qnil, Qnil), 217 frame, Qnil, Qnil),
218 Fspecifier_instance (Fget (face, Qbackground, Qnil), 218 Fspecifier_instance (Fget (face, Qbackground, Qnil),
219 device, Qnil, Qnil), 219 frame, Qnil, Qnil),
220 Fspecifier_instance (Fget (face, Qbackground_pixmap, 220 Fspecifier_instance (Fget (face, Qbackground_pixmap,
221 Qnil), device, Qnil, Qnil), 221 Qnil),
222 frame, Qnil, Qnil),
222 Qnil)); 223 Qnil));
223 } 224 }
224 225
225 static GtkStyle * 226 static GtkStyle *
226 face_to_style (Lisp_Object face) 227 face_to_style (Lisp_Object face)