xemacs-beta: src/redisplay-xlike-inc.c annotate

annotate src/redisplay-xlike-inc.c @ 5518:3cc7470ea71c

gnuclient: if TMPDIR was set and connect failed, try again with /tmp 2011-06-03 Aidan Kehoe <kehoea@parhasard.net> * gnuslib.c (connect_to_unix_server): Retry with /tmp as a directory in which to search for Unix sockets if an attempt to connect with some other directory failed (which may be because gnuclient and gnuserv don't share an environment value for TMPDIR, or because gnuserv was compiled with USE_TMPDIR turned off).

author	Aidan Kehoe <kehoea@parhasard.net>
date	Fri, 03 Jun 2011 18:40:57 +0100
parents	f87be7ddd60d
children	580ef98f2beb

rev	line source
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1 /* Common code between X and GTK -- redisplay-related.
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	3 Copyright (C) 1994 Lucid, Inc.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	4 Copyright (C) 1995 Sun Microsystems, Inc.
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	5 Copyright (C) 2002, 2003, 2005, 2009, 2010 Ben Wing.
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	6 Copyright (C) 2010 Didier Verna
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	7
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	8 This file is part of XEmacs.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	9
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5239 diff changeset	10 XEmacs is free software: you can redistribute it and/or modify it
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	11 under the terms of the GNU General Public License as published by the
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5239 diff changeset	12 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5239 diff changeset	13 option) any later version.
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	14
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	15 XEmacs is distributed in the hope that it will be useful, but WITHOUT
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	18 for more details.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	19
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	20 You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5239 diff changeset	21 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	22
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	23 /* Synched up with: Not in FSF. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	24
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	25 /* Author: Chuck Thompson */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	26 /* Gtk flavor by William Perry */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	27 /* X and GTK code merged by Ben Wing, 1-10 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	28
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	29 /* Lots of work done by Ben Wing for Mule */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	30
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	31 /* Before including this file, you need to define either THIS_IS_X or
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	32 THIS_IS_GTK. See comments in console-xlike-inc.h. */
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	33
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	34 #include <config.h>
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	35 #include "lisp.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	36
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	37 #include "buffer.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	38 #include "debug.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	39 #include "device-impl.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	40 #include "faces.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	41 #include "file-coding.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	42 #include "frame-impl.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	43 #include "gutter.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	44 #include "redisplay.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	45 #include "sysdep.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	46 #include "window.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	47
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	48 #ifdef MULE
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	49 #include "mule-ccl.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	50 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	51 #include "charset.h"
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	52
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	53 #define NEED_GCCACHE_H
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	54 #define NEED_GLYPHS_H
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	55 #define NEED_OBJECTS_IMPL_H
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	56 #include "console-xlike-inc.h"
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	57
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	58 #include "sysproc.h" /* for select() */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	59
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	60 #ifdef THIS_IS_X
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	61 #include "EmacsFrame.h"
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	62 #include "EmacsFrameP.h"
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	63
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	64 #include <X11/bitmaps/gray>
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	65 #endif /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	66
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	67 #define EOL_CURSOR_WIDTH 5
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	68
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	69 /* Device methods */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	70
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	71 #define XLIKE_text_width XFUN (text_width)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	72 #define XLIKE_output_display_block XFUN (output_display_block)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	73 #define XLIKE_divider_height XFUN (divider_height)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	74 #define XLIKE_eol_cursor_width XFUN (eol_cursor_width)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	75 #define XLIKE_output_vertical_divider XFUN (output_vertical_divider)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	76 #define XLIKE_clear_region XFUN (clear_region)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	77 #define XLIKE_clear_frame XFUN (clear_frame)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	78 #define XLIKE_flash XFUN (flash)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	79 #define XLIKE_ring_bell XFUN (ring_bell)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	80 #define XLIKE_bevel_area XFUN (bevel_area)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	81 #define XLIKE_output_string XFUN (output_string)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	82 #define XLIKE_output_pixmap XFUN (output_pixmap)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	83 #define XLIKE_output_xlike_pixmap XFUN (output_xlike_pixmap)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	84 #define XLIKE_window_output_begin XFUN (window_output_begin)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	85 #define XLIKE_window_output_end XFUN (window_output_end)
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	86
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	87 /* Miscellaneous split functions */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	88
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	89 #define console_type_create_redisplay_XLIKE XLIKE_PASTE (console_type_create_redisplay, XLIKE_NAME)
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	90 #define XLIKE_get_gc XFUN (get_gc)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	91 #define XLIKE_output_blank XFUN (output_blank)
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	92 #define XLIKE_text_width_single_run XFUN (text_width_single_run)
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	93
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	94 static void XLIKE_output_blank (struct window w, struct display_line dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	95 struct rune *rb, int start_pixpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	96 int cursor_start, int cursor_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	97 static void XLIKE_output_horizontal_line (struct window *w,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	98 struct display_line *dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	99 struct rune *rb);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	100 static void XLIKE_output_eol_cursor (struct window *w,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	101 struct display_line *dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	102 int xpos, face_index findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	103 static void XLIKE_clear_frame_windows (Lisp_Object window);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	104 static void XLIKE_bevel_area (struct window *w, face_index findex,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	105 int x, int y, int width, int height,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	106 int shadow_thickness, int edges,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	107 enum edge_style style);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	108 static void XLIKE_ring_bell (struct device *d, int volume, int pitch,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	109 int duration);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	110
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	111 #ifdef THIS_IS_X
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	112 static void XLIKE_window_output_begin (struct window *UNUSED (w));
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	113 static void XLIKE_window_output_end (struct window *w);
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	114 #endif /* THIS_IS_X */
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	115
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	116
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	117 /****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	118 /* */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	119 /* Separate textual runs */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	120 /* */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	121 /****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	122
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	123
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	124 /* Note: We do not use the Xmb*() functions and XFontSets, nor the
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	125 Motif XFontLists and CompoundStrings.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	126 Those functions are generally losing for a number of reasons.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	127 Most important, they only support one locale (e.g. you could
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	128 display Japanese and ASCII text, but not mixed Japanese/Chinese
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	129 text). You could maybe call setlocale() frequently to try to deal
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	130 with this, but that would generally fail because an XFontSet is
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	131 tied to one locale and won't have the other character sets in it.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	132
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	133 fontconfig (the font database for Xft) has some specifier-like
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	134 properties, but it's not sufficient (witness the existence of
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	135 Pango). Pango might do the trick, but it's not a cross-platform
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	136 solution; it would need significant advantages to be worth the
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	137 effort.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	138 */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	139
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	140 struct textual_run
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	141 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	142 Lisp_Object charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	143 unsigned char *ptr;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	144 int len;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	145 int dimension;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	146 };
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	147
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	148 /* Separate out the text in STR (an array of Ichars, not a string
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	149 representation) of length LEN into a series of runs, stored in
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	150 RUN_STORAGE. RUN_STORAGE is guaranteed to hold enough space for all
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	151 runs that could be generated from this text. Each run points to the a
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	152 stretch of text given simply by the position codes TEXT_STORAGE into a
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	153 series of textual runs of a particular charset. Also convert the
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	154 characters as necessary into the format needed by XDrawImageString(),
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	155 XDrawImageString16(), et al. This means converting to one or two byte
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	156 format, possibly tweaking the high bits, and possibly running a CCL
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	157 program. You must pre-allocate the space used and pass it in. (This is
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	158 done so you can ALLOCA () the space.) (2 * len) bytes must be allocated
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	159 for TEXT_STORAGE and (len * sizeof (struct textual_run)) bytes of
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	160 RUN_STORAGE, where LEN is the length of the dynarr.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	161
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	162 bufchar might not be fixed width (in the case of UTF-8).
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	163
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	164 Returns the number of runs actually used. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	165
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	166 /* Notes on Xft implementation
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	167
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	168 - With Unicode, we're no longer going to have repertoires reified as
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	169 charsets. (Not that we ever really did, what with corporate variants,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	170 and so on.) So we really should be querying the face for the desired
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	171 font, rather than the character for the charset, and that's what would
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	172 determine the separation into runs.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	173 - The widechar versions of fontconfig (and therefore Xft) functions
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	174 seem to be just bigendian Unicode. So there's actually no need to use
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	175 the 8-bit versions in computing runs and runes, it would seem.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	176 */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	177
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	178 #if !defined(USE_XFT) && !defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	179 static int
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	180 separate_textual_runs_nomule (unsigned char *text_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	181 struct textual_run *run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	182 const Ichar *str, Charcount len,
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	183 struct face_cachel *UNUSED (cachel))
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	184 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	185 if (!len)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	186 return 0;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	187
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	188 run_storage[0].ptr = text_storage;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	189 run_storage[0].len = len;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	190 run_storage[0].dimension = 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	191 run_storage[0].charset = Qnil;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	192
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	193 while (len--)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	194 text_storage++ = str++;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	195 return 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	196 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	197 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	198
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	199 #if defined(USE_XFT) && !defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	200 /*
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	201 Note that in this configuration the "Croatian hack" of using an 8-bit,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	202 non-Latin-1 font to get localized display without Mule simply isn't
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	203 available. That's by design -- Unicode does not aid or abet that kind
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	204 of punning.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	205 This means that the cast to XftChar16 gives the correct "conversion" to
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	206 UCS-2.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	207 #### Is there an alignment issue with text_storage?
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	208 */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	209 static int
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	210 separate_textual_runs_xft_nomule (unsigned char *text_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	211 struct textual_run *run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	212 const Ichar *str, Charcount len,
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	213 struct face_cachel *UNUSED (cachel))
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	214 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	215 int i;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	216 if (!len)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	217 return 0;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	218
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	219 run_storage[0].ptr = text_storage;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	220 run_storage[0].len = len;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	221 run_storage[0].dimension = 2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	222 run_storage[0].charset = Qnil;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	223
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	224 for (i = 0; i < len; i++)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	225 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	226 (XftChar16 )text_storage = str[i];
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	227 text_storage += sizeof (XftChar16);
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	228 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	229 return 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	230 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	231 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	232
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	233 #if defined(USE_XFT) && defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	234 static int
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	235 separate_textual_runs_xft_mule (unsigned char *text_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	236 struct textual_run *run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	237 const Ichar *str, Charcount len,
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	238 struct face_cachel *UNUSED (cachel))
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	239 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	240 Lisp_Object prev_charset = Qunbound;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	241 int runs_so_far = 0, i;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	242
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	243 run_storage[0].ptr = text_storage;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	244 run_storage[0].len = len;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	245 run_storage[0].dimension = 2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	246 run_storage[0].charset = Qnil;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	247
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	248 for (i = 0; i < len; i++)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	249 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	250 Ichar ch = str[i];
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	251 Lisp_Object charset = ichar_charset (ch);
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	252 int ucs = ichar_to_unicode (ch);
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	253
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	254 /* If UCS is less than zero or greater than 0xFFFF, set ucs2 to
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	255 REPLACMENT CHARACTER. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	256 /* That means we can't handle characters outside of the BMP for now */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	257 ucs = (ucs & ~0xFFFF) ? 0xFFFD : ucs;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	258
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	259 if (!EQ (charset, prev_charset))
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	260 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	261 if (runs_so_far)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	262 run_storage[runs_so_far-1].len = (text_storage - run_storage[runs_so_far-1].ptr) >> 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	263 run_storage[runs_so_far].ptr = text_storage;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	264 run_storage[runs_so_far].dimension = 2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	265 run_storage[runs_so_far].charset = charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	266 prev_charset = charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	267 runs_so_far++;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	268 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	269
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	270 (XftChar16 )text_storage = ucs;
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	271 text_storage += sizeof (XftChar16);
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	272 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	273
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	274 if (runs_so_far)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	275 run_storage[runs_so_far-1].len = (text_storage - run_storage[runs_so_far-1].ptr) >> 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	276 return runs_so_far;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	277 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	278 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	279
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	280 #if !defined(USE_XFT) && defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	281 /*
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	282 This is the most complex function of this group, due to the various
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	283 indexing schemes used by different fonts. For our purposes, they
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	284 fall into three classes. Some fonts are indexed compatibly with ISO
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	285 2022; those fonts just use the Mule internal representation directly
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	286 (typically the high bit must be reset; this is determined by the `graphic'
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	287 flag). Some fonts are indexed by Unicode, specifically by UCS-2. These
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	288 are all translated using `ichar_to_unicode'. Finally some fonts have
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	289 irregular indexes, and must be translated ad hoc. In XEmacs ad hoc
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	290 translations are accomplished with CCL programs. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	291 static int
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	292 separate_textual_runs_mule (unsigned char *text_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	293 struct textual_run *run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	294 const Ichar *str, Charcount len,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	295 struct face_cachel *cachel)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	296 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	297 Lisp_Object prev_charset = Qunbound;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	298 int runs_so_far = 0, i;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	299 Ibyte charset_leading_byte = LEADING_BYTE_ASCII;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	300 int dimension = 1, graphic = 0, need_ccl_conversion = 0;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	301 Lisp_Object ccl_prog;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	302 struct ccl_program char_converter;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	303
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	304 int translate_to_ucs_2 = 0;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	305
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	306 for (i = 0; i < len; i++)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	307 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	308 Ichar ch = str[i];
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	309 Lisp_Object charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	310 int byte1, byte2; /* BREAKUP_ICHAR dereferences the addresses
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	311 of its arguments as pointer to int. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	312 BREAKUP_ICHAR (ch, charset, byte1, byte2);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	313
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	314 if (!EQ (charset, prev_charset))
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	315 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	316 /* At this point, dimension' and `prev_charset' refer to just-
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	317 completed run. `runs_so_far' and `text_storage' refer to the
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	318 run about to start. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	319 if (runs_so_far)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	320 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	321 /* Update metadata for previous run. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	322 run_storage[runs_so_far - 1].len =
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	323 text_storage - run_storage[runs_so_far - 1].ptr;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	324 if (2 == dimension) run_storage[runs_so_far - 1].len >>= 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	325 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	326
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	327 /* Compute metadata for current run.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	328 First, classify font.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	329 If the font is indexed by UCS-2, set `translate_to_ucs_2'.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	330 Else if the charset has a CCL program, set `need_ccl_conversion'.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	331 Else if the font is indexed by an ISO 2022 "graphic register",
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	332 set `graphic'.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	333 These flags are almost mutually exclusive, but we're sloppy
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	334 about resetting "shadowed" flags. So the flags must be checked
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	335 in the proper order in computing byte1 and byte2, below. */
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	336 charset_leading_byte = XCHARSET_LEADING_BYTE (charset);
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	337 translate_to_ucs_2 =
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	338 bit_vector_bit (FACE_CACHEL_FONT_FINAL_STAGE (cachel),
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	339 charset_leading_byte - MIN_LEADING_BYTE);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	340 if (translate_to_ucs_2)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	341 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	342 dimension = 2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	343 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	344 else
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	345 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	346 dimension = XCHARSET_DIMENSION (charset);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	347
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	348 /* Check for CCL charset.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	349 If setup_ccl_program fails, we'll get a garbaged display.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	350 This should never happen, and even if it does, it should
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	351 be harmless (unless the X server has buggy handling of
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	352 characters undefined in the font). It may be marginally
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	353 more useful to users and debuggers than substituting a
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	354 fixed replacement character. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	355 ccl_prog = XCHARSET_CCL_PROGRAM (charset);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	356 if ((!NILP (ccl_prog))
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	357 && (setup_ccl_program (&char_converter, ccl_prog) >= 0))
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	358 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	359 need_ccl_conversion = 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	360 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	361 else
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	362 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	363 /* The charset must have an ISO 2022-compatible font index.
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	364 There are 2 "registers" (what such fonts use as index).
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	365 GL (graphic == 0) has the high bit of each octet reset,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	366 GR (graphic == 1) has it set. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	367 graphic = XCHARSET_GRAPHIC (charset);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	368 need_ccl_conversion = 0;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	369 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	370 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	371
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	372 /* Initialize metadata for current run. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	373 run_storage[runs_so_far].ptr = text_storage;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	374 run_storage[runs_so_far].charset = charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	375 run_storage[runs_so_far].dimension = dimension;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	376
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	377 /* Update loop variables. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	378 prev_charset = charset;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	379 runs_so_far++;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	380 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	381
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	382 /* Must check flags in this order. See comment above. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	383 if (translate_to_ucs_2)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	384 {
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	385 int ucs = ichar_to_unicode (ch);
4881 a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	386 /* If UCS is less than zero or greater than 0xFFFF, set ucs2 to
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	387 REPLACMENT CHARACTER. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	388 ucs = (ucs & ~0xFFFF) ? 0xFFFD : ucs;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	389
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	390 byte1 = ucs >> 8;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	391 byte2 = ucs;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	392 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	393 else if (need_ccl_conversion)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	394 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	395 char_converter.reg[0] = charset_leading_byte;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	396 char_converter.reg[1] = byte1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	397 char_converter.reg[2] = byte2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	398 ccl_driver (&char_converter, 0, 0, 0, 0, CCL_MODE_ENCODING);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	399 byte1 = char_converter.reg[1];
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	400 byte2 = char_converter.reg[2];
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	401 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	402 else if (graphic == 0)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	403 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	404 byte1 &= 0x7F;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	405 byte2 &= 0x7F;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	406 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	407 else
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	408 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	409 byte1 \|= 0x80;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	410 byte2 \|= 0x80;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	411 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	412
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	413 *text_storage++ = (unsigned char)byte1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	414
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	415 if (2 == dimension) *text_storage++ = (unsigned char)byte2;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	416 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	417
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	418 if (runs_so_far)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	419 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	420 run_storage[runs_so_far - 1].len =
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	421 text_storage - run_storage[runs_so_far - 1].ptr;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	422 /* Dimension retains the relevant value for the run before it. */
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	423 if (2 == dimension)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	424 run_storage[runs_so_far - 1].len >>= 1;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	425 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	426
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	427 return runs_so_far;
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	428 }
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	429 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	430
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	431 static int
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	432 separate_textual_runs (unsigned char *text_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	433 struct textual_run *run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	434 const Ichar *str, Charcount len,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	435 struct face_cachel *cachel)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	436 {
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	437 #if defined(USE_XFT) && defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	438 return separate_textual_runs_xft_mule (text_storage, run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	439 str, len, cachel);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	440 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	441 #if defined(USE_XFT) && !defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	442 return separate_textual_runs_xft_nomule (text_storage, run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	443 str, len, cachel);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	444 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	445 #if !defined(USE_XFT) && defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	446 return separate_textual_runs_mule (text_storage, run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	447 str, len, cachel);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	448 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	449 #if !defined(USE_XFT) && !defined(MULE)
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	450 return separate_textual_runs_nomule (text_storage, run_storage,
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	451 str, len, cachel);
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	452 #endif
a4322ac49e37 break out common separate-into-runs routines into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: diff changeset	453 }
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	454
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	455 /****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	456 /* */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	457 /* Xlike output routines */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	458 /* */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	459 /****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	460
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	461 static int
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	462 XLIKE_text_width_single_run (struct frame * USED_IF_XFT (f),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	463 struct face_cachel *cachel,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	464 struct textual_run *run)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	465 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	466 Lisp_Object font_inst = FACE_CACHEL_FONT (cachel, run->charset);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	467 Lisp_Font_Instance *fi = XFONT_INSTANCE (font_inst);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	468
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	469 if (!fi->proportional_p)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	470 return fi->width * run->len;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	471 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	472 else if (FONT_INSTANCE_X_XFTFONT (fi))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	473 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	474 static XGlyphInfo glyphinfo;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	475 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	476 Display *dpy = DEVICE_X_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	477
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	478 if (run->dimension == 2)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	479 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	480 XftTextExtents16 (dpy,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	481 FONT_INSTANCE_X_XFTFONT (fi),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	482 (XftChar16 *) run->ptr, run->len, &glyphinfo);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	483 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	484 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	485 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	486 XftTextExtents8 (dpy,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	487 FONT_INSTANCE_X_XFTFONT (fi),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	488 run->ptr, run->len, &glyphinfo);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	489 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	490
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	491 return glyphinfo.xOff;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	492 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	493 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	494 else if (FONT_INSTANCE_XLIKE_FONT (fi))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	495 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	496 if (run->dimension == 2)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	497 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	498 /* stderr_out ("Measuring wide characters\n"); */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	499 return XLIKE_TEXT_WIDTH_WIDE (FONT_INSTANCE_XLIKE_FONT (fi),
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	500 run->ptr, run->len);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	501 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	502 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	503 {
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	504 return XLIKE_TEXT_WIDTH (FONT_INSTANCE_XLIKE_FONT (fi),
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	505 run->ptr, run->len);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	506 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	507 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	508 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	509 abort();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	510 return 0; /* shut up GCC */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	511 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	512
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	513
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	514 /*
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	515 XLIKE_text_width
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	516
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	517 Given a string and a merged face, return the string's length in pixels
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	518 when displayed in the fonts associated with the face.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	519 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	520
4928 ea701c23ed84 change text_width method to take a window, in preparation for unicode-internal changes Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	521 static int
ea701c23ed84 change text_width method to take a window, in preparation for unicode-internal changes Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	522 XLIKE_text_width (struct window w, struct face_cachel cachel,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	523 const Ichar *str, Charcount len)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	524 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	525 /* !!#### Needs review */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	526 int width_so_far = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	527 unsigned char text_storage = (unsigned char ) ALLOCA (2 * len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	528 struct textual_run *runs = alloca_array (struct textual_run, len);
4928 ea701c23ed84 change text_width method to take a window, in preparation for unicode-internal changes Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	529 struct frame *f = WINDOW_XFRAME (w);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	530 int nruns;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	531 int i;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	532
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	533 nruns = separate_textual_runs (text_storage, runs, str, len,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	534 cachel);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	535
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	536 for (i = 0; i < nruns; i++)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	537 width_so_far += XLIKE_text_width_single_run (f, cachel, runs + i);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	538
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	539 return width_so_far;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	540 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	541
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	542 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	543 XLIKE_divider_height
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	544
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	545 Return the height of the horizontal divider. This is a function because
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	546 divider_height is a device method.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	547
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	548 #### If we add etched horizontal divider lines this will have to get
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	549 smarter.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	550 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	551 static int
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	552 XLIKE_divider_height (void)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	553 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	554 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	555 return 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	556 #else /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	557 return 2;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	558 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	559 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	560
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	561 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	562 XLIKE_eol_cursor_width
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	563
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	564 Return the width of the end-of-line cursor. This is a function
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	565 because eol_cursor_width is a device method.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	566 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	567 static int
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	568 XLIKE_eol_cursor_width (void)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	569 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	570 return EOL_CURSOR_WIDTH;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	571 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	572
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	573 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	574 XLIKE_output_display_block
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	575
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	576 Given a display line, a block number for that start line, output all
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	577 runes between start and end in the specified display block.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	578 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	579 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	580 XLIKE_output_display_block (struct window w, struct display_line dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	581 int block, int start, int end, int start_pixpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	582 int cursor_start, int cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	583 int cursor_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	584 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	585 #ifndef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	586 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	587 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	588 Ichar_dynarr *buf;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	589 Lisp_Object window;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	590
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	591 struct display_block *db = Dynarr_atp (dl->display_blocks, block);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	592 rune_dynarr *rba = db->runes;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	593 struct rune *rb;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	594
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	595 int elt = start;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	596 face_index findex;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	597 int xpos, width = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	598 Lisp_Object charset = Qunbound; /* Qnil is a valid charset when
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	599 MULE is not defined */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	600
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	601 window = wrap_window (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	602 rb = Dynarr_atp (rba, start);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	603
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	604 if (!rb)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	605 /* Nothing to do so don't do anything. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	606 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	607
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	608 findex = rb->findex;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	609 xpos = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	610 if (rb->type == RUNE_CHAR)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	611 charset = ichar_charset (rb->object.chr.ch);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	612
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	613 if (end < 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	614 end = Dynarr_length (rba);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	615 buf = Dynarr_new (Ichar);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	616
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	617 while (elt < end)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	618 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	619 rb = Dynarr_atp (rba, elt);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	620
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	621 if (rb->findex == findex && rb->type == RUNE_CHAR
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	622 && rb->object.chr.ch != '\n' && rb->cursor_type != CURSOR_ON
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	623 && EQ (charset, ichar_charset (rb->object.chr.ch)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	624 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	625 Dynarr_add (buf, rb->object.chr.ch);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	626 width += rb->width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	627 elt++;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	628 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	629 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	630 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	631 if (Dynarr_length (buf))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	632 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	633 XLIKE_output_string (w, dl, buf, xpos, 0, start_pixpos, width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	634 findex, 0, cursor_start, cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	635 cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	636 xpos = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	637 width = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	638 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	639 Dynarr_reset (buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	640 width = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	641
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	642 if (rb->type == RUNE_CHAR)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	643 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	644 findex = rb->findex;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	645 xpos = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	646 charset = ichar_charset (rb->object.chr.ch);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	647
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	648 if (rb->cursor_type == CURSOR_ON)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	649 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	650 if (rb->object.chr.ch == '\n')
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	651 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	652 XLIKE_output_eol_cursor (w, dl, xpos, findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	653 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	654 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	655 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	656 Dynarr_add (buf, rb->object.chr.ch);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	657 XLIKE_output_string (w, dl, buf, xpos, 0, start_pixpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	658 rb->width, findex, 1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	659 cursor_start, cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	660 cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	661 Dynarr_reset (buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	662 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	663
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	664 xpos += rb->width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	665 elt++;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	666 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	667 else if (rb->object.chr.ch == '\n')
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	668 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	669 /* Clear in case a cursor was formerly here. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	670 redisplay_clear_region (window, findex, xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	671 XLIKE_DISPLAY_LINE_YPOS (dl),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	672 rb->width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	673 XLIKE_DISPLAY_LINE_HEIGHT (dl));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	674 elt++;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	675 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	676 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	677 else if (rb->type == RUNE_BLANK \|\| rb->type == RUNE_HLINE)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	678 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	679 if (rb->type == RUNE_BLANK)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	680 XLIKE_output_blank (w, dl, rb, start_pixpos, cursor_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	681 cursor_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	682 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	683 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	684 /* #### Our flagging of when we need to redraw the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	685 modeline shadows sucks. Since RUNE_HLINE is only used
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	686 by the modeline at the moment it is a good bet
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	687 that if it gets redrawn then we should also
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	688 redraw the shadows. This won't be true forever.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	689 We borrow the shadow_thickness_changed flag for
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	690 now. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	691 w->shadow_thickness_changed = 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	692 XLIKE_output_horizontal_line (w, dl, rb);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	693 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	694
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	695 elt++;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	696 if (elt < end)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	697 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	698 rb = Dynarr_atp (rba, elt);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	699
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	700 findex = rb->findex;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	701 xpos = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	702 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	703 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	704 else if (rb->type == RUNE_DGLYPH)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	705 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	706 Lisp_Object instance;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	707 struct display_box dbox;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	708 struct display_glyph_area dga;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	709
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	710 redisplay_calculate_display_boxes (dl, rb->xpos, rb->object.dglyph.xoffset,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	711 rb->object.dglyph.yoffset, start_pixpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	712 rb->width, &dbox, &dga);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	713
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	714 window = wrap_window (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	715 instance = glyph_image_instance (rb->object.dglyph.glyph,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	716 window, ERROR_ME_DEBUG_WARN, 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	717 findex = rb->findex;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	718
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	719 if (IMAGE_INSTANCEP (instance))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	720 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	721 switch (XIMAGE_INSTANCE_TYPE (instance))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	722 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	723 case IMAGE_TEXT:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	724 #ifdef THIS_IS_GTK
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	725 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	726 /* !!#### Examine for Mule-izing */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	727 /* #### This is way losing. See the comment in
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	728 add_glyph_rune(). */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	729 Lisp_Object string =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	730 XIMAGE_INSTANCE_TEXT_STRING (instance);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	731 convert_ibyte_string_into_ichar_dynarr
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	732 (XSTRING_DATA (string), XSTRING_LENGTH (string),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	733 buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	734
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	735 gtk_output_string (w, dl, buf, xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	736 rb->object.dglyph.xoffset,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	737 start_pixpos, -1, findex,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	738 (rb->cursor_type == CURSOR_ON),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	739 cursor_start, cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	740 cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	741 Dynarr_reset (buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	742 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	743 break;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	744 #else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	745 ABORT ();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	746 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	747 case IMAGE_MONO_PIXMAP:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	748 case IMAGE_COLOR_PIXMAP:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	749 redisplay_output_pixmap (w, instance, &dbox, &dga,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	750 findex, cursor_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	751 cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	752 cursor_height, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	753 break;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	754
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	755 case IMAGE_WIDGET:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	756 if (EQ (XIMAGE_INSTANCE_WIDGET_TYPE (instance),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	757 Qlayout))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	758 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	759 redisplay_output_layout (window, instance, &dbox,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	760 &dga, findex,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	761 cursor_start, cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	762 cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	763 break;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	764 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	765
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	766 case IMAGE_SUBWINDOW:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	767 redisplay_output_subwindow (w, instance, &dbox, &dga,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	768 findex, cursor_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	769 cursor_width, cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	770 break;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	771
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	772 case IMAGE_NOTHING:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	773 /* nothing is as nothing does */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	774 break;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	775
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	776 case IMAGE_POINTER:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	777 default:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	778 ABORT ();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	779 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	780 IMAGE_INSTANCE_OPTIMIZE_OUTPUT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	781 (XIMAGE_INSTANCE (instance)) = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	782 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	783
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	784 xpos += rb->width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	785 elt++;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	786 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	787 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	788 ABORT ();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	789 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	790 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	791
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	792 if (Dynarr_length (buf))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	793 XLIKE_output_string (w, dl, buf, xpos, 0, start_pixpos, width, findex,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	794 0, cursor_start, cursor_width, cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	795
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	796 if (dl->modeline
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	797 && !EQ (Qzero, w->modeline_shadow_thickness)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	798 #ifndef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	799 /* This optimization doesn't work right with some Xft fonts, which
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	800 leave antialiasing turds at the boundary. I don't know if this
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	801 is an Xft bug or not, but I think it is. See x_output_string. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	802 && (f->clear
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	803 \|\| f->windows_structure_changed
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	804 \|\| w->shadow_thickness_changed)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	805 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	806 )
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	807 bevel_modeline (w, dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	808
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	809 Dynarr_free (buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	810 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	811
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	812 /* Called as gtk_get_gc from gtk-glue.c */
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	813
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	814 XLIKE_GC XLIKE_get_gc (struct frame *f, Lisp_Object font,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	815 Lisp_Object fg, Lisp_Object bg,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	816 Lisp_Object bg_pixmap, Lisp_Object bg_placement,
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	817 Lisp_Object lwidth);
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	818
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	819 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	820 XLIKE_get_gc
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	821
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	822 Given a number of parameters return a GC with those properties.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	823 ****************************************************************************/
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	824 XLIKE_GC
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	825 XLIKE_get_gc (struct frame *f, Lisp_Object font,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	826 Lisp_Object fg, Lisp_Object bg,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	827 Lisp_Object bg_pixmap, Lisp_Object bg_placement,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	828 Lisp_Object lwidth)
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	829 {
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	830 struct device *d = XDEVICE (f->device);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	831 XLIKE_GCVALUES gcv;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	832 unsigned long mask;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	833
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	834 memset (&gcv, ~0, sizeof (gcv));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	835 gcv.graphics_exposures = XLIKE_FALSE;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	836 /* Make absolutely sure that we don't pick up a clipping region in
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	837 the GC returned by this function. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	838 gcv.clip_mask = XLIKE_NONE;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	839 gcv.clip_x_origin = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	840 gcv.clip_y_origin = 0;
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	841 XLIKE_SET_GC_FILL (gcv, XLIKE_FILL_SOLID);
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	842 mask = XLIKE_GC_EXPOSURES
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	843 \| XLIKE_GC_CLIP_MASK \| XLIKE_GC_CLIP_X_ORIGIN \| XLIKE_GC_CLIP_Y_ORIGIN;
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	844 mask \|= XLIKE_GC_FILL;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	845
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	846 if (!NILP (font)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	847 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	848 /* Only set the font if it's a core font */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	849 /* the renderfont will be set elsewhere (not part of gc) */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	850 && !FONT_INSTANCE_X_XFTFONT (XFONT_INSTANCE (font))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	851 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	852 )
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	853 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	854 gcv.font =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	855 XLIKE_FONT_NUM (FONT_INSTANCE_XLIKE_FONT (XFONT_INSTANCE (font)));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	856 mask \|= XLIKE_GC_FONT;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	857 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	858
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	859 /* evil kludge! */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	860 if (!NILP (fg) && !COLOR_INSTANCEP (fg) && !INTP (fg))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	861 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	862 /* #### I fixed one case where this was getting hit. It was a
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	863 bad macro expansion (compiler bug). */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	864 stderr_out ("Help! x_get_gc got a bogus fg value! fg = ");
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	865 debug_print (fg);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	866 fg = Qnil;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	867 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	868
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	869 if (!NILP (fg))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	870 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	871 if (COLOR_INSTANCEP (fg))
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	872 XLIKE_SET_GC_COLOR (gcv.foreground, XCOLOR_INSTANCE_XLIKE_COLOR (fg));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	873 else
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	874 XLIKE_SET_GC_PIXEL (gcv.foreground, XINT (fg));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	875 mask \|= XLIKE_GC_FOREGROUND;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	876 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	877
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	878 if (!NILP (bg))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	879 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	880 if (COLOR_INSTANCEP (bg))
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	881 XLIKE_SET_GC_COLOR (gcv.background, XCOLOR_INSTANCE_XLIKE_COLOR (bg));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	882 else
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	883 XLIKE_SET_GC_PIXEL (gcv.background, XINT (bg));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	884 mask \|= XLIKE_GC_BACKGROUND;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	885 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	886
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	887 /* This special case comes from a request to draw text with a face which has
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	888 the dim property. We'll use a stippled foreground GC. */
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	889 if (EQ (bg_pixmap, Qdim))
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	890 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	891 assert (DEVICE_XLIKE_GRAY_PIXMAP (d) != XLIKE_NONE);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	892
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	893 XLIKE_SET_GC_FILL (gcv, XLIKE_FILL_STIPPLED);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	894 gcv.stipple = DEVICE_XLIKE_GRAY_PIXMAP (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	895 mask \|= (XLIKE_GC_FILL \| XLIKE_GC_STIPPLE);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	896 }
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	897 else if (IMAGE_INSTANCEP (bg_pixmap)
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	898 && IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (bg_pixmap)))
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	899 {
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	900 if (XIMAGE_INSTANCE_PIXMAP_DEPTH (bg_pixmap) == 0)
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	901 {
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	902 XLIKE_SET_GC_FILL (gcv, XLIKE_FILL_OPAQUE_STIPPLED);
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	903 gcv.stipple = XIMAGE_INSTANCE_XLIKE_PIXMAP (bg_pixmap);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	904 mask \|= (XLIKE_GC_STIPPLE \| XLIKE_GC_FILL);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	905 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	906 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	907 {
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	908 XLIKE_SET_GC_FILL (gcv, XLIKE_FILL_TILED);
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	909 gcv.tile = XIMAGE_INSTANCE_XLIKE_PIXMAP (bg_pixmap);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	910 mask \|= (XLIKE_GC_TILE \| XLIKE_GC_FILL);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	911 }
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	912 if (EQ (bg_placement, Qabsolute))
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	913 {
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	914 #ifdef THIS_IS_GTK
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	915 /* #### WARNING: this does not currently work. -- dvl
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	916 gcv.ts_x_origin = - FRAME_GTK_X (f);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	917 gcv.ts_y_origin = - FRAME_GTK_Y (f);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	918 mask \|= (XLIKE_GC_TS_X_ORIGIN \| XLIKE_GC_TS_Y_ORIGIN);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	919 */
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	920 #else
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	921 gcv.ts_x_origin = - FRAME_X_X (f);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	922 gcv.ts_y_origin = - FRAME_X_Y (f);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	923 mask \|= (XLIKE_GC_TS_X_ORIGIN \| XLIKE_GC_TS_Y_ORIGIN);
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	924 #endif
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	925 }
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	926 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	927
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	928 if (!NILP (lwidth))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	929 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	930 gcv.line_width = XINT (lwidth);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	931 mask \|= XLIKE_GC_LINE_WIDTH;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	932 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	933
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	934 #if 0
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	935 debug_out ("\nx_get_gc: calling gc_cache_lookup\n");
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	936 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	937 return gc_cache_lookup (DEVICE_XLIKE_GC_CACHE (d), &gcv, mask);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	938 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	939
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	940 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	941 XLIKE_output_string
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	942
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	943 Given a string and a starting position, output that string in the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	944 given face. If cursor is true, draw a cursor around the string.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	945 Correctly handles multiple charsets in the string.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	946
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	947 The meaning of the parameters is something like this:
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	948
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	949 W Window that the text is to be displayed in.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	950 DL Display line that this text is on. The values in the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	951 structure are used to determine the vertical position and
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	952 clipping range of the text.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	953 BUF Dynamic array of Ichars specifying what is actually to be
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	954 drawn.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	955 XPOS X position in pixels where the text should start being drawn.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	956 XOFFSET Number of pixels to be chopped off the left side of the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	957 text. The effect is as if the text were shifted to the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	958 left this many pixels and clipped at XPOS.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	959 CLIP_START Clip everything left of this X position.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	960 WIDTH Clip everything right of XPOS + WIDTH.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	961 FINDEX Index for the face cache element describing how to display
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	962 the text.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	963 CURSOR #### I don't understand this. There's something
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	964 strange and overcomplexified with this variable.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	965 Chuck, explain please?
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	966 CURSOR_START Starting X position of cursor.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	967 CURSOR_WIDTH Width of cursor in pixels.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	968 CURSOR_HEIGHT Height of cursor in pixels.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	969
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	970 Starting Y position of cursor is the top of the text line.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	971 The cursor is drawn sometimes whether or not CURSOR is set. ???
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	972 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	973 #ifdef THIS_IS_GTK
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	974 static
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	975 void gdk_draw_text_image (GdkDrawable *drawable,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	976 GdkFont *font,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	977 GdkGC *gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	978 gint x,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	979 gint y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	980 const gchar *text,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	981 gint text_length);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	982
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	983 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	984 void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	985 XLIKE_output_string (struct window w, struct display_line dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	986 Ichar_dynarr *buf, int xpos, int xoffset, int clip_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	987 int width, face_index findex, int cursor,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	988 int cursor_start, int cursor_width, int cursor_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	989 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	990 /* General variables */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	991 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	992 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	993 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	994 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	995 Lisp_Object window = wrap_window (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	996
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	997 int clip_end;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	998
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	999 /* Cursor-related variables */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1000 int focus = EQ (w->frame, DEVICE_FRAME_WITH_FOCUS_REAL (d));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1001 int cursor_clip;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1002 Lisp_Object bar_cursor_value = symbol_value_in_buffer (Qbar_cursor,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1003 WINDOW_BUFFER (w));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1004 struct face_cachel *cursor_cachel = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1005
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1006 /* Text-related variables */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1007 Lisp_Object bg_pmap;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1008 XLIKE_GC bgc, gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1009 int height = XLIKE_DISPLAY_LINE_HEIGHT (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1010 int ypos = XLIKE_DISPLAY_LINE_YPOS (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1011 int len = Dynarr_length (buf);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1012 unsigned char text_storage = (unsigned char ) ALLOCA (2 * len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1013 struct textual_run *runs = alloca_array (struct textual_run, len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1014 int nruns;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1015 int i;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1016 struct face_cachel *cachel = WINDOW_FACE_CACHEL (w, findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1017
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1018 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1019 int use_x_font = 1; /* #### bogus!!
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1020 The logic of this function needs review! */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1021 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1022 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1023 Colormap cmap = DEVICE_X_COLORMAP (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1024 Visual *visual = DEVICE_X_VISUAL (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1025 static XftColor fg, bg;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1026 XftDraw *xftDraw;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1027
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1028 /* Lazily initialize frame's xftDraw member. */
5239 f19e6bc25969 Backed out changeset 6466bc9ebf15 Mike Sperber <sperber@deinprogramm.de> parents: 5237 diff changeset	1029 if (!FRAME_X_XFTDRAW (f)) {
f19e6bc25969 Backed out changeset 6466bc9ebf15 Mike Sperber <sperber@deinprogramm.de> parents: 5237 diff changeset	1030 FRAME_X_XFTDRAW (f) = XftDrawCreate (dpy, x_win, visual, cmap);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1031 }
5239 f19e6bc25969 Backed out changeset 6466bc9ebf15 Mike Sperber <sperber@deinprogramm.de> parents: 5237 diff changeset	1032 xftDraw = FRAME_X_XFTDRAW (f);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1033
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1034 /* #### This will probably cause asserts when passed a Lisp integer for a
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1035 color. See ca. line 759 this file.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1036 #### Maybe xft_convert_color should take an XColor, not a pixel. */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1037 #define XFT_FROB_LISP_COLOR(color, dim) \
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1038 xft_convert_color (dpy, cmap, visual, \
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1039 XCOLOR_INSTANCE_X_COLOR (color).pixel, (dim))
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1040 #endif /* USE_XFT */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1041
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1042 if (width < 0)
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4962 diff changeset	1043 width = XLIKE_text_width (w, cachel, Dynarr_begin (buf),
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1044 Dynarr_length (buf));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1045
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1046 /* Regularize the variables passed in. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1047
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1048 if (clip_start < xpos)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1049 clip_start = xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1050 clip_end = xpos + width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1051 if (clip_start >= clip_end)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1052 /* It's all clipped out. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1053 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1054
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1055 xpos -= xoffset;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1056
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1057 /* make sure the area we are about to display is subwindow free. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1058 redisplay_unmap_subwindows_maybe (f, clip_start, ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1059 clip_end - clip_start, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1060
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1061 cursor_clip = (cursor_start >= clip_start &&
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1062 cursor_start < clip_end);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1063
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1064 /* This cursor code is really a mess. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1065 if (!NILP (w->text_cursor_visible_p)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1066 && (cursor
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1067 \|\| cursor_clip
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1068 \|\| (cursor_width
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1069 && (cursor_start + cursor_width >= clip_start)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1070 && !NILP (bar_cursor_value))))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1071 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1072 /* These have to be in separate statements in order to avoid a
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1073 compiler bug. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1074 face_index sucks = get_builtin_face_cache_index (w, Vtext_cursor_face);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1075 cursor_cachel = WINDOW_FACE_CACHEL (w, sucks);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1076
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1077 /* We have to reset this since any call to WINDOW_FACE_CACHEL
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1078 may cause the cache to resize and any pointers to it to
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1079 become invalid. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1080 cachel = WINDOW_FACE_CACHEL (w, findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1081 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1082
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1083 #ifdef HAVE_XIM
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1084 if (cursor && focus && (cursor_start == clip_start) && cursor_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1085 XIM_SetSpotLocation (f, xpos - 2, dl->ypos + dl->descent - 2);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1086 #endif /* HAVE_XIM */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1087
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1088 bg_pmap = cachel->background_pixmap;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1089 if (!IMAGE_INSTANCEP (bg_pmap)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1090 \|\| !IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (bg_pmap)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1091 bg_pmap = Qnil;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1092
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1093 if ((cursor && focus && NILP (bar_cursor_value)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1094 && !NILP (w->text_cursor_visible_p)) \|\| NILP (bg_pmap))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1095 bgc = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1096 else
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1097 bgc = XLIKE_get_gc (f, Qnil, cachel->foreground, cachel->background,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1098 bg_pmap, cachel->background_placement, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1099
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1100 if (bgc)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1101 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1102 XLIKE_FILL_RECTANGLE (dpy, x_win, bgc, clip_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1103 ypos, clip_end - clip_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1104 height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1105 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1106
4967 0d4c9d0f6a8d rewrite dynarr code Ben Wing <ben@xemacs.org> parents: 4962 diff changeset	1107 nruns = separate_textual_runs (text_storage, runs, Dynarr_begin (buf),
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1108 Dynarr_length (buf), cachel);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1109
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1110 for (i = 0; i < nruns; i++)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1111 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1112 Lisp_Object font = FACE_CACHEL_FONT (cachel, runs[i].charset);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1113 Lisp_Font_Instance *fi = XFONT_INSTANCE (font);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1114 int this_width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1115 int need_clipping;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1116
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1117 if (EQ (font, Vthe_null_font_instance))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1118 continue;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1119
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1120 this_width = XLIKE_text_width_single_run (f, cachel, runs + i);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1121 need_clipping = (dl->clip \|\| clip_start > xpos \|\|
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1122 clip_end < xpos + this_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1123
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1124 /* XDrawImageString only clears the area equal to the height of
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1125 the given font. It is possible that a font is being displayed
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1126 on a line taller than it is, so this would cause us to fail to
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1127 clear some areas. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1128 if ((int) fi->height < (int) (height + dl->clip +
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1129 XLIKE_DISPLAY_LINE_TOP_CLIP (dl)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1130 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1131 int clear_start = max (xpos, clip_start);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1132 int clear_end = min (xpos + this_width, clip_end);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1133
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1134 if (cursor)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1135 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1136 int ypos1_line, ypos1_string, ypos2_line, ypos2_string;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1137
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1138 ypos1_string = dl->ypos - fi->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1139 ypos2_string = dl->ypos + fi->descent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1140 ypos1_line = ypos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1141 ypos2_line = ypos1_line + height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1142
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1143 /* Make sure we don't clear below the real bottom of the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1144 line. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1145 if (ypos1_string > ypos2_line)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1146 ypos1_string = ypos2_line;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1147 if (ypos2_string > ypos2_line)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1148 ypos2_string = ypos2_line;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1149
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1150 if (ypos1_line < ypos1_string)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1151 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1152 redisplay_clear_region (window, findex, clear_start, ypos1_line,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1153 clear_end - clear_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1154 ypos1_string - ypos1_line);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1155 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1156
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1157 if (ypos2_line > ypos2_string)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1158 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1159 redisplay_clear_region (window, findex, clear_start, ypos2_string,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1160 clear_end - clear_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1161 ypos2_line - ypos2_string);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1162 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1163 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1164 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1165 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1166 redisplay_clear_region (window, findex, clear_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1167 ypos, clear_end - clear_start,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1168 height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1169 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1170 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1171
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1172 if (cursor && cursor_cachel && focus && NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1173 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1174 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1175 fg = XFT_FROB_LISP_COLOR (cursor_cachel->foreground, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1176 bg = XFT_FROB_LISP_COLOR (cursor_cachel->background, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1177 #endif
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1178 gc = XLIKE_get_gc (f, font, cursor_cachel->foreground,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1179 cursor_cachel->background, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1180 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1181 else if (cachel->dim)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1182 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1183 /* Ensure the gray bitmap exists */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1184 if (DEVICE_XLIKE_GRAY_PIXMAP (d) == XLIKE_NONE)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1185 DEVICE_XLIKE_GRAY_PIXMAP (d) =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1186 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1187 XCreateBitmapFromData (dpy, x_win, (char *)gray_bits,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1188 gray_width, gray_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1189 #else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1190 /* #### FIXME! Implement me! */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1191 XLIKE_NONE
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1192 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1193 ;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1194
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1195 /* Request a GC with the gray stipple pixmap to draw dimmed text */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1196 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1197 fg = XFT_FROB_LISP_COLOR (cachel->foreground, 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1198 bg = XFT_FROB_LISP_COLOR (cachel->background, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1199 #endif
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1200 gc = XLIKE_get_gc (f, font, cachel->foreground, cachel->background,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1201 Qdim, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1202 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1203 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1204 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1205 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1206 fg = XFT_FROB_LISP_COLOR (cachel->foreground, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1207 bg = XFT_FROB_LISP_COLOR (cachel->background, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1208 #endif
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1209 gc = XLIKE_get_gc (f, font, cachel->foreground, cachel->background,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1210 Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1211 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1212 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1213 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1214 XftFont *rf = FONT_INSTANCE_X_XFTFONT (fi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1215
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1216 if (rf)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1217 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1218 use_x_font = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1219 if (need_clipping)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1220 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1221 Region clip_reg = XCreateRegion();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1222 XRectangle clip_box = { clip_start, ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1223 clip_end - clip_start, height };
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1224
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1225 XUnionRectWithRegion (&clip_box, clip_reg, clip_reg);
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1226 XftDrawSetClip (xftDraw, clip_reg);
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1227 XDestroyRegion (clip_reg);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1228 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1229
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1230 if (!bgc)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1231 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1232 /* #### Neither rect_height nor XftTextExtents as computed
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1233 below handles the vertical space taken up by antialiasing,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1234 which for some fonts (eg, Bitstream Vera Sans Mono-16 on
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1235 my Mac PowerBook G4) leaves behind orphaned dots on
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1236 insertion or deletion earlier in the line, especially in
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1237 the case of the underscore character.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1238 Interestingly, insertion or deletion of a single character
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1239 immediately after a refresh does not leave any droppings,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1240 but any further insertions or deletions do.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1241 While adding a pixel to rect_height (mostly) takes care of
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1242 this, it trashes aggressively laid-out elements like the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1243 modeline (overwriting part of the bevel).
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1244 OK, unconditionally redraw the bevel, and increment
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1245 rect_height by 1. See x_output_display_block. -- sjt */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1246 struct textual_run *run = &runs[i];
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1247 int rect_width = x_text_width_single_run (f, cachel, run);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1248 #ifndef USE_XFTTEXTENTS_TO_AVOID_FONT_DROPPINGS
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1249 int rect_height = FONT_INSTANCE_ASCENT (fi)
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1250 + FONT_INSTANCE_DESCENT (fi) + 1;
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1251 #else
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1252 int rect_height = FONT_INSTANCE_ASCENT (fi)
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1253 + FONT_INSTANCE_DESCENT (fi);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1254 XGlyphInfo gi;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1255 if (run->dimension == 2) {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1256 XftTextExtents16 (dpy,
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1257 FONT_INSTANCE_X_XFTFONT (fi),
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1258 (XftChar16 *) run->ptr, run->len, &gi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1259 } else {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1260 XftTextExtents8 (dpy,
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1261 FONT_INSTANCE_X_XFTFONT (fi),
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1262 run->ptr, run->len, &gi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1263 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1264 rect_height = rect_height > gi.height
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1265 ? rect_height : gi.height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1266 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1267
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1268 XftDrawRect (xftDraw, &bg,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1269 xpos, ypos, rect_width, rect_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1270 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1271
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1272 if (runs[i].dimension == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1273 XftDrawString8 (xftDraw, &fg, rf, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1274 runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1275 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1276 XftDrawString16 (xftDraw, &fg, rf, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1277 (XftChar16 *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1278 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1279 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1280 #endif /* USE_XFT */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1281
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1282 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1283 if (use_x_font)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1284 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1285 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1286 if (need_clipping)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1287 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1288 XLIKE_RECTANGLE clip_box;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1289
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1290 clip_box.x = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1291 clip_box.y = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1292 clip_box.width = clip_end - clip_start;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1293 clip_box.height = height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1294
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1295 XLIKE_SET_CLIP_RECTANGLE (dpy, gc, clip_start, ypos, &clip_box);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1296 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1297
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1298 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1299 if (runs[i].dimension == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1300 (bgc ? XDrawString : XDrawImageString)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1301 (dpy, x_win, gc, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1302 (char *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1303 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1304 (bgc ? XDrawString16 : XDrawImageString16)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1305 (dpy, x_win, gc, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1306 (XChar2b *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1307 #else /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1308
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1309 /* The X specific called different functions (XDraw*String
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1310 vs. XDraw*String16), but apparently gdk_draw_text takes care
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1311 of that for us.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1312
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1313 BUT, gdk_draw_text also does too much, by dividing the length
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1314 by 2. So we fake them out my multiplying the length by the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1315 dimension of the text. This will do the right thing for
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1316 single-dimension runs as well of course.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1317 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1318 (bgc ? gdk_draw_text : gdk_draw_text_image)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1319 (GDK_DRAWABLE (x_win), FONT_INSTANCE_GTK_FONT (fi), gc, xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1320 dl->ypos, (char ) runs[i].ptr, runs[i].len runs[i].dimension);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1321 #endif /* (not) THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1322 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1323
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1324 /* We draw underlines in the same color as the text. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1325 if (cachel->underline)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1326 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1327 int upos, uthick;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1328 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1329 unsigned long upos_ext, uthick_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1330 XFontStruct *fs =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1331 use_x_font ? FONT_INSTANCE_X_FONT (XFONT_INSTANCE (font)) : 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1332 /* #### the logic of the next two may be suboptimal: we may want
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1333 to use the POSITION and/or THICKNESS information with Xft */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1334 if (fs && XGetFontProperty (fs, XA_UNDERLINE_POSITION, &upos_ext))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1335 upos = (int) upos_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1336 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1337 #else /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1338 /* Cannot get at font properties in Gtk, so we resort to
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1339 guessing */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1340 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1341 upos = dl->descent / 2;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1342 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1343 if (fs && XGetFontProperty (fs, XA_UNDERLINE_THICKNESS, &uthick_ext))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1344 uthick = (int) uthick_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1345 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1346 #endif /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1347 uthick = 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1348 if (dl->ypos + upos < dl->ypos + dl->descent - dl->clip)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1349 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1350 if (dl->ypos + upos + uthick > dl->ypos + dl->descent - dl->clip)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1351 uthick = dl->descent - dl->clip - upos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1352
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1353 if (uthick == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1354 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1355 XLIKE_DRAW_LINE (dpy, x_win, gc, xpos, dl->ypos + upos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1356 xpos + this_width, dl->ypos + upos);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1357 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1358 else if (uthick > 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1359 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1360 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1361 dl->ypos + upos, this_width, uthick);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1362 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1363 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1364 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1365
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1366 if (cachel->strikethru)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1367 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1368 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1369 int ascent, descent, upos, uthick;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1370 unsigned long ascent_ext, descent_ext, uthick_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1371 XFontStruct *fs = FONT_INSTANCE_X_FONT (fi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1372 #else /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1373 gint ascent, descent, upos, uthick;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1374 GdkFont *gfont = FONT_INSTANCE_GTK_FONT (fi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1375 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1376
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1377 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1378 if (!use_x_font)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1379 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1380 ascent = dl->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1381 descent = dl->descent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1382 uthick = 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1383 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1384 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1385 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1386 if (!XGetFontProperty (fs, XA_STRIKEOUT_ASCENT, &ascent_ext))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1387 ascent = fs->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1388 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1389 ascent = (int) ascent_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1390 if (!XGetFontProperty (fs, XA_STRIKEOUT_DESCENT, &descent_ext))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1391 descent = fs->descent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1392 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1393 descent = (int) descent_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1394 if (!XGetFontProperty (fs, XA_UNDERLINE_THICKNESS, &uthick_ext))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1395 uthick = 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1396 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1397 uthick = (int) uthick_ext;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1398 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1399 #else /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1400 /* Cannot get at font properties in Gtk, so we resort to
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1401 guessing */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1402
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1403 ascent = gfont->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1404 descent = gfont->descent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1405 uthick = 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1406 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1407
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1408 upos = ascent - ((ascent + descent) / 2) + 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1409
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1410 /* Generally, upos will be positive (above the baseline),so
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1411 subtract */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1412 if (dl->ypos - upos < dl->ypos + dl->descent - dl->clip)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1413 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1414 if (dl->ypos - upos + uthick > dl->ypos + dl->descent - dl->clip)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1415 uthick = dl->descent - dl->clip + upos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1416
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1417 if (uthick == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1418 XLIKE_DRAW_LINE (dpy, x_win, gc, xpos, dl->ypos - upos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1419 xpos + this_width, dl->ypos - upos);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1420 else if (uthick > 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1421 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, xpos, dl->ypos + upos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1422 this_width, uthick);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1423 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1424 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1425
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1426 /* Restore the GC */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1427 if (need_clipping)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1428 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1429 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1430 if (!use_x_font)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1431 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1432 XftDrawSetClip (xftDraw, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1433 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1434 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1435 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1436 XLIKE_CLEAR_CLIP_MASK (dpy, gc);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1437 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1438
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1439 /* If we are actually superimposing the cursor then redraw with just
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1440 the appropriate section highlighted. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1441 if (cursor_clip && !cursor && focus && cursor_cachel)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1442 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1443 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1444 if (!use_x_font) /* Xft */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1445 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1446 XftFont *rf = FONT_INSTANCE_X_XFTFONT (fi);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1447
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1448 { /* set up clipping */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1449 Region clip_reg = XCreateRegion();
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1450 XRectangle clip_box = { cursor_start, ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1451 cursor_width, height };
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1452
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1453 XUnionRectWithRegion (&clip_box, clip_reg, clip_reg);
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1454 XftDrawSetClip (xftDraw, clip_reg);
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1455 XDestroyRegion (clip_reg);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1456 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1457 { /* draw background rectangle & draw text */
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1458 int rect_height = FONT_INSTANCE_ASCENT (fi)
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1459 + FONT_INSTANCE_DESCENT (fi);
bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1460 int rect_width = x_text_width_single_run (f, cachel, &runs[i]);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1461 XftColor xft_color;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1462
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1463 xft_color = XFT_FROB_LISP_COLOR (cursor_cachel->background, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1464 XftDrawRect (xftDraw, &xft_color,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1465 xpos, ypos, rect_width, rect_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1466
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1467 xft_color = XFT_FROB_LISP_COLOR (cursor_cachel->foreground, 0);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1468 if (runs[i].dimension == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1469 XftDrawString8 (xftDraw, &xft_color, rf, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1470 runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1471 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1472 XftDrawString16 (xftDraw, &xft_color, rf, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1473 (XftChar16 *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1474 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1475
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1476 XftDrawSetClip (xftDraw, 0);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1477 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1478 else /* core font, not Xft */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1479 #endif /* USE_XFT */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1480 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1481 XLIKE_RECTANGLE clip_box;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1482 XLIKE_GC cgc;
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1483 cgc = XLIKE_get_gc (f, font, cursor_cachel->foreground,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1484 cursor_cachel->background, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1485
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1486 clip_box.x = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1487 clip_box.y = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1488 clip_box.width = cursor_width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1489 clip_box.height = height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1490
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1491 XLIKE_SET_CLIP_RECTANGLE (dpy, cgc, cursor_start, ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1492 &clip_box);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1493 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1494 if (runs[i].dimension == 1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1495 XDrawImageString (dpy, x_win, cgc, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1496 (char *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1497 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1498 XDrawImageString16 (dpy, x_win, cgc, xpos, dl->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1499 (XChar2b *) runs[i].ptr, runs[i].len);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1500 #else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1501 /* The X specific called different functions (XDraw*String
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1502 vs. XDraw*String16), but apparently gdk_draw_text takes care
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1503 of that for us.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1504
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1505 BUT, gdk_draw_text also does too much, by dividing the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1506 length by 2. So we fake them out my multiplying the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1507 length by the dimension of the text. This will do the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1508 right thing for single-dimension runs as well of course.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1509 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1510 gdk_draw_text_image (GDK_DRAWABLE (x_win),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1511 FONT_INSTANCE_GTK_FONT (fi), cgc, xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1512 dl->ypos, (char *) runs[i].ptr,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1513 runs[i].len * runs[i].dimension);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1514 #endif /* (not) THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1515
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1516 XLIKE_CLEAR_CLIP_MASK (dpy, cgc);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1517 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1518 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1519
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1520 xpos += this_width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1521 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1522
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1523 /* Draw the non-focus box or bar-cursor as needed. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1524 /* Can't this logic be simplified? */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1525 if (cursor_cachel
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1526 && ((cursor && !focus && NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1527 \|\| (cursor_width
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1528 && (cursor_start + cursor_width >= clip_start)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1529 && !NILP (bar_cursor_value))))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1530 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1531 int tmp_height, tmp_y;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1532 int bar_width = EQ (bar_cursor_value, Qt) ? 1 : 2;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1533 int need_clipping = (cursor_start < clip_start
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1534 \|\| clip_end < cursor_start + cursor_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1535
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1536 /* #### This value is correct (as far as I know) because
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1537 all of the times we need to draw this cursor, we will
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1538 be called with exactly one character, so we know we
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1539 can always use runs[0].
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1540
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1541 This is bogus as all hell, however. The cursor handling in
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1542 this function is way bogus and desperately needs to be
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1543 cleaned up. (In particular, the drawing of the cursor should
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1544 really really be separated out of this function. This may be
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1545 a bit tricky now because this function itself does way too
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1546 much stuff, a lot of which needs to be moved into
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1547 redisplay.c.) This is the only way to be able to easily add
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1548 new cursor types or (e.g.) make the bar cursor be able to
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1549 span two characters instead of overlaying just one. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1550 int bogusly_obtained_ascent_value =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1551 XFONT_INSTANCE (FACE_CACHEL_FONT (cachel, runs[0].charset))->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1552
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1553 if (!NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1554 {
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1555 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1556 Qnil, Qnil,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1557 make_int (bar_width));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1558 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1559 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1560 {
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1561 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1562 Qnil, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1563 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1564
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1565 tmp_y = dl->ypos - bogusly_obtained_ascent_value;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1566 tmp_height = cursor_height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1567 if (tmp_y + tmp_height > (int) (ypos + height))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1568 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1569 tmp_y = ypos + height - tmp_height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1570 if (tmp_y < (int) ypos)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1571 tmp_y = ypos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1572 tmp_height = ypos + height - tmp_y;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1573 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1574
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1575 if (need_clipping)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1576 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1577 XLIKE_RECTANGLE clip_box;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1578 clip_box.x = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1579 clip_box.y = 0;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1580 clip_box.width = clip_end - clip_start;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1581 clip_box.height = tmp_height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1582 XLIKE_SET_CLIP_RECTANGLE (dpy, gc, clip_start, tmp_y, &clip_box);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1583 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1584
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1585 if (!focus && NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1586 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1587 XLIKE_DRAW_RECTANGLE (dpy, x_win, gc, cursor_start, tmp_y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1588 cursor_width - 1, tmp_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1589 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1590 else if (focus && !NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1591 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1592 XLIKE_DRAW_LINE (dpy, x_win, gc, cursor_start + bar_width - 1, tmp_y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1593 cursor_start + bar_width - 1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1594 tmp_y + tmp_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1595 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1596
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1597 /* Restore the GC */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1598 if (need_clipping)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1599 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1600 XLIKE_CLEAR_CLIP_MASK (dpy, gc);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1601 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1602 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1603
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1604 #ifdef USE_XFT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1605 #undef XFT_FROB_LISP_COLOR
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1606 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1607 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1608
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1609 #ifdef THIS_IS_GTK
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1610 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1611 our_draw_bitmap (GdkDrawable *drawable,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1612 GdkGC *gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1613 GdkPixmap *src,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1614 gint xsrc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1615 gint ysrc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1616 gint xdest,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1617 gint ydest,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1618 gint width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1619 gint height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1620 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1621
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1622
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1623 static void
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1624 XLIKE_output_xlike_pixmap (struct frame f, Lisp_Image_Instance p, int x,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1625 int y, int xoffset, int yoffset,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1626 int width, int height,
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1627 XLIKE_COLOR fg, XLIKE_COLOR bg,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1628 XLIKE_GC override_gc)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1629 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1630 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1631 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1632 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1633 XLIKE_GC gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1634 XLIKE_GCVALUES gcv;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1635 unsigned long pixmap_mask;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1636
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1637 if (!override_gc)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1638 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1639 memset (&gcv, ~0, sizeof (gcv));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1640 gcv.graphics_exposures = XLIKE_FALSE;
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1641 XLIKE_SET_GC_COLOR (gcv.foreground, fg);
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1642 XLIKE_SET_GC_COLOR (gcv.background, bg);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1643 pixmap_mask = XLIKE_GC_FOREGROUND \| XLIKE_GC_BACKGROUND \| XLIKE_GC_EXPOSURES;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1644
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1645 if (IMAGE_INSTANCE_XLIKE_MASK (p))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1646 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1647 gcv.function = XLIKE_GX_COPY;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1648 gcv.clip_mask = IMAGE_INSTANCE_XLIKE_MASK (p);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1649 gcv.clip_x_origin = x - xoffset;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1650 gcv.clip_y_origin = y - yoffset;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1651 pixmap_mask \|= (XLIKE_GC_FUNCTION \| XLIKE_GC_CLIP_MASK \|
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1652 XLIKE_GC_CLIP_X_ORIGIN \|
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1653 XLIKE_GC_CLIP_Y_ORIGIN);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1654 /* Can't set a clip rectangle below because we already have a mask.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1655 We could conceivably create a new clipmask by zeroing out
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1656 everything outside the clip region. Is it worth it?
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1657 Is it possible to get an equivalent effect by changing the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1658 args to XCopyArea below rather than messing with a clip box?
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1659 - dkindred@cs.cmu.edu
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1660 Yes. We don't clip at all now - andy@xemacs.org
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1661 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1662 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1663
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1664 gc = gc_cache_lookup (DEVICE_XLIKE_GC_CACHE (d), &gcv, pixmap_mask);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1665 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1666 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1667 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1668 gc = override_gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1669 /* override_gc might have a mask already--we don't want to nuke it.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1670 Maybe we can insist that override_gc have no mask, or use
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1671 one of the suggestions above. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1672 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1673
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1674 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1675 /* depth of 0 means it's a bitmap, not a pixmap, and we should use
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1676 XCopyPlane (1 = current foreground color, 0 = background) instead
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1677 of XCopyArea, which means that the bits in the pixmap are actual
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1678 pixel values, instead of symbolic of fg/bg. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1679 #endif /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1680 if (IMAGE_INSTANCE_PIXMAP_DEPTH (p) > 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1681 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1682 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1683 XCopyArea (dpy,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1684 IMAGE_INSTANCE_X_PIXMAP_SLICE
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1685 (p, IMAGE_INSTANCE_PIXMAP_SLICE (p)), x_win, gc, xoffset,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1686 yoffset, width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1687 height, x, y);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1688 #else /* THIS_IS_GTK */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1689 USED (dpy);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1690 gdk_draw_pixmap (GDK_DRAWABLE (x_win), gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1691 IMAGE_INSTANCE_GTK_PIXMAP (p),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1692 xoffset, yoffset, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1693 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1694 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1695 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1696 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1697 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1698 XCopyPlane (dpy, IMAGE_INSTANCE_X_PIXMAP_SLICE
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1699 (p, IMAGE_INSTANCE_PIXMAP_SLICE (p)), x_win, gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1700 xoffset, yoffset, width, height, x, y, 1L);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1701 #else /* THIS_IS_GTK */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1702 USED (dpy);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1703 our_draw_bitmap (GDK_DRAWABLE (x_win), gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1704 IMAGE_INSTANCE_GTK_PIXMAP (p),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1705 xoffset, yoffset, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1706 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1707 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1708 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1709
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1710 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1711 XLIKE_output_pixmap (struct window *w, Lisp_Object image_instance,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1712 struct display_box db, struct display_glyph_area dga,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1713 face_index findex, int cursor_start, int cursor_width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1714 int cursor_height, int UNUSED (bg_pixmap))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1715 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1716 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1717 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1718 Lisp_Image_Instance *p = XIMAGE_INSTANCE (image_instance);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1719 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1720 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1721
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1722 /* Output the pixmap. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1723 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1724 Lisp_Object tmp_pixel;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1725 XLIKE_COLOR tmp_bcolor, tmp_fcolor;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1726
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1727 tmp_pixel = WINDOW_FACE_CACHEL_FOREGROUND (w, findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1728 tmp_fcolor = XCOLOR_INSTANCE_XLIKE_COLOR (tmp_pixel);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1729 tmp_pixel = WINDOW_FACE_CACHEL_BACKGROUND (w, findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1730 tmp_bcolor = XCOLOR_INSTANCE_XLIKE_COLOR (tmp_pixel);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1731
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1732 XLIKE_output_xlike_pixmap (f, p, db->xpos, db->ypos,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1733 dga->xoffset, dga->yoffset,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1734 dga->width, dga->height,
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1735 tmp_fcolor, tmp_bcolor, 0);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1736 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1737
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1738 /* Draw a cursor over top of the pixmap. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1739 if (cursor_width && cursor_height && (cursor_start >= db->xpos)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1740 && !NILP (w->text_cursor_visible_p)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1741 && (cursor_start < db->xpos + dga->width))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1742 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1743 XLIKE_GC gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1744 int focus = EQ (w->frame, DEVICE_FRAME_WITH_FOCUS_REAL (d));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1745 struct face_cachel *cursor_cachel =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1746 WINDOW_FACE_CACHEL (w,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1747 get_builtin_face_cache_index
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1748 (w, Vtext_cursor_face));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1749
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1750 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background, Qnil, Qnil, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1751 Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1752
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1753 if (cursor_width > db->xpos + dga->width - cursor_start)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1754 cursor_width = db->xpos + dga->width - cursor_start;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1755
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1756 if (focus)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1757 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, cursor_start, db->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1758 cursor_width, cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1759 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1760 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1761 XLIKE_DRAW_RECTANGLE (dpy, x_win, gc, cursor_start, db->ypos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1762 cursor_width, cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1763 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1764 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1765 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1766
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1767 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1768 XLIKE_output_vertical_divider
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1769
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1770 Draw a vertical divider down the right side of the given window.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1771 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1772 static void
5198 bc3ede8f29a8 fix spacing in some files Ben Wing <ben@xemacs.org> parents: 5090 diff changeset	1773 XLIKE_output_vertical_divider (struct window *w, int USED_IF_X (clear))
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1774 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1775 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1776 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1777
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1778 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1779 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1780 Lisp_Object tmp_pixel;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1781 XLIKE_GCVALUES gcv;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1782 XLIKE_GC background_gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1783 enum edge_style style;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1784 unsigned long mask;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1785 int x, y1, y2, width, shadow_thickness, spacing, line_width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1786 face_index div_face =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1787 get_builtin_face_cache_index (w, Vvertical_divider_face);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1788
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1789 width = window_divider_width (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1790 shadow_thickness = XINT (w->vertical_divider_shadow_thickness);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1791 spacing = XINT (w->vertical_divider_spacing);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1792 line_width = XINT (w->vertical_divider_line_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1793 x = WINDOW_RIGHT (w) - width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1794 y1 = WINDOW_TOP (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1795 y2 = WINDOW_BOTTOM (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1796
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1797 memset (&gcv, ~0, sizeof (gcv));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1798
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1799 tmp_pixel = WINDOW_FACE_CACHEL_BACKGROUND (w, div_face);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1800
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1801 /* First, get the GC's. */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1802 XLIKE_SET_GC_COLOR (gcv.background, XCOLOR_INSTANCE_XLIKE_COLOR (tmp_pixel));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1803 gcv.foreground = gcv.background;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1804 gcv.graphics_exposures = XLIKE_FALSE;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1805 mask = XLIKE_GC_FOREGROUND \| XLIKE_GC_BACKGROUND \| XLIKE_GC_EXPOSURES;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1806
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1807 background_gc = gc_cache_lookup (DEVICE_XLIKE_GC_CACHE (d), &gcv, mask);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1808
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1809 /* Clear the divider area first. This needs to be done when a
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1810 window split occurs. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1811 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1812 if (clear)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1813 XClearArea (dpy, x_win, x, y1, width, y2 - y1, False);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1814 #else /* THIS_IS_GTK */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1815 USED (dpy);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1816 /* if (clear) */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1817 gdk_draw_rectangle (GDK_DRAWABLE (x_win), background_gc, TRUE,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1818 x, y1, width, y2 - y1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1819 #endif /* THIS_IS_GTK */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1820
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1821 #ifndef THIS_IS_GTK
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1822 /* #### FIXME Why not? Formerly '#if 0' in the GDK code */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1823 /* Draw the divider line. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1824 XLIKE_FILL_RECTANGLE (dpy, x_win, background_gc,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1825 x + spacing + shadow_thickness, y1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1826 line_width, y2 - y1);
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1827 #endif /* not THIS_IS_GTK */
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1828
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1829 if (shadow_thickness < 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1830 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1831 shadow_thickness = -shadow_thickness;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1832 style = EDGE_BEVEL_IN;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1833 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1834 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1835 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1836 style = EDGE_BEVEL_OUT;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1837 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1838
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1839 /* Draw the shadows around the divider line */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1840 XLIKE_bevel_area (w, div_face, x + spacing, y1,
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1841 width - 2 * spacing, y2 - y1,
b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	1842 shadow_thickness, EDGE_ALL, style);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1843 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1844
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1845 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1846 XLIKE_output_blank
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1847
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1848 Output a blank by clearing the area it covers in the foreground color
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1849 of its face.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1850 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1851 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1852 XLIKE_output_blank (struct window w, struct display_line dl, struct rune *rb,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1853 int start_pixpos, int cursor_start, int cursor_width)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1854 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1855 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1856 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1857
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1858 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1859 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1860 XLIKE_GC gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1861 struct face_cachel *cursor_cachel =
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1862 WINDOW_FACE_CACHEL (w,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1863 get_builtin_face_cache_index
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1864 (w, Vtext_cursor_face));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1865 Lisp_Object bg_pmap;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1866 Lisp_Object buffer = WINDOW_BUFFER (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1867 Lisp_Object bar_cursor_value = symbol_value_in_buffer (Qbar_cursor,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1868 buffer);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1869
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1870 int x = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1871 int y = XLIKE_DISPLAY_LINE_YPOS (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1872 int height = XLIKE_DISPLAY_LINE_HEIGHT (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1873 int width = rb->width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1874
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1875 /* Unmap all subwindows in the area we are going to blank. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1876 redisplay_unmap_subwindows_maybe (f, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1877
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1878 if (start_pixpos > x)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1879 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1880 if (start_pixpos >= (x + width))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1881 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1882 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1883 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1884 width -= (start_pixpos - x);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1885 x = start_pixpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1886 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1887 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1888
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1889 bg_pmap = WINDOW_FACE_CACHEL_BACKGROUND_PIXMAP (w, rb->findex);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1890 if (!IMAGE_INSTANCEP (bg_pmap)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1891 \|\| !IMAGE_INSTANCE_PIXMAP_TYPE_P (XIMAGE_INSTANCE (bg_pmap)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1892 bg_pmap = Qnil;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1893
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1894 if (NILP (bg_pmap))
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1895 gc = XLIKE_get_gc (f, Qnil, WINDOW_FACE_CACHEL_BACKGROUND (w, rb->findex),
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1896 Qnil, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1897 else
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1898 gc = XLIKE_get_gc (f, Qnil, WINDOW_FACE_CACHEL_FOREGROUND (w, rb->findex),
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1899 WINDOW_FACE_CACHEL_BACKGROUND (w, rb->findex),
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1900 bg_pmap,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1901 WINDOW_FACE_CACHEL_BACKGROUND_PLACEMENT (w, rb->findex),
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1902 Qnil);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1903
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1904 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1905
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1906 /* If this rune is marked as having the cursor, then it is actually
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1907 representing a tab. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1908 if (!NILP (w->text_cursor_visible_p)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1909 && (rb->cursor_type == CURSOR_ON
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1910 \|\| (cursor_width
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1911 && (cursor_start + cursor_width > x)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1912 && cursor_start < (x + width))))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1913 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1914 int cursor_height, cursor_y;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1915 int focus = EQ (w->frame, DEVICE_FRAME_WITH_FOCUS_REAL (d));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1916 Lisp_Font_Instance *fi;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1917
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1918 fi = XFONT_INSTANCE (FACE_CACHEL_FONT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1919 (WINDOW_FACE_CACHEL (w, rb->findex),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1920 Vcharset_ascii));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1921
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1922 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1923 Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1924
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1925 cursor_y = dl->ypos - fi->ascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1926 cursor_height = fi->height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1927 if (cursor_y + cursor_height > y + height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1928 cursor_height = y + height - cursor_y;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1929
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1930 if (focus)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1931 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1932 if (NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1933 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1934 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, cursor_start, cursor_y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1935 fi->width, cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1936 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1937 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1938 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1939 int bar_width = EQ (bar_cursor_value, Qt) ? 1 : 2;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1940
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1941 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1942 Qnil, Qnil, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1943 make_int (bar_width));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1944 XLIKE_DRAW_LINE (dpy, x_win, gc, cursor_start + bar_width - 1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1945 cursor_y, cursor_start + bar_width - 1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1946 cursor_y + cursor_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1947 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1948 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1949 else if (NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1950 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1951 XLIKE_DRAW_RECTANGLE (dpy, x_win, gc, cursor_start, cursor_y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1952 fi->width - 1, cursor_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1953 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1954 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1955 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1956
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1957 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1958 XLIKE_output_horizontal_line
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1959
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1960 Output a horizontal line in the foreground of its face.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1961 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1962 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1963 XLIKE_output_horizontal_line (struct window w, struct display_line dl,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1964 struct rune *rb)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1965 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1966 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1967 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1968
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1969 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1970 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1971 XLIKE_GC gc;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1972
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1973 int x = rb->xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1974 int width = rb->width;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1975 int height = XLIKE_DISPLAY_LINE_HEIGHT (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1976 int ypos1, ypos2, ypos3, ypos4;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1977
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1978 ypos1 = XLIKE_DISPLAY_LINE_YPOS (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1979 ypos2 = ypos1 + rb->object.hline.yoffset;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1980 ypos3 = ypos2 + rb->object.hline.thickness;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1981 ypos4 = dl->ypos + dl->descent - dl->clip;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1982
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1983 /* First clear the area not covered by the line. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1984 if (height - rb->object.hline.thickness > 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1985 {
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	1986 gc = XLIKE_get_gc (f, Qnil,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1987 WINDOW_FACE_CACHEL_FOREGROUND (w, rb->findex),
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	1988 Qnil, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1989
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1990 if (ypos2 - ypos1 > 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1991 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, ypos1, width, ypos2 - ypos1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1992 if (ypos4 - ypos3 > 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1993 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, ypos1, width, ypos2 - ypos1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1994 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1995
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1996 #ifdef THIS_IS_GTK
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1997 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1998 GtkStyle *style = FRAME_GTK_TEXT_WIDGET (f)->style;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	1999 gtk_paint_hline (style, x_win, GTK_STATE_NORMAL, NULL,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2000 FRAME_GTK_TEXT_WIDGET (f), "hline", x, x + width, ypos2);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2001 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2002 #else /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2003 /* Now draw the line. */
5074 8af6a32b170d Modify XLIKE_get_gc's prototype Didier Verna <didier@lrde.epita.fr> parents: 5047 diff changeset	2004 gc = XLIKE_get_gc (f, Qnil, WINDOW_FACE_CACHEL_BACKGROUND (w, rb->findex),
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2005 Qnil, Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2006
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2007 if (ypos2 < ypos1)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2008 ypos2 = ypos1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2009 if (ypos3 > ypos4)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2010 ypos3 = ypos4;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2011
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2012 if (ypos3 - ypos2 > 0)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2013 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, ypos2, width, ypos3 - ypos2);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2014 #endif /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2015 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2016
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2017 /****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2018 XLIKE_clear_region
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2019
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2020 Clear the area in the box defined by the given parameters using the
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2021 given face.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2022 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2023 static void
5515 f87be7ddd60d Simplify clear_region interface. Didier Verna <didier@lrde.epita.fr> parents: 5402 diff changeset	2024 XLIKE_clear_region (Lisp_Object UNUSED (locale), struct frame* f,
f87be7ddd60d Simplify clear_region interface. Didier Verna <didier@lrde.epita.fr> parents: 5402 diff changeset	2025 face_index UNUSED (findex),
f87be7ddd60d Simplify clear_region interface. Didier Verna <didier@lrde.epita.fr> parents: 5402 diff changeset	2026 int x, int y, int width, int height,
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2027 Lisp_Object fcolor, Lisp_Object bcolor,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2028 Lisp_Object background_pixmap,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2029 Lisp_Object background_placement)
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2030 {
5515 f87be7ddd60d Simplify clear_region interface. Didier Verna <didier@lrde.epita.fr> parents: 5402 diff changeset	2031 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (XDEVICE (f->device));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2032 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2033 XLIKE_GC gc = NULL;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2034
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2035 if (!UNBOUNDP (background_pixmap))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2036 {
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2037 gc = XLIKE_get_gc (f, Qnil, fcolor, bcolor,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2038 background_pixmap, background_placement, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2039 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2040
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2041 if (gc)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2042 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2043 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2044 XLIKE_CLEAR_AREA (dpy, x_win, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2045 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2046
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2047 /*****************************************************************************
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2048 xlike_output_eol_cursor
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2049
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2050 Draw a cursor at the end of a line. The end-of-line cursor is
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2051 narrower than the normal cursor.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2052 ****************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2053 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2054 XLIKE_output_eol_cursor (struct window w, struct display_line dl, int xpos,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2055 face_index findex)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2056 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2057 struct frame *f = XFRAME (w->frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2058 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2059 Lisp_Object window;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2060
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2061 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2062 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2063 XLIKE_GC gc = NULL;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2064 face_index elt = get_builtin_face_cache_index (w, Vtext_cursor_face);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2065 struct face_cachel *cursor_cachel = WINDOW_FACE_CACHEL (w, elt);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2066
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2067 int focus = EQ (w->frame, DEVICE_FRAME_WITH_FOCUS_REAL (d));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2068 Lisp_Object bar_cursor_value = symbol_value_in_buffer (Qbar_cursor,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2069 WINDOW_BUFFER (w));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2070
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2071 int x = xpos;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2072 int y = XLIKE_DISPLAY_LINE_YPOS (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2073 int width = EOL_CURSOR_WIDTH;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2074 int height = XLIKE_DISPLAY_LINE_HEIGHT (dl);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2075 int cursor_height, cursor_y;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2076 int defheight, defascent;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2077
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2078 window = wrap_window (w);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2079 redisplay_clear_region (window, findex, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2080
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2081 if (NILP (w->text_cursor_visible_p))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2082 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2083
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2084 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2085 Qnil, Qnil, Qnil);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2086
5047 07dcc7000bbf put width before height consistently, fix a real bug found in the process Ben Wing <ben@xemacs.org> parents: 4967 diff changeset	2087 default_face_font_info (window, &defascent, 0, 0, &defheight, 0);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2088
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2089 /* make sure the cursor is entirely contained between y and y+height */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2090 cursor_height = min (defheight, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2091 cursor_y = max (y, min (y + height - cursor_height,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2092 dl->ypos - defascent));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2093
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2094 if (focus)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2095 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2096 #ifdef HAVE_XIM
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2097 XIM_SetSpotLocation (f, x - 2 , cursor_y + cursor_height - 2);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2098 #endif /* HAVE_XIM */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2099
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2100 if (NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2101 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2102 XLIKE_FILL_RECTANGLE (dpy, x_win, gc, x, cursor_y, width,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2103 cursor_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2104 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2105 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2106 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2107 int bar_width = EQ (bar_cursor_value, Qt) ? 1 : 2;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2108
5080 5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2109 gc = XLIKE_get_gc (f, Qnil, cursor_cachel->background, Qnil,
5502045ec510 The background-placement face property. Didier Verna <didier@lrde.epita.fr> parents: 5074 diff changeset	2110 Qnil, Qnil,
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2111 make_int (bar_width));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2112 XLIKE_DRAW_LINE (dpy, x_win, gc, x + bar_width - 1, cursor_y,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2113 x + bar_width - 1, cursor_y + cursor_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2114 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2115 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2116 else if (NILP (bar_cursor_value))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2117 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2118 XLIKE_DRAW_RECTANGLE (dpy, x_win, gc, x, cursor_y, width - 1,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2119 cursor_height - 1);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2120 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2121 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2122
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2123 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2124 XLIKE_clear_frame_window (Lisp_Object window)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2125 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2126 struct window *w = XWINDOW (window);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2127
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2128 if (!NILP (w->vchild))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2129 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2130 XLIKE_clear_frame_windows (w->vchild);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2131 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2132 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2133
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2134 if (!NILP (w->hchild))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2135 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2136 XLIKE_clear_frame_windows (w->hchild);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2137 return;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2138 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2139
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2140 redisplay_clear_to_window_end (w, WINDOW_TEXT_TOP (w),
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2141 WINDOW_TEXT_BOTTOM (w));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2142 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2143
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2144 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2145 XLIKE_clear_frame_windows (Lisp_Object window)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2146 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2147 for (; !NILP (window); window = XWINDOW (window)->next)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2148 XLIKE_clear_frame_window (window);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2149 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2150
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2151 static void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2152 XLIKE_clear_frame (struct frame *f)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2153 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2154 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (XDEVICE (f->device));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2155 XLIKE_WINDOW x_win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2156 int x, y, width, height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2157 Lisp_Object frame;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2158
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2159 /* #### GEOM! This clears the internal border and gutter (and scrollbars)
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2160 but not the toolbar. Correct? */
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2161 x = FRAME_LEFT_INTERNAL_BORDER_START (f);
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2162 width = (FRAME_RIGHT_INTERNAL_BORDER_END (f) - x);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2163 /* #### This adjustment by 1 should be being done in the macros.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2164 There is some small differences between when the menubar is on
5090 0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2165 and off that we still need to deal with. The adjustment also occurs in
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2166 redisplay_clear_top_of_window(). */
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2167 y = FRAME_TOP_INTERNAL_BORDER_START (f) - 1;
0ca81354c4c7 Further frame-geometry cleanups Ben Wing <ben@xemacs.org> parents: 5080 diff changeset	2168 height = (FRAME_BOTTOM_INTERNAL_BORDER_END (f) - y);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2169
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2170 XLIKE_CLEAR_AREA (dpy, x_win, x, y, width, height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2171
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2172 frame = wrap_frame (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2173
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2174 if (!UNBOUNDP (FACE_BACKGROUND_PIXMAP (Vdefault_face, frame))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2175 \|\| !UNBOUNDP (FACE_BACKGROUND_PIXMAP (Vleft_margin_face, frame))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2176 \|\| !UNBOUNDP (FACE_BACKGROUND_PIXMAP (Vright_margin_face, frame)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2177 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2178 XLIKE_clear_frame_windows (f->root_window);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2179 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2180 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2181 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2182 struct device *d = XDEVICE (f->device);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2183 if (!(check_if_pending_expose_event (d)))
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2184 XFlush (DEVICE_X_DISPLAY (d));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2185 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2186 #endif /* THIS_IS_X */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2187 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2188
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2189 /* briefly swap the foreground and background colors.
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2190 */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2191
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2192 static int
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2193 XLIKE_flash (struct device *d)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2194 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2195 struct frame *f = device_selected_frame (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2196 XLIKE_DISPLAY dpy = GET_XLIKE_DISPLAY (d);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2197 XLIKE_WINDOW win = GET_XLIKE_WINDOW (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2198 XLIKE_GC gc = NULL;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2199 XLIKE_GCVALUES gcv;
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	2200 XLIKE_PIXEL tmp_fcolor, tmp_bcolor;
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2201 Lisp_Object tmp_pixel, frame;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2202 struct window *w = XWINDOW (FRAME_ROOT_WINDOW (f));
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2203 int flash_height;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2204
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2205 frame = wrap_frame (f);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2206
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2207 tmp_pixel = FACE_FOREGROUND (Vdefault_face, frame);
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	2208 tmp_fcolor = XLIKE_COLOR_TO_PIXEL (XCOLOR_INSTANCE_XLIKE_COLOR (tmp_pixel));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2209 tmp_pixel = FACE_BACKGROUND (Vdefault_face, frame);
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	2210 tmp_bcolor = XLIKE_COLOR_TO_PIXEL (XCOLOR_INSTANCE_XLIKE_COLOR (tmp_pixel));
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2211 memset (&gcv, ~0, sizeof (gcv)); /* initialize all slots to ~0 */
4908 b3ce27ca7647 various fixes related to gtk, redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4882 diff changeset	2212 XLIKE_SET_GC_PIXEL (gcv.foreground, tmp_fcolor ^ tmp_bcolor);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2213 gcv.function = XLIKE_GX_XOR;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2214 gcv.graphics_exposures = XLIKE_FALSE;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2215 gc = gc_cache_lookup (DEVICE_XLIKE_GC_CACHE (XDEVICE (f->device)), &gcv,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2216 XLIKE_GC_FOREGROUND \| XLIKE_GC_FUNCTION \| XLIKE_GC_EXPOSURES);
5047 07dcc7000bbf put width before height consistently, fix a real bug found in the process Ben Wing <ben@xemacs.org> parents: 4967 diff changeset	2217 default_face_width_and_height (frame, 0, &flash_height);
4882 eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2218
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2219 /* If window is tall, flash top and bottom line. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2220 if (EQ (Vvisible_bell, Qtop_bottom) && w->pixel_height > 3 * flash_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2221 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2222 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left, w->pixel_top,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2223 w->pixel_width, flash_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2224 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2225 w->pixel_top + w->pixel_height - flash_height,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2226 w->pixel_width, flash_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2227 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2228 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2229 /* If it is short, flash it all. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2230 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left, w->pixel_top,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2231 w->pixel_width, w->pixel_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2232
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2233 XLIKE_FLUSH (dpy);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2234
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2235 #ifdef HAVE_SELECT
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2236 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2237 int usecs = 100000;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2238 struct timeval tv;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2239 tv.tv_sec = usecs / 1000000L;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2240 tv.tv_usec = usecs % 1000000L;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2241 /* I'm sure someone is going to complain about this... */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2242 select (0, 0, 0, 0, &tv);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2243 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2244 #else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2245 #ifdef HAVE_POLL
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2246 poll (0, 0, 100);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2247 #else /* !HAVE_POLL */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2248 #error bite me
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2249 #endif /* HAVE_POLL */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2250 #endif /* HAVE_SELECT */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2251
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2252 /* If window is tall, flash top and bottom line. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2253 if (EQ (Vvisible_bell, Qtop_bottom) && w->pixel_height > 3 * flash_height)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2254 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2255 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left, w->pixel_top,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2256 w->pixel_width, flash_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2257 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2258 w->pixel_top + w->pixel_height - flash_height,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2259 w->pixel_width, flash_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2260 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2261 else
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2262 /* If it is short, flash it all. */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2263 XLIKE_FILL_RECTANGLE (dpy, win, gc, w->pixel_left, w->pixel_top,
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2264 w->pixel_width, w->pixel_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2265
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2266 XLIKE_FLUSH (dpy);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2267
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2268 return 1;
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2269 }
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2270
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2271
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2272 /************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2273 /* initialization */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2274 /************************************************************************/
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2275
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2276 void
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2277 console_type_create_redisplay_XLIKE (void)
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2278 {
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2279 /* redisplay methods */
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2280 XLIKE_CONSOLE_HAS_METHOD (text_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2281 XLIKE_CONSOLE_HAS_METHOD (output_display_block);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2282 XLIKE_CONSOLE_HAS_METHOD (divider_height);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2283 XLIKE_CONSOLE_HAS_METHOD (eol_cursor_width);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2284 XLIKE_CONSOLE_HAS_METHOD (output_vertical_divider);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2285 XLIKE_CONSOLE_HAS_METHOD (clear_region);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2286 XLIKE_CONSOLE_HAS_METHOD (clear_frame);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2287 XLIKE_CONSOLE_HAS_METHOD (flash);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2288 XLIKE_CONSOLE_HAS_METHOD (ring_bell);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2289 XLIKE_CONSOLE_HAS_METHOD (bevel_area);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2290 XLIKE_CONSOLE_HAS_METHOD (output_string);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2291 XLIKE_CONSOLE_HAS_METHOD (output_pixmap);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2292
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2293 #ifdef THIS_IS_X
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2294 XLIKE_CONSOLE_HAS_METHOD (window_output_begin);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2295 XLIKE_CONSOLE_HAS_METHOD (window_output_end);
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2296 #endif
eab9498ecc0e merge most of rest of redisplay-x.c and redisplay-gtk.c into redisplay-xlike-inc.c Ben Wing <ben@xemacs.org> parents: 4881 diff changeset	2297 }

Mercurial > hg > xemacs-beta

annotate src/redisplay-xlike-inc.c @ 5518:3cc7470ea71c