annotate src/w32term.c @ 43396:9b50c09298f6

* w32term.c (x_autoselect_window_p): New variable. (syms_of_w32term): DEFVAR_BOOL and initialize it. (note_mouse_movement): Use it. * w32term.c (x_check_fullscreen, x_check_fullscreen_move) (x_fullscreen_adjust): New functions. (w32_read_socket) <WM_WINDOWPOSCHANGED>: Don't resize to fullscreen. Call x_check_fullscreen_move, and set the want_fullscreen member of output_data.w32 <WM_ACTIVATE, WM_ACTIVATEAPP>: Call x_check_fullscreen.
author Jason Rumney <jasonr@gnu.org>
date Sun, 17 Feb 2002 23:42:40 +0000
parents 44e2e2c9154f
children 5710b2d512a9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
1 /* Implementation of GUI terminal on the Microsoft W32 API.
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2 Copyright (C) 1989, 93, 94, 95, 96, 1997, 1998, 1999, 2000, 2001
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3 Free Software Foundation, Inc.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5 This file is part of GNU Emacs.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10 any later version.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15 GNU General Public License for more details.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
15742
80562f089595 Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 15723
diff changeset
20 Boston, MA 02111-1307, USA. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
22 #include <config.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
23 #include <signal.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24 #include <stdio.h>
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
25 #include <stdlib.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
26 #include "lisp.h"
18507
be4c110cda51 Include charset.h.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16884
diff changeset
27 #include "charset.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
28 #include "blockinput.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
30 #include "w32heap.h"
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
31 #include "w32term.h"
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
32 #include "w32bdf.h"
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
33 #include <shellapi.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
35 #include "systty.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
36 #include "systime.h"
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
37 #include "atimer.h"
39697
0b986bb45526 Include keymap.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39682
diff changeset
38 #include "keymap.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
39
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
40 #include <ctype.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
41 #include <errno.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42 #include <setjmp.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
43 #include <sys/stat.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
44
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
45 #include "keyboard.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46 #include "frame.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47 #include "dispextern.h"
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
48 #include "fontset.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
49 #include "termhooks.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 #include "termopts.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 #include "termchar.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
52 #include "gnu.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
53 #include "disptab.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
54 #include "buffer.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
55 #include "window.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
56 #include "intervals.h"
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
57 #include "composite.h"
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
58 #include "coding.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
59
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
60 #define abs(x) ((x) < 0 ? -(x) : (x))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
61
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
62 #define BETWEEN(X, LOWER, UPPER) ((X) >= (LOWER) && (X) < (UPPER))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
63
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
64
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
65 /* Fringe bitmaps. */
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
66
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
67 enum fringe_bitmap_type
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
68 {
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
69 NO_FRINGE_BITMAP,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
70 LEFT_TRUNCATION_BITMAP,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
71 RIGHT_TRUNCATION_BITMAP,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
72 OVERLAY_ARROW_BITMAP,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
73 CONTINUED_LINE_BITMAP,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
74 CONTINUATION_LINE_BITMAP,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
75 ZV_LINE_BITMAP
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
76 };
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
77
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
78 /* Bitmaps are all unsigned short, as Windows requires bitmap data to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
79 be Word aligned. For some reason they are horizontally reflected
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
80 compared to how they appear on X, so changes in xterm.c should be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
81 reflected here. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
82
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
83 /* Bitmap drawn to indicate lines not displaying text if
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
84 `indicate-empty-lines' is non-nil. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
85
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
86 #define zv_width 8
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
87 #define zv_height 72
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
88 #define zv_period 3
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
89 static unsigned char zv_bits[] = {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
90 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
91 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
92 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
93 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
94 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
95 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
96 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
97 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x3c, 0x00};
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
98 static HBITMAP zv_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
99
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
100 /* An arrow like this: `<-'. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
101
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
102 #define left_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
103 #define left_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
104 static unsigned short left_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
105 0x18, 0x30, 0x60, 0xfc, 0xfc, 0x60, 0x30, 0x18};
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
106 static HBITMAP left_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
107
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
108 /* Right truncation arrow bitmap `->'. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
109
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
110 #define right_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
111 #define right_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
112 static unsigned short right_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
113 0x18, 0x0c, 0x06, 0x3f, 0x3f, 0x06, 0x0c, 0x18};
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
114 static HBITMAP right_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
115
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
116 /* Marker for continued lines. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
117
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
118 #define continued_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
119 #define continued_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
120 static unsigned short continued_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
121 0x3c, 0x3e, 0x03, 0x27, 0x3f, 0x3e, 0x3c, 0x3e};
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
122 static HBITMAP continued_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
123
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
124 /* Marker for continuation lines. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
125
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
126 #define continuation_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
127 #define continuation_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
128 static unsigned short continuation_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
129 0x3c, 0x7c, 0xc0, 0xe4, 0xfc, 0x7c, 0x3c, 0x7c};
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
130 static HBITMAP continuation_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
131
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
132 /* Overlay arrow bitmap. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
133
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
134 #if 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
135 /* A bomb. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
136 #define ov_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
137 #define ov_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
138 static unsigned short ov_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
139 0x0c, 0x10, 0x3c, 0x7e, 0x5e, 0x5e, 0x46, 0x3c};
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
140 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
141 /* A triangular arrow. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
142 #define ov_width 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
143 #define ov_height 8
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
144 static unsigned short ov_bits[] = {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
145 0xc0, 0xf0, 0xf8, 0xfc, 0xfc, 0xf8, 0xf0, 0xc0};
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
146 #endif
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
147 static HBITMAP ov_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
148
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
149 extern Lisp_Object Qhelp_echo;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
150
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
151
34869
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
152 /* Non-nil means Emacs uses toolkit scroll bars. */
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
153
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
154 Lisp_Object Vx_toolkit_scroll_bars;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
155
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
156 /* If a string, w32_read_socket generates an event to display that string.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
157 (The display is done in read_char.) */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
158
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
159 static Lisp_Object help_echo;
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
160 static Lisp_Object help_echo_window;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
161 static Lisp_Object help_echo_object;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
162 static int help_echo_pos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
163
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
164 /* Temporary variable for w32_read_socket. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
165
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
166 static Lisp_Object previous_help_echo;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
167
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
168 /* Non-zero means that a HELP_EVENT has been generated since Emacs
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
169 start. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
170
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
171 static int any_help_event_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
172
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
173 /* Non-zero means autoselect window with the mouse cursor. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
174
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
175 int x_autoselect_window_p;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
176
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
177 /* Non-zero means draw block and hollow cursor as wide as the glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
178 under it. For example, if a block cursor is over a tab, it will be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
179 drawn as wide as that tab on the display. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
180
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
181 int x_stretch_cursor_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
182
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
183 /* Non-zero means make use of UNDERLINE_POSITION font properties. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
184
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
185 int x_use_underline_position_properties;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
186
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
187 extern unsigned int msh_mousewheel;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
188
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
189 extern void free_frame_menubar ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
190
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
191 extern int w32_codepage_for_font (char *fontname);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
192
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
193 extern glyph_metric *w32_BDF_TextMetric(bdffont *fontp,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
194 unsigned char *text, int dim);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
195 extern Lisp_Object Vwindow_system;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
196
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
197 #define x_any_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
198 #define x_top_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
199
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
200
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
201 /* This is display since w32 does not support multiple ones. */
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
202 struct w32_display_info one_w32_display_info;
38570
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
203 struct w32_display_info *x_display_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
204
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
205 /* This is a list of cons cells, each of the form (NAME . FONT-LIST-CACHE),
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
206 one for each element of w32_display_list and in the same order.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
207 NAME is the name of the frame.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
208 FONT-LIST-CACHE records previous values returned by x-list-fonts. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
209 Lisp_Object w32_display_name_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
210
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
211 /* Frame being updated by update_frame. This is declared in term.c.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
212 This is set by update_begin and looked at by all the
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
213 w32 functions. It is zero while not inside an update.
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
214 In that case, the w32 functions assume that `SELECTED_FRAME ()'
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
215 is the frame to apply to. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
216 extern struct frame *updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
217
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
218 /* This is a frame waiting to be autoraised, within w32_read_socket. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
219 struct frame *pending_autoraise_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
220
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
221 /* Nominal cursor position -- where to draw output.
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
222 HPOS and VPOS are window relative glyph matrix coordinates.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
223 X and Y are window relative pixel coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
224
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
225 struct cursor_pos output_cursor;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
226
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
227 /* The handle of the frame that currently owns the system caret. */
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
228 HWND w32_system_caret_hwnd;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
229 int w32_system_caret_height;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
230 int w32_system_caret_x;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
231 int w32_system_caret_y;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
232 int w32_use_visible_system_caret;
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
233
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
234 /* Flag to enable Unicode output in case users wish to use programs
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
235 like Twinbridge on '95 rather than installed system level support
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
236 for Far East languages. */
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
237 int w32_enable_unicode_output;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
238
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
239 DWORD dwWindowsThreadId = 0;
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
240 HANDLE hWindowsThread = NULL;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
241 DWORD dwMainThreadId = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
242 HANDLE hMainThread = NULL;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
243
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
244 #ifndef SIF_ALL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
245 /* These definitions are new with Windows 95. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
246 #define SIF_RANGE 0x0001
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
247 #define SIF_PAGE 0x0002
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
248 #define SIF_POS 0x0004
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
249 #define SIF_DISABLENOSCROLL 0x0008
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
250 #define SIF_TRACKPOS 0x0010
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
251 #define SIF_ALL (SIF_RANGE | SIF_PAGE | SIF_POS | SIF_TRACKPOS)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
252
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
253 typedef struct tagSCROLLINFO
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
254 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
255 UINT cbSize;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
256 UINT fMask;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
257 int nMin;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
258 int nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
259 UINT nPage;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
260 int nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
261 int nTrackPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
262 } SCROLLINFO, FAR *LPSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
263 typedef SCROLLINFO CONST FAR *LPCSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
264 #endif /* SIF_ALL */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
265
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
266 /* Dynamic linking to new proportional scroll bar functions. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
267 int (PASCAL *pfnSetScrollInfo) (HWND hwnd, int fnBar, LPSCROLLINFO lpsi, BOOL fRedraw);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
268 BOOL (PASCAL *pfnGetScrollInfo) (HWND hwnd, int fnBar, LPSCROLLINFO lpsi);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
269
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
270 int vertical_scroll_bar_min_handle;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
271 int vertical_scroll_bar_top_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
272 int vertical_scroll_bar_bottom_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
273
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
274 int last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
275
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
276 /* Mouse movement. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
277
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
278 /* Where the mouse was last time we reported a mouse event. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
279
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
280 FRAME_PTR last_mouse_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
281 static RECT last_mouse_glyph;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
282 static Lisp_Object last_mouse_press_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
283
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
284 Lisp_Object Vw32_num_mouse_buttons;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
285
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
286 Lisp_Object Vw32_swap_mouse_buttons;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
287
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
288 /* Control whether x_raise_frame also sets input focus. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
289 Lisp_Object Vw32_grab_focus_on_raise;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
290
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
291 /* Control whether Caps Lock affects non-ascii characters. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
292 Lisp_Object Vw32_capslock_is_shiftlock;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
293
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
294 /* Control whether right-alt and left-ctrl should be recognized as AltGr. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
295 Lisp_Object Vw32_recognize_altgr;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
296
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
297 /* The scroll bar in which the last motion event occurred.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
298
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
299 If the last motion event occurred in a scroll bar, we set this
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
300 so w32_mouse_position can know whether to report a scroll bar motion or
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
301 an ordinary motion.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
302
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
303 If the last motion event didn't occur in a scroll bar, we set this
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
304 to Qnil, to tell w32_mouse_position to return an ordinary motion event. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
305 static Lisp_Object last_mouse_scroll_bar;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
306 static int last_mouse_scroll_bar_pos;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
307
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
308 /* This is a hack. We would really prefer that w32_mouse_position would
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
309 return the time associated with the position it returns, but there
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
310 doesn't seem to be any way to wrest the time-stamp from the server
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
311 along with the position query. So, we just keep track of the time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
312 of the last movement we received, and return that in hopes that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
313 it's somewhat accurate. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
314
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
315 static Time last_mouse_movement_time;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
316
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
317 /* Incremented by w32_read_socket whenever it really tries to read
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
318 events. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
319
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
320 #ifdef __STDC__
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
321 static int volatile input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
322 #else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
323 static int input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
324 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
325
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
326 extern Lisp_Object Vcommand_line_args, Vsystem_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
327
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
328 extern Lisp_Object Qface, Qmouse_face;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
329
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
330 #ifndef USE_CRT_DLL
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
331 extern int errno;
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
332 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
333
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
334 /* A mask of extra modifier bits to put into every keyboard char. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
335
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
336 extern int extra_keyboard_modifiers;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
337
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
338 /* Enumeration for overriding/changing the face to use for drawing
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
339 glyphs in x_draw_glyphs. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
340
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
341 enum draw_glyphs_face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
342 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
343 DRAW_NORMAL_TEXT,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
344 DRAW_INVERSE_VIDEO,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
345 DRAW_CURSOR,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
346 DRAW_MOUSE_FACE,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
347 DRAW_IMAGE_RAISED,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
348 DRAW_IMAGE_SUNKEN
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
349 };
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
350
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
351 static void x_update_window_end P_ ((struct window *, int, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
352 static void frame_to_window_pixel_xy P_ ((struct window *, int *, int *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
353 void w32_delete_display P_ ((struct w32_display_info *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
354 static int fast_find_position P_ ((struct window *, int, int *, int *,
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
355 int *, int *, Lisp_Object));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
356 static int fast_find_string_pos P_ ((struct window *, int, Lisp_Object,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
357 int *, int *, int *, int *, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
358 static void set_output_cursor P_ ((struct cursor_pos *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
359 static struct glyph *x_y_to_hpos_vpos P_ ((struct window *, int, int,
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
360 int *, int *, int *, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
361 static void note_mode_line_highlight P_ ((struct window *, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
362 static void note_mouse_highlight P_ ((struct frame *, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
363 static void note_tool_bar_highlight P_ ((struct frame *f, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
364 static void w32_handle_tool_bar_click P_ ((struct frame *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
365 struct input_event *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
366 static void show_mouse_face P_ ((struct w32_display_info *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
367 enum draw_glyphs_face));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
368 static int cursor_in_mouse_face_p P_ ((struct window *));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
369 static int clear_mouse_face P_ ((struct w32_display_info *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
370
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
371 void x_lower_frame P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
372 void x_scroll_bar_clear P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
373 void x_wm_set_size_hint P_ ((struct frame *, long, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
374 void x_raise_frame P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
375 void x_set_window_size P_ ((struct frame *, int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
376 void x_wm_set_window_state P_ ((struct frame *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
377 void x_wm_set_icon_pixmap P_ ((struct frame *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
378 void w32_initialize P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
379 static void x_font_min_bounds P_ ((XFontStruct *, int *, int *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
380 int x_compute_min_glyph_bounds P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
381 static void x_draw_phys_cursor_glyph P_ ((struct window *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
382 struct glyph_row *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
383 enum draw_glyphs_face));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
384 static void x_update_end P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
385 static void w32_frame_up_to_date P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
386 static void w32_set_terminal_modes P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
387 static void w32_reset_terminal_modes P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
388 static void w32_cursor_to P_ ((int, int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
389 static void x_write_glyphs P_ ((struct glyph *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
390 static void x_clear_end_of_line P_ ((int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
391 static void x_clear_frame P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
392 static void x_clear_cursor P_ ((struct window *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
393 static void frame_highlight P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
394 static void frame_unhighlight P_ ((struct frame *));
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
395 static void x_new_focus_frame P_ ((struct w32_display_info *,
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
396 struct frame *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
397 static void w32_frame_rehighlight P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
398 static void x_frame_rehighlight P_ ((struct w32_display_info *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
399 static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *));
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
400 static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
401 static void expose_frame P_ ((struct frame *, int, int, int, int));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
402 static int expose_window_tree P_ ((struct window *, RECT *));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
403 static int expose_window P_ ((struct window *, RECT *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
404 static void expose_area P_ ((struct window *, struct glyph_row *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
405 RECT *, enum glyph_row_area));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
406 static int expose_line P_ ((struct window *, struct glyph_row *,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
407 RECT *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
408 void x_update_cursor P_ ((struct frame *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
409 static void x_update_cursor_in_window_tree P_ ((struct window *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
410 static void x_update_window_cursor P_ ((struct window *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
411 static void x_erase_phys_cursor P_ ((struct window *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
412 void x_display_cursor P_ ((struct window *w, int, int, int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
413 void x_display_and_set_cursor P_ ((struct window *, int, int, int, int, int));
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
414 static void w32_draw_fringe_bitmap P_ ((struct window *, HDC hdc,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
415 struct glyph_row *,
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
416 enum fringe_bitmap_type, int left_p));
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
417 static void w32_clip_to_row P_ ((struct window *, struct glyph_row *,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
418 HDC, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
419 static int x_phys_cursor_in_rect_p P_ ((struct window *, RECT *));
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
420 static void x_draw_row_fringe_bitmaps P_ ((struct window *,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
421 struct glyph_row *));
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
422 static void notice_overwritten_cursor P_ ((struct window *,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
423 enum glyph_row_area,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
424 int, int, int, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
425
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
426 static Lisp_Object Qvendor_specific_keysyms;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
427
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
428
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
429 /***********************************************************************
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
430 Debugging
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
431 ***********************************************************************/
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
432
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
433 #if 0
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
434
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
435 /* This is a function useful for recording debugging information about
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
436 the sequence of occurrences in this file. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
437
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
438 struct record
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
439 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
440 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
441 int type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
442 };
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
443
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
444 struct record event_record[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
445
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
446 int event_record_index;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
447
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
448 record_event (locus, type)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
449 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
450 int type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
451 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
452 if (event_record_index == sizeof (event_record) / sizeof (struct record))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
453 event_record_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
454
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
455 event_record[event_record_index].locus = locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
456 event_record[event_record_index].type = type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
457 event_record_index++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
458 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
459
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
460 #endif /* 0 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
461
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
462
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
463 void XChangeGC (void * ignore, XGCValues* gc, unsigned long mask,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
464 XGCValues *xgcv)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
465 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
466 if (mask & GCForeground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
467 gc->foreground = xgcv->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
468 if (mask & GCBackground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
469 gc->background = xgcv->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
470 if (mask & GCFont)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
471 gc->font = xgcv->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
472 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
473
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
474 XGCValues *XCreateGC (void * ignore, Window window, unsigned long mask,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
475 XGCValues *xgcv)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
476 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
477 XGCValues *gc = (XGCValues *) xmalloc (sizeof (XGCValues));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
478 bzero (gc, sizeof (XGCValues));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
479
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
480 XChangeGC (ignore, gc, mask, xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
481
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
482 return gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
483 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
484
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
485 void XGetGCValues (void* ignore, XGCValues *gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
486 unsigned long mask, XGCValues *xgcv)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
487 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
488 XChangeGC (ignore, xgcv, mask, gc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
489 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
490
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
491 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
492 w32_set_clip_rectangle (HDC hdc, RECT *rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
493 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
494 if (rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
495 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
496 HRGN clip_region = CreateRectRgnIndirect (rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
497 SelectClipRgn (hdc, clip_region);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
498 DeleteObject (clip_region);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
499 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
500 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
501 SelectClipRgn (hdc, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
502 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
503
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
504
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
505 /* Draw a hollow rectangle at the specified position. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
506 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
507 w32_draw_rectangle (HDC hdc, XGCValues *gc, int x, int y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
508 int width, int height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
509 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
510 HBRUSH hb, oldhb;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
511 HPEN hp, oldhp;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
512
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
513 hb = CreateSolidBrush (gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
514 hp = CreatePen (PS_SOLID, 0, gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
515 oldhb = SelectObject (hdc, hb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
516 oldhp = SelectObject (hdc, hp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
517
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
518 Rectangle (hdc, x, y, x + width, y + height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
519
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
520 SelectObject (hdc, oldhb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
521 SelectObject (hdc, oldhp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
522 DeleteObject (hb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
523 DeleteObject (hp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
524 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
525
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
526 /* Draw a filled rectangle at the specified position. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
527 void
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
528 w32_fill_rect (f, hdc, pix, lprect)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
529 FRAME_PTR f;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
530 HDC hdc;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
531 COLORREF pix;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
532 RECT * lprect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
533 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
534 HBRUSH hb;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
535
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
536 hb = CreateSolidBrush (pix);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
537 FillRect (hdc, lprect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
538 DeleteObject (hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
539 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
540
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
541 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
542 w32_clear_window (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
543 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
544 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
545 RECT rect;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
546 HDC hdc = get_frame_dc (f);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
547
34093
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
548 /* Under certain conditions, this can be called at startup with
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
549 a console frame pointer before the GUI frame is created. An HDC
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
550 of 0 indicates this. */
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
551 if (hdc)
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
552 {
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
553 GetClientRect (FRAME_W32_WINDOW (f), &rect);
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
554 w32_clear_rect (f, hdc, &rect);
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
555 }
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
556
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
557 release_frame_dc (f, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
558 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
559
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
560
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
561 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
562 Starting and ending an update
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
563 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
564
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
565 /* Start an update of frame F. This function is installed as a hook
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
566 for update_begin, i.e. it is called when update_begin is called.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
567 This function is called prior to calls to x_update_window_begin for
34784
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
568 each window being updated. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
569
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
570 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
571 x_update_begin (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
572 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
573 {
34784
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
574 struct w32_display_info *display_info = FRAME_W32_DISPLAY_INFO (f);
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
575
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
576 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
577 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
578
34784
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
579 /* Regenerate display palette before drawing if list of requested
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
580 colors has changed. */
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
581 if (display_info->regen_palette)
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
582 {
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
583 w32_regenerate_palette (f);
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
584 display_info->regen_palette = FALSE;
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
585 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
586 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
587
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
588
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
589 /* Start update of window W. Set the global variable updated_window
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
590 to the window being updated and set output_cursor to the cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
591 position of W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
592
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
593 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
594 x_update_window_begin (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
595 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
596 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
597 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
598 struct w32_display_info *display_info = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
599
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
600 /* Hide the system caret during an update. */
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
601 if (w32_use_visible_system_caret)
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
602 SendMessage (w32_system_caret_hwnd, WM_EMACS_HIDE_CARET, 0, 0);
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
603
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
604 updated_window = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
605 set_output_cursor (&w->cursor);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
606
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
607 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
608
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
609 if (f == display_info->mouse_face_mouse_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
610 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
611 /* Don't do highlighting for mouse motion during the update. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
612 display_info->mouse_face_defer = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
613
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
614 /* If F needs to be redrawn, simply forget about any prior mouse
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
615 highlighting. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
616 if (FRAME_GARBAGED_P (f))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
617 display_info->mouse_face_window = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
618
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
619 #if 0 /* Rows in a current matrix containing glyphs in mouse-face have
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
620 their mouse_face_p flag set, which means that they are always
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
621 unequal to rows in a desired matrix which never have that
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
622 flag set. So, rows containing mouse-face glyphs are never
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
623 scrolled, and we don't have to switch the mouse highlight off
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
624 here to prevent it from being scrolled. */
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
625
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
626 /* Can we tell that this update does not affect the window
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
627 where the mouse highlight is? If so, no need to turn off.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
628 Likewise, don't do anything if the frame is garbaged;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
629 in that case, the frame's current matrix that we would use
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
630 is all wrong, and we will redisplay that line anyway. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
631 if (!NILP (display_info->mouse_face_window)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
632 && w == XWINDOW (display_info->mouse_face_window))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
633 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
634 int i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
635
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
636 for (i = 0; i < w->desired_matrix->nrows; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
637 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
638 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
639
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
640 if (i < w->desired_matrix->nrows)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
641 clear_mouse_face (display_info);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
642 }
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
643 #endif /* 0 */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
644 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
645
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
646 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
647 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
648
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
649
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
650 /* Draw a vertical window border to the right of window W if W doesn't
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
651 have vertical scroll bars. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
652
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
653 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
654 x_draw_vertical_border (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
655 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
656 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
657 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
658
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
659 /* Redraw borders between horizontally adjacent windows. Don't
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
660 do it for frames with vertical scroll bars because either the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
661 right scroll bar of a window, or the left scroll bar of its
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
662 neighbor will suffice as a border. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
663 if (!WINDOW_RIGHTMOST_P (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
664 && !FRAME_HAS_VERTICAL_SCROLL_BARS (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
665 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
666 RECT r;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
667 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
668
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
669 window_box_edges (w, -1, (int *) &r.left, (int *) &r.top,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
670 (int *) &r.right, (int *) &r.bottom);
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
671 r.left = r.right + FRAME_X_RIGHT_FRINGE_WIDTH (f);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
672 r.right = r.left + 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
673 r.bottom -= 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
674
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
675 hdc = get_frame_dc (f);
34093
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
676 w32_fill_rect (f, hdc, FRAME_FOREGROUND_PIXEL (f), &r);
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
677 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
678 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
679 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
680
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
681
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
682 /* End update of window W (which is equal to updated_window).
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
683
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
684 Draw vertical borders between horizontally adjacent windows, and
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
685 display W's cursor if CURSOR_ON_P is non-zero.
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
686
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
687 MOUSE_FACE_OVERWRITTEN_P non-zero means that some row containing
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
688 glyphs in mouse-face were overwritten. In that case we have to
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
689 make sure that the mouse-highlight is properly redrawn.
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
690
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
691 W may be a menu bar pseudo-window in case we don't have X toolkit
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
692 support. Such windows don't have a cursor, so don't display it
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
693 here. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
694
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
695 static void
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
696 x_update_window_end (w, cursor_on_p, mouse_face_overwritten_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
697 struct window *w;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
698 int cursor_on_p, mouse_face_overwritten_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
699 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
700 struct w32_display_info *dpyinfo
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
701 = FRAME_W32_DISPLAY_INFO (XFRAME (w->frame));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
702
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
703 if (!w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
704 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
705 BLOCK_INPUT;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
706
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
707 if (cursor_on_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
708 x_display_and_set_cursor (w, 1, output_cursor.hpos,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
709 output_cursor.vpos,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
710 output_cursor.x, output_cursor.y);
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
711
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
712 x_draw_vertical_border (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
713 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
714 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
715
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
716 /* If a row with mouse-face was overwritten, arrange for
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
717 XTframe_up_to_date to redisplay the mouse highlight. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
718 if (mouse_face_overwritten_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
719 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
720 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
721 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
722 dpyinfo->mouse_face_window = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
723 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
724
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
725 /* Unhide the caret. This won't actually show the cursor, unless it
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
726 was visible before the corresponding call to HideCaret in
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
727 x_update_window_begin. */
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
728 if (w32_use_visible_system_caret)
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
729 SendMessage (w32_system_caret_hwnd, WM_EMACS_SHOW_CARET, 0, 0);
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
730
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
731 updated_window = NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
732 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
733
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
734
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
735 /* End update of frame F. This function is installed as a hook in
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
736 update_end. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
737
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
738 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
739 x_update_end (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
740 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
741 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
742 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
743 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
744
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
745 /* Mouse highlight may be displayed again. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
746 FRAME_W32_DISPLAY_INFO (f)->mouse_face_defer = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
747 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
748
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
749
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
750 /* This function is called from various places in xdisp.c whenever a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
751 complete update has been performed. The global variable
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
752 updated_window is not available here. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
753
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
754 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
755 w32_frame_up_to_date (f)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
756 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
757 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
758 if (FRAME_W32_P (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
759 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
760 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
761 if (dpyinfo->mouse_face_deferred_gc
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
762 || f == dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
763 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
764 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
765 if (dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
766 note_mouse_highlight (dpyinfo->mouse_face_mouse_frame,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
767 dpyinfo->mouse_face_mouse_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
768 dpyinfo->mouse_face_mouse_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
769 dpyinfo->mouse_face_deferred_gc = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
770 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
771 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
772 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
773 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
774
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
775
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
776 /* Draw truncation mark bitmaps, continuation mark bitmaps, overlay
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
777 arrow bitmaps, or clear the fringes if no bitmaps are required
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
778 before DESIRED_ROW is made current. The window being updated is
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
779 found in updated_window. This function is called from
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
780 update_window_line only if it is known that there are differences
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
781 between bitmaps to be drawn between current row and DESIRED_ROW. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
782
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
783 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
784 x_after_update_window_line (desired_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
785 struct glyph_row *desired_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
786 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
787 struct window *w = updated_window;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
788 struct frame *f;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
789 int width, height;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
790
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
791 xassert (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
792
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
793 if (!desired_row->mode_line_p && !w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
794 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
795 BLOCK_INPUT;
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
796 x_draw_row_fringe_bitmaps (w, desired_row);
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
797 UNBLOCK_INPUT;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
798 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
799
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
800 /* When a window has disappeared, make sure that no rest of
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
801 full-width rows stays visible in the internal border. Could
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
802 check here if updated_window is the leftmost/rightmost window,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
803 but I guess it's not worth doing since vertically split windows
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
804 are almost never used, internal border is rarely set, and the
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
805 overhead is very small. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
806 if (windows_or_buffers_changed
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
807 && desired_row->full_width_p
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
808 && (f = XFRAME (w->frame),
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
809 width = FRAME_INTERNAL_BORDER_WIDTH (f),
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
810 width != 0)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
811 && (height = desired_row->visible_height,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
812 height > 0))
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
813 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
814 int y = WINDOW_TO_FRAME_PIXEL_Y (w, max (0, desired_row->y));
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
815 /* Internal border is drawn below the tool bar. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
816 if (WINDOWP (f->tool_bar_window)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
817 && w == XWINDOW (f->tool_bar_window))
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
818 y -= width;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
819
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
820 BLOCK_INPUT;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
821 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
822 HDC hdc = get_frame_dc (f);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
823 w32_clear_area (f, hdc, 0, y, width, height);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
824 w32_clear_area (f, hdc, f->output_data.w32->pixel_width - width,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
825 y, width, height);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
826 release_frame_dc (f, hdc);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
827 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
828 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
829 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
830 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
831
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
832
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
833 /* Draw the bitmap WHICH in one of the left or right fringes of
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
834 window W. ROW is the glyph row for which to display the bitmap; it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
835 determines the vertical position at which the bitmap has to be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
836 drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
837
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
838 static void
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
839 w32_draw_fringe_bitmap (w, hdc, row, which, left_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
840 struct window *w;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
841 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
842 struct glyph_row *row;
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
843 enum fringe_bitmap_type which;
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
844 int left_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
845 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
846 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
847 Window window = FRAME_W32_WINDOW (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
848 HDC compat_hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
849 int x, y, wd, h, dy;
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
850 int b1, b2;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
851 HBITMAP pixmap;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
852 HANDLE horig_obj;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
853 struct face *face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
854
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
855 /* Must clip because of partially visible lines. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
856 w32_clip_to_row (w, row, hdc, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
857
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
858 /* Convert row to frame coordinates. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
859 y = WINDOW_TO_FRAME_PIXEL_Y (w, row->y);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
860
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
861 switch (which)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
862 {
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
863 case NO_FRINGE_BITMAP:
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
864 wd = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
865 h = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
866 break;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
867
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
868 case LEFT_TRUNCATION_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
869 wd = left_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
870 h = left_height;
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
871 pixmap = left_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
872 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
873
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
874 case OVERLAY_ARROW_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
875 wd = ov_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
876 h = ov_height;
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
877 pixmap = ov_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
878 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
879
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
880 case RIGHT_TRUNCATION_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
881 wd = right_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
882 h = right_height;
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
883 pixmap = right_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
884 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
885
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
886 case CONTINUED_LINE_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
887 wd = continued_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
888 h = continued_height;
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
889 pixmap = continued_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
890 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
891
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
892 case CONTINUATION_LINE_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
893 wd = continuation_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
894 h = continuation_height;
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
895 pixmap = continuation_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
896 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
897
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
898 case ZV_LINE_BITMAP:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
899 wd = zv_width;
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
900 h = zv_height - (y % zv_period);
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
901 pixmap = zv_bmp;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
902 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
903
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
904 default:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
905 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
906 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
907
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
908 /* Clip bitmap if too high. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
909 if (h > row->height)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
910 h = row->height;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
911
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
912 /* Set dy to the offset in the row to start drawing the bitmap. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
913 dy = (row->height - h) / 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
914
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
915 /* Draw the bitmap. */
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
916 face = FACE_FROM_ID (f, FRINGE_FACE_ID);
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
917 PREPARE_FACE_FOR_DISPLAY (f, face);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
918
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
919 /* Clear left fringe if no bitmap to draw or if bitmap doesn't fill
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
920 the fringe. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
921 b1 = -1;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
922 if (left_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
923 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
924 if (wd > FRAME_X_LEFT_FRINGE_WIDTH (f))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
925 wd = FRAME_X_LEFT_FRINGE_WIDTH (f);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
926 x = (WINDOW_TO_FRAME_PIXEL_X (w, 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
927 - wd
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
928 - (FRAME_X_LEFT_FRINGE_WIDTH (f) - wd) / 2);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
929 if (wd < FRAME_X_LEFT_FRINGE_WIDTH (f) || row->height > h)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
930 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
931 /* If W has a vertical border to its left, don't draw over it. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
932 int border = ((XFASTINT (w->left) > 0
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
933 && !FRAME_HAS_VERTICAL_SCROLL_BARS (f))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
934 ? 1 : 0);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
935 b1 = (window_box_left (w, -1)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
936 - FRAME_X_LEFT_FRINGE_WIDTH (f)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
937 + border);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
938 b2 = (FRAME_X_LEFT_FRINGE_WIDTH (f) - border);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
939 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
940 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
941 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
942 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
943 if (wd > FRAME_X_RIGHT_FRINGE_WIDTH (f))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
944 wd = FRAME_X_RIGHT_FRINGE_WIDTH (f);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
945 x = (window_box_right (w, -1)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
946 + (FRAME_X_RIGHT_FRINGE_WIDTH (f) - wd) / 2);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
947 /* Clear right fringe if no bitmap to draw of if bitmap doesn't fill
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
948 the fringe. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
949 if (wd < FRAME_X_RIGHT_FRINGE_WIDTH (f) || row->height > h)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
950 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
951 b1 = window_box_right (w, -1);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
952 b2 = FRAME_X_RIGHT_FRINGE_WIDTH (f);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
953 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
954 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
955
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
956 if (b1 >= 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
957 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
958 int header_line_height = WINDOW_DISPLAY_HEADER_LINE_HEIGHT (w);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
959
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
960 w32_fill_area (f, hdc, face->background,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
961 b1,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
962 WINDOW_TO_FRAME_PIXEL_Y (w, max (header_line_height,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
963 row->y)),
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
964 b2,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
965 row->visible_height);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
966 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
967
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
968 if (which == NO_FRINGE_BITMAP)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
969 return;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
970
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
971 compat_hdc = CreateCompatibleDC (hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
972 SaveDC (hdc);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
973
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
974 horig_obj = SelectObject (compat_hdc, pixmap);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
975 SetTextColor (hdc, face->background);
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
976 SetBkColor (hdc, face->foreground);
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
977
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
978 BitBlt (hdc, x, y + dy, wd, h, compat_hdc, 0,
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
979 (which == ZV_LINE_BITMAP ? (row->y % zv_period) : 0),
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
980 SRCCOPY);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
981
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
982 SelectObject (compat_hdc, horig_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
983 DeleteDC (compat_hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
984 RestoreDC (hdc, -1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
985 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
986
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
987
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
988 /* Draw fringe bitmaps for glyph row ROW on window W. Call this
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
989 function with input blocked. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
990
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
991 static void
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
992 x_draw_row_fringe_bitmaps (w, row)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
993 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
994 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
995 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
996 struct frame *f = XFRAME (w->frame);
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
997 enum fringe_bitmap_type bitmap;
35678
c2f95853d4c4 (x_draw_row_bitmaps): Delay obtaining HDC to avoid returning without
Eli Zaretskii <eliz@gnu.org>
parents: 35449
diff changeset
998 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
999
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1000 xassert (interrupt_input_blocked);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1001
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1002 /* If row is completely invisible, because of vscrolling, we
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1003 don't have to draw anything. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1004 if (row->visible_height <= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1005 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1006
35678
c2f95853d4c4 (x_draw_row_bitmaps): Delay obtaining HDC to avoid returning without
Eli Zaretskii <eliz@gnu.org>
parents: 35449
diff changeset
1007 hdc = get_frame_dc (f);
c2f95853d4c4 (x_draw_row_bitmaps): Delay obtaining HDC to avoid returning without
Eli Zaretskii <eliz@gnu.org>
parents: 35449
diff changeset
1008
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1009 if (FRAME_X_LEFT_FRINGE_WIDTH (f) != 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1010 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1011 /* Decide which bitmap to draw in the left fringe. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1012 if (row->overlay_arrow_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1013 bitmap = OVERLAY_ARROW_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1014 else if (row->truncated_on_left_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1015 bitmap = LEFT_TRUNCATION_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1016 else if (MATRIX_ROW_CONTINUATION_LINE_P (row))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1017 bitmap = CONTINUATION_LINE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1018 else if (row->indicate_empty_line_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1019 bitmap = ZV_LINE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1020 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1021 bitmap = NO_FRINGE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1022
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1023 w32_draw_fringe_bitmap (w, hdc, row, bitmap, 1);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1024 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1025
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1026 if (FRAME_X_RIGHT_FRINGE_WIDTH (f) != 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1027 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1028 /* Decide which bitmap to draw in the right fringe. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1029 if (row->truncated_on_right_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1030 bitmap = RIGHT_TRUNCATION_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1031 else if (row->continued_p)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1032 bitmap = CONTINUED_LINE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1033 else if (row->indicate_empty_line_p && FRAME_X_LEFT_FRINGE_WIDTH (f) == 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1034 bitmap = ZV_LINE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1035 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1036 bitmap = NO_FRINGE_BITMAP;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1037
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1038 w32_draw_fringe_bitmap (w, hdc, row, bitmap, 0);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
1039 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1040
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1041 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1042 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1043
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1044
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1045 /* This is called when starting Emacs and when restarting after
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1046 suspend. When starting Emacs, no window is mapped. And nothing
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1047 must be done to Emacs's own window if it is suspended (though that
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1048 rarely happens). */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1049
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1050 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1051 w32_set_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1052 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1053 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1054
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1055 /* This is called when exiting or suspending Emacs. Exiting will make
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1056 the W32 windows go away, and suspending requires no action. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1057
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1058 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1059 w32_reset_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1060 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1061 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1062
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1063
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1064
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1065 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1066 Output Cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1067 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1068
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1069 /* Set the global variable output_cursor to CURSOR. All cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1070 positions are relative to updated_window. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1071
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1072 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1073 set_output_cursor (cursor)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1074 struct cursor_pos *cursor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1075 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1076 output_cursor.hpos = cursor->hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1077 output_cursor.vpos = cursor->vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1078 output_cursor.x = cursor->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1079 output_cursor.y = cursor->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1080 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1081
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1082
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1083 /* Set a nominal cursor position.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1084
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1085 HPOS and VPOS are column/row positions in a window glyph matrix. X
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1086 and Y are window text area relative pixel positions.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1087
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1088 If this is done during an update, updated_window will contain the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1089 window that is being updated and the position is the future output
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1090 cursor position for that window. If updated_window is null, use
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1091 selected_window and display the cursor at the given position. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1092
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1093 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1094 w32_cursor_to (vpos, hpos, y, x)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1095 int vpos, hpos, y, x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1096 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1097 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1098
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1099 /* If updated_window is not set, work on selected_window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1100 if (updated_window)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1101 w = updated_window;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1102 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1103 w = XWINDOW (selected_window);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1104
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1105 /* Set the output cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1106 output_cursor.hpos = hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1107 output_cursor.vpos = vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1108 output_cursor.x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1109 output_cursor.y = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1110
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1111 /* If not called as part of an update, really display the cursor.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1112 This will also set the cursor position of W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1113 if (updated_window == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1114 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1115 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1116 x_display_cursor (w, 1, hpos, vpos, x, y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1117 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1118 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1119 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1120
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1121
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1122
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1123 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1124 Display Iterator
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1125 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1126
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1127 /* Function prototypes of this page. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1128
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1129 static struct face *x_get_glyph_face_and_encoding P_ ((struct frame *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1130 struct glyph *,
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1131 wchar_t *,
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1132 int *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1133 static struct face *x_get_char_face_and_encoding P_ ((struct frame *, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1134 int, wchar_t *, int));
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1135 static XCharStruct *w32_per_char_metric P_ ((XFontStruct *,
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1136 wchar_t *,
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1137 enum w32_char_font_type));
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1138 static enum w32_char_font_type
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1139 w32_encode_char P_ ((int, wchar_t *, struct font_info *, int *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1140 static void x_append_glyph P_ ((struct it *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1141 static void x_append_composite_glyph P_ ((struct it *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1142 static void x_append_stretch_glyph P_ ((struct it *it, Lisp_Object,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1143 int, int, double));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1144 static void x_produce_glyphs P_ ((struct it *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1145 static void x_produce_image_glyph P_ ((struct it *it));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1146
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1147
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1148 /* Dealing with bits of wchar_t as if they were an XChar2B. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1149 #define BUILD_WCHAR_T(byte1, byte2) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1150 ((wchar_t)((((byte1) & 0x00ff) << 8) | ((byte2) & 0x00ff)))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1151
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1152
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1153 #define BYTE1(ch) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1154 (((ch) & 0xff00) >> 8)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1155
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1156 #define BYTE2(ch) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1157 ((ch) & 0x00ff)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1158
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1159
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1160 /* Get metrics of character CHAR2B in FONT. Value is always non-null.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1161 If CHAR2B is not contained in FONT, the font's default character
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1162 metric is returned. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1163
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1164 static int
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1165 w32_bdf_per_char_metric (font, char2b, dim, pcm)
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1166 XFontStruct *font;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1167 wchar_t *char2b;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1168 int dim;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1169 XCharStruct * pcm;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1170 {
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1171 glyph_metric * bdf_metric;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1172 char buf[2];
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1173
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1174 if (dim == 1)
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
1175 buf[0] = (char)(*char2b);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1176 else
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1177 {
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1178 buf[0] = BYTE1 (*char2b);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1179 buf[1] = BYTE2 (*char2b);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1180 }
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1181
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1182 bdf_metric = w32_BDF_TextMetric (font->bdf, buf, dim);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1183
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1184 if (bdf_metric)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1185 {
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1186 pcm->width = bdf_metric->dwidth;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1187 pcm->lbearing = bdf_metric->bbox;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1188 pcm->rbearing = bdf_metric->dwidth
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1189 - (bdf_metric->bbox + bdf_metric->bbw);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1190 pcm->ascent = bdf_metric->bboy + bdf_metric->bbh;
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1191 pcm->descent = -bdf_metric->bboy;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1192
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1193 return 1;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1194 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1195 return 0;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1196 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1197
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1198
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1199 static int
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1200 w32_native_per_char_metric (font, char2b, font_type, pcm)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1201 XFontStruct *font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1202 wchar_t *char2b;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1203 enum w32_char_font_type font_type;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1204 XCharStruct * pcm;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1205 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1206 HDC hdc = GetDC (NULL);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1207 HFONT old_font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1208 BOOL retval = FALSE;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1209
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1210 xassert (font && char2b);
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1211 xassert (font->hfont);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1212 xassert (font_type == UNICODE_FONT || font_type == ANSI_FONT);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1213
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1214 old_font = SelectObject (hdc, font->hfont);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1215
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1216 if ((font->tm.tmPitchAndFamily & TMPF_TRUETYPE) != 0)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1217 {
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1218 ABC char_widths;
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1219
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1220 if (font_type == UNICODE_FONT)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1221 retval = GetCharABCWidthsW (hdc, *char2b, *char2b, &char_widths);
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1222 else
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1223 retval = GetCharABCWidthsA (hdc, *char2b, *char2b, &char_widths);
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1224
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1225 if (retval)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1226 {
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1227 #if 0
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1228 /* Disabled until we can find a way to get the right results
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1229 on all versions of Windows. */
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1230
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1231 /* Don't trust the ABC widths. For synthesized fonts they are
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1232 wrong, and so is the result of GetCharWidth()! */
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1233 int real_width;
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1234 GetCharWidth (hdc, *char2b, *char2b, &real_width);
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1235 #endif
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1236 pcm->width = char_widths.abcA + char_widths.abcB + char_widths.abcC;
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1237 #if 0
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1238 /* As far as I can tell, this is the best way to determine what
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1239 ExtTextOut will do with the broken font. */
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1240 if (pcm->width != real_width)
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1241 pcm->width = (pcm->width + real_width) / 2;
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
1242 #endif
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1243 pcm->lbearing = char_widths.abcA;
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
1244 pcm->rbearing = char_widths.abcA + char_widths.abcB;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1245 pcm->ascent = FONT_BASE (font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1246 pcm->descent = FONT_DESCENT (font);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1247 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1248 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1249
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1250 if (!retval)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1251 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1252 /* Either font is not a True-type font, or GetCharABCWidthsW
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1253 failed (it is not supported on Windows 9x for instance), so we
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1254 can't determine the full info we would like. All is not lost
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1255 though - we can call GetTextExtentPoint32 to get rbearing and
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1256 deduce width based on the font's per-string overhang. lbearing
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1257 is assumed to be zero. */
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1258
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1259 /* TODO: Some Thai characters (and other composites if Windows
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1260 supports them) do have lbearing, and report their total width
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1261 as zero. Need some way of handling them when
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1262 GetCharABCWidthsW fails. */
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1263 SIZE sz;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1264
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1265 if (font_type == UNICODE_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1266 retval = GetTextExtentPoint32W (hdc, char2b, 1, &sz);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1267 else
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1268 retval = GetTextExtentPoint32A (hdc, (char*)char2b, 1, &sz);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1269
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1270 if (retval)
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1271 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1272 pcm->width = sz.cx - font->tm.tmOverhang;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1273 pcm->rbearing = sz.cx;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1274 pcm->lbearing = 0;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1275 pcm->ascent = FONT_BASE (font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1276 pcm->descent = FONT_DESCENT (font);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1277 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1278 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1279
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1280
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1281 if (pcm->width == 0 && (pcm->rbearing - pcm->lbearing) == 0)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1282 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1283 retval = FALSE;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1284 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1285
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1286 SelectObject (hdc, old_font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1287 ReleaseDC (NULL, hdc);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1288
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1289 return retval;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1290 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1291
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1292
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1293 static XCharStruct *
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1294 w32_per_char_metric (font, char2b, font_type)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1295 XFontStruct *font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1296 wchar_t *char2b;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1297 enum w32_char_font_type font_type;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1298 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1299 /* The result metric information. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1300 XCharStruct *pcm;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1301 BOOL retval;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1302
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1303 xassert (font && char2b);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1304 xassert (font_type != UNKNOWN_FONT);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1305
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1306 /* Handle the common cases quickly. */
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
1307 if (!font->bdf && font->per_char == NULL)
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1308 /* TODO: determine whether char2b exists in font? */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1309 return &font->max_bounds;
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
1310 else if (!font->bdf && *char2b < 128)
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1311 return &font->per_char[*char2b];
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1312
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1313 pcm = &font->scratch;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1314
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1315 if (font_type == BDF_1D_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1316 retval = w32_bdf_per_char_metric (font, char2b, 1, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1317 else if (font_type == BDF_2D_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1318 retval = w32_bdf_per_char_metric (font, char2b, 2, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1319 else
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1320 retval = w32_native_per_char_metric (font, char2b, font_type, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1321
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1322 if (retval)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1323 return pcm;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1324
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1325 return NULL;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1326 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1327
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1328 void
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1329 w32_cache_char_metrics (font)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1330 XFontStruct *font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1331 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1332 wchar_t char2b = L'x';
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1333
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1334 /* Cache char metrics for the common cases. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1335 if (font->bdf)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1336 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1337 /* TODO: determine whether font is fixed-pitch. */
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1338 if (!w32_bdf_per_char_metric (font, &char2b, 1, &font->max_bounds))
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1339 {
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1340 /* Use the font width and height as max bounds, as not all BDF
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1341 fonts contain the letter 'x'. */
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1342 font->max_bounds.width = FONT_MAX_WIDTH (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1343 font->max_bounds.lbearing = -font->bdf->llx;
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1344 font->max_bounds.rbearing = FONT_MAX_WIDTH (font) - font->bdf->urx;
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1345 font->max_bounds.ascent = FONT_BASE (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1346 font->max_bounds.descent = FONT_DESCENT (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1347 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1348 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1349 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1350 {
32727
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
1351 if (((font->tm.tmPitchAndFamily & TMPF_FIXED_PITCH) != 0)
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
1352 /* Some fonts (eg DBCS fonts) are marked as fixed width even
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
1353 though they contain characters of different widths. */
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
1354 || (font->tm.tmMaxCharWidth != font->tm.tmAveCharWidth))
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1355 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1356 /* Font is not fixed pitch, so cache per_char info for the
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1357 ASCII characters. It would be much more work, and probably
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1358 not worth it, to cache other chars, since we may change
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1359 between using Unicode and ANSI text drawing functions at
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1360 run-time. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1361 int i;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1362
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1363 font->per_char = xmalloc (128 * sizeof(XCharStruct));
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1364 for (i = 0; i < 128; i++)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1365 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1366 char2b = i;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1367 w32_native_per_char_metric (font, &char2b, ANSI_FONT,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1368 &font->per_char[i]);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1369 }
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1370 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1371 else
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1372 w32_native_per_char_metric (font, &char2b, ANSI_FONT,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1373 &font->max_bounds);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1374 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1375 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1376
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1377
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1378 /* Determine if a font is double byte. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1379 int w32_font_is_double_byte (XFontStruct *font)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1380 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1381 return font->double_byte_p;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1382 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1383
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1384
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1385 static BOOL
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1386 w32_use_unicode_for_codepage (codepage)
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1387 int codepage;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1388 {
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1389 /* If the current codepage is supported, use Unicode for output. */
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1390 return (w32_enable_unicode_output
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1391 && codepage != CP_8BIT
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1392 && (codepage == CP_UNICODE || IsValidCodePage (codepage)));
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1393 }
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1394
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1395 /* Encode CHAR2B using encoding information from FONT_INFO. CHAR2B is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1396 the two-byte form of C. Encoding is returned in *CHAR2B. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1397
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1398 static INLINE enum w32_char_font_type
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1399 w32_encode_char (c, char2b, font_info, two_byte_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1400 int c;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1401 wchar_t *char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1402 struct font_info *font_info;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1403 int * two_byte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1404 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1405 int charset = CHAR_CHARSET (c);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1406 int codepage;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1407 int unicode_p = 0;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1408
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1409 XFontStruct *font = font_info->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1410
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1411 xassert (two_byte_p);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1412
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1413 *two_byte_p = w32_font_is_double_byte (font);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1414
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1415 /* FONT_INFO may define a scheme by which to encode byte1 and byte2.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1416 This may be either a program in a special encoder language or a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1417 fixed encoding. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1418 if (font_info->font_encoder)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1419 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1420 /* It's a program. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1421 struct ccl_program *ccl = font_info->font_encoder;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1422
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1423 if (CHARSET_DIMENSION (charset) == 1)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1424 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1425 ccl->reg[0] = charset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1426 ccl->reg[1] = BYTE2 (*char2b);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1427 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1428 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1429 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1430 ccl->reg[0] = charset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1431 ccl->reg[1] = BYTE1 (*char2b);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1432 ccl->reg[2] = BYTE2 (*char2b);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1433 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1434
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1435 ccl_driver (ccl, NULL, NULL, 0, 0, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1436
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1437 /* We assume that MSBs are appropriately set/reset by CCL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1438 program. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1439 if (!*two_byte_p) /* 1-byte font */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1440 *char2b = BUILD_WCHAR_T (0, ccl->reg[1]);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1441 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1442 *char2b = BUILD_WCHAR_T (ccl->reg[1], ccl->reg[2]);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1443 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1444 else if (font_info->encoding[charset])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1445 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1446 /* Fixed encoding scheme. See fontset.h for the meaning of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1447 encoding numbers. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1448 int enc = font_info->encoding[charset];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1449
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1450 if ((enc == 1 || enc == 2)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1451 && CHARSET_DIMENSION (charset) == 2)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1452 *char2b = BUILD_WCHAR_T (BYTE1 (*char2b) | 0x80, BYTE2 (*char2b));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1453
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1454 if (enc == 1 || enc == 3
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1455 || (enc == 4 && CHARSET_DIMENSION (charset) == 1))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1456 *char2b = BUILD_WCHAR_T (BYTE1 (*char2b), BYTE2 (*char2b) | 0x80);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1457 else if (enc == 4)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1458 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1459 int sjis1, sjis2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1460
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1461 ENCODE_SJIS (BYTE1 (*char2b), BYTE2 (*char2b),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1462 sjis1, sjis2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1463 *char2b = BUILD_WCHAR_T (sjis1, sjis2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1464 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1465 }
40010
1a8e549e2f40 (w32_encode_char): Get cached codepage from font_info,
Andrew Innes <andrewi@gnu.org>
parents: 40005
diff changeset
1466 codepage = font_info->codepage;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1467
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1468 /* If charset is not ASCII or Latin-1, may need to move it into
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1469 Unicode space. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1470 if ( font && !font->bdf && w32_use_unicode_for_codepage (codepage)
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
1471 && charset != CHARSET_ASCII && charset != charset_latin_iso8859_1
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
1472 && charset != CHARSET_8_BIT_CONTROL && charset != CHARSET_8_BIT_GRAPHIC)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1473 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1474 char temp[3];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1475 temp[0] = BYTE1 (*char2b);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1476 temp[1] = BYTE2 (*char2b);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1477 temp[2] = '\0';
33386
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1478 if (codepage != CP_UNICODE)
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1479 {
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1480 if (temp[0])
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1481 MultiByteToWideChar (codepage, 0, temp, 2, char2b, 1);
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1482 else
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1483 MultiByteToWideChar (codepage, 0, temp+1, 1, char2b, 1);
e0f1d0f3a59d (w32_encode_char): Handle CP_UNICODE specially.
Jason Rumney <jasonr@gnu.org>
parents: 33289
diff changeset
1484 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1485 unicode_p = 1;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1486 *two_byte_p = 1;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1487 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1488 if (!font)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1489 return UNKNOWN_FONT;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1490 else if (font->bdf && CHARSET_DIMENSION (charset) == 1)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1491 return BDF_1D_FONT;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1492 else if (font->bdf)
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1493 return BDF_2D_FONT;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1494 else if (unicode_p)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1495 return UNICODE_FONT;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1496 else
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1497 return ANSI_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1498 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1499
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1500
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1501 /* Get face and two-byte form of character C in face FACE_ID on frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1502 F. The encoding of C is returned in *CHAR2B. MULTIBYTE_P non-zero
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1503 means we want to display multibyte text. Value is a pointer to a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1504 realized face that is ready for display. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1505
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1506 static INLINE struct face *
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1507 x_get_char_face_and_encoding (f, c, face_id, char2b, multibyte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1508 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1509 int c, face_id;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1510 wchar_t *char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1511 int multibyte_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1512 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1513 struct face *face = FACE_FROM_ID (f, face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1514
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1515 if (!multibyte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1516 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1517 /* Unibyte case. We don't have to encode, but we have to make
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1518 sure to use a face suitable for unibyte. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1519 *char2b = BUILD_WCHAR_T (0, c);
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1520 face_id = FACE_FOR_CHAR (f, face, c);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1521 face = FACE_FROM_ID (f, face_id);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1522 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1523 else if (c < 128 && face_id < BASIC_FACE_ID_SENTINEL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1524 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1525 /* Case of ASCII in a face known to fit ASCII. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1526 *char2b = BUILD_WCHAR_T (0, c);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1527 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1528 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1529 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1530 int c1, c2, charset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1531
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1532 /* Split characters into bytes. If c2 is -1 afterwards, C is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1533 really a one-byte character so that byte1 is zero. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1534 SPLIT_CHAR (c, charset, c1, c2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1535 if (c2 > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1536 *char2b = BUILD_WCHAR_T (c1, c2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1537 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1538 *char2b = BUILD_WCHAR_T (0, c1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1539
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1540 /* Maybe encode the character in *CHAR2B. */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1541 if (face->font != NULL)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1542 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1543 struct font_info *font_info
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1544 = FONT_INFO_FROM_ID (f, face->font_info_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1545 if (font_info)
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1546 w32_encode_char (c, char2b, font_info, &multibyte_p);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1547 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1548 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1549
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1550 /* Make sure X resources of the face are allocated. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1551 xassert (face != NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1552 PREPARE_FACE_FOR_DISPLAY (f, face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1553
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1554 return face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1555 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1556
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1557
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1558 /* Get face and two-byte form of character glyph GLYPH on frame F.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1559 The encoding of GLYPH->u.ch is returned in *CHAR2B. Value is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1560 a pointer to a realized face that is ready for display. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1561
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1562 static INLINE struct face *
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1563 x_get_glyph_face_and_encoding (f, glyph, char2b, two_byte_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1564 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1565 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1566 wchar_t *char2b;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1567 int *two_byte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1568 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1569 struct face *face;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1570 int dummy = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1571
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1572 xassert (glyph->type == CHAR_GLYPH);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1573 face = FACE_FROM_ID (f, glyph->face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1574
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1575 if (two_byte_p)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1576 *two_byte_p = 0;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1577 else
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1578 two_byte_p = &dummy;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1579
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1580 if (!glyph->multibyte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1581 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1582 /* Unibyte case. We don't have to encode, but we have to make
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1583 sure to use a face suitable for unibyte. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1584 *char2b = BUILD_WCHAR_T (0, glyph->u.ch);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1585 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1586 else if (glyph->u.ch < 128
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1587 && glyph->face_id < BASIC_FACE_ID_SENTINEL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1588 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1589 /* Case of ASCII in a face known to fit ASCII. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1590 *char2b = BUILD_WCHAR_T (0, glyph->u.ch);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1591 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1592 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1593 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1594 int c1, c2, charset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1595
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1596 /* Split characters into bytes. If c2 is -1 afterwards, C is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1597 really a one-byte character so that byte1 is zero. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1598 SPLIT_CHAR (glyph->u.ch, charset, c1, c2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1599 if (c2 > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1600 *char2b = BUILD_WCHAR_T (c1, c2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1601 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1602 *char2b = BUILD_WCHAR_T (0, c1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1603
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1604 /* Maybe encode the character in *CHAR2B. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1605 if (charset != CHARSET_ASCII)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1606 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1607 struct font_info *font_info
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1608 = FONT_INFO_FROM_ID (f, face->font_info_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1609 if (font_info)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1610 {
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1611 glyph->w32_font_type
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1612 = w32_encode_char (glyph->u.ch, char2b, font_info, two_byte_p);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1613 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1614 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1615 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1616
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1617 /* Make sure X resources of the face are allocated. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1618 xassert (face != NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1619 PREPARE_FACE_FOR_DISPLAY (f, face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1620 return face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1621 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1622
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1623
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1624 /* Store one glyph for IT->char_to_display in IT->glyph_row.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1625 Called from x_produce_glyphs when IT->glyph_row is non-null. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1626
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1627 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1628 x_append_glyph (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1629 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1630 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1631 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1632 enum glyph_row_area area = it->area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1633
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1634 xassert (it->glyph_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1635 xassert (it->char_to_display != '\n' && it->char_to_display != '\t');
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1636
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1637 glyph = it->glyph_row->glyphs[area] + it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1638 if (glyph < it->glyph_row->glyphs[area + 1])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1639 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1640 glyph->charpos = CHARPOS (it->position);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1641 glyph->object = it->object;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1642 glyph->pixel_width = it->pixel_width;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1643 glyph->voffset = it->voffset;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1644 glyph->type = CHAR_GLYPH;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1645 glyph->multibyte_p = it->multibyte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1646 glyph->left_box_line_p = it->start_of_box_run_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1647 glyph->right_box_line_p = it->end_of_box_run_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1648 glyph->overlaps_vertically_p = (it->phys_ascent > it->ascent
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1649 || it->phys_descent > it->descent);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1650 glyph->padding_p = 0;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1651 glyph->glyph_not_available_p = it->glyph_not_available_p;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1652 glyph->face_id = it->face_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1653 glyph->u.ch = it->char_to_display;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1654 glyph->w32_font_type = UNKNOWN_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1655 ++it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1656 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1657 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1658
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1659 /* Store one glyph for the composition IT->cmp_id in IT->glyph_row.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1660 Called from x_produce_glyphs when IT->glyph_row is non-null. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1661
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1662 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1663 x_append_composite_glyph (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1664 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1665 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1666 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1667 enum glyph_row_area area = it->area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1668
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1669 xassert (it->glyph_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1670
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1671 glyph = it->glyph_row->glyphs[area] + it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1672 if (glyph < it->glyph_row->glyphs[area + 1])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1673 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1674 glyph->charpos = CHARPOS (it->position);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1675 glyph->object = it->object;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1676 glyph->pixel_width = it->pixel_width;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1677 glyph->voffset = it->voffset;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1678 glyph->type = COMPOSITE_GLYPH;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1679 glyph->multibyte_p = it->multibyte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1680 glyph->left_box_line_p = it->start_of_box_run_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1681 glyph->right_box_line_p = it->end_of_box_run_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1682 glyph->overlaps_vertically_p = (it->phys_ascent > it->ascent
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1683 || it->phys_descent > it->descent);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1684 glyph->padding_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1685 glyph->glyph_not_available_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1686 glyph->face_id = it->face_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1687 glyph->u.cmp_id = it->cmp_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1688 glyph->w32_font_type = UNKNOWN_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1689 ++it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1690 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1691 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1692
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1693
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1694 /* Change IT->ascent and IT->height according to the setting of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1695 IT->voffset. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1696
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1697 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1698 take_vertical_position_into_account (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1699 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1700 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1701 if (it->voffset)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1702 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1703 if (it->voffset < 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1704 /* Increase the ascent so that we can display the text higher
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1705 in the line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1706 it->ascent += abs (it->voffset);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1707 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1708 /* Increase the descent so that we can display the text lower
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1709 in the line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1710 it->descent += it->voffset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1711 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1712 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1713
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1714
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1715 /* Produce glyphs/get display metrics for the image IT is loaded with.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1716 See the description of struct display_iterator in dispextern.h for
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1717 an overview of struct display_iterator. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1718
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1719 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1720 x_produce_image_glyph (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1721 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1722 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1723 struct image *img;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1724 struct face *face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1725
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1726 xassert (it->what == IT_IMAGE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1727
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1728 face = FACE_FROM_ID (it->f, it->face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1729 img = IMAGE_FROM_ID (it->f, it->image_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1730 xassert (img);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1731
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1732 /* Make sure X resources of the face and image are loaded. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1733 PREPARE_FACE_FOR_DISPLAY (it->f, face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1734 prepare_image_for_display (it->f, img);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1735
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1736 it->ascent = it->phys_ascent = image_ascent (img, face);
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1737 it->descent = it->phys_descent = img->height + 2 * img->vmargin - it->ascent;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1738 it->pixel_width = img->width + 2 * img->hmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1739
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1740 it->nglyphs = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1741
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1742 if (face->box != FACE_NO_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1743 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1744 if (face->box_line_width > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1745 {
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1746 it->ascent += face->box_line_width;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1747 it->descent += face->box_line_width;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1748 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1749
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1750 if (it->start_of_box_run_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1751 it->pixel_width += abs (face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1752 if (it->end_of_box_run_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1753 it->pixel_width += abs (face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1754 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1755
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1756 take_vertical_position_into_account (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1757
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1758 if (it->glyph_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1759 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1760 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1761 enum glyph_row_area area = it->area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1762
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1763 glyph = it->glyph_row->glyphs[area] + it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1764 if (glyph < it->glyph_row->glyphs[area + 1])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1765 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1766 glyph->charpos = CHARPOS (it->position);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1767 glyph->object = it->object;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1768 glyph->pixel_width = it->pixel_width;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1769 glyph->voffset = it->voffset;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1770 glyph->type = IMAGE_GLYPH;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1771 glyph->multibyte_p = it->multibyte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1772 glyph->left_box_line_p = it->start_of_box_run_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1773 glyph->right_box_line_p = it->end_of_box_run_p;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1774 glyph->overlaps_vertically_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1775 glyph->padding_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1776 glyph->glyph_not_available_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1777 glyph->face_id = it->face_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1778 glyph->u.img_id = img->id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1779 glyph->w32_font_type = UNKNOWN_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1780 ++it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1781 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1782 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1783 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1784
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1785
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1786 /* Append a stretch glyph to IT->glyph_row. OBJECT is the source
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1787 of the glyph, WIDTH and HEIGHT are the width and height of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1788 stretch. ASCENT is the percentage/100 of HEIGHT to use for the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1789 ascent of the glyph (0 <= ASCENT <= 1). */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1790
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1791 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1792 x_append_stretch_glyph (it, object, width, height, ascent)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1793 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1794 Lisp_Object object;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1795 int width, height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1796 double ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1797 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1798 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1799 enum glyph_row_area area = it->area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1800
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1801 xassert (ascent >= 0 && ascent <= 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1802
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1803 glyph = it->glyph_row->glyphs[area] + it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1804 if (glyph < it->glyph_row->glyphs[area + 1])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1805 {
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1806 glyph->charpos = CHARPOS (it->position);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1807 glyph->object = object;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1808 glyph->pixel_width = width;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1809 glyph->voffset = it->voffset;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1810 glyph->type = STRETCH_GLYPH;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1811 glyph->multibyte_p = it->multibyte_p;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1812 glyph->left_box_line_p = it->start_of_box_run_p;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1813 glyph->right_box_line_p = it->end_of_box_run_p;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1814 glyph->overlaps_vertically_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1815 glyph->padding_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1816 glyph->glyph_not_available_p = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1817 glyph->face_id = it->face_id;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1818 glyph->u.stretch.ascent = height * ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1819 glyph->u.stretch.height = height;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1820 glyph->w32_font_type = UNKNOWN_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1821 ++it->glyph_row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1822 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1823 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1824
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1825
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1826 /* Produce a stretch glyph for iterator IT. IT->object is the value
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1827 of the glyph property displayed. The value must be a list
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1828 `(space KEYWORD VALUE ...)' with the following KEYWORD/VALUE pairs
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1829 being recognized:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1830
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1831 1. `:width WIDTH' specifies that the space should be WIDTH *
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1832 canonical char width wide. WIDTH may be an integer or floating
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1833 point number.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1834
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1835 2. `:relative-width FACTOR' specifies that the width of the stretch
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1836 should be computed from the width of the first character having the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1837 `glyph' property, and should be FACTOR times that width.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1838
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1839 3. `:align-to HPOS' specifies that the space should be wide enough
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1840 to reach HPOS, a value in canonical character units.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1841
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1842 Exactly one of the above pairs must be present.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1843
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1844 4. `:height HEIGHT' specifies that the height of the stretch produced
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1845 should be HEIGHT, measured in canonical character units.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1846
42675
640c0fcaebf1 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 42544
diff changeset
1847 5. `:relative-height FACTOR' specifies that the height of the
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1848 stretch should be FACTOR times the height of the characters having
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1849 the glyph property.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1850
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1851 Either none or exactly one of 4 or 5 must be present.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1852
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1853 6. `:ascent ASCENT' specifies that ASCENT percent of the height
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1854 of the stretch should be used for the ascent of the stretch.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1855 ASCENT must be in the range 0 <= ASCENT <= 100. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1856
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1857 #define NUMVAL(X) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1858 ((INTEGERP (X) || FLOATP (X)) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1859 ? XFLOATINT (X) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1860 : - 1)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1861
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1862
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
1863 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1864 x_produce_stretch_glyph (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1865 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1866 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1867 /* (space :width WIDTH :height HEIGHT. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1868 #if GLYPH_DEBUG
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1869 extern Lisp_Object Qspace;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1870 #endif
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1871 extern Lisp_Object QCwidth, QCheight, QCascent;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1872 extern Lisp_Object QCrelative_width, QCrelative_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1873 extern Lisp_Object QCalign_to;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1874 Lisp_Object prop, plist;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1875 double width = 0, height = 0, ascent = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1876 struct face *face = FACE_FROM_ID (it->f, it->face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1877 XFontStruct *font = face->font ? face->font : FRAME_FONT (it->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1878
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1879 PREPARE_FACE_FOR_DISPLAY (it->f, face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1880
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1881 /* List should start with `space'. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1882 xassert (CONSP (it->object) && EQ (XCAR (it->object), Qspace));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1883 plist = XCDR (it->object);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1884
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1885 /* Compute the width of the stretch. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1886 if (prop = Fplist_get (plist, QCwidth),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1887 NUMVAL (prop) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1888 /* Absolute width `:width WIDTH' specified and valid. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1889 width = NUMVAL (prop) * CANON_X_UNIT (it->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1890 else if (prop = Fplist_get (plist, QCrelative_width),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1891 NUMVAL (prop) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1892 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1893 /* Relative width `:relative-width FACTOR' specified and valid.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1894 Compute the width of the characters having the `glyph'
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1895 property. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1896 struct it it2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1897 unsigned char *p = BYTE_POS_ADDR (IT_BYTEPOS (*it));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1898
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1899 it2 = *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1900 if (it->multibyte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1901 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1902 int maxlen = ((IT_BYTEPOS (*it) >= GPT ? ZV : GPT)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1903 - IT_BYTEPOS (*it));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1904 it2.c = STRING_CHAR_AND_LENGTH (p, maxlen, it2.len);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1905 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1906 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1907 it2.c = *p, it2.len = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1908
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1909 it2.glyph_row = NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1910 it2.what = IT_CHARACTER;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1911 x_produce_glyphs (&it2);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1912 width = NUMVAL (prop) * it2.pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1913 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1914 else if (prop = Fplist_get (plist, QCalign_to),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1915 NUMVAL (prop) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1916 width = NUMVAL (prop) * CANON_X_UNIT (it->f) - it->current_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1917 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1918 /* Nothing specified -> width defaults to canonical char width. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1919 width = CANON_X_UNIT (it->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1920
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1921 /* Compute height. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1922 if (prop = Fplist_get (plist, QCheight),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1923 NUMVAL (prop) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1924 height = NUMVAL (prop) * CANON_Y_UNIT (it->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1925 else if (prop = Fplist_get (plist, QCrelative_height),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1926 NUMVAL (prop) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1927 height = FONT_HEIGHT (font) * NUMVAL (prop);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1928 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1929 height = FONT_HEIGHT (font);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1930
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1931 /* Compute percentage of height used for ascent. If
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1932 `:ascent ASCENT' is present and valid, use that. Otherwise,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1933 derive the ascent from the font in use. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1934 if (prop = Fplist_get (plist, QCascent),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1935 NUMVAL (prop) > 0 && NUMVAL (prop) <= 100)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1936 ascent = NUMVAL (prop) / 100.0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1937 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1938 ascent = (double) FONT_BASE (font) / FONT_HEIGHT (font);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1939
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1940 if (width <= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1941 width = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1942 if (height <= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1943 height = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1944
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1945 if (it->glyph_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1946 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1947 Lisp_Object object = it->stack[it->sp - 1].string;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1948 if (!STRINGP (object))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1949 object = it->w->buffer;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1950 x_append_stretch_glyph (it, object, width, height, ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1951 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1952
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1953 it->pixel_width = width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1954 it->ascent = it->phys_ascent = height * ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1955 it->descent = it->phys_descent = height - it->ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1956 it->nglyphs = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1957
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1958 if (face->box != FACE_NO_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1959 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1960 if (face->box_line_width > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1961 {
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1962 it->ascent += face->box_line_width;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1963 it->descent += face->box_line_width;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1964 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1965
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1966 if (it->start_of_box_run_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1967 it->pixel_width += abs (face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1968 if (it->end_of_box_run_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1969 it->pixel_width += abs (face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1970 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1971
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1972 take_vertical_position_into_account (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1973 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1974
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1975 /* Return proper value to be used as baseline offset of font that has
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1976 ASCENT and DESCENT to draw characters by the font at the vertical
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1977 center of the line of frame F.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1978
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1979 Here, out task is to find the value of BOFF in the following figure;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1980
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1981 -------------------------+-----------+-
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1982 -+-+---------+-+ | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1983 | | | | | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1984 | | | | F_ASCENT F_HEIGHT
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1985 | | | ASCENT | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1986 HEIGHT | | | | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1987 | | |-|-+------+-----------|------- baseline
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1988 | | | | BOFF | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1989 | |---------|-+-+ | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1990 | | | DESCENT | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1991 -+-+---------+-+ F_DESCENT |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1992 -------------------------+-----------+-
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1993
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1994 -BOFF + DESCENT + (F_HEIGHT - HEIGHT) / 2 = F_DESCENT
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1995 BOFF = DESCENT + (F_HEIGHT - HEIGHT) / 2 - F_DESCENT
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1996 DESCENT = FONT->descent
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1997 HEIGHT = FONT_HEIGHT (FONT)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1998 F_DESCENT = (F->output_data.x->font->descent
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1999 - F->output_data.x->baseline_offset)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2000 F_HEIGHT = FRAME_LINE_HEIGHT (F)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2001 */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2002
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2003 #define VCENTER_BASELINE_OFFSET(FONT, F) \
33289
834a6b4f08a4 (VCENTER_BASELINE_OFFSET): Fix previous change. If the
Kenichi Handa <handa@m17n.org>
parents: 33218
diff changeset
2004 (FONT_DESCENT (FONT) \
834a6b4f08a4 (VCENTER_BASELINE_OFFSET): Fix previous change. If the
Kenichi Handa <handa@m17n.org>
parents: 33218
diff changeset
2005 + (FRAME_LINE_HEIGHT ((F)) - FONT_HEIGHT ((FONT)) \
834a6b4f08a4 (VCENTER_BASELINE_OFFSET): Fix previous change. If the
Kenichi Handa <handa@m17n.org>
parents: 33218
diff changeset
2006 + (FRAME_LINE_HEIGHT ((F)) > FONT_HEIGHT ((FONT)))) / 2 \
834a6b4f08a4 (VCENTER_BASELINE_OFFSET): Fix previous change. If the
Kenichi Handa <handa@m17n.org>
parents: 33218
diff changeset
2007 - (FONT_DESCENT (FRAME_FONT (F)) - FRAME_BASELINE_OFFSET (F)))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2008
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2009 /* Produce glyphs/get display metrics for the display element IT is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2010 loaded with. See the description of struct display_iterator in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2011 dispextern.h for an overview of struct display_iterator. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2012
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2013 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2014 x_produce_glyphs (it)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2015 struct it *it;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2016 {
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2017 it->glyph_not_available_p = 0;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2018
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2019 if (it->what == IT_CHARACTER)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2020 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2021 wchar_t char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2022 XFontStruct *font;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2023 struct face *face = FACE_FROM_ID (it->f, it->face_id);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2024 XCharStruct *pcm;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2025 int font_not_found_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2026 struct font_info *font_info;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2027 int boff; /* baseline offset */
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2028 /* We may change it->multibyte_p upon unibyte<->multibyte
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2029 conversion. So, save the current value now and restore it
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2030 later.
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2031
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2032 Note: It seems that we don't have to record multibyte_p in
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2033 struct glyph because the character code itself tells if or
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2034 not the character is multibyte. Thus, in the future, we must
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2035 consider eliminating the field `multibyte_p' in the struct
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2036 glyph.
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2037 */
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2038 int saved_multibyte_p = it->multibyte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2039
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2040 /* Maybe translate single-byte characters to multibyte, or the
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2041 other way. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2042 it->char_to_display = it->c;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2043 if (!ASCII_BYTE_P (it->c))
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2044 {
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2045 if (unibyte_display_via_language_environment
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2046 && SINGLE_BYTE_CHAR_P (it->c)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2047 && (it->c >= 0240
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2048 || !NILP (Vnonascii_translation_table)))
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2049 {
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2050 it->char_to_display = unibyte_char_to_multibyte (it->c);
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2051 it->multibyte_p = 1;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2052 it->face_id = FACE_FOR_CHAR (it->f, face, it->char_to_display);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2053 face = FACE_FROM_ID (it->f, it->face_id);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2054 }
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2055 else if (!SINGLE_BYTE_CHAR_P (it->c)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2056 && !it->multibyte_p)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2057 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2058 it->multibyte_p = 1;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2059 it->face_id = FACE_FOR_CHAR (it->f, face, it->char_to_display);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2060 face = FACE_FROM_ID (it->f, it->face_id);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2061 }
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2062 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2063
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2064 /* Get font to use. Encode IT->char_to_display. */
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2065 x_get_char_face_and_encoding (it->f, it->char_to_display,
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2066 it->face_id, &char2b,
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2067 it->multibyte_p);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2068 font = face->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2069
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2070 /* When no suitable font found, use the default font. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2071 font_not_found_p = font == NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2072 if (font_not_found_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2073 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2074 font = FRAME_FONT (it->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2075 boff = it->f->output_data.w32->baseline_offset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2076 font_info = NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2077 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2078 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2079 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2080 font_info = FONT_INFO_FROM_ID (it->f, face->font_info_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2081 boff = font_info->baseline_offset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2082 if (font_info->vertical_centering)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2083 boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2084 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2085
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2086 if (it->char_to_display >= ' '
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2087 && (!it->multibyte_p || it->char_to_display < 128))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2088 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2089 /* Either unibyte or ASCII. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2090 int stretched_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2091
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2092 it->nglyphs = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2093
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
2094 pcm = w32_per_char_metric (font, &char2b,
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2095 font->bdf ? BDF_1D_FONT : ANSI_FONT);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2096 it->ascent = FONT_BASE (font) + boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2097 it->descent = FONT_DESCENT (font) - boff;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2098
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2099 if (pcm)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2100 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2101 it->phys_ascent = pcm->ascent + boff;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2102 it->phys_descent = pcm->descent - boff;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2103 it->pixel_width = pcm->width;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2104 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2105 else
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2106 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2107 it->glyph_not_available_p = 1;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2108 it->phys_ascent = FONT_BASE (font) + boff;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2109 it->phys_descent = FONT_DESCENT (font) - boff;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2110 it->pixel_width = FONT_WIDTH (font);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2111 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2112
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2113 /* If this is a space inside a region of text with
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2114 `space-width' property, change its width. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2115 stretched_p = it->char_to_display == ' ' && !NILP (it->space_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2116 if (stretched_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2117 it->pixel_width *= XFLOATINT (it->space_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2118
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2119 /* If face has a box, add the box thickness to the character
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2120 height. If character has a box line to the left and/or
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2121 right, add the box line width to the character's width. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2122 if (face->box != FACE_NO_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2123 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2124 int thick = face->box_line_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2125
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2126 if (thick > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2127 {
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2128 it->ascent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2129 it->descent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2130 }
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2131 else
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2132 thick = -thick;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2133
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2134 if (it->start_of_box_run_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2135 it->pixel_width += thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2136 if (it->end_of_box_run_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2137 it->pixel_width += thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2138 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2139
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2140 /* If face has an overline, add the height of the overline
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2141 (1 pixel) and a 1 pixel margin to the character height. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2142 if (face->overline_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2143 it->ascent += 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2144
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2145 take_vertical_position_into_account (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2146
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2147 /* If we have to actually produce glyphs, do it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2148 if (it->glyph_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2149 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2150 if (stretched_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2151 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2152 /* Translate a space with a `space-width' property
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2153 into a stretch glyph. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2154 double ascent = (double) FONT_BASE (font)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2155 / FONT_HEIGHT (font);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2156 x_append_stretch_glyph (it, it->object, it->pixel_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2157 it->ascent + it->descent, ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2158 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2159 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2160 x_append_glyph (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2161
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2162 /* If characters with lbearing or rbearing are displayed
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2163 in this line, record that fact in a flag of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2164 glyph row. This is used to optimize X output code. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2165 if (pcm && (pcm->lbearing < 0 || pcm->rbearing > pcm->width))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2166 it->glyph_row->contains_overlapping_glyphs_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2167 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2168 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2169 else if (it->char_to_display == '\n')
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2170 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2171 /* A newline has no width but we need the height of the line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2172 it->pixel_width = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2173 it->nglyphs = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2174 it->ascent = it->phys_ascent = FONT_BASE (font) + boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2175 it->descent = it->phys_descent = FONT_DESCENT (font) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2176
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2177 if (face->box != FACE_NO_BOX
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2178 && face->box_line_width > 0)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2179 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2180 it->ascent += face->box_line_width;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2181 it->descent += face->box_line_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2182 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2183 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2184 else if (it->char_to_display == '\t')
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2185 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2186 int tab_width = it->tab_width * CANON_X_UNIT (it->f);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2187 int x = it->current_x + it->continuation_lines_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2188 int next_tab_x = ((1 + x + tab_width - 1) / tab_width) * tab_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2189
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2190 /* If the distance from the current position to the next tab
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2191 stop is less than a canonical character width, use the
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2192 tab stop after that. */
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2193 if (next_tab_x - x < CANON_X_UNIT (it->f))
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2194 next_tab_x += tab_width;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2195
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2196 it->pixel_width = next_tab_x - x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2197 it->nglyphs = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2198 it->ascent = it->phys_ascent = FONT_BASE (font) + boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2199 it->descent = it->phys_descent = FONT_DESCENT (font) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2200
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2201 if (it->glyph_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2202 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2203 double ascent = (double) it->ascent / (it->ascent + it->descent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2204 x_append_stretch_glyph (it, it->object, it->pixel_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2205 it->ascent + it->descent, ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2206 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2207 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2208 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2209 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
2210 /* A multi-byte character.
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
2211 If we found a font, this font should give us the right
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2212 metrics. If we didn't find a font, use the frame's
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2213 default font and calculate the width of the character
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2214 from the charset width; this is what old redisplay code
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2215 did. */
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2216 enum w32_char_font_type type;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2217
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2218 if (font->bdf && CHARSET_DIMENSION (CHAR_CHARSET (it->c)) == 1)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2219 type = BDF_1D_FONT;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2220 else if (font->bdf)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2221 type = BDF_2D_FONT;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2222 else
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2223 type = UNICODE_FONT;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2224
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
2225 pcm = w32_per_char_metric (font, &char2b, type);
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2226
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2227 if (font_not_found_p || !pcm)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2228 {
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2229 int charset = CHAR_CHARSET (it->char_to_display);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2230
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2231 it->glyph_not_available_p = 1;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2232 it->pixel_width = (FONT_WIDTH (FRAME_FONT (it->f))
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2233 * CHARSET_WIDTH (charset));
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2234 it->phys_ascent = FONT_BASE (font) + boff;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2235 it->phys_descent = FONT_DESCENT (font) - boff;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2236 }
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2237 else
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2238 {
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2239 it->pixel_width = pcm->width;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2240 it->phys_ascent = pcm->ascent + boff;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2241 it->phys_descent = pcm->descent - boff;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2242 if (it->glyph_row
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2243 && (pcm->lbearing < 0
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2244 || pcm->rbearing > pcm->width))
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2245 it->glyph_row->contains_overlapping_glyphs_p = 1;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
2246 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2247 it->nglyphs = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2248 it->ascent = FONT_BASE (font) + boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2249 it->descent = FONT_DESCENT (font) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2250 if (face->box != FACE_NO_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2251 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2252 int thick = face->box_line_width;
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2253
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2254 if (thick > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2255 {
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2256 it->ascent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2257 it->descent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2258 }
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2259 else
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2260 thick = - thick;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2261
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2262 if (it->start_of_box_run_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2263 it->pixel_width += thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2264 if (it->end_of_box_run_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2265 it->pixel_width += thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2266 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2267
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2268 /* If face has an overline, add the height of the overline
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2269 (1 pixel) and a 1 pixel margin to the character height. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2270 if (face->overline_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2271 it->ascent += 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2272
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2273 take_vertical_position_into_account (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2274
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2275 if (it->glyph_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2276 x_append_glyph (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2277 }
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
2278 it->multibyte_p = saved_multibyte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2279 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2280 else if (it->what == IT_COMPOSITION)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2281 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2282 /* Note: A composition is represented as one glyph in the
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2283 glyph matrix. There are no padding glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2284 wchar_t char2b;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2285 XFontStruct *font;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2286 struct face *face = FACE_FROM_ID (it->f, it->face_id);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2287 XCharStruct *pcm;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2288 int font_not_found_p;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2289 struct font_info *font_info;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2290 int boff; /* baseline offset */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2291 struct composition *cmp = composition_table[it->cmp_id];
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2292
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2293 /* Maybe translate single-byte characters to multibyte. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2294 it->char_to_display = it->c;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2295 if (unibyte_display_via_language_environment
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2296 && SINGLE_BYTE_CHAR_P (it->c)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2297 && (it->c >= 0240
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2298 || (it->c >= 0200
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2299 && !NILP (Vnonascii_translation_table))))
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2300 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2301 it->char_to_display = unibyte_char_to_multibyte (it->c);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2302 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2303
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2304 /* Get face and font to use. Encode IT->char_to_display. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2305 it->face_id = FACE_FOR_CHAR (it->f, face, it->char_to_display);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2306 face = FACE_FROM_ID (it->f, it->face_id);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2307 x_get_char_face_and_encoding (it->f, it->char_to_display,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2308 it->face_id, &char2b, it->multibyte_p);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2309 font = face->font;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2310
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2311 /* When no suitable font found, use the default font. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2312 font_not_found_p = font == NULL;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2313 if (font_not_found_p)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2314 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2315 font = FRAME_FONT (it->f);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2316 boff = it->f->output_data.w32->baseline_offset;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2317 font_info = NULL;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2318 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2319 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2320 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2321 font_info = FONT_INFO_FROM_ID (it->f, face->font_info_id);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2322 boff = font_info->baseline_offset;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2323 if (font_info->vertical_centering)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2324 boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2325 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2326
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2327 /* There are no padding glyphs, so there is only one glyph to
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2328 produce for the composition. Important is that pixel_width,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2329 ascent and descent are the values of what is drawn by
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2330 draw_glyphs (i.e. the values of the overall glyphs composed). */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2331 it->nglyphs = 1;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2332
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2333 /* If we have not yet calculated pixel size data of glyphs of
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2334 the composition for the current face font, calculate them
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2335 now. Theoretically, we have to check all fonts for the
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2336 glyphs, but that requires much time and memory space. So,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2337 here we check only the font of the first glyph. This leads
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2338 to incorrect display very rarely, and C-l (recenter) can
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2339 correct the display anyway. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2340 if (cmp->font != (void *) font)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2341 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2342 /* Ascent and descent of the font of the first character of
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2343 this composition (adjusted by baseline offset). Ascent
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2344 and descent of overall glyphs should not be less than
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2345 them respectively. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2346 int font_ascent = FONT_BASE (font) + boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2347 int font_descent = FONT_DESCENT (font) - boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2348 /* Bounding box of the overall glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2349 int leftmost, rightmost, lowest, highest;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2350 int i, width, ascent, descent;
33218
1d2f8848f63e (x_produce_glyphs): Fix typo in enum name.
Andrew Innes <andrewi@gnu.org>
parents: 33097
diff changeset
2351 enum w32_char_font_type font_type;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2352
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2353 cmp->font = (void *) font;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2354
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2355 if (font->bdf && CHARSET_DIMENSION (CHAR_CHARSET (it->c)) == 1)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2356 font_type = BDF_1D_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2357 else if (font->bdf)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2358 font_type = BDF_2D_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2359 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2360 font_type = UNICODE_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2361
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2362 /* Initialize the bounding box. */
34222
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2363 if (font_info
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2364 && (pcm = w32_per_char_metric (font, &char2b, font_type)))
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2365 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2366 width = pcm->width;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2367 ascent = pcm->ascent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2368 descent = pcm->descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2369 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2370 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2371 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2372 width = FONT_WIDTH (font);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2373 ascent = FONT_BASE (font);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2374 descent = FONT_DESCENT (font);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2375 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2376
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2377 rightmost = width;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2378 lowest = - descent + boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2379 highest = ascent + boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2380 leftmost = 0;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2381
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2382 if (font_info
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2383 && font_info->default_ascent
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2384 && CHAR_TABLE_P (Vuse_default_ascent)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2385 && !NILP (Faref (Vuse_default_ascent,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2386 make_number (it->char_to_display))))
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2387 highest = font_info->default_ascent + boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2388
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2389 /* Draw the first glyph at the normal position. It may be
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2390 shifted to right later if some other glyphs are drawn at
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2391 the left. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2392 cmp->offsets[0] = 0;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2393 cmp->offsets[1] = boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2394
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2395 /* Set cmp->offsets for the remaining glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2396 for (i = 1; i < cmp->glyph_len; i++)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2397 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2398 int left, right, btm, top;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2399 int ch = COMPOSITION_GLYPH (cmp, i);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2400 int face_id = FACE_FOR_CHAR (it->f, face, ch);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2401
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2402 face = FACE_FROM_ID (it->f, face_id);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2403 x_get_char_face_and_encoding (it->f, ch, face->id, &char2b,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2404 it->multibyte_p);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2405 font = face->font;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2406 if (font == NULL)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2407 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2408 font = FRAME_FONT (it->f);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2409 boff = it->f->output_data.w32->baseline_offset;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2410 font_info = NULL;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2411 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2412 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2413 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2414 font_info
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2415 = FONT_INFO_FROM_ID (it->f, face->font_info_id);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2416 boff = font_info->baseline_offset;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2417 if (font_info->vertical_centering)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2418 boff = VCENTER_BASELINE_OFFSET (font, it->f) - boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2419 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2420
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2421 if (font->bdf && CHARSET_DIMENSION (CHAR_CHARSET (ch)) == 1)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2422 font_type = BDF_1D_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2423 else if (font->bdf)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2424 font_type = BDF_2D_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2425 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2426 font_type = UNICODE_FONT;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2427
34222
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2428 if (font_info
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2429 && (pcm = w32_per_char_metric (font, &char2b, font_type)))
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2430 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2431 width = pcm->width;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2432 ascent = pcm->ascent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2433 descent = pcm->descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2434 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2435 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2436 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2437 width = FONT_WIDTH (font);
34222
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2438 ascent = 1;
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
2439 descent = 0;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2440 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2441
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2442 if (cmp->method != COMPOSITION_WITH_RULE_ALTCHARS)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2443 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2444 /* Relative composition with or without
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2445 alternate chars. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2446 left = (leftmost + rightmost - width) / 2;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2447 btm = - descent + boff;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2448 if (font_info && font_info->relative_compose
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2449 && (! CHAR_TABLE_P (Vignore_relative_composition)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2450 || NILP (Faref (Vignore_relative_composition,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2451 make_number (ch)))))
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2452 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2453
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2454 if (- descent >= font_info->relative_compose)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2455 /* One extra pixel between two glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2456 btm = highest + 1;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2457 else if (ascent <= 0)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2458 /* One extra pixel between two glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2459 btm = lowest - 1 - ascent - descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2460 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2461 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2462 else
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2463 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2464 /* A composition rule is specified by an integer
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2465 value that encodes global and new reference
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2466 points (GREF and NREF). GREF and NREF are
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2467 specified by numbers as below:
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2468
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2469 0---1---2 -- ascent
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2470 | |
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2471 | |
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2472 | |
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2473 9--10--11 -- center
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2474 | |
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2475 ---3---4---5--- baseline
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2476 | |
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2477 6---7---8 -- descent
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2478 */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2479 int rule = COMPOSITION_RULE (cmp, i);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2480 int gref, nref, grefx, grefy, nrefx, nrefy;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2481
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2482 COMPOSITION_DECODE_RULE (rule, gref, nref);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2483 grefx = gref % 3, nrefx = nref % 3;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2484 grefy = gref / 3, nrefy = nref / 3;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2485
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2486 left = (leftmost
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2487 + grefx * (rightmost - leftmost) / 2
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2488 - nrefx * width / 2);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2489 btm = ((grefy == 0 ? highest
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2490 : grefy == 1 ? 0
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2491 : grefy == 2 ? lowest
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2492 : (highest + lowest) / 2)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2493 - (nrefy == 0 ? ascent + descent
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2494 : nrefy == 1 ? descent - boff
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2495 : nrefy == 2 ? 0
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2496 : (ascent + descent) / 2));
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2497 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2498
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2499 cmp->offsets[i * 2] = left;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2500 cmp->offsets[i * 2 + 1] = btm + descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2501
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2502 /* Update the bounding box of the overall glyphs. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2503 right = left + width;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2504 top = btm + descent + ascent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2505 if (left < leftmost)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2506 leftmost = left;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2507 if (right > rightmost)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2508 rightmost = right;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2509 if (top > highest)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2510 highest = top;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2511 if (btm < lowest)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2512 lowest = btm;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2513 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2514
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2515 /* If there are glyphs whose x-offsets are negative,
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2516 shift all glyphs to the right and make all x-offsets
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2517 non-negative. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2518 if (leftmost < 0)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2519 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2520 for (i = 0; i < cmp->glyph_len; i++)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2521 cmp->offsets[i * 2] -= leftmost;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2522 rightmost -= leftmost;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2523 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2524
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2525 cmp->pixel_width = rightmost;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2526 cmp->ascent = highest;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2527 cmp->descent = - lowest;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2528 if (cmp->ascent < font_ascent)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2529 cmp->ascent = font_ascent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2530 if (cmp->descent < font_descent)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2531 cmp->descent = font_descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2532 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2533
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2534 it->pixel_width = cmp->pixel_width;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2535 it->ascent = it->phys_ascent = cmp->ascent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2536 it->descent = it->phys_descent = cmp->descent;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2537
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2538 if (face->box != FACE_NO_BOX)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2539 {
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2540 int thick = face->box_line_width;
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2541
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2542 if (thick > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2543 {
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2544 it->ascent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2545 it->descent += thick;
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2546 }
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2547 else
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2548 thick = - thick;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2549
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2550 if (it->start_of_box_run_p)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2551 it->pixel_width += thick;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2552 if (it->end_of_box_run_p)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2553 it->pixel_width += thick;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2554 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2555
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2556 /* If face has an overline, add the height of the overline
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2557 (1 pixel) and a 1 pixel margin to the character height. */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2558 if (face->overline_p)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2559 it->ascent += 2;
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2560
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2561 take_vertical_position_into_account (it);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2562
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2563 if (it->glyph_row)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2564 x_append_composite_glyph (it);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2565 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2566 else if (it->what == IT_IMAGE)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2567 x_produce_image_glyph (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2568 else if (it->what == IT_STRETCH)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2569 x_produce_stretch_glyph (it);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2570
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2571 /* Accumulate dimensions. Note: can't assume that it->descent > 0
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2572 because this isn't true for images with `:ascent 100'. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2573 xassert (it->ascent >= 0 && it->descent >= 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2574 if (it->area == TEXT_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2575 it->current_x += it->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2576
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2577 it->descent += it->extra_line_spacing;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2578
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2579 it->max_ascent = max (it->max_ascent, it->ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2580 it->max_descent = max (it->max_descent, it->descent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2581 it->max_phys_ascent = max (it->max_phys_ascent, it->phys_ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2582 it->max_phys_descent = max (it->max_phys_descent, it->phys_descent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2583 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2584
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2585
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2586 /* Estimate the pixel height of the mode or top line on frame F.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2587 FACE_ID specifies what line's height to estimate. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2588
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2589 int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2590 x_estimate_mode_line_height (f, face_id)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2591 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2592 enum face_id face_id;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2593 {
34135
2d899d158741 (x_estimate_mode_line_height): If `mode-line' face hasn't a font, use
Jason Rumney <jasonr@gnu.org>
parents: 34112
diff changeset
2594 int height = FONT_HEIGHT (FRAME_FONT (f));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2595
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2596 /* This function is called so early when Emacs starts that the face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2597 cache and mode line face are not yet initialized. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2598 if (FRAME_FACE_CACHE (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2599 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2600 struct face *face = FACE_FROM_ID (f, face_id);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2601 if (face)
34135
2d899d158741 (x_estimate_mode_line_height): If `mode-line' face hasn't a font, use
Jason Rumney <jasonr@gnu.org>
parents: 34112
diff changeset
2602 {
2d899d158741 (x_estimate_mode_line_height): If `mode-line' face hasn't a font, use
Jason Rumney <jasonr@gnu.org>
parents: 34112
diff changeset
2603 if (face->font)
2d899d158741 (x_estimate_mode_line_height): If `mode-line' face hasn't a font, use
Jason Rumney <jasonr@gnu.org>
parents: 34112
diff changeset
2604 height = FONT_HEIGHT (face->font);
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2605 if (face->box_line_width > 0)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2606 height += 2 * face->box_line_width;
34135
2d899d158741 (x_estimate_mode_line_height): If `mode-line' face hasn't a font, use
Jason Rumney <jasonr@gnu.org>
parents: 34112
diff changeset
2607 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2608 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2609
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2610 return height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2611 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2612
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2613
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2614 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2615 Glyph display
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2616 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2617
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2618 /* A sequence of glyphs to be drawn in the same face.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2619
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2620 This data structure is not really completely X specific, so it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2621 could possibly, at least partially, be useful for other systems. It
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2622 is currently not part of the external redisplay interface because
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2623 it's not clear what other systems will need. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2624
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2625 struct glyph_string
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2626 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2627 /* X-origin of the string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2628 int x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2629
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2630 /* Y-origin and y-position of the base line of this string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2631 int y, ybase;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2632
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2633 /* The width of the string, not including a face extension. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2634 int width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2635
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2636 /* The width of the string, including a face extension. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2637 int background_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2638
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2639 /* The height of this string. This is the height of the line this
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2640 string is drawn in, and can be different from the height of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2641 font the string is drawn in. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2642 int height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2643
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2644 /* Number of pixels this string overwrites in front of its x-origin.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2645 This number is zero if the string has an lbearing >= 0; it is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2646 -lbearing, if the string has an lbearing < 0. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2647 int left_overhang;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2648
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2649 /* Number of pixels this string overwrites past its right-most
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2650 nominal x-position, i.e. x + width. Zero if the string's
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2651 rbearing is <= its nominal width, rbearing - width otherwise. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2652 int right_overhang;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2653
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2654 /* The frame on which the glyph string is drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2655 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2656
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2657 /* The window on which the glyph string is drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2658 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2659
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2660 /* X display and window for convenience. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2661 Window window;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2662
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2663 /* The glyph row for which this string was built. It determines the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2664 y-origin and height of the string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2665 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2666
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2667 /* The area within row. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2668 enum glyph_row_area area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2669
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2670 /* Characters to be drawn, and number of characters. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2671 wchar_t *char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2672 int nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2673
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2674 /* A face-override for drawing cursors, mouse face and similar. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2675 enum draw_glyphs_face hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2676
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2677 /* Face in which this string is to be drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2678 struct face *face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2679
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2680 /* Font in which this string is to be drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2681 XFontStruct *font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2682
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2683 /* Font info for this string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2684 struct font_info *font_info;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2685
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2686 /* Non-null means this string describes (part of) a composition.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2687 All characters from char2b are drawn composed. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2688 struct composition *cmp;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2689
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2690 /* Index of this glyph string's first character in the glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2691 definition of CMP. If this is zero, this glyph string describes
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2692 the first character of a composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2693 int gidx;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2694
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2695 /* 1 means this glyph strings face has to be drawn to the right end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2696 of the window's drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2697 unsigned extends_to_end_of_line_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2698
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2699 /* 1 means the background of this string has been drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2700 unsigned background_filled_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2701
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2702 /* 1 means glyph string must be drawn with 16-bit functions. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2703 unsigned two_byte_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2704
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2705 /* 1 means that the original font determined for drawing this glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2706 string could not be loaded. The member `font' has been set to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2707 the frame's default font in this case. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2708 unsigned font_not_found_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2709
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2710 /* 1 means that the face in which this glyph string is drawn has a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2711 stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2712 unsigned stippled_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2713
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2714 /* 1 means only the foreground of this glyph string must be drawn,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2715 and we should use the physical height of the line this glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2716 string appears in as clip rect. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2717 unsigned for_overlaps_p : 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2718
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2719 /* The GC to use for drawing this glyph string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2720 XGCValues *gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2721
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2722 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2723
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2724 /* A pointer to the first glyph in the string. This glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2725 corresponds to char2b[0]. Needed to draw rectangles if
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2726 font_not_found_p is 1. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2727 struct glyph *first_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2728
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2729 /* Image, if any. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2730 struct image *img;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2731
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2732 struct glyph_string *next, *prev;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2733 };
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2734
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2735
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2736 /* Encapsulate the different ways of displaying text under W32. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2737
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2738 void W32_TEXTOUT (s, x, y,chars,nchars)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2739 struct glyph_string * s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2740 int x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2741 wchar_t * chars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2742 int nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2743 {
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2744 int charset_dim = w32_font_is_double_byte (s->gc->font) ? 2 : 1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2745 if (s->gc->font->bdf)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2746 w32_BDF_TextOut (s->gc->font->bdf, s->hdc,
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
2747 x, y, (char *) chars, charset_dim,
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
2748 nchars * charset_dim, 0);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2749 else if (s->first_glyph->w32_font_type == UNICODE_FONT)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2750 ExtTextOutW (s->hdc, x, y, 0, NULL, chars, nchars, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2751 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2752 ExtTextOut (s->hdc, x, y, 0, NULL, (char *) chars,
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2753 nchars * charset_dim, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2754 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2755
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2756 #if GLYPH_DEBUG
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2757
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2758 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2759 x_dump_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2760 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2761 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2762 fprintf (stderr, "glyph string\n");
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2763 fprintf (stderr, " x, y, w, h = %d, %d, %d, %d\n",
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2764 s->x, s->y, s->width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2765 fprintf (stderr, " ybase = %d\n", s->ybase);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2766 fprintf (stderr, " hl = %d\n", s->hl);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2767 fprintf (stderr, " left overhang = %d, right = %d\n",
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2768 s->left_overhang, s->right_overhang);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2769 fprintf (stderr, " nchars = %d\n", s->nchars);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2770 fprintf (stderr, " extends to end of line = %d\n",
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2771 s->extends_to_end_of_line_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2772 fprintf (stderr, " font height = %d\n", FONT_HEIGHT (s->font));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2773 fprintf (stderr, " bg width = %d\n", s->background_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2774 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2775
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2776 #endif /* GLYPH_DEBUG */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2777
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2778
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2779
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2780 static void x_append_glyph_string_lists P_ ((struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2781 struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2782 struct glyph_string *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2783 struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2784 static void x_prepend_glyph_string_lists P_ ((struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2785 struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2786 struct glyph_string *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2787 struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2788 static void x_append_glyph_string P_ ((struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2789 struct glyph_string **,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2790 struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2791 static int x_left_overwritten P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2792 static int x_left_overwriting P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2793 static int x_right_overwritten P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2794 static int x_right_overwriting P_ ((struct glyph_string *));
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2795 static int x_fill_glyph_string P_ ((struct glyph_string *, int, int, int,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2796 int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2797 static void w32_init_glyph_string P_ ((struct glyph_string *, HDC hdc,
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2798 wchar_t *, struct window *,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2799 struct glyph_row *,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2800 enum glyph_row_area, int,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2801 enum draw_glyphs_face));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2802 static int x_draw_glyphs P_ ((struct window *, int , struct glyph_row *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2803 enum glyph_row_area, int, int,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
2804 enum draw_glyphs_face, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2805 static void x_set_glyph_string_clipping P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2806 static void x_set_glyph_string_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2807 static void x_draw_glyph_string_background P_ ((struct glyph_string *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2808 int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2809 static void x_draw_glyph_string_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2810 static void x_draw_composite_glyph_string_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2811 static void x_draw_glyph_string_box P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2812 static void x_draw_glyph_string P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2813 static void x_compute_glyph_string_overhangs P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2814 static void x_set_cursor_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2815 static void x_set_mode_line_face_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2816 static void x_set_mouse_face_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2817 static void w32_get_glyph_overhangs P_ ((HDC hdc, struct glyph *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2818 struct frame *,
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2819 int *, int *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2820 static void x_compute_overhangs_and_x P_ ((struct glyph_string *, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2821 static int w32_alloc_lighter_color (struct frame *, COLORREF *, double, int);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2822 static void w32_setup_relief_color P_ ((struct frame *, struct relief *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2823 double, int, COLORREF));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2824 static void x_setup_relief_colors P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2825 static void x_draw_image_glyph_string P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2826 static void x_draw_image_relief P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2827 static void x_draw_image_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2828 static void w32_draw_image_foreground_1 P_ ((struct glyph_string *, HBITMAP));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2829 static void x_fill_image_glyph_string P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2830 static void x_clear_glyph_string_rect P_ ((struct glyph_string *, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2831 int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2832 static void w32_draw_relief_rect P_ ((struct frame *, int, int, int, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2833 int, int, int, int, RECT *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2834 static void w32_draw_box_rect P_ ((struct glyph_string *, int, int, int, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2835 int, int, int, RECT *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2836 static void x_fix_overlapping_area P_ ((struct window *, struct glyph_row *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2837 enum glyph_row_area));
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2838 static int x_fill_stretch_glyph_string P_ ((struct glyph_string *,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2839 struct glyph_row *,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2840 enum glyph_row_area, int, int));
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2841
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2842 #if GLYPH_DEBUG
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2843 static void x_check_font P_ ((struct frame *, XFontStruct *));
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2844 #endif
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2845
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2846
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2847 /* Append the list of glyph strings with head H and tail T to the list
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2848 with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the result. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2849
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2850 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2851 x_append_glyph_string_lists (head, tail, h, t)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2852 struct glyph_string **head, **tail;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2853 struct glyph_string *h, *t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2854 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2855 if (h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2856 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2857 if (*head)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2858 (*tail)->next = h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2859 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2860 *head = h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2861 h->prev = *tail;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2862 *tail = t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2863 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2864 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2865
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2866
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2867 /* Prepend the list of glyph strings with head H and tail T to the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2868 list with head *HEAD and tail *TAIL. Set *HEAD and *TAIL to the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2869 result. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2870
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2871 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2872 x_prepend_glyph_string_lists (head, tail, h, t)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2873 struct glyph_string **head, **tail;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2874 struct glyph_string *h, *t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2875 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2876 if (h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2877 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2878 if (*head)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2879 (*head)->prev = t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2880 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2881 *tail = t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2882 t->next = *head;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2883 *head = h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2884 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2885 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2886
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2887
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2888 /* Append glyph string S to the list with head *HEAD and tail *TAIL.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2889 Set *HEAD and *TAIL to the resulting list. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2890
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2891 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2892 x_append_glyph_string (head, tail, s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2893 struct glyph_string **head, **tail;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2894 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2895 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2896 s->next = s->prev = NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2897 x_append_glyph_string_lists (head, tail, s, s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2898 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2899
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2900
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2901 /* Set S->gc to a suitable GC for drawing glyph string S in cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2902 face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2903
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2904 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2905 x_set_cursor_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2906 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2907 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2908 if (s->font == FRAME_FONT (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2909 && s->face->background == FRAME_BACKGROUND_PIXEL (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2910 && s->face->foreground == FRAME_FOREGROUND_PIXEL (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2911 && !s->cmp)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2912 s->gc = s->f->output_data.w32->cursor_gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2913 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2914 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2915 /* Cursor on non-default face: must merge. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2916 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2917 unsigned long mask;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2918
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2919 xgcv.background = s->f->output_data.w32->cursor_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2920 xgcv.foreground = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2921
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2922 /* If the glyph would be invisible, try a different foreground. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2923 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2924 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2925 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2926 xgcv.foreground = s->f->output_data.w32->cursor_foreground_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2927 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2928 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2929
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2930 /* Make sure the cursor is distinct from text in this face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2931 if (xgcv.background == s->face->background
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2932 && xgcv.foreground == s->face->foreground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2933 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2934 xgcv.background = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2935 xgcv.foreground = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2936 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2937
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2938 IF_DEBUG (x_check_font (s->f, s->font));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2939 xgcv.font = s->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2940 mask = GCForeground | GCBackground | GCFont;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2941
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2942 if (FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2943 XChangeGC (NULL, FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2944 mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2945 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2946 FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2947 = XCreateGC (NULL, s->window, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2948
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2949 s->gc = FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2950 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2951 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2952
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2953
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2954 /* Set up S->gc of glyph string S for drawing text in mouse face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2955
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2956 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2957 x_set_mouse_face_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2958 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2959 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2960 int face_id;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2961 struct face *face;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2962
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2963 /* What face has to be used last for the mouse face? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2964 face_id = FRAME_W32_DISPLAY_INFO (s->f)->mouse_face_face_id;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
2965 face = FACE_FROM_ID (s->f, face_id);
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2966 if (face == NULL)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2967 face = FACE_FROM_ID (s->f, MOUSE_FACE_ID);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2968
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2969 if (s->first_glyph->type == CHAR_GLYPH)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2970 face_id = FACE_FOR_CHAR (s->f, face, s->first_glyph->u.ch);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2971 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2972 face_id = FACE_FOR_CHAR (s->f, face, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2973 s->face = FACE_FROM_ID (s->f, face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2974 PREPARE_FACE_FOR_DISPLAY (s->f, s->face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2975
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2976 /* If font in this face is same as S->font, use it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2977 if (s->font == s->face->font)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2978 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2979 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2980 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2981 /* Otherwise construct scratch_cursor_gc with values from FACE
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2982 but font FONT. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2983 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2984 unsigned long mask;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2985
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2986 xgcv.background = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2987 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2988 IF_DEBUG (x_check_font (s->f, s->font));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2989 xgcv.font = s->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2990 mask = GCForeground | GCBackground | GCFont;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2991
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2992 if (FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2993 XChangeGC (NULL, FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2994 mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2995 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2996 FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2997 = XCreateGC (NULL, s->window, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2998
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2999 s->gc = FRAME_W32_DISPLAY_INFO (s->f)->scratch_cursor_gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3000 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3001
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3002 xassert (s->gc != 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3003 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3004
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3005
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3006 /* Set S->gc of glyph string S to a GC suitable for drawing a mode line.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3007 Faces to use in the mode line have already been computed when the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3008 matrix was built, so there isn't much to do, here. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3009
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3010 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3011 x_set_mode_line_face_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3012 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3013 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3014 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3015 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3016
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3017
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3018 /* Set S->gc of glyph string S for drawing that glyph string. Set
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3019 S->stippled_p to a non-zero value if the face of S has a stipple
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3020 pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3021
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3022 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3023 x_set_glyph_string_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3024 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3025 {
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3026 PREPARE_FACE_FOR_DISPLAY (s->f, s->face);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3027
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3028 if (s->hl == DRAW_NORMAL_TEXT)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3029 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3030 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3031 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3032 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3033 else if (s->hl == DRAW_INVERSE_VIDEO)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3034 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3035 x_set_mode_line_face_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3036 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3037 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3038 else if (s->hl == DRAW_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3039 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3040 x_set_cursor_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3041 s->stippled_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3042 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3043 else if (s->hl == DRAW_MOUSE_FACE)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3044 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3045 x_set_mouse_face_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3046 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3047 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3048 else if (s->hl == DRAW_IMAGE_RAISED
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3049 || s->hl == DRAW_IMAGE_SUNKEN)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3050 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3051 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3052 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3053 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3054 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3055 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3056 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3057 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3058 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3059
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3060 /* GC must have been set. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3061 xassert (s->gc != 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3062 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3063
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3064
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3065 /* Return in *R the clipping rectangle for glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3066
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3067 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3068 w32_get_glyph_string_clip_rect (s, r)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3069 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3070 RECT *r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3071 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3072 int r_height, r_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3073
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3074 if (s->row->full_width_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3075 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3076 /* Draw full-width. X coordinates are relative to S->w->left. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3077 int canon_x = CANON_X_UNIT (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3078
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3079 r->left = WINDOW_LEFT_MARGIN (s->w) * canon_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3080 r_width = XFASTINT (s->w->width) * canon_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3081
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3082 if (FRAME_HAS_VERTICAL_SCROLL_BARS (s->f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3083 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3084 int width = FRAME_SCROLL_BAR_WIDTH (s->f) * canon_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3085 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (s->f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3086 r->left -= width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3087 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3088
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3089 r->left += FRAME_INTERNAL_BORDER_WIDTH (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3090
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3091 /* Unless displaying a mode or menu bar line, which are always
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3092 fully visible, clip to the visible part of the row. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3093 if (s->w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3094 r_height = s->row->visible_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3095 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3096 r_height = s->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3097 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3098 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3099 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3100 /* This is a text line that may be partially visible. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3101 r->left = WINDOW_AREA_TO_FRAME_PIXEL_X (s->w, s->area, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3102 r_width = window_box_width (s->w, s->area);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3103 r_height = s->row->visible_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3104 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3105
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3106 /* If S draws overlapping rows, it's sufficient to use the top and
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3107 bottom of the window for clipping because this glyph string
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3108 intentionally draws over other lines. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3109 if (s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3110 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3111 r->top = WINDOW_DISPLAY_HEADER_LINE_HEIGHT (s->w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3112 r_height = window_text_bottom_y (s->w) - r->top;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3113 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3114 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3115 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3116 /* Don't use S->y for clipping because it doesn't take partially
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3117 visible lines into account. For example, it can be negative for
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3118 partially visible lines at the top of a window. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3119 if (!s->row->full_width_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3120 && MATRIX_ROW_PARTIALLY_VISIBLE_AT_TOP_P (s->w, s->row))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3121 r->top = WINDOW_DISPLAY_HEADER_LINE_HEIGHT (s->w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3122 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3123 r->top = max (0, s->row->y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3124
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3125 /* If drawing a tool-bar window, draw it over the internal border
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3126 at the top of the window. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3127 if (s->w == XWINDOW (s->f->tool_bar_window))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3128 r->top -= s->f->output_data.w32->internal_border_width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3129 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3130
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3131 r->top = WINDOW_TO_FRAME_PIXEL_Y (s->w, r->top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3132
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3133 r->bottom = r->top + r_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3134 r->right = r->left + r_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3135 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3136
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3137
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3138 /* Set clipping for output of glyph string S. S may be part of a mode
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3139 line or menu if we don't have X toolkit support. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3140
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3141 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3142 x_set_glyph_string_clipping (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3143 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3144 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3145 RECT r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3146 w32_get_glyph_string_clip_rect (s, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3147 w32_set_clip_rectangle (s->hdc, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3148 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3149
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3150
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3151 /* Compute left and right overhang of glyph string S. If S is a glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3152 string for a composition, assume overhangs don't exist. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3153
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3154 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3155 x_compute_glyph_string_overhangs (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3156 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3157 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3158 /* TODO: Windows does not appear to have a method for
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
3159 getting this info without getting the ABC widths for each
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
3160 individual character and working it out manually. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3161 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3162
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3163
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3164 /* Compute overhangs and x-positions for glyph string S and its
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3165 predecessors, or successors. X is the starting x-position for S.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3166 BACKWARD_P non-zero means process predecessors. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3167
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3168 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3169 x_compute_overhangs_and_x (s, x, backward_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3170 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3171 int x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3172 int backward_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3173 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3174 if (backward_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3175 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3176 while (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3177 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3178 x_compute_glyph_string_overhangs (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3179 x -= s->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3180 s->x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3181 s = s->prev;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3182 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3183 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3184 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3185 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3186 while (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3187 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3188 x_compute_glyph_string_overhangs (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3189 s->x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3190 x += s->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3191 s = s->next;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3192 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3193 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3194 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3195
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3196
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3197 /* Set *LEFT and *RIGHT to the left and right overhang of GLYPH on
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3198 frame F. Overhangs of glyphs other than type CHAR_GLYPH are
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3199 assumed to be zero. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3200
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3201 static void
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3202 w32_get_glyph_overhangs (hdc, glyph, f, left, right)
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3203 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3204 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3205 struct frame *f;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3206 int *left, *right;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3207 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3208 *left = *right = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3209
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3210 if (glyph->type == CHAR_GLYPH)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3211 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3212 XFontStruct *font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3213 struct face *face;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3214 wchar_t char2b;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3215 XCharStruct *pcm;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3216
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3217 face = x_get_glyph_face_and_encoding (f, glyph, &char2b, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3218 font = face->font;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3219
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3220 if (font
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
3221 && (pcm = w32_per_char_metric (font, &char2b,
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3222 glyph->w32_font_type)))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3223 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3224 if (pcm->rbearing > pcm->width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3225 *right = pcm->rbearing - pcm->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3226 if (pcm->lbearing < 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3227 *left = -pcm->lbearing;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3228 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3229 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3230 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3231
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3232
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3233 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3234 x_get_glyph_overhangs (glyph, f, left, right)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3235 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3236 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3237 int *left, *right;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3238 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3239 HDC hdc = get_frame_dc (f);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3240 /* Convert to unicode! */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3241 w32_get_glyph_overhangs (hdc, glyph, f, left, right);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3242 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3243 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3244
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3245
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3246 /* Return the index of the first glyph preceding glyph string S that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3247 is overwritten by S because of S's left overhang. Value is -1
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3248 if no glyphs are overwritten. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3249
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3250 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3251 x_left_overwritten (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3252 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3253 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3254 int k;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3255
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3256 if (s->left_overhang)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3257 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3258 int x = 0, i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3259 struct glyph *glyphs = s->row->glyphs[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3260 int first = s->first_glyph - glyphs;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3261
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3262 for (i = first - 1; i >= 0 && x > -s->left_overhang; --i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3263 x -= glyphs[i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3264
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3265 k = i + 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3266 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3267 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3268 k = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3269
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3270 return k;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3271 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3272
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3273
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3274 /* Return the index of the first glyph preceding glyph string S that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3275 is overwriting S because of its right overhang. Value is -1 if no
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3276 glyph in front of S overwrites S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3277
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3278 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3279 x_left_overwriting (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3280 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3281 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3282 int i, k, x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3283 struct glyph *glyphs = s->row->glyphs[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3284 int first = s->first_glyph - glyphs;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3285
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3286 k = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3287 x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3288 for (i = first - 1; i >= 0; --i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3289 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3290 int left, right;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3291 w32_get_glyph_overhangs (s->hdc, glyphs + i, s->f, &left, &right);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3292 if (x + right > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3293 k = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3294 x -= glyphs[i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3295 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3296
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3297 return k;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3298 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3299
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3300
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3301 /* Return the index of the last glyph following glyph string S that is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3302 not overwritten by S because of S's right overhang. Value is -1 if
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3303 no such glyph is found. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3304
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3305 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3306 x_right_overwritten (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3307 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3308 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3309 int k = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3310
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3311 if (s->right_overhang)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3312 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3313 int x = 0, i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3314 struct glyph *glyphs = s->row->glyphs[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3315 int first = (s->first_glyph - glyphs) + (s->cmp ? 1 : s->nchars);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3316 int end = s->row->used[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3317
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3318 for (i = first; i < end && s->right_overhang > x; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3319 x += glyphs[i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3320
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3321 k = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3322 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3323
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3324 return k;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3325 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3326
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3327
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3328 /* Return the index of the last glyph following glyph string S that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3329 overwrites S because of its left overhang. Value is negative
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3330 if no such glyph is found. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3331
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3332 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3333 x_right_overwriting (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3334 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3335 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3336 int i, k, x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3337 int end = s->row->used[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3338 struct glyph *glyphs = s->row->glyphs[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3339 int first = (s->first_glyph - glyphs) + (s->cmp ? 1 : s->nchars);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3340
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3341 k = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3342 x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3343 for (i = first; i < end; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3344 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3345 int left, right;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3346 w32_get_glyph_overhangs (s->hdc, glyphs + i, s->f, &left, &right);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3347 if (x - left < 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3348 k = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3349 x += glyphs[i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3350 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3351
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3352 return k;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3353 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3354
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3355
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3356 /* Fill rectangle X, Y, W, H with background color of glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3357
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3358 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3359 x_clear_glyph_string_rect (s, x, y, w, h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3360 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3361 int x, y, w, h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3362 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3363 int real_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3364 int real_y = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3365 int real_w = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3366 int real_h = h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3367 #if 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3368 /* Take clipping into account. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3369 if (s->gc->clip_mask == Rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3370 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3371 real_x = max (real_x, s->gc->clip_rectangle.left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3372 real_y = max (real_y, s->gc->clip_rectangle.top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3373 real_w = min (real_w, s->gc->clip_rectangle.right
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3374 - s->gc->clip_rectangle.left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3375 real_h = min (real_h, s->gc->clip_rectangle.bottom
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3376 - s->gc->clip_rectangle.top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3377 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3378 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3379 w32_fill_area (s->f, s->hdc, s->gc->background, real_x, real_y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3380 real_w, real_h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3381 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3382
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3383
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3384 /* Draw the background of glyph_string S. If S->background_filled_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3385 is non-zero don't draw it. FORCE_P non-zero means draw the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3386 background even if it wouldn't be drawn normally. This is used
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3387 when a string preceding S draws into the background of S, or S
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3388 contains the first component of a composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3389
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3390 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3391 x_draw_glyph_string_background (s, force_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3392 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3393 int force_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3394 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3395 /* Nothing to do if background has already been drawn or if it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3396 shouldn't be drawn in the first place. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3397 if (!s->background_filled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3398 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3399 int box_line_width = max (s->face->box_line_width, 0);
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3400
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3401 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3402 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3403 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3404 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3405 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3406 XFillRectangle (s->display, s->window, s->gc, s->x,
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3407 s->y + box_line_width,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3408 s->background_width,
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3409 s->height - 2 * box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3410 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3411 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3412 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3413 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3414 #endif
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3415 if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3416 || s->font_not_found_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3417 || s->extends_to_end_of_line_p
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
3418 || s->font->bdf
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3419 || force_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3420 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3421 x_clear_glyph_string_rect (s, s->x, s->y + box_line_width,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3422 s->background_width,
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3423 s->height - 2 * box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3424 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3425 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3426 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3427 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3428
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3429
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3430 /* Draw the foreground of glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3431
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3432 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3433 x_draw_glyph_string_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3434 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3435 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3436 int i, x;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3437 HFONT old_font;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3438
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3439 /* If first glyph of S has a left box line, start drawing the text
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3440 of S to the right of that box line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3441 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3442 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3443 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3444 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3445 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3446
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3447 if (s->for_overlaps_p || (s->background_filled_p && s->hl != DRAW_CURSOR))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3448 SetBkMode (s->hdc, TRANSPARENT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3449 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3450 SetBkMode (s->hdc, OPAQUE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3451
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3452 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3453 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3454 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3455
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3456 if (s->font && s->font->hfont)
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3457 old_font = SelectObject (s->hdc, s->font->hfont);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3458
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3459 /* Draw characters of S as rectangles if S's font could not be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3460 loaded. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3461 if (s->font_not_found_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3462 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3463 for (i = 0; i < s->nchars; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3464 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3465 struct glyph *g = s->first_glyph + i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3466
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3467 w32_draw_rectangle (s->hdc, s->gc, x, s->y, g->pixel_width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3468 s->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3469 x += g->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3470 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3471 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3472 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3473 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3474 char *char1b = (char *) s->char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3475 int boff = s->font_info->baseline_offset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3476
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3477 if (s->font_info->vertical_centering)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3478 boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3479
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3480 /* If we can use 8-bit functions, condense S->char2b. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3481 if (!s->two_byte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3482 for (i = 0; i < s->nchars; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3483 char1b[i] = BYTE2 (s->char2b[i]);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3484
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3485 /* Draw text with TextOut and friends. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3486 W32_TEXTOUT (s, x, s->ybase - boff, s->char2b, s->nchars);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3487 }
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3488 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3489 SelectObject (s->hdc, old_font);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3490 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3491
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3492 /* Draw the foreground of composite glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3493
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3494 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3495 x_draw_composite_glyph_string_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3496 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3497 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3498 int i, x;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3499 HFONT old_font;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3500
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3501 /* If first glyph of S has a left box line, start drawing the text
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3502 of S to the right of that box line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3503 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3504 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3505 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3506 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3507 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3508
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3509 /* S is a glyph string for a composition. S->gidx is the index of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3510 the first character drawn for glyphs of this composition.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3511 S->gidx == 0 means we are drawing the very first character of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3512 this composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3513
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3514 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3515 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3516 SetBkMode (s->hdc, TRANSPARENT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3517 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3518
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3519 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3520 old_font = SelectObject (s->hdc, s->font->hfont);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3521
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3522 /* Draw a rectangle for the composition if the font for the very
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3523 first character of the composition could not be loaded. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3524 if (s->font_not_found_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3525 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3526 if (s->gidx == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3527 w32_draw_rectangle (s->hdc, s->gc, x, s->y, s->width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3528 s->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3529 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3530 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3531 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3532 for (i = 0; i < s->nchars; i++, ++s->gidx)
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3533 W32_TEXTOUT (s, x + s->cmp->offsets[s->gidx * 2],
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3534 s->ybase - s->cmp->offsets[s->gidx * 2 + 1],
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3535 s->char2b + i, 1);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3536 }
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3537 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3538 SelectObject (s->hdc, old_font);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3539 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3540
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3541
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3542 /* Brightness beyond which a color won't have its highlight brightness
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3543 boosted.
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3544
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3545 Nominally, highlight colors for `3d' faces are calculated by
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3546 brightening an object's color by a constant scale factor, but this
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3547 doesn't yield good results for dark colors, so for colors who's
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3548 brightness is less than this value (on a scale of 0-255) have to
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3549 use an additional additive factor.
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3550
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3551 The value here is set so that the default menu-bar/mode-line color
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3552 (grey75) will not have its highlights changed at all. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3553 #define HIGHLIGHT_COLOR_DARK_BOOST_LIMIT 187
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3554
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3555
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3556 /* Allocate a color which is lighter or darker than *COLOR by FACTOR
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3557 or DELTA. Try a color with RGB values multiplied by FACTOR first.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3558 If this produces the same color as COLOR, try a color where all RGB
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3559 values have DELTA added. Return the allocated color in *COLOR.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3560 DISPLAY is the X display, CMAP is the colormap to operate on.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3561 Value is non-zero if successful. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3562
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
3563 static int
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3564 w32_alloc_lighter_color (f, color, factor, delta)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3565 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3566 COLORREF *color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3567 double factor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3568 int delta;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3569 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3570 COLORREF new;
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3571 long bright;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3572
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3573 /* On Windows, RGB values are 0-255, not 0-65535, so scale delta. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3574 delta /= 256;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3575
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3576 /* Change RGB values by specified FACTOR. Avoid overflow! */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3577 xassert (factor >= 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3578 new = PALETTERGB (min (0xff, factor * GetRValue (*color)),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3579 min (0xff, factor * GetGValue (*color)),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3580 min (0xff, factor * GetBValue (*color)));
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3581
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3582 /* Calculate brightness of COLOR. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3583 bright = (2 * GetRValue (*color) + 3 * GetGValue (*color)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3584 + GetBValue (*color)) / 6;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3585
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3586 /* We only boost colors that are darker than
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3587 HIGHLIGHT_COLOR_DARK_BOOST_LIMIT. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3588 if (bright < HIGHLIGHT_COLOR_DARK_BOOST_LIMIT)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3589 /* Make an additive adjustment to NEW, because it's dark enough so
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3590 that scaling by FACTOR alone isn't enough. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3591 {
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3592 /* How far below the limit this color is (0 - 1, 1 being darker). */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3593 double dimness = 1 - (double)bright / HIGHLIGHT_COLOR_DARK_BOOST_LIMIT;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3594 /* The additive adjustment. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3595 int min_delta = delta * dimness * factor / 2;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3596
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3597 if (factor < 1)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3598 new = PALETTERGB (max (0, min (0xff, min_delta - GetRValue (*color))),
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3599 max (0, min (0xff, min_delta - GetGValue (*color))),
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3600 max (0, min (0xff, min_delta - GetBValue (*color))));
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3601 else
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3602 new = PALETTERGB (max (0, min (0xff, min_delta + GetRValue (*color))),
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3603 max (0, min (0xff, min_delta + GetGValue (*color))),
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3604 max (0, min (0xff, min_delta + GetBValue (*color))));
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3605 }
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3606
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3607 if (new == *color)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3608 new = PALETTERGB (max (0, min (0xff, delta + GetRValue (*color))),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3609 max (0, min (0xff, delta + GetGValue (*color))),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3610 max (0, min (0xff, delta + GetBValue (*color))));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3611
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3612 /* TODO: Map to palette and retry with delta if same? */
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3613 /* TODO: Free colors (if using palette)? */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3614
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3615 if (new == *color)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3616 return 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3617
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3618 *color = new;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3619
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3620 return 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3621 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3622
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3623
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3624 /* Set up the foreground color for drawing relief lines of glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3625 string S. RELIEF is a pointer to a struct relief containing the GC
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3626 with which lines will be drawn. Use a color that is FACTOR or
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3627 DELTA lighter or darker than the relief's background which is found
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3628 in S->f->output_data.x->relief_background. If such a color cannot
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3629 be allocated, use DEFAULT_PIXEL, instead. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3630
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3631 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3632 w32_setup_relief_color (f, relief, factor, delta, default_pixel)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3633 struct frame *f;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3634 struct relief *relief;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3635 double factor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3636 int delta;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3637 COLORREF default_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3638 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3639 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3640 struct w32_output *di = f->output_data.w32;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3641 unsigned long mask = GCForeground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3642 COLORREF pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3643 COLORREF background = di->relief_background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3644 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3645
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3646 /* TODO: Free colors (if using palette)? */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
3647
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3648 /* Allocate new color. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3649 xgcv.foreground = default_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3650 pixel = background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3651 if (w32_alloc_lighter_color (f, &pixel, factor, delta))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3652 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3653 relief->allocated_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3654 xgcv.foreground = relief->pixel = pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3655 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3656
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3657 if (relief->gc == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3658 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3659 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3660 xgcv.stipple = dpyinfo->gray;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3661 mask |= GCStipple;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3662 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3663 relief->gc = XCreateGC (NULL, FRAME_W32_WINDOW (f), mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3664 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3665 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3666 XChangeGC (NULL, relief->gc, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3667 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3668
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3669
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3670 /* Set up colors for the relief lines around glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3671
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3672 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3673 x_setup_relief_colors (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3674 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3675 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3676 struct w32_output *di = s->f->output_data.w32;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3677 COLORREF color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3678
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3679 if (s->face->use_box_color_for_shadows_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3680 color = s->face->box_color;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3681 else if (s->first_glyph->type == IMAGE_GLYPH
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
3682 && s->img->pixmap
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3683 && !IMAGE_BACKGROUND_TRANSPARENT (s->img, s->f, 0))
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3684 color = IMAGE_BACKGROUND (s->img, s->f, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3685 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3686 color = s->gc->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3687
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3688 if (di->white_relief.gc == 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3689 || color != di->relief_background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3690 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3691 di->relief_background = color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3692 w32_setup_relief_color (s->f, &di->white_relief, 1.2, 0x8000,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3693 WHITE_PIX_DEFAULT (s->f));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3694 w32_setup_relief_color (s->f, &di->black_relief, 0.6, 0x4000,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3695 BLACK_PIX_DEFAULT (s->f));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3696 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3697 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3698
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3699
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3700 /* Draw a relief on frame F inside the rectangle given by LEFT_X,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3701 TOP_Y, RIGHT_X, and BOTTOM_Y. WIDTH is the thickness of the relief
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3702 to draw, it must be >= 0. RAISED_P non-zero means draw a raised
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3703 relief. LEFT_P non-zero means draw a relief on the left side of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3704 the rectangle. RIGHT_P non-zero means draw a relief on the right
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3705 side of the rectangle. CLIP_RECT is the clipping rectangle to use
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3706 when drawing. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3707
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3708 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3709 w32_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3710 raised_p, left_p, right_p, clip_rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3711 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3712 int left_x, top_y, right_x, bottom_y, left_p, right_p, raised_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3713 RECT *clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3714 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
3715 int i;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3716 XGCValues gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3717 HDC hdc = get_frame_dc (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3718
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3719 if (raised_p)
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3720 gc.foreground = f->output_data.w32->white_relief.gc->foreground;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3721 else
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3722 gc.foreground = f->output_data.w32->black_relief.gc->foreground;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3723
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3724 w32_set_clip_rectangle (hdc, clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3725
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3726 /* Top. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3727 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3728 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3729 left_x + i * left_p, top_y + i,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3730 (right_x + 1 - i * right_p) - (left_x + i * left_p) + 1, 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3731
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3732 /* Left. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3733 if (left_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3734 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3735 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3736 left_x + i, top_y + i, 1,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3737 (bottom_y - i) - (top_y + i) + 2);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3738
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3739 if (raised_p)
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3740 gc.foreground = f->output_data.w32->black_relief.gc->foreground;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3741 else
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
3742 gc.foreground = f->output_data.w32->white_relief.gc->foreground;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3743
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3744 /* Bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3745 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3746 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3747 left_x + i * left_p, bottom_y - i,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3748 (right_x - i * right_p) - (left_x + i * left_p) + 2, 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3749
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3750 /* Right. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3751 if (right_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3752 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3753 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3754 right_x - i, top_y + i + 1, 1,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3755 (bottom_y - i) - (top_y + i));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3756
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3757 w32_set_clip_rectangle (hdc, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3758
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3759 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3760 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3761
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3762
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3763 /* Draw a box on frame F inside the rectangle given by LEFT_X, TOP_Y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3764 RIGHT_X, and BOTTOM_Y. WIDTH is the thickness of the lines to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3765 draw, it must be >= 0. LEFT_P non-zero means draw a line on the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3766 left side of the rectangle. RIGHT_P non-zero means draw a line
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3767 on the right side of the rectangle. CLIP_RECT is the clipping
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3768 rectangle to use when drawing. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3769
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3770 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3771 w32_draw_box_rect (s, left_x, top_y, right_x, bottom_y, width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3772 left_p, right_p, clip_rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3773 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3774 int left_x, top_y, right_x, bottom_y, width, left_p, right_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3775 RECT *clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3776 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3777 w32_set_clip_rectangle (s->hdc, clip_rect);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3778
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3779 /* Top. */
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3780 w32_fill_area (s->f, s->hdc, s->face->box_color,
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
3781 left_x, top_y, right_x - left_x + 1, width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3782
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3783 /* Left. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3784 if (left_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3785 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3786 w32_fill_area (s->f, s->hdc, s->face->box_color,
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
3787 left_x, top_y, width, bottom_y - top_y + 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3788 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3789
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3790 /* Bottom. */
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3791 w32_fill_area (s->f, s->hdc, s->face->box_color,
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
3792 left_x, bottom_y - width + 1, right_x - left_x + 1, width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3793
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3794 /* Right. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3795 if (right_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3796 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3797 w32_fill_area (s->f, s->hdc, s->face->box_color,
32670
342abe2141e8 (x_produce_glyphs): Handle unibyte_display_via_language_environment correctly.
Jason Rumney <jasonr@gnu.org>
parents: 32022
diff changeset
3798 right_x - width + 1, top_y, width, bottom_y - top_y + 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3799 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3800
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3801 w32_set_clip_rectangle (s->hdc, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3802 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3803
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3804
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3805 /* Draw a box around glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3806
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3807 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3808 x_draw_glyph_string_box (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3809 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3810 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3811 int width, left_x, right_x, top_y, bottom_y, last_x, raised_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3812 int left_p, right_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3813 struct glyph *last_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3814 RECT clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3815
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3816 last_x = window_box_right (s->w, s->area);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3817 if (s->row->full_width_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3818 && !s->w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3819 {
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
3820 last_x += FRAME_X_RIGHT_FRINGE_WIDTH (s->f);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3821 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (s->f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3822 last_x += FRAME_SCROLL_BAR_WIDTH (s->f) * CANON_X_UNIT (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3823 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3824
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3825 /* The glyph that may have a right box line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3826 last_glyph = (s->cmp || s->img
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3827 ? s->first_glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3828 : s->first_glyph + s->nchars - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3829
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3830 width = abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3831 raised_p = s->face->box == FACE_RAISED_BOX;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3832 left_x = s->x;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3833 right_x = ((s->row->full_width_p && s->extends_to_end_of_line_p
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3834 ? last_x - 1
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3835 : min (last_x, s->x + s->background_width) - 1));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3836 top_y = s->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3837 bottom_y = top_y + s->height - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3838
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3839 left_p = (s->first_glyph->left_box_line_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3840 || (s->hl == DRAW_MOUSE_FACE
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3841 && (s->prev == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3842 || s->prev->hl != s->hl)));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3843 right_p = (last_glyph->right_box_line_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3844 || (s->hl == DRAW_MOUSE_FACE
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3845 && (s->next == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3846 || s->next->hl != s->hl)));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3847
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3848 w32_get_glyph_string_clip_rect (s, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3849
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3850 if (s->face->box == FACE_SIMPLE_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3851 w32_draw_box_rect (s, left_x, top_y, right_x, bottom_y, width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3852 left_p, right_p, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3853 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3854 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3855 x_setup_relief_colors (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3856 w32_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3857 width, raised_p, left_p, right_p, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3858 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3859 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3860
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3861
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3862 /* Draw foreground of image glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3863
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3864 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3865 x_draw_image_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3866 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3867 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3868 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3869 int y = s->ybase - image_ascent (s->img, s->face);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3870
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3871 /* If first glyph of S has a left box line, start drawing it to the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3872 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3873 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3874 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3875 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3876 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3877 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3878
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3879 /* If there is a margin around the image, adjust x- and y-position
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3880 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
3881 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
3882 y += s->img->vmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3883
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3884 SaveDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3885
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3886 if (s->img->pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3887 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
3888 #if 0 /* TODO: image mask */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3889 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3890 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3891 /* We can't set both a clip mask and use XSetClipRectangles
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3892 because the latter also sets a clip mask. We also can't
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3893 trust on the shape extension to be available
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3894 (XShapeCombineRegion). So, compute the rectangle to draw
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3895 manually. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3896 unsigned long mask = (GCClipMask | GCClipXOrigin | GCClipYOrigin
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3897 | GCFunction);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3898 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3899 XRectangle clip_rect, image_rect, r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3900
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3901 xgcv.clip_mask = s->img->mask;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3902 xgcv.clip_x_origin = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3903 xgcv.clip_y_origin = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3904 xgcv.function = GXcopy;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3905 XChangeGC (s->display, s->gc, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3906
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3907 w32_get_glyph_string_clip_rect (s, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3908 image_rect.x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3909 image_rect.y = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3910 image_rect.width = s->img->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3911 image_rect.height = s->img->height;
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
3912 if (IntersectRect (&r, &clip_rect, &image_rect))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3913 XCopyArea (s->display, s->img->pixmap, s->window, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3914 r.x - x, r.y - y, r.width, r.height, r.x, r.y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3915 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3916 else
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
3917 #endif
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3918 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3919 HDC compat_hdc = CreateCompatibleDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3920 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3921 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3922 HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap);
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
3923 x_set_glyph_string_clipping (s);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3924
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3925 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3926 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3927 #if 0 /* From w32bdf.c (which is from Meadow). */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3928 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3929 compat_hdc, 0, 0, SRCCOPY);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
3930 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
3931 compat_hdc, 0, 0, 0xB8074A);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3932 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3933 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
3934 compat_hdc, 0, 0, 0xE20746);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
3935 #endif
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3936 SelectObject (s->hdc, orig_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3937 DeleteObject (fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3938 SelectObject (compat_hdc, orig_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3939 DeleteDC (compat_hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3940
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3941 /* When the image has a mask, we can expect that at
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3942 least part of a mouse highlight or a block cursor will
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3943 be visible. If the image doesn't have a mask, make
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3944 a block cursor visible by drawing a rectangle around
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3945 the image. I believe it's looking better if we do
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3946 nothing here for mouse-face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3947 if (s->hl == DRAW_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3948 w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3949 s->img->height - 1);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
3950 w32_set_clip_rectangle (s->hdc, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3951 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3952 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3953 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3954 w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width -1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3955 s->img->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3956
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3957 RestoreDC (s->hdc ,-1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3958 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3959
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3960
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3961
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3962 /* Draw a relief around the image glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3963
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3964 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3965 x_draw_image_relief (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3966 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3967 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3968 int x0, y0, x1, y1, thick, raised_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3969 RECT r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3970 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3971 int y = s->ybase - image_ascent (s->img, s->face);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3972
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3973 /* If first glyph of S has a left box line, start drawing it to the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3974 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3975 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3976 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
3977 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3978 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3979 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3980
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3981 /* If there is a margin around the image, adjust x- and y-position
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3982 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
3983 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
3984 y += s->img->vmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3985
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3986 if (s->hl == DRAW_IMAGE_SUNKEN
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3987 || s->hl == DRAW_IMAGE_RAISED)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3988 {
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
3989 thick = tool_bar_button_relief >= 0 ? tool_bar_button_relief : DEFAULT_TOOL_BAR_BUTTON_RELIEF;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3990 raised_p = s->hl == DRAW_IMAGE_RAISED;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3991 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3992 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3993 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3994 thick = abs (s->img->relief);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3995 raised_p = s->img->relief > 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3996 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3997
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3998 x0 = x - thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3999 y0 = y - thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4000 x1 = x + s->img->width + thick - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4001 y1 = y + s->img->height + thick - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4002
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4003 x_setup_relief_colors (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4004 w32_get_glyph_string_clip_rect (s, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4005 w32_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p, 1, 1, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4006 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4007
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4008
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4009 /* Draw the foreground of image glyph string S to PIXMAP. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4010
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4011 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4012 w32_draw_image_foreground_1 (s, pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4013 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4014 HBITMAP pixmap;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4015 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4016 HDC hdc = CreateCompatibleDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4017 HGDIOBJ orig_hdc_obj = SelectObject (hdc, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4018 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4019 int y = s->ybase - s->y - image_ascent (s->img, s->face);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4020
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4021 /* If first glyph of S has a left box line, start drawing it to the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4022 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4023 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4024 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4025 x = abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4026 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4027 x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4028
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4029 /* If there is a margin around the image, adjust x- and y-position
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4030 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
4031 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
4032 y += s->img->vmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4033
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4034 if (s->img->pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4035 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4036 #if 0 /* TODO: image mask */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4037 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4038 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4039 /* We can't set both a clip mask and use XSetClipRectangles
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4040 because the latter also sets a clip mask. We also can't
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4041 trust on the shape extension to be available
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4042 (XShapeCombineRegion). So, compute the rectangle to draw
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4043 manually. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4044 unsigned long mask = (GCClipMask | GCClipXOrigin | GCClipYOrigin
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4045 | GCFunction);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4046 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4047
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4048 xgcv.clip_mask = s->img->mask;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4049 xgcv.clip_x_origin = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4050 xgcv.clip_y_origin = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4051 xgcv.function = GXcopy;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4052 XChangeGC (s->display, s->gc, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4053
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4054 XCopyArea (s->display, s->img->pixmap, pixmap, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4055 0, 0, s->img->width, s->img->height, x, y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4056 XSetClipMask (s->display, s->gc, None);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4057 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4058 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4059 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4060 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4061 HDC compat_hdc = CreateCompatibleDC (hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4062 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4063 HBRUSH orig_brush = SelectObject (hdc, fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4064 HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4065
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4066 SetTextColor (hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4067 SetBkColor (hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4068 #if 0 /* From w32bdf.c (which is from Meadow). */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4069 BitBlt (hdc, x, y, s->img->width, s->img->height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4070 compat_hdc, 0, 0, SRCCOPY);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4071 BitBlt (hdc, x, y, s->img->width, s->img->height,
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4072 compat_hdc, 0, 0, 0xB8074A);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4073 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4074 BitBlt (hdc, x, y, s->img->width, s->img->height,
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4075 compat_hdc, 0, 0, 0xE20746);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4076 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4077 SelectObject (hdc, orig_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4078 DeleteObject (fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4079 SelectObject (compat_hdc, orig_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4080 DeleteDC (compat_hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4081
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4082 /* When the image has a mask, we can expect that at
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4083 least part of a mouse highlight or a block cursor will
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4084 be visible. If the image doesn't have a mask, make
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4085 a block cursor visible by drawing a rectangle around
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4086 the image. I believe it's looking better if we do
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4087 nothing here for mouse-face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4088 if (s->hl == DRAW_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4089 w32_draw_rectangle (hdc, s->gc, x, y, s->img->width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4090 s->img->height - 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4091 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4092 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4093 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4094 w32_draw_rectangle (hdc, s->gc, x, y, s->img->width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4095 s->img->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4096
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4097 SelectObject (hdc, orig_hdc_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4098 DeleteDC (hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4099 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4100
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4101
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4102 /* Draw part of the background of glyph string S. X, Y, W, and H
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4103 give the rectangle to draw. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4104
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4105 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4106 x_draw_glyph_string_bg_rect (s, x, y, w, h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4107 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4108 int x, y, w, h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4109 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4110 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4111 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4112 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4113 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4114 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4115 XFillRectangle (s->display, s->window, s->gc, x, y, w, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4116 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4117 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4118 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4119 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4120 x_clear_glyph_string_rect (s, x, y, w, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4121 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4122
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4123
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4124 /* Draw image glyph string S.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4125
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4126 s->y
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4127 s->x +-------------------------
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4128 | s->face->box
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4129 |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4130 | +-------------------------
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
4131 | | s->img->vmargin
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4132 | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4133 | | +-------------------
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4134 | | | the image
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4135
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4136 */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4137
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4138 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4139 x_draw_image_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4140 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4141 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4142 int x, y;
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4143 int box_line_hwidth = abs (s->face->box_line_width);
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4144 int box_line_vwidth = max (s->face->box_line_width, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4145 int height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4146 HBITMAP pixmap = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4147
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4148 height = s->height - 2 * box_line_vwidth;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4149
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4150 /* Fill background with face under the image. Do it only if row is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4151 taller than image or if image has a clip mask to reduce
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4152 flickering. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4153 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4154 if (height > s->img->height
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4155 || s->img->hmargin
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
4156 || s->img->vmargin
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4157 #if 0 /* TODO: image mask */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4158 || s->img->mask
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4159 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4160 || s->img->pixmap == 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4161 || s->width != s->background_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4162 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4163 if (box_line_hwidth && s->first_glyph->left_box_line_p)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4164 x = s->x + box_line_hwidth;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4165 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4166 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4167
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
4168 y = s->y + box_line_vwidth;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4169 #if 0 /* TODO: image mask */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4170 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4171 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4172 /* Create a pixmap as large as the glyph string. Fill it
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4173 with the background color. Copy the image to it, using
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4174 its mask. Copy the temporary pixmap to the display. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4175 Screen *screen = FRAME_X_SCREEN (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4176 int depth = DefaultDepthOfScreen (screen);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4177
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4178 /* Create a pixmap as large as the glyph string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4179 pixmap = XCreatePixmap (s->display, s->window,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4180 s->background_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4181 s->height, depth);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4182
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4183 /* Don't clip in the following because we're working on the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4184 pixmap. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4185 XSetClipMask (s->display, s->gc, None);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4186
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4187 /* Fill the pixmap with the background color/stipple. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4188 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4189 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4190 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4191 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4192 XFillRectangle (s->display, pixmap, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4193 0, 0, s->background_width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4194 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4195 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4196 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4197 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4198 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4199 XGetGCValues (s->display, s->gc, GCForeground | GCBackground,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4200 &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4201 XSetForeground (s->display, s->gc, xgcv.background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4202 XFillRectangle (s->display, pixmap, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4203 0, 0, s->background_width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4204 XSetForeground (s->display, s->gc, xgcv.foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4205 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4206 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4207 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4208 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4209 x_draw_glyph_string_bg_rect (s, x, y, s->background_width, height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4210
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4211 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4212 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4213
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4214 /* Draw the foreground. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4215 if (pixmap != 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4216 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4217 w32_draw_image_foreground_1 (s, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4218 x_set_glyph_string_clipping (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4219 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4220 HDC compat_hdc = CreateCompatibleDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4221 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4222 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4223 HGDIOBJ orig_obj = SelectObject (compat_hdc, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4224
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4225 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4226 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4227 #if 0 /* From w32bdf.c (which is from Meadow). */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4228 BitBlt (s->hdc, s->x, s->y, s->background_width, s->height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4229 compat_hdc, 0, 0, SRCCOPY);
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4230 BitBlt (s->hdc, s->x, s->y, s->background_width, s->height,
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4231 compat_hdc, 0, 0, 0xB8074A);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4232 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4233 BitBlt (s->hdc, s->x, s->y, s->background_width, s->height,
34823
ace8dd8cf098 (w32_draw_bitmap): Fix drawing so it does not appear in the wrong colors
Jason Rumney <jasonr@gnu.org>
parents: 34784
diff changeset
4234 compat_hdc, 0, 0, 0xE20746);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4235 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4236 SelectObject (s->hdc, orig_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4237 DeleteObject (fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4238 SelectObject (compat_hdc, orig_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4239 DeleteDC (compat_hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4240 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4241 DeleteObject (pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4242 pixmap = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4243 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4244 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4245 x_draw_image_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4246
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4247 /* If we must draw a relief around the image, do it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4248 if (s->img->relief
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4249 || s->hl == DRAW_IMAGE_RAISED
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4250 || s->hl == DRAW_IMAGE_SUNKEN)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4251 x_draw_image_relief (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4252 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4253
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4254
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4255 /* Draw stretch glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4256
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4257 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4258 x_draw_stretch_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4259 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4260 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4261 xassert (s->first_glyph->type == STRETCH_GLYPH);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4262 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4263
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4264 if (s->hl == DRAW_CURSOR
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4265 && !x_stretch_cursor_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4266 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4267 /* If `x-stretch-block-cursor' is nil, don't draw a block cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4268 as wide as the stretch glyph. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4269 int width = min (CANON_X_UNIT (s->f), s->background_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4270
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4271 /* Draw cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4272 x_draw_glyph_string_bg_rect (s, s->x, s->y, width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4273
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4274 /* Clear rest using the GC of the original non-cursor face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4275 if (width < s->background_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4276 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4277 XGCValues *gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4278 int x = s->x + width, y = s->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4279 int w = s->background_width - width, h = s->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4280 RECT r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4281 HDC hdc = s->hdc;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4282
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4283 if (s->row->mouse_face_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4284 && cursor_in_mouse_face_p (s->w))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4285 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4286 x_set_mouse_face_gc (s);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4287 gc = s->gc;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4288 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4289 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4290 gc = s->face->gc;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4291
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4292 w32_get_glyph_string_clip_rect (s, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4293 w32_set_clip_rectangle (hdc, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4294
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4295 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4296 if (s->face->stipple)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4297 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4298 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4299 XSetFillStyle (s->display, gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4300 XFillRectangle (s->display, s->window, gc, x, y, w, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4301 XSetFillStyle (s->display, gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4302 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4303 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4304 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4305 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4306 w32_fill_area (s->f, s->hdc, gc->background, x, y, w, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4307 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4308 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4309 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4310 else if (!s->background_filled_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4311 x_draw_glyph_string_bg_rect (s, s->x, s->y, s->background_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4312 s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4313
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4314 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4315 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4316
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4317
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4318 /* Draw glyph string S. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4319
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
4320 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4321 x_draw_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4322 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4323 {
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4324 int relief_drawn_p = 0;
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4325
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4326 /* If S draws into the background of its successor, draw the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4327 background of the successor first so that S can draw into it.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4328 This makes S->next use XDrawString instead of XDrawImageString. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4329 if (s->next && s->right_overhang && !s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4330 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4331 xassert (s->next->img == NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4332 x_set_glyph_string_gc (s->next);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4333 x_set_glyph_string_clipping (s->next);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4334 x_draw_glyph_string_background (s->next, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4335 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4336
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4337 /* Set up S->gc, set clipping and draw S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4338 x_set_glyph_string_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4339
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4340 /* Draw relief (if any) in advance for char/composition so that the
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4341 glyph string can be drawn over it. */
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4342 if (!s->for_overlaps_p
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4343 && s->face->box != FACE_NO_BOX
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4344 && (s->first_glyph->type == CHAR_GLYPH
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4345 || s->first_glyph->type == COMPOSITE_GLYPH))
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4346
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4347 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4348 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4349 x_draw_glyph_string_background (s, 1);
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4350 x_draw_glyph_string_box (s);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4351 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4352 relief_drawn_p = 1;
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4353 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4354 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4355 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4356
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4357 switch (s->first_glyph->type)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4358 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4359 case IMAGE_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4360 x_draw_image_glyph_string (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4361 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4362
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4363 case STRETCH_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4364 x_draw_stretch_glyph_string (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4365 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4366
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4367 case CHAR_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4368 if (s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4369 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4370 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4371 x_draw_glyph_string_background (s, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4372 x_draw_glyph_string_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4373 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4374
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4375 case COMPOSITE_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4376 if (s->for_overlaps_p || s->gidx > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4377 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4378 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4379 x_draw_glyph_string_background (s, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4380 x_draw_composite_glyph_string_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4381 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4382
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4383 default:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4384 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4385 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4386
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4387 if (!s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4388 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4389 /* Draw underline. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4390 if (s->face->underline_p
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4391 && (s->font->bdf || !s->font->tm.tmUnderlined))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4392 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4393 unsigned long h = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4394 unsigned long dy = s->height - h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4395
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4396 /* TODO: Use font information for positioning and thickness
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4397 of underline. See OUTLINETEXTMETRIC, and xterm.c. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4398 if (s->face->underline_defaulted_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4399 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4400 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4401 s->y + dy, s->width, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4402 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4403 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4404 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4405 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4406 s->y + dy, s->width, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4407 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4408 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4409
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4410 /* Draw overline. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4411 if (s->face->overline_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4412 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4413 unsigned long dy = 0, h = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4414
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4415 if (s->face->overline_color_defaulted_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4416 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4417 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4418 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4419 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4420 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4421 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4422 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4423 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4424 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4425 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4426
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4427 /* Draw strike-through. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4428 if (s->face->strike_through_p
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4429 && (s->font->bdf || !s->font->tm.tmStruckOut))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4430 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4431 unsigned long h = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4432 unsigned long dy = (s->height - h) / 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4433
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4434 if (s->face->strike_through_color_defaulted_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4435 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4436 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x, s->y + dy,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4437 s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4438 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4439 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4440 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4441 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4442 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4443 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4444 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4445
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4446 /* Draw relief. */
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
4447 if (!relief_drawn_p && s->face->box != FACE_NO_BOX)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4448 x_draw_glyph_string_box (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4449 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4450
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4451 /* Reset clipping. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4452 w32_set_clip_rectangle (s->hdc, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4453 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4454
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4455
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4456 static int x_fill_composite_glyph_string P_ ((struct glyph_string *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4457 struct face **, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4458
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4459
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4460 /* Fill glyph string S with composition components specified by S->cmp.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4461
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4462 FACES is an array of faces for all components of this composition.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4463 S->gidx is the index of the first component for S.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4464 OVERLAPS_P non-zero means S should draw the foreground only, and
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4465 use its physical height for clipping.
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4466
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4467 Value is the index of a component not in S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4468
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4469 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4470 x_fill_composite_glyph_string (s, faces, overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4471 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4472 struct face **faces;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4473 int overlaps_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4474 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4475 int i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4476
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4477 xassert (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4478
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4479 s->for_overlaps_p = overlaps_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4480
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4481 s->face = faces[s->gidx];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4482 s->font = s->face->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4483 s->font_info = FONT_INFO_FROM_ID (s->f, s->face->font_info_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4484
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4485 /* For all glyphs of this composition, starting at the offset
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4486 S->gidx, until we reach the end of the definition or encounter a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4487 glyph that requires the different face, add it to S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4488 ++s->nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4489 for (i = s->gidx + 1; i < s->cmp->glyph_len && faces[i] == s->face; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4490 ++s->nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4491
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4492 /* All glyph strings for the same composition has the same width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4493 i.e. the width set for the first component of the composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4494
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4495 s->width = s->first_glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4496
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4497 /* If the specified font could not be loaded, use the frame's
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4498 default font, but record the fact that we couldn't load it in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4499 the glyph string so that we can draw rectangles for the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4500 characters of the glyph string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4501 if (s->font == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4502 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4503 s->font_not_found_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4504 s->font = FRAME_FONT (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4505 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4506
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4507 /* Adjust base line for subscript/superscript text. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4508 s->ybase += s->first_glyph->voffset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4509
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4510 xassert (s->face && s->face->gc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4511
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4512 /* This glyph string must always be drawn with 16-bit functions. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4513 s->two_byte_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4514
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4515 return s->gidx + s->nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4516 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4517
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4518
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4519 /* Fill glyph string S from a sequence of character glyphs.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4520
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4521 FACE_ID is the face id of the string. START is the index of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4522 first glyph to consider, END is the index of the last + 1.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4523 OVERLAPS_P non-zero means S should draw the foreground only, and
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4524 use its physical height for clipping.
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4525
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4526 Value is the index of the first glyph not in S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4527
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4528 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4529 x_fill_glyph_string (s, face_id, start, end, overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4530 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4531 int face_id;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4532 int start, end, overlaps_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4533 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4534 struct glyph *glyph, *last;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4535 int voffset;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4536 int glyph_not_available_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4537
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4538 xassert (s->f == XFRAME (s->w->frame));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4539 xassert (s->nchars == 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4540 xassert (start >= 0 && end > start);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4541
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4542 s->for_overlaps_p = overlaps_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4543 glyph = s->row->glyphs[s->area] + start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4544 last = s->row->glyphs[s->area] + end;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4545 voffset = glyph->voffset;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4546
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4547 glyph_not_available_p = glyph->glyph_not_available_p;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4548
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4549 while (glyph < last
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4550 && glyph->type == CHAR_GLYPH
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4551 && glyph->voffset == voffset
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4552 /* Same face id implies same font, nowadays. */
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4553 && glyph->face_id == face_id
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4554 && glyph->glyph_not_available_p == glyph_not_available_p)
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4555 {
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4556 int two_byte_p;
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4557
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4558 s->face = x_get_glyph_face_and_encoding (s->f, glyph,
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4559 s->char2b + s->nchars,
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4560 &two_byte_p);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4561 s->two_byte_p = two_byte_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4562 ++s->nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4563 xassert (s->nchars <= end - start);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4564 s->width += glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4565 ++glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4566 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4567
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4568 s->font = s->face->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4569 s->font_info = FONT_INFO_FROM_ID (s->f, s->face->font_info_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4570
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4571 /* If the specified font could not be loaded, use the frame's font,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4572 but record the fact that we couldn't load it in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4573 S->font_not_found_p so that we can draw rectangles for the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4574 characters of the glyph string. */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4575 if (s->font == NULL || glyph_not_available_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4576 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4577 s->font_not_found_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4578 s->font = FRAME_FONT (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4579 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4580
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4581 /* Adjust base line for subscript/superscript text. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4582 s->ybase += voffset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4583
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4584 xassert (s->face && s->face->gc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4585 return glyph - s->row->glyphs[s->area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4586 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4587
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4588
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4589 /* Fill glyph string S from image glyph S->first_glyph. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4590
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4591 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4592 x_fill_image_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4593 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4594 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4595 xassert (s->first_glyph->type == IMAGE_GLYPH);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4596 s->img = IMAGE_FROM_ID (s->f, s->first_glyph->u.img_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4597 xassert (s->img);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4598 s->face = FACE_FROM_ID (s->f, s->first_glyph->face_id);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4599 s->font = s->face->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4600 s->width = s->first_glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4601
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4602 /* Adjust base line for subscript/superscript text. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4603 s->ybase += s->first_glyph->voffset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4604 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4605
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4606
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4607 /* Fill glyph string S from a sequence of stretch glyphs.
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4608
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4609 ROW is the glyph row in which the glyphs are found, AREA is the
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4610 area within the row. START is the index of the first glyph to
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4611 consider, END is the index of the last + 1.
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4612
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4613 Value is the index of the first glyph not in S. */
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4614
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4615 static int
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4616 x_fill_stretch_glyph_string (s, row, area, start, end)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4617 struct glyph_string *s;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4618 struct glyph_row *row;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4619 enum glyph_row_area area;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4620 int start, end;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4621 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4622 struct glyph *glyph, *last;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4623 int voffset, face_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4624
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4625 xassert (s->first_glyph->type == STRETCH_GLYPH);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4626
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4627 glyph = s->row->glyphs[s->area] + start;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4628 last = s->row->glyphs[s->area] + end;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4629 face_id = glyph->face_id;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4630 s->face = FACE_FROM_ID (s->f, face_id);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4631 s->font = s->face->font;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4632 s->font_info = FONT_INFO_FROM_ID (s->f, s->face->font_info_id);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4633 s->width = glyph->pixel_width;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4634 voffset = glyph->voffset;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4635
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4636 for (++glyph;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4637 (glyph < last
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4638 && glyph->type == STRETCH_GLYPH
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4639 && glyph->voffset == voffset
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4640 && glyph->face_id == face_id);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4641 ++glyph)
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4642 s->width += glyph->pixel_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4643
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4644 /* Adjust base line for subscript/superscript text. */
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4645 s->ybase += voffset;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4646
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4647 xassert (s->face);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4648 return glyph - s->row->glyphs[s->area];
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4649 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4650
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4651
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4652 /* Initialize glyph string S. CHAR2B is a suitably allocated vector
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4653 of XChar2b structures for S; it can't be allocated in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4654 x_init_glyph_string because it must be allocated via `alloca'. W
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4655 is the window on which S is drawn. ROW and AREA are the glyph row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4656 and area within the row from which S is constructed. START is the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4657 index of the first glyph structure covered by S. HL is a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4658 face-override for drawing S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4659
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4660 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4661 w32_init_glyph_string (s, hdc, char2b, w, row, area, start, hl)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4662 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4663 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4664 wchar_t *char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4665 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4666 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4667 enum glyph_row_area area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4668 int start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4669 enum draw_glyphs_face hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4670 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4671 bzero (s, sizeof *s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4672 s->w = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4673 s->f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4674 s->hdc = hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4675 s->window = FRAME_W32_WINDOW (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4676 s->char2b = char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4677 s->hl = hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4678 s->row = row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4679 s->area = area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4680 s->first_glyph = row->glyphs[area] + start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4681 s->height = row->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4682 s->y = WINDOW_TO_FRAME_PIXEL_Y (w, row->y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4683
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4684 /* Display the internal border below the tool-bar window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4685 if (s->w == XWINDOW (s->f->tool_bar_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4686 s->y -= s->f->output_data.w32->internal_border_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4687
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4688 s->ybase = s->y + row->ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4689 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4690
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4691
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4692 /* Set background width of glyph string S. START is the index of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4693 first glyph following S. LAST_X is the right-most x-position + 1
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4694 in the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4695
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4696 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4697 x_set_glyph_string_background_width (s, start, last_x)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4698 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4699 int start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4700 int last_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4701 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4702 /* If the face of this glyph string has to be drawn to the end of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4703 the drawing area, set S->extends_to_end_of_line_p. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4704 struct face *default_face = FACE_FROM_ID (s->f, DEFAULT_FACE_ID);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4705
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4706 if (start == s->row->used[s->area]
36315
b72dddbb65b2 * w32term.c (x_set_glyph_string_background_width): Extend the
Jason Rumney <jasonr@gnu.org>
parents: 36045
diff changeset
4707 && s->area == TEXT_AREA
39002
e008ccec0cad (x_set_glyph_string_background_width)
Eli Zaretskii <eliz@gnu.org>
parents: 38807
diff changeset
4708 && ((s->hl == DRAW_NORMAL_TEXT
e008ccec0cad (x_set_glyph_string_background_width)
Eli Zaretskii <eliz@gnu.org>
parents: 38807
diff changeset
4709 && (s->row->fill_line_p
e008ccec0cad (x_set_glyph_string_background_width)
Eli Zaretskii <eliz@gnu.org>
parents: 38807
diff changeset
4710 || s->face->background != default_face->background
e008ccec0cad (x_set_glyph_string_background_width)
Eli Zaretskii <eliz@gnu.org>
parents: 38807
diff changeset
4711 || s->face->stipple != default_face->stipple
e008ccec0cad (x_set_glyph_string_background_width)
Eli Zaretskii <eliz@gnu.org>
parents: 38807
diff changeset
4712 || s->row->mouse_face_p))
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
4713 || s->hl == DRAW_MOUSE_FACE
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
4714 || ((s->hl == DRAW_IMAGE_RAISED || s->hl == DRAW_IMAGE_SUNKEN)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
4715 && s->row->fill_line_p)))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4716 s->extends_to_end_of_line_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4717
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4718 /* If S extends its face to the end of the line, set its
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4719 background_width to the distance to the right edge of the drawing
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4720 area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4721 if (s->extends_to_end_of_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4722 s->background_width = last_x - s->x + 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4723 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4724 s->background_width = s->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4725 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4726
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4727
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4728 /* Add a glyph string for a stretch glyph to the list of strings
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4729 between HEAD and TAIL. START is the index of the stretch glyph in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4730 row area AREA of glyph row ROW. END is the index of the last glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4731 in that glyph row area. X is the current output position assigned
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4732 to the new glyph string constructed. HL overrides that face of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4733 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4734 is the right-most x-position of the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4735
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4736 #define BUILD_STRETCH_GLYPH_STRING(hdc, W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4737 do \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4738 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4739 s = (struct glyph_string *) alloca (sizeof *s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4740 w32_init_glyph_string (s, hdc, NULL, W, ROW, AREA, START, HL); \
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4741 START = x_fill_stretch_glyph_string (s, ROW, AREA, START, END); \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4742 x_append_glyph_string (&HEAD, &TAIL, s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4743 s->x = (X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4744 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4745 while (0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4746
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4747
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4748 /* Add a glyph string for an image glyph to the list of strings
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4749 between HEAD and TAIL. START is the index of the image glyph in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4750 row area AREA of glyph row ROW. END is the index of the last glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4751 in that glyph row area. X is the current output position assigned
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4752 to the new glyph string constructed. HL overrides that face of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4753 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4754 is the right-most x-position of the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4755
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4756 #define BUILD_IMAGE_GLYPH_STRING(hdc, W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4757 do \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4758 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4759 s = (struct glyph_string *) alloca (sizeof *s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4760 w32_init_glyph_string (s, hdc, NULL, W, ROW, AREA, START, HL); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4761 x_fill_image_glyph_string (s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4762 x_append_glyph_string (&HEAD, &TAIL, s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4763 ++START; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4764 s->x = (X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4765 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4766 while (0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4767
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4768
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4769 /* Add a glyph string for a sequence of character glyphs to the list
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4770 of strings between HEAD and TAIL. START is the index of the first
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4771 glyph in row area AREA of glyph row ROW that is part of the new
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4772 glyph string. END is the index of the last glyph in that glyph row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4773 area. X is the current output position assigned to the new glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4774 string constructed. HL overrides that face of the glyph; e.g. it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4775 is DRAW_CURSOR if a cursor has to be drawn. LAST_X is the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4776 right-most x-position of the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4777
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4778 #define BUILD_CHAR_GLYPH_STRINGS(hdc, W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X, OVERLAPS_P) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4779 do \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4780 { \
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4781 int c, face_id; \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4782 wchar_t *char2b; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4783 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4784 c = (ROW)->glyphs[AREA][START].u.ch; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4785 face_id = (ROW)->glyphs[AREA][START].face_id; \
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4786 \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4787 s = (struct glyph_string *) alloca (sizeof *s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4788 char2b = (wchar_t *) alloca ((END - START) * sizeof *char2b); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4789 w32_init_glyph_string (s, hdc, char2b, W, ROW, AREA, START, HL); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4790 x_append_glyph_string (&HEAD, &TAIL, s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4791 s->x = (X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4792 START = x_fill_glyph_string (s, face_id, START, END, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4793 OVERLAPS_P); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4794 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4795 while (0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4796
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4797
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4798 /* Add a glyph string for a composite sequence to the list of strings
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4799 between HEAD and TAIL. START is the index of the first glyph in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4800 row area AREA of glyph row ROW that is part of the new glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4801 string. END is the index of the last glyph in that glyph row area.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4802 X is the current output position assigned to the new glyph string
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4803 constructed. HL overrides that face of the glyph; e.g. it is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4804 DRAW_CURSOR if a cursor has to be drawn. LAST_X is the right-most
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4805 x-position of the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4806
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4807 #define BUILD_COMPOSITE_GLYPH_STRING(hdc, W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X, OVERLAPS_P) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4808 do { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4809 int cmp_id = (ROW)->glyphs[AREA][START].u.cmp_id; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4810 int face_id = (ROW)->glyphs[AREA][START].face_id; \
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4811 struct face *base_face = FACE_FROM_ID (XFRAME (w->frame), face_id); \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4812 struct composition *cmp = composition_table[cmp_id]; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4813 int glyph_len = cmp->glyph_len; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4814 wchar_t *char2b; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4815 struct face **faces; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4816 struct glyph_string *first_s = NULL; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4817 int n; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4818 \
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4819 base_face = base_face->ascii_face; \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4820 char2b = (wchar_t *) alloca ((sizeof *char2b) * glyph_len); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4821 faces = (struct face **) alloca ((sizeof *faces) * glyph_len); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4822 /* At first, fill in `char2b' and `faces'. */ \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4823 for (n = 0; n < glyph_len; n++) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4824 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4825 int c = COMPOSITION_GLYPH (cmp, n); \
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4826 int this_face_id = FACE_FOR_CHAR (XFRAME (w->frame), base_face, c); \
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4827 faces[n] = FACE_FROM_ID (XFRAME (w->frame), this_face_id); \
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4828 x_get_char_face_and_encoding (XFRAME (w->frame), c, \
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
4829 this_face_id, char2b + n, 1); \
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4830 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4831 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4832 /* Make glyph_strings for each glyph sequence that is drawable by \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4833 the same face, and append them to HEAD/TAIL. */ \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4834 for (n = 0; n < cmp->glyph_len;) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4835 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4836 s = (struct glyph_string *) alloca (sizeof *s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4837 w32_init_glyph_string (s, hdc, char2b + n, W, ROW, AREA, START, HL); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4838 x_append_glyph_string (&(HEAD), &(TAIL), s); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4839 s->cmp = cmp; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4840 s->gidx = n; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4841 s->x = (X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4842 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4843 if (n == 0) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4844 first_s = s; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4845 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4846 n = x_fill_composite_glyph_string (s, faces, OVERLAPS_P); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4847 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4848 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4849 ++START; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4850 s = first_s; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4851 } while (0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4852
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4853
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4854 /* Build a list of glyph strings between HEAD and TAIL for the glyphs
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4855 of AREA of glyph row ROW on window W between indices START and END.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4856 HL overrides the face for drawing glyph strings, e.g. it is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4857 DRAW_CURSOR to draw a cursor. X and LAST_X are start and end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4858 x-positions of the drawing area.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4859
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4860 This is an ugly monster macro construct because we must use alloca
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4861 to allocate glyph strings (because x_draw_glyphs can be called
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4862 asynchronously). */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4863
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4864 #define BUILD_GLYPH_STRINGS(hdc, W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X, OVERLAPS_P) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4865 do \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4866 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4867 HEAD = TAIL = NULL; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4868 while (START < END) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4869 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4870 struct glyph *first_glyph = (ROW)->glyphs[AREA] + START; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4871 switch (first_glyph->type) \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4872 { \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4873 case CHAR_GLYPH: \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4874 BUILD_CHAR_GLYPH_STRINGS (hdc, W, ROW, AREA, START, END, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4875 HEAD, TAIL, HL, X, LAST_X, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4876 OVERLAPS_P); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4877 break; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4878 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4879 case COMPOSITE_GLYPH: \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4880 BUILD_COMPOSITE_GLYPH_STRING (hdc, W, ROW, AREA, START, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4881 END, HEAD, TAIL, HL, X, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4882 LAST_X, OVERLAPS_P); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4883 break; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4884 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4885 case STRETCH_GLYPH: \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4886 BUILD_STRETCH_GLYPH_STRING (hdc, W, ROW, AREA, START, END,\
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4887 HEAD, TAIL, HL, X, LAST_X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4888 break; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4889 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4890 case IMAGE_GLYPH: \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4891 BUILD_IMAGE_GLYPH_STRING (hdc, W, ROW, AREA, START, END, \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4892 HEAD, TAIL, HL, X, LAST_X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4893 break; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4894 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4895 default: \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4896 abort (); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4897 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4898 \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4899 x_set_glyph_string_background_width (s, START, LAST_X); \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4900 (X) += s->width; \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4901 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4902 } \
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4903 while (0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4904
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4905
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4906 /* Draw glyphs between START and END in AREA of ROW on window W,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4907 starting at x-position X. X is relative to AREA in W. HL is a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4908 face-override with the following meaning:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4909
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4910 DRAW_NORMAL_TEXT draw normally
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4911 DRAW_CURSOR draw in cursor face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4912 DRAW_MOUSE_FACE draw in mouse face.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4913 DRAW_INVERSE_VIDEO draw in mode line face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4914 DRAW_IMAGE_SUNKEN draw an image with a sunken relief around it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4915 DRAW_IMAGE_RAISED draw an image with a raised relief around it
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4916
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4917 If OVERLAPS_P is non-zero, draw only the foreground of characters
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4918 and clip to the physical height of ROW.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4919
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4920 Value is the x-position reached, relative to AREA of W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4921
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4922 static int
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
4923 x_draw_glyphs (w, x, row, area, start, end, hl, overlaps_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4924 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4925 int x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4926 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4927 enum glyph_row_area area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4928 int start, end;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4929 enum draw_glyphs_face hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4930 int overlaps_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4931 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4932 struct glyph_string *head, *tail;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4933 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4934 int last_x, area_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4935 int x_reached;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4936 int i, j;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4937 HDC hdc = get_frame_dc (XFRAME (WINDOW_FRAME (w)));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4938
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4939 /* Let's rather be paranoid than getting a SEGV. */
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4940 end = min (end, row->used[area]);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4941 start = max (0, start);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4942 start = min (end, start);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4943
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4944 /* Translate X to frame coordinates. Set last_x to the right
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4945 end of the drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4946 if (row->full_width_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4947 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4948 /* X is relative to the left edge of W, without scroll bars
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
4949 or fringes. */
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4950 struct frame *f = XFRAME (WINDOW_FRAME (w));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4951 int window_left_x = WINDOW_LEFT_MARGIN (w) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4952
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4953 x += window_left_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4954 area_width = XFASTINT (w->width) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4955 last_x = window_left_x + area_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4956
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4957 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4958 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4959 int width = FRAME_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4960 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4961 last_x += width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4962 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4963 x -= width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4964 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4965
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4966 x += FRAME_INTERNAL_BORDER_WIDTH (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4967 last_x -= FRAME_INTERNAL_BORDER_WIDTH (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4968 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4969 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4970 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4971 x = WINDOW_AREA_TO_FRAME_PIXEL_X (w, area, x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4972 area_width = window_box_width (w, area);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4973 last_x = WINDOW_AREA_TO_FRAME_PIXEL_X (w, area, area_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4974 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4975
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4976 /* Build a doubly-linked list of glyph_string structures between
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4977 head and tail from what we have to draw. Note that the macro
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4978 BUILD_GLYPH_STRINGS will modify its start parameter. That's
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4979 the reason we use a separate variable `i'. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4980 i = start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4981 BUILD_GLYPH_STRINGS (hdc, w, row, area, i, end, head, tail, hl, x, last_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4982 overlaps_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4983 if (tail)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4984 x_reached = tail->x + tail->background_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4985 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4986 x_reached = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4987
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4988 /* If there are any glyphs with lbearing < 0 or rbearing > width in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4989 the row, redraw some glyphs in front or following the glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4990 strings built above. */
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4991 if (head && !overlaps_p && row->contains_overlapping_glyphs_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4992 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4993 int dummy_x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4994 struct glyph_string *h, *t;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4995
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4996 /* Compute overhangs for all glyph strings. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4997 for (s = head; s; s = s->next)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4998 x_compute_glyph_string_overhangs (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4999
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5000 /* Prepend glyph strings for glyphs in front of the first glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5001 string that are overwritten because of the first glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5002 string's left overhang. The background of all strings
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5003 prepended must be drawn because the first glyph string
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5004 draws over it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5005 i = x_left_overwritten (head);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5006 if (i >= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5007 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5008 j = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5009 BUILD_GLYPH_STRINGS (hdc, w, row, area, j, start, h, t,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5010 DRAW_NORMAL_TEXT, dummy_x, last_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5011 overlaps_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5012 start = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5013 x_compute_overhangs_and_x (t, head->x, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5014 x_prepend_glyph_string_lists (&head, &tail, h, t);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5015 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5016
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5017 /* Prepend glyph strings for glyphs in front of the first glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5018 string that overwrite that glyph string because of their
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5019 right overhang. For these strings, only the foreground must
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5020 be drawn, because it draws over the glyph string at `head'.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5021 The background must not be drawn because this would overwrite
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5022 right overhangs of preceding glyphs for which no glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5023 strings exist. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5024 i = x_left_overwriting (head);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5025 if (i >= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5026 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5027 BUILD_GLYPH_STRINGS (hdc, w, row, area, i, start, h, t,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5028 DRAW_NORMAL_TEXT, dummy_x, last_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5029 overlaps_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5030 for (s = h; s; s = s->next)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5031 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5032 x_compute_overhangs_and_x (t, head->x, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5033 x_prepend_glyph_string_lists (&head, &tail, h, t);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5034 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5035
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5036 /* Append glyphs strings for glyphs following the last glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5037 string tail that are overwritten by tail. The background of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5038 these strings has to be drawn because tail's foreground draws
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5039 over it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5040 i = x_right_overwritten (tail);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5041 if (i >= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5042 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5043 BUILD_GLYPH_STRINGS (hdc, w, row, area, end, i, h, t,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5044 DRAW_NORMAL_TEXT, x, last_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5045 overlaps_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5046 x_compute_overhangs_and_x (h, tail->x + tail->width, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5047 x_append_glyph_string_lists (&head, &tail, h, t);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5048 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5049
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5050 /* Append glyph strings for glyphs following the last glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5051 string tail that overwrite tail. The foreground of such
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5052 glyphs has to be drawn because it writes into the background
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5053 of tail. The background must not be drawn because it could
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5054 paint over the foreground of following glyphs. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5055 i = x_right_overwriting (tail);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5056 if (i >= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5057 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5058 BUILD_GLYPH_STRINGS (hdc, w, row, area, end, i, h, t,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5059 DRAW_NORMAL_TEXT, x, last_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5060 overlaps_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5061 for (s = h; s; s = s->next)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5062 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5063 x_compute_overhangs_and_x (h, tail->x + tail->width, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5064 x_append_glyph_string_lists (&head, &tail, h, t);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5065 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5066 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5067
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5068 /* Draw all strings. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5069 for (s = head; s; s = s->next)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5070 x_draw_glyph_string (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5071
42544
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5072 if (area == TEXT_AREA
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5073 && !row->full_width_p
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5074 /* When drawing overlapping rows, only the glyph strings'
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5075 foreground is drawn, which doesn't erase a cursor
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5076 completely. */
025e76c82b80 (x_draw_glyphs): Don't call notice_overwritten_cursor
Jason Rumney <jasonr@gnu.org>
parents: 42538
diff changeset
5077 && !overlaps_p)
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5078 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5079 int x0 = head ? head->x : x;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5080 int x1 = tail ? tail->x + tail->background_width : x;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5081
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5082 x0 = FRAME_TO_WINDOW_PIXEL_X (w, x0);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5083 x1 = FRAME_TO_WINDOW_PIXEL_X (w, x1);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5084
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5085 if (!row->full_width_p && XFASTINT (w->left_margin_width) != 0)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5086 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5087 int left_area_width = window_box_width (w, LEFT_MARGIN_AREA);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5088 x0 -= left_area_width;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5089 x1 -= left_area_width;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5090 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5091
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5092 notice_overwritten_cursor (w, area, x0, x1,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5093 row->y, MATRIX_ROW_BOTTOM_Y (row));
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5094 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5095
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5096 /* Value is the x-position up to which drawn, relative to AREA of W.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5097 This doesn't include parts drawn because of overhangs. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5098 x_reached = FRAME_TO_WINDOW_PIXEL_X (w, x_reached);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5099 if (!row->full_width_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5100 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5101 if (area > LEFT_MARGIN_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5102 x_reached -= window_box_width (w, LEFT_MARGIN_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5103 if (area > TEXT_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5104 x_reached -= window_box_width (w, TEXT_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5105 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5106
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5107 release_frame_dc (XFRAME (WINDOW_FRAME (w)), hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5108
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5109 return x_reached;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5110 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5111
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5112
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5113 /* Fix the display of area AREA of overlapping row ROW in window W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5114
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5115 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5116 x_fix_overlapping_area (w, row, area)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5117 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5118 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5119 enum glyph_row_area area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5120 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5121 int i, x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5122
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5123 BLOCK_INPUT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5124
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5125 if (area == LEFT_MARGIN_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5126 x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5127 else if (area == TEXT_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5128 x = row->x + window_box_width (w, LEFT_MARGIN_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5129 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5130 x = (window_box_width (w, LEFT_MARGIN_AREA)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5131 + window_box_width (w, TEXT_AREA));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5132
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5133 for (i = 0; i < row->used[area];)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5134 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5135 if (row->glyphs[area][i].overlaps_vertically_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5136 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5137 int start = i, start_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5138
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5139 do
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5140 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5141 x += row->glyphs[area][i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5142 ++i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5143 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5144 while (i < row->used[area]
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5145 && row->glyphs[area][i].overlaps_vertically_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5146
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5147 x_draw_glyphs (w, start_x, row, area, start, i,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5148 DRAW_NORMAL_TEXT, 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5149 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5150 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5151 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5152 x += row->glyphs[area][i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5153 ++i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5154 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5155 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5156
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5157 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5158 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5159
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5160
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5161 /* Output LEN glyphs starting at START at the nominal cursor position.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5162 Advance the nominal cursor over the text. The global variable
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5163 updated_window contains the window being updated, updated_row is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5164 the glyph row being updated, and updated_area is the area of that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5165 row being updated. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5166
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5167 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5168 x_write_glyphs (start, len)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5169 struct glyph *start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5170 int len;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5171 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5172 int x, hpos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5173
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5174 xassert (updated_window && updated_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5175 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5176
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5177 /* Write glyphs. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5178
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5179 hpos = start - updated_row->glyphs[updated_area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5180 x = x_draw_glyphs (updated_window, output_cursor.x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5181 updated_row, updated_area,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5182 hpos, hpos + len,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5183 DRAW_NORMAL_TEXT, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5184
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5185 UNBLOCK_INPUT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5186
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5187 /* Advance the output cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5188 output_cursor.hpos += len;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5189 output_cursor.x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5190 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5191
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5192
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5193 /* Insert LEN glyphs from START at the nominal cursor position. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5194
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5195 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5196 x_insert_glyphs (start, len)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5197 struct glyph *start;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5198 register int len;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5199 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5200 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5201 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5202 int line_height, shift_by_width, shifted_region_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5203 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5204 struct glyph *glyph;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5205 int frame_x, frame_y, hpos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5206 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5207
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5208 xassert (updated_window && updated_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5209 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5210 w = updated_window;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5211 f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5212 hdc = get_frame_dc (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5213
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5214 /* Get the height of the line we are in. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5215 row = updated_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5216 line_height = row->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5217
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5218 /* Get the width of the glyphs to insert. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5219 shift_by_width = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5220 for (glyph = start; glyph < start + len; ++glyph)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5221 shift_by_width += glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5222
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5223 /* Get the width of the region to shift right. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5224 shifted_region_width = (window_box_width (w, updated_area)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5225 - output_cursor.x
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5226 - shift_by_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5227
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5228 /* Shift right. */
36315
b72dddbb65b2 * w32term.c (x_set_glyph_string_background_width): Extend the
Jason Rumney <jasonr@gnu.org>
parents: 36045
diff changeset
5229 frame_x = window_box_left (w, updated_area) + output_cursor.x;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5230 frame_y = WINDOW_TO_FRAME_PIXEL_Y (w, output_cursor.y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5231 BitBlt (hdc, frame_x + shift_by_width, frame_y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5232 shifted_region_width, line_height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5233 hdc, frame_x, frame_y, SRCCOPY);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5234
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5235 /* Write the glyphs. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5236 hpos = start - row->glyphs[updated_area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5237 x_draw_glyphs (w, output_cursor.x, row, updated_area, hpos, hpos + len,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5238 DRAW_NORMAL_TEXT, 0);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5239
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5240 /* Advance the output cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5241 output_cursor.hpos += len;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5242 output_cursor.x += shift_by_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5243 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5244
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5245 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5246 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5247
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5248
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5249 /* Delete N glyphs at the nominal cursor position. Not implemented
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5250 for X frames. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5251
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5252 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5253 x_delete_glyphs (n)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5254 register int n;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5255 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5256 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5257
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5258 if (updating_frame)
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5259 f = updating_frame;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5260 else
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5261 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5262
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5263 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5264 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5265
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5266 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5267 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5268
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5269
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5270 /* Erase the current text line from the nominal cursor position
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5271 (inclusive) to pixel column TO_X (exclusive). The idea is that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5272 everything from TO_X onward is already erased.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5273
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5274 TO_X is a pixel position relative to updated_area of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5275 updated_window. TO_X == -1 means clear to the end of this area. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5276
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5277 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5278 x_clear_end_of_line (to_x)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5279 int to_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5280 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5281 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5282 struct window *w = updated_window;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5283 int max_x, min_y, max_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5284 int from_x, from_y, to_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5285
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5286 xassert (updated_window && updated_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5287 f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5288
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5289 if (updated_row->full_width_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5290 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5291 max_x = XFASTINT (w->width) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5292 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5293 && !w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5294 max_x += FRAME_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5295 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5296 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5297 max_x = window_box_width (w, updated_area);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5298 max_y = window_text_bottom_y (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5299
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5300 /* TO_X == 0 means don't do anything. TO_X < 0 means clear to end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5301 of window. For TO_X > 0, truncate to end of drawing area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5302 if (to_x == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5303 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5304 else if (to_x < 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5305 to_x = max_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5306 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5307 to_x = min (to_x, max_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5308
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5309 to_y = min (max_y, output_cursor.y + updated_row->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5310
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5311 /* Notice if the cursor will be cleared by this operation. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5312 if (!updated_row->full_width_p)
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5313 notice_overwritten_cursor (w, updated_area,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5314 output_cursor.x, -1,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5315 updated_row->y,
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5316 MATRIX_ROW_BOTTOM_Y (updated_row));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5317
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5318 from_x = output_cursor.x;
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
5319
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5320 /* Translate to frame coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5321 if (updated_row->full_width_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5322 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5323 from_x = WINDOW_TO_FRAME_PIXEL_X (w, from_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5324 to_x = WINDOW_TO_FRAME_PIXEL_X (w, to_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5325 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5326 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5327 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5328 from_x = WINDOW_AREA_TO_FRAME_PIXEL_X (w, updated_area, from_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5329 to_x = WINDOW_AREA_TO_FRAME_PIXEL_X (w, updated_area, to_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5330 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5331
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5332 min_y = WINDOW_DISPLAY_HEADER_LINE_HEIGHT (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5333 from_y = WINDOW_TO_FRAME_PIXEL_Y (w, max (min_y, output_cursor.y));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5334 to_y = WINDOW_TO_FRAME_PIXEL_Y (w, to_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5335
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5336 /* Prevent inadvertently clearing to end of the X window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5337 if (to_x > from_x && to_y > from_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5338 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
5339 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5340 BLOCK_INPUT;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
5341 hdc = get_frame_dc (f);
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
5342
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
5343 w32_clear_area (f, hdc, from_x, from_y, to_x - from_x, to_y - from_y);
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
5344 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5345 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5346 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5347 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5348
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5349
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5350 /* Clear entire frame. If updating_frame is non-null, clear that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5351 frame. Otherwise clear the selected frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5352
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5353 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5354 x_clear_frame ()
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5355 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5356 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5357
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5358 if (updating_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5359 f = updating_frame;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5360 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5361 f = SELECTED_FRAME ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5362
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5363 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5364 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5365
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5366 /* Clearing the frame will erase any cursor, so mark them all as no
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5367 longer visible. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5368 mark_window_cursors_off (XWINDOW (FRAME_ROOT_WINDOW (f)));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5369 output_cursor.hpos = output_cursor.vpos = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5370 output_cursor.x = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5371
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5372 /* We don't set the output cursor here because there will always
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5373 follow an explicit cursor_to. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5374 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5375
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5376 w32_clear_window (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5377
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5378 /* We have to clear the scroll bars, too. If we have changed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5379 colors or something like that, then they should be notified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5380 x_scroll_bar_clear (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5381
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5382 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5383 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5384
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5385
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5386 /* Make audible bell. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5387
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5388 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5389 w32_ring_bell (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5390 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5391 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5392
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5393 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5394
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5395 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5396
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
5397 if (FRAME_W32_P (f) && visible_bell)
22059
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5398 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5399 int i;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5400 HWND hwnd = FRAME_W32_WINDOW (SELECTED_FRAME ());
22059
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5401
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5402 for (i = 0; i < 5; i++)
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5403 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5404 FlashWindow (hwnd, TRUE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5405 Sleep (10);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5406 }
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5407 FlashWindow (hwnd, FALSE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
5408 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5409 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5410 w32_sys_ring_bell ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5411
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5412 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5413 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5414
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5415
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5416 /* Specify how many text lines, from the top of the window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5417 should be affected by insert-lines and delete-lines operations.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5418 This, and those operations, are used only within an update
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5419 that is bounded by calls to x_update_begin and x_update_end. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5420
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5421 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5422 w32_set_terminal_window (n)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5423 register int n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5424 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5425 /* This function intentionally left blank. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5426 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5427
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5428
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5429
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5430 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5431 Line Dance
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5432 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5433
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5434 /* Perform an insert-lines or delete-lines operation, inserting N
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5435 lines or deleting -N lines at vertical position VPOS. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5436
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5437 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5438 x_ins_del_lines (vpos, n)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5439 int vpos, n;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5440 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5441 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5442
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5443 if (updating_frame)
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5444 f = updating_frame;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5445 else
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5446 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5447
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5448 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5449 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5450
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5451 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5452 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5453
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5454
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5455 /* Scroll part of the display as described by RUN. */
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5456
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
5457 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5458 x_scroll_run (w, run)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5459 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5460 struct run *run;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5461 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5462 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5463 int x, y, width, height, from_y, to_y, bottom_y;
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5464 HWND hwnd = FRAME_W32_WINDOW (f);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5465 HRGN expect_dirty;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5466
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5467 /* Get frame-relative bounding box of the text display area of W,
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
5468 without mode lines. Include in this box the left and right
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
5469 fringes of W. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5470 window_box (w, -1, &x, &y, &width, &height);
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
5471 width += FRAME_X_FRINGE_WIDTH (f);
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
5472 x -= FRAME_X_LEFT_FRINGE_WIDTH (f);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5473
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5474 from_y = WINDOW_TO_FRAME_PIXEL_Y (w, run->current_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5475 to_y = WINDOW_TO_FRAME_PIXEL_Y (w, run->desired_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5476 bottom_y = y + height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5477
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5478 if (to_y < from_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5479 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5480 /* Scrolling up. Make sure we don't copy part of the mode
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5481 line at the bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5482 if (from_y + run->height > bottom_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5483 height = bottom_y - from_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5484 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5485 height = run->height;
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5486 expect_dirty = CreateRectRgn (x, y + height, x + width, bottom_y);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5487 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5488 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5489 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5490 /* Scolling down. Make sure we don't copy over the mode line.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5491 at the bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5492 if (to_y + run->height > bottom_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5493 height = bottom_y - to_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5494 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5495 height = run->height;
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5496 expect_dirty = CreateRectRgn (x, y, x + width, to_y);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5497 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5498
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5499 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5500
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5501 /* Cursor off. Will be switched on again in x_update_window_end. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5502 updated_window = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5503 x_clear_cursor (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5504
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5505 {
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5506 RECT from;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5507 RECT to;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5508 HRGN dirty = CreateRectRgn (0, 0, 0, 0);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5509 HRGN combined = CreateRectRgn (0, 0, 0, 0);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5510
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5511 from.left = to.left = x;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5512 from.right = to.right = x + width;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5513 from.top = from_y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5514 from.bottom = from_y + height;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5515 to.top = y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5516 to.bottom = bottom_y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5517
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5518 ScrollWindowEx (hwnd, 0, to_y - from_y, &from, &to, dirty,
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5519 NULL, SW_INVALIDATE);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5520
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5521 /* Combine this with what we expect to be dirty. This covers the
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5522 case where not all of the region we expect is actually dirty. */
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5523 CombineRgn (combined, dirty, expect_dirty, RGN_OR);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5524
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5525 /* If the dirty region is not what we expected, redraw the entire frame. */
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5526 if (!EqualRgn (combined, expect_dirty))
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5527 SET_FRAME_GARBAGED (f);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5528 }
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5529
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5530 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5531 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5532
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5533
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5534
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5535 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5536 Exposure Events
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5537 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5538
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5539 /* Redisplay an exposed area of frame F. X and Y are the upper-left
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5540 corner of the exposed rectangle. W and H are width and height of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5541 the exposed area. All are pixel values. W or H zero means redraw
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5542 the entire frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5543
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5544 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5545 expose_frame (f, x, y, w, h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5546 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5547 int x, y, w, h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5548 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5549 RECT r;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5550 int mouse_face_overwritten_p = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5551
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5552 TRACE ((stderr, "expose_frame "));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5553
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5554 /* No need to redraw if frame will be redrawn soon. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5555 if (FRAME_GARBAGED_P (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5556 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5557 TRACE ((stderr, " garbaged\n"));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5558 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5559 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5560
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5561 /* If basic faces haven't been realized yet, there is no point in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5562 trying to redraw anything. This can happen when we get an expose
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5563 event while Emacs is starting, e.g. by moving another window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5564 if (FRAME_FACE_CACHE (f) == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5565 || FRAME_FACE_CACHE (f)->used < BASIC_FACE_ID_SENTINEL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5566 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5567 TRACE ((stderr, " no faces\n"));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5568 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5569 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5570
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5571 if (w == 0 || h == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5572 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5573 r.left = r.top = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5574 r.right = CANON_X_UNIT (f) * f->width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5575 r.bottom = CANON_Y_UNIT (f) * f->height;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5576 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5577 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5578 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5579 r.left = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5580 r.top = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5581 r.right = x + w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5582 r.bottom = y + h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5583 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5584
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5585 TRACE ((stderr, "(%d, %d, %d, %d)\n", r.left, r.top, r.right, r.bottom));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5586 mouse_face_overwritten_p = expose_window_tree (XWINDOW (f->root_window), &r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5587
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5588 if (WINDOWP (f->tool_bar_window))
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5589 mouse_face_overwritten_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5590 |= expose_window (XWINDOW (f->tool_bar_window), &r);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5591
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5592 /* Some window managers support a focus-follows-mouse style with
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5593 delayed raising of frames. Imagine a partially obscured frame,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5594 and moving the mouse into partially obscured mouse-face on that
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5595 frame. The visible part of the mouse-face will be highlighted,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5596 then the WM raises the obscured frame. With at least one WM, KDE
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5597 2.1, Emacs is not getting any event for the raising of the frame
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5598 (even tried with SubstructureRedirectMask), only Expose events.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5599 These expose events will draw text normally, i.e. not
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5600 highlighted. Which means we must redo the highlight here.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5601 Subsume it under ``we love X''. --gerd 2001-08-15 */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5602 /* Included in Windows version because Windows most likely does not
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5603 do the right thing if any third party tool offers
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5604 focus-follows-mouse with delayed raise. --jason 2001-10-12 */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5605 if (mouse_face_overwritten_p && !FRAME_GARBAGED_P (f))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5606 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5607 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5608 if (f == dpyinfo->mouse_face_mouse_frame)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5609 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5610 int x = dpyinfo->mouse_face_mouse_x;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5611 int y = dpyinfo->mouse_face_mouse_y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5612 clear_mouse_face (dpyinfo);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5613 note_mouse_highlight (f, x, y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5614 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5615 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5616 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5617
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5618
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5619 /* Redraw (parts) of all windows in the window tree rooted at W that
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5620 intersect R. R contains frame pixel coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5621
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5622 static int
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5623 expose_window_tree (w, r)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5624 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5625 RECT *r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5626 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5627 struct frame *f = XFRAME (w->frame);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5628 int mouse_face_overwritten_p = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5629
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5630 while (w && !FRAME_GARBAGED_P (f))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5631 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5632 if (!NILP (w->hchild))
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5633 mouse_face_overwritten_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5634 |= expose_window_tree (XWINDOW (w->hchild), r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5635 else if (!NILP (w->vchild))
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5636 mouse_face_overwritten_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5637 |= expose_window_tree (XWINDOW (w->vchild), r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5638 else
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5639 mouse_face_overwritten_p |= expose_window (w, r);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5640
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5641 w = NILP (w->next) ? NULL : XWINDOW (w->next);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5642 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5643
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5644 return mouse_face_overwritten_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5645 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5646
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5647
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5648 /* Redraw the part of glyph row area AREA of glyph row ROW on window W
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5649 which intersects rectangle R. R is in window-relative coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5650
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5651 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5652 expose_area (w, row, r, area)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5653 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5654 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5655 RECT *r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5656 enum glyph_row_area area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5657 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5658 struct glyph *first = row->glyphs[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5659 struct glyph *end = row->glyphs[area] + row->used[area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5660 struct glyph *last;
34229
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5661 int first_x, start_x, x;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5662
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5663 if (area == TEXT_AREA && row->fill_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5664 /* If row extends face to end of line write the whole line. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5665 x_draw_glyphs (w, 0, row, area,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5666 0, row->used[area],
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5667 DRAW_NORMAL_TEXT, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5668 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5669 {
34229
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5670 /* Set START_X to the window-relative start position for drawing glyphs of
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5671 AREA. The first glyph of the text area can be partially visible.
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5672 The first glyphs of other areas cannot. */
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5673 if (area == LEFT_MARGIN_AREA)
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5674 start_x = 0;
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5675 else if (area == TEXT_AREA)
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5676 start_x = row->x + window_box_width (w, LEFT_MARGIN_AREA);
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5677 else
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5678 start_x = (window_box_width (w, LEFT_MARGIN_AREA)
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5679 + window_box_width (w, TEXT_AREA));
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5680 x = start_x;
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5681
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5682 /* Find the first glyph that must be redrawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5683 while (first < end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5684 && x + first->pixel_width < r->left)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5685 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5686 x += first->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5687 ++first;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5688 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5689
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5690 /* Find the last one. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5691 last = first;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5692 first_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5693 while (last < end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5694 && x < r->right)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5695 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5696 x += last->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5697 ++last;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5698 }
34229
54b8aa09c4a9 (expose_area): Complete last change.
Jason Rumney <jasonr@gnu.org>
parents: 34222
diff changeset
5699
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5700 /* Repaint. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5701 if (last > first)
34222
7e09cff3b2ab (x_produce_glyphs): If a font for a component of
Jason Rumney <jasonr@gnu.org>
parents: 34135
diff changeset
5702 x_draw_glyphs (w, first_x - start_x, row, area,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5703 first - row->glyphs[area],
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5704 last - row->glyphs[area],
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5705 DRAW_NORMAL_TEXT, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5706 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5707 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5708
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5709
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5710 /* Redraw the parts of the glyph row ROW on window W intersecting
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5711 rectangle R. R is in window-relative coordinates. Value is
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5712 non-zero if mouse face was overwritten. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5713
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5714 static int
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5715 expose_line (w, row, r)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5716 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5717 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5718 RECT *r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5719 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5720 xassert (row->enabled_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5721
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5722 if (row->mode_line_p || w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5723 x_draw_glyphs (w, 0, row, TEXT_AREA, 0, row->used[TEXT_AREA],
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5724 DRAW_NORMAL_TEXT, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5725 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5726 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5727 if (row->used[LEFT_MARGIN_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5728 expose_area (w, row, r, LEFT_MARGIN_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5729 if (row->used[TEXT_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5730 expose_area (w, row, r, TEXT_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5731 if (row->used[RIGHT_MARGIN_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5732 expose_area (w, row, r, RIGHT_MARGIN_AREA);
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
5733 x_draw_row_fringe_bitmaps (w, row);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5734 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5735
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5736 return row->mouse_face_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5737 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5738
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5739
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5740 /* Return non-zero if W's cursor intersects rectangle R. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5741
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5742 static int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5743 x_phys_cursor_in_rect_p (w, r)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5744 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5745 RECT *r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5746 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5747 RECT cr, result;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5748 struct glyph *cursor_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5749
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5750 cursor_glyph = get_phys_cursor_glyph (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5751 if (cursor_glyph)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5752 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5753 cr.left = w->phys_cursor.x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5754 cr.top = w->phys_cursor.y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5755 cr.right = cr.left + cursor_glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5756 cr.bottom = cr.top + w->phys_cursor_height;
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
5757 return IntersectRect (&result, &cr, r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5758 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5759 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5760 return 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5761 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5762
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5763
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5764 /* Redraw the part of window W intersection rectagle FR. Pixel
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5765 coordinates in FR are frame relative. Call this function with
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5766 input blocked. Value is non-zero if the exposure overwrites
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5767 mouse-face. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5768
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5769 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5770 expose_window (w, fr)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5771 struct window *w;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5772 RECT *fr;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5773 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5774 struct frame *f = XFRAME (w->frame);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5775 RECT wr, r;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5776 int mouse_face_overwritten_p = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5777
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5778 /* If window is not yet fully initialized, do nothing. This can
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5779 happen when toolkit scroll bars are used and a window is split.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5780 Reconfiguring the scroll bar will generate an expose for a newly
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5781 created window. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5782 if (w->current_matrix == NULL)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5783 return 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5784
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5785 /* When we're currently updating the window, display and current
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5786 matrix usually don't agree. Arrange for a thorough display
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5787 later. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5788 if (w == updated_window)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5789 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5790 SET_FRAME_GARBAGED (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5791 return 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5792 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5793
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5794 /* Frame-relative pixel rectangle of W. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5795 wr.left = XFASTINT (w->left) * CANON_X_UNIT (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5796 wr.top = XFASTINT (w->top) * CANON_Y_UNIT (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5797 wr.right = wr.left + XFASTINT (w->width) * CANON_X_UNIT (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5798 wr.bottom = wr.top + XFASTINT (w->height) * CANON_Y_UNIT (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5799
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5800 if (IntersectRect(&r, fr, &wr))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5801 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5802 int yb = window_text_bottom_y (w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5803 struct glyph_row *row;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5804 int cursor_cleared_p;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5805
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5806 TRACE ((stderr, "expose_window (%d, %d, %d, %d)\n",
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5807 r.left, r.top, r.right, r.bottom));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5808
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5809 /* Convert to window coordinates. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5810 r.left = FRAME_TO_WINDOW_PIXEL_X (w, r.left);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5811 r.right = FRAME_TO_WINDOW_PIXEL_X (w, r.right);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5812 r.top = FRAME_TO_WINDOW_PIXEL_Y (w, r.top);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5813 r.bottom = FRAME_TO_WINDOW_PIXEL_Y (w, r.bottom);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5814
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5815 /* Turn off the cursor. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5816 if (!w->pseudo_window_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5817 && x_phys_cursor_in_rect_p (w, &r))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5818 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5819 x_clear_cursor (w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5820 cursor_cleared_p = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5821 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5822 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5823 cursor_cleared_p = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5824
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5825 /* Find the first row intersecting the rectangle R. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5826 for (row = w->current_matrix->rows;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5827 row->enabled_p;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5828 ++row)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5829 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5830 int y0 = row->y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5831 int y1 = MATRIX_ROW_BOTTOM_Y (row);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5832
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5833 if ((y0 >= r.top && y0 < r.bottom)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5834 || (y1 > r.top && y1 < r.bottom)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5835 || (r.top >= y0 && r.top < y1)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5836 || (r.bottom > y0 && r.bottom < y1))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5837 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5838 if (expose_line (w, row, &r))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5839 mouse_face_overwritten_p = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5840 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5841
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5842 if (y1 >= yb)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5843 break;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5844 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5845
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5846 /* Display the mode line if there is one. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5847 if (WINDOW_WANTS_MODELINE_P (w)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5848 && (row = MATRIX_MODE_LINE_ROW (w->current_matrix),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5849 row->enabled_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5850 && row->y < r.bottom)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5851 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5852 if (expose_line (w, row, &r))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5853 mouse_face_overwritten_p = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5854 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5855
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5856 if (!w->pseudo_window_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5857 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5858 /* Draw border between windows. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5859 x_draw_vertical_border (w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5860
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5861 /* Turn the cursor on again. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5862 if (cursor_cleared_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5863 x_update_window_cursor (w, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5864 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5865 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5866
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5867 return mouse_face_overwritten_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5868 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5869
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5870
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5871 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5872 frame_highlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5873 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5874 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5875 x_update_cursor (f, 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5876 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5877
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5878 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5879 frame_unhighlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5880 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5881 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5882 x_update_cursor (f, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5883 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5884
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5885 /* The focus has changed. Update the frames as necessary to reflect
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5886 the new situation. Note that we can't change the selected frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5887 here, because the Lisp code we are interrupting might become confused.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5888 Each event gets marked with the frame in which it occurred, so the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5889 Lisp code can tell when the switch took place by examining the events. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5890
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5891 static void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5892 x_new_focus_frame (dpyinfo, frame)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5893 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5894 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5895 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5896 struct frame *old_focus = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5897
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5898 if (frame != dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5899 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5900 /* Set this before calling other routines, so that they see
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5901 the correct value of w32_focus_frame. */
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5902 dpyinfo->w32_focus_frame = frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5903
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5904 if (old_focus && old_focus->auto_lower)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5905 x_lower_frame (old_focus);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5906
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5907 if (dpyinfo->w32_focus_frame && dpyinfo->w32_focus_frame->auto_raise)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5908 pending_autoraise_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5909 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5910 pending_autoraise_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5911 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5912
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5913 x_frame_rehighlight (dpyinfo);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5914 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5915
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5916 /* Handle an event saying the mouse has moved out of an Emacs frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5917
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5918 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5919 x_mouse_leave (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5920 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5921 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5922 x_new_focus_frame (dpyinfo, dpyinfo->w32_focus_event_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5923 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5924
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5925 /* The focus has changed, or we have redirected a frame's focus to
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5926 another frame (this happens when a frame uses a surrogate
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5927 mini-buffer frame). Shift the highlight as appropriate.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5928
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5929 The FRAME argument doesn't necessarily have anything to do with which
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5930 frame is being highlighted or un-highlighted; we only use it to find
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5931 the appropriate X display info. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5932
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5933 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5934 w32_frame_rehighlight (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5935 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5936 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5937 if (! FRAME_W32_P (frame))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5938 return;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5939 x_frame_rehighlight (FRAME_W32_DISPLAY_INFO (frame));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5940 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5941
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5942 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5943 x_frame_rehighlight (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5944 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5945 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5946 struct frame *old_highlight = dpyinfo->w32_highlight_frame;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5947
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5948 if (dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5949 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5950 dpyinfo->w32_highlight_frame
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5951 = ((GC_FRAMEP (FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame)))
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5952 ? XFRAME (FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame))
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5953 : dpyinfo->w32_focus_frame);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5954 if (! FRAME_LIVE_P (dpyinfo->w32_highlight_frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5955 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5956 FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame) = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5957 dpyinfo->w32_highlight_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5958 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5959 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5960 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5961 dpyinfo->w32_highlight_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5962
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5963 if (dpyinfo->w32_highlight_frame != old_highlight)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5964 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5965 if (old_highlight)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5966 frame_unhighlight (old_highlight);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5967 if (dpyinfo->w32_highlight_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5968 frame_highlight (dpyinfo->w32_highlight_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5969 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5970 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5971
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5972 /* Keyboard processing - modifier keys, etc. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5973
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5974 /* Convert a keysym to its name. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5975
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5976 char *
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5977 x_get_keysym_name (keysym)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5978 int keysym;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5979 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5980 /* Make static so we can always return it */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5981 static char value[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5982
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5983 BLOCK_INPUT;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
5984 GetKeyNameText (keysym, value, 100);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5985 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5986
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5987 return value;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5988 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5989
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5990
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5991
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5992 /* Mouse clicks and mouse movement. Rah. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5993
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5994 /* Given a pixel position (PIX_X, PIX_Y) on frame F, return glyph
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5995 co-ordinates in (*X, *Y). Set *BOUNDS to the rectangle that the
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5996 glyph at X, Y occupies, if BOUNDS != 0. If NOCLIP is non-zero, do
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5997 not force the value into range. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5998
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5999 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6000 pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6001 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6002 register int pix_x, pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6003 register int *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6004 RECT *bounds;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6005 int noclip;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6006 {
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6007 /* Support tty mode: if Vwindow_system is nil, behave correctly. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6008 if (NILP (Vwindow_system))
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6009 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6010 *x = pix_x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6011 *y = pix_y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6012 return;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6013 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6014
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6015 /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to round down
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6016 even for negative values. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6017 if (pix_x < 0)
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
6018 pix_x -= FONT_WIDTH (FRAME_FONT (f)) - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6019 if (pix_y < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6020 pix_y -= (f)->output_data.w32->line_height - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6021
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6022 pix_x = PIXEL_TO_CHAR_COL (f, pix_x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6023 pix_y = PIXEL_TO_CHAR_ROW (f, pix_y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6024
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6025 if (bounds)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6026 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6027 bounds->left = CHAR_TO_PIXEL_COL (f, pix_x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6028 bounds->top = CHAR_TO_PIXEL_ROW (f, pix_y);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
6029 bounds->right = bounds->left + FONT_WIDTH (FRAME_FONT (f)) - 1;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6030 bounds->bottom = bounds->top + f->output_data.w32->line_height - 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6031 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6032
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6033 if (!noclip)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6034 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6035 if (pix_x < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6036 pix_x = 0;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6037 else if (pix_x > FRAME_WINDOW_WIDTH (f))
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6038 pix_x = FRAME_WINDOW_WIDTH (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6039
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6040 if (pix_y < 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6041 pix_y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6042 else if (pix_y > f->height)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6043 pix_y = f->height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6044 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6045
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6046 *x = pix_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6047 *y = pix_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6048 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6049
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6050
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6051 /* Given HPOS/VPOS in the current matrix of W, return corresponding
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6052 frame-relative pixel positions in *FRAME_X and *FRAME_Y. If we
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6053 can't tell the positions because W's display is not up to date,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6054 return 0. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6055
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6056 int
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6057 glyph_to_pixel_coords (w, hpos, vpos, frame_x, frame_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6058 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6059 int hpos, vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6060 int *frame_x, *frame_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6061 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6062 int success_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6063
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6064 xassert (hpos >= 0 && hpos < w->current_matrix->matrix_w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6065 xassert (vpos >= 0 && vpos < w->current_matrix->matrix_h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6066
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6067 if (display_completed)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6068 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6069 struct glyph_row *row = MATRIX_ROW (w->current_matrix, vpos);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6070 struct glyph *glyph = row->glyphs[TEXT_AREA];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6071 struct glyph *end = glyph + min (hpos, row->used[TEXT_AREA]);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6072
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6073 *frame_y = row->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6074 *frame_x = row->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6075 while (glyph < end)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6076 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6077 *frame_x += glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6078 ++glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6079 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6080
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6081 success_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6082 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6083 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6084 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6085 *frame_y = *frame_x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6086 success_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6087 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6088
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6089 *frame_y = WINDOW_TO_FRAME_PIXEL_Y (w, *frame_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6090 *frame_x = WINDOW_TO_FRAME_PIXEL_X (w, *frame_x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6091 return success_p;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6092 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6093
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6094 /* Parse a button MESSAGE. The button index is returned in PBUTTON, and
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6095 the state in PUP. XBUTTON provides extra information for extended mouse
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6096 button messages. Returns FALSE if unable to parse the message. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6097 BOOL
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6098 parse_button (message, xbutton, pbutton, pup)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6099 int message;
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6100 int xbutton;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6101 int * pbutton;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6102 int * pup;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6103 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6104 int button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6105 int up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6106
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6107 switch (message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6108 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6109 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6110 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6111 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6112 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6113 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6114 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6115 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6116 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6117 case WM_MBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6118 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6119 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6120 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6121 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6122 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6123 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6124 case WM_MBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6125 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6126 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6127 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6128 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6129 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6130 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6131 case WM_RBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6132 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6133 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6134 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6135 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6136 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6137 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6138 case WM_RBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6139 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6140 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6141 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6142 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6143 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6144 break;
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6145 case WM_XBUTTONDOWN:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6146 button = xbutton + 2;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6147 up = 0;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6148 break;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6149 case WM_XBUTTONUP:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6150 button = xbutton + 2;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6151 up = 1;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6152 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6153 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6154 return (FALSE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6155 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6156
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6157 if (pup) *pup = up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6158 if (pbutton) *pbutton = button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6159
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6160 return (TRUE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6161 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6162
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6163
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6164 /* Prepare a mouse-event in *RESULT for placement in the input queue.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6165
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6166 If the event is a button press, then note that we have grabbed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6167 the mouse. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6168
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6169 static Lisp_Object
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6170 construct_mouse_click (result, msg, f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6171 struct input_event *result;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6172 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6173 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6174 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6175 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6176 int up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6177
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6178 parse_button (msg->msg.message, HIWORD (msg->msg.wParam),
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
6179 &button, &up);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6180
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6181 /* Make the event type no_event; we'll change that when we decide
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6182 otherwise. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6183 result->kind = mouse_click;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6184 result->code = button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6185 result->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6186 result->modifiers = (msg->dwModifiers
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6187 | (up
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6188 ? up_modifier
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6189 : down_modifier));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6190
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6191 XSETINT (result->x, LOWORD (msg->msg.lParam));
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6192 XSETINT (result->y, HIWORD (msg->msg.lParam));
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6193 XSETFRAME (result->frame_or_window, f);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6194 result->arg = Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6195 return Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6196 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6197
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6198 static Lisp_Object
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6199 construct_mouse_wheel (result, msg, f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6200 struct input_event *result;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6201 W32Msg *msg;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6202 struct frame *f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6203 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6204 POINT p;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6205 result->kind = mouse_wheel;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6206 result->code = (short) HIWORD (msg->msg.wParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6207 result->timestamp = msg->msg.time;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6208 result->modifiers = msg->dwModifiers;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6209 p.x = LOWORD (msg->msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6210 p.y = HIWORD (msg->msg.lParam);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
6211 ScreenToClient (msg->msg.hwnd, &p);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6212 XSETINT (result->x, p.x);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6213 XSETINT (result->y, p.y);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6214 XSETFRAME (result->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
6215 result->arg = Qnil;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6216 return Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6217 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6218
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6219 static Lisp_Object
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6220 construct_drag_n_drop (result, msg, f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6221 struct input_event *result;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6222 W32Msg *msg;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6223 struct frame *f;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6224 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6225 Lisp_Object files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6226 Lisp_Object frame;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6227 HDROP hdrop;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6228 POINT p;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6229 WORD num_files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6230 char *name;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6231 int i, len;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6232
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6233 result->kind = drag_n_drop;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6234 result->code = 0;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6235 result->timestamp = msg->msg.time;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6236 result->modifiers = msg->dwModifiers;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6237
24265
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
6238 hdrop = (HDROP) msg->msg.wParam;
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
6239 DragQueryPoint (hdrop, &p);
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
6240
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
6241 #if 0
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6242 p.x = LOWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6243 p.y = HIWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6244 ScreenToClient (msg->msg.hwnd, &p);
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
6245 #endif
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
6246
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6247 XSETINT (result->x, p.x);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6248 XSETINT (result->y, p.y);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6249
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6250 num_files = DragQueryFile (hdrop, 0xFFFFFFFF, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6251 files = Qnil;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6252
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6253 for (i = 0; i < num_files; i++)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6254 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6255 len = DragQueryFile (hdrop, i, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6256 if (len <= 0)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6257 continue;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6258 name = alloca (len + 1);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6259 DragQueryFile (hdrop, i, name, len + 1);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6260 files = Fcons (build_string (name), files);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6261 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6262
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6263 DragFinish (hdrop);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6264
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6265 XSETFRAME (frame, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6266 result->frame_or_window = Fcons (frame, files);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
6267 result->arg = Qnil;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6268 return Qnil;
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6269 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
6270
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6271
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6272 /* Function to report a mouse movement to the mainstream Emacs code.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6273 The input handler calls this.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6274
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6275 We have received a mouse movement event, which is given in *event.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6276 If the mouse is over a different glyph than it was last time, tell
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6277 the mainstream emacs code by setting mouse_moved. If not, ask for
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6278 another motion event, so we can check again the next time it moves. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6279
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6280 static MSG last_mouse_motion_event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6281 static Lisp_Object last_mouse_motion_frame;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6282
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6283 static void remember_mouse_glyph P_ ((struct frame *, int, int));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6284
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6285 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6286 note_mouse_movement (frame, msg)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6287 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6288 MSG *msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6289 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6290 int mouse_x = LOWORD (msg->lParam);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6291 int mouse_y = HIWORD (msg->lParam);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6292
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6293 last_mouse_movement_time = msg->time;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6294 memcpy (&last_mouse_motion_event, msg, sizeof (last_mouse_motion_event));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6295 XSETFRAME (last_mouse_motion_frame, frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6296
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6297 if (x_autoselect_window_p)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6298 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6299 int area;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6300 Lisp_Object window;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6301 static Lisp_Object last_window;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6302
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6303 window = window_from_coordinates (frame, mouse_x, mouse_y, &area, 0);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6304
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6305 /* Window will be selected only when it is not selected now and
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6306 last mouse movement event was not in it. Minubuffer window
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6307 will be selected iff it is active. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6308 if (!EQ (window, last_window)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6309 && !EQ (window, selected_window)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6310 && (!MINI_WINDOW_P (XWINDOW (window))
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6311 || (EQ (window, minibuf_window) && minibuf_level > 0)))
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6312 Fselect_window (window);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6313
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6314 last_window=window;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6315 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
6316
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6317 if (msg->hwnd != FRAME_W32_WINDOW (frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6318 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6319 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6320 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6321 note_mouse_highlight (frame, -1, -1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6322 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6323
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6324 /* Has the mouse moved off the glyph it was on at the last sighting? */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6325 else if (mouse_x < last_mouse_glyph.left
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6326 || mouse_x > last_mouse_glyph.right
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6327 || mouse_y < last_mouse_glyph.top
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6328 || mouse_y > last_mouse_glyph.bottom)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6329 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6330 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6331 last_mouse_scroll_bar = Qnil;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6332 note_mouse_highlight (frame, mouse_x, mouse_y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6333 /* Remember the mouse position here, as w32_mouse_position only
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6334 gets called when mouse tracking is enabled but we also need
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6335 to keep track of the mouse for help_echo and highlighting at
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6336 other times. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6337 remember_mouse_glyph (frame, mouse_x, mouse_y);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6338 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6339 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6340
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6341
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6342 /************************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6343 Mouse Face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6344 ************************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6345
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6346 /* Find the glyph under window-relative coordinates X/Y in window W.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6347 Consider only glyphs from buffer text, i.e. no glyphs from overlay
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6348 strings. Return in *HPOS and *VPOS the row and column number of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6349 the glyph found. Return in *AREA the glyph area containing X.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6350 Value is a pointer to the glyph found or null if X/Y is not on
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6351 text, or we can't tell because W's current matrix is not up to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6352 date. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6353
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6354 static struct glyph *
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6355 x_y_to_hpos_vpos (w, x, y, hpos, vpos, area, buffer_only_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6356 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6357 int x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6358 int *hpos, *vpos, *area;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6359 int buffer_only_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6360 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6361 struct glyph *glyph, *end;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6362 struct glyph_row *row = NULL;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6363 int x0, i, left_area_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6364
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6365 /* Find row containing Y. Give up if some row is not enabled. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6366 for (i = 0; i < w->current_matrix->nrows; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6367 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6368 row = MATRIX_ROW (w->current_matrix, i);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6369 if (!row->enabled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6370 return NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6371 if (y >= row->y && y < MATRIX_ROW_BOTTOM_Y (row))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6372 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6373 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6374
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6375 *vpos = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6376 *hpos = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6377
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6378 /* Give up if Y is not in the window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6379 if (i == w->current_matrix->nrows)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6380 return NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6381
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6382 /* Get the glyph area containing X. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6383 if (w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6384 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6385 *area = TEXT_AREA;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6386 x0 = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6387 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6388 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6389 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6390 left_area_width = window_box_width (w, LEFT_MARGIN_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6391 if (x < left_area_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6392 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6393 *area = LEFT_MARGIN_AREA;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6394 x0 = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6395 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6396 else if (x < left_area_width + window_box_width (w, TEXT_AREA))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6397 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6398 *area = TEXT_AREA;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6399 x0 = row->x + left_area_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6400 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6401 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6402 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6403 *area = RIGHT_MARGIN_AREA;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6404 x0 = left_area_width + window_box_width (w, TEXT_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6405 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6406 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6407
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6408 /* Find glyph containing X. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6409 glyph = row->glyphs[*area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6410 end = glyph + row->used[*area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6411 while (glyph < end)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6412 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6413 if (x < x0 + glyph->pixel_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6414 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6415 if (w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6416 break;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6417 else if (!buffer_only_p || BUFFERP (glyph->object))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6418 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6419 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6420
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6421 x0 += glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6422 ++glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6423 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6424
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6425 if (glyph == end)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6426 return NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6427
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6428 *hpos = glyph - row->glyphs[*area];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6429 return glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6430 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6431
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6432
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6433 /* Convert frame-relative x/y to coordinates relative to window W.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6434 Takes pseudo-windows into account. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6435
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6436 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6437 frame_to_window_pixel_xy (w, x, y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6438 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6439 int *x, *y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6440 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6441 if (w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6442 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6443 /* A pseudo-window is always full-width, and starts at the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6444 left edge of the frame, plus a frame border. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6445 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6446 *x -= FRAME_INTERNAL_BORDER_WIDTH_SAFE (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6447 *y = FRAME_TO_WINDOW_PIXEL_Y (w, *y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6448 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6449 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6450 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6451 *x = FRAME_TO_WINDOW_PIXEL_X (w, *x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6452 *y = FRAME_TO_WINDOW_PIXEL_Y (w, *y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6453 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6454 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6455
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6456
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6457 /* Take proper action when mouse has moved to the mode or header line of
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6458 window W, x-position X. MODE_LINE_P non-zero means mouse is on the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6459 mode line. X is relative to the start of the text display area of
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
6460 W, so the width of fringes and scroll bars must be subtracted
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6461 to get a position relative to the start of the mode line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6462
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6463 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6464 note_mode_line_highlight (w, x, mode_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6465 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6466 int x, mode_line_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6467 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6468 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6469 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6470 Cursor cursor = dpyinfo->vertical_scroll_bar_cursor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6471 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6472
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6473 if (mode_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6474 row = MATRIX_MODE_LINE_ROW (w->current_matrix);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6475 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6476 row = MATRIX_HEADER_LINE_ROW (w->current_matrix);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6477
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6478 if (row->enabled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6479 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6480 struct glyph *glyph, *end;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6481 Lisp_Object help, map;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6482 int x0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6483
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6484 /* Find the glyph under X. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6485 glyph = row->glyphs[TEXT_AREA];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6486 end = glyph + row->used[TEXT_AREA];
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6487 x0 = - (FRAME_LEFT_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f)
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
6488 + FRAME_X_LEFT_FRINGE_WIDTH (f));
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6489
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6490 while (glyph < end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6491 && x >= x0 + glyph->pixel_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6492 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6493 x0 += glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6494 ++glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6495 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6496
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6497 if (glyph < end
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6498 && STRINGP (glyph->object)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6499 && XSTRING (glyph->object)->intervals
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6500 && glyph->charpos >= 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6501 && glyph->charpos < XSTRING (glyph->object)->size)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6502 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6503 /* If we're on a string with `help-echo' text property,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6504 arrange for the help to be displayed. This is done by
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6505 setting the global variable help_echo to the help string. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6506 help = Fget_text_property (make_number (glyph->charpos),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6507 Qhelp_echo, glyph->object);
30050
ed1979c6dfb9 * xterm.c (note_mode_line_highlight, note_mouse_highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29321
diff changeset
6508 if (!NILP (help))
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6509 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6510 help_echo = help;
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
6511 XSETWINDOW (help_echo_window, w);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6512 help_echo_object = glyph->object;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6513 help_echo_pos = glyph->charpos;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
6514 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6515
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6516 /* Change the mouse pointer according to what is under X/Y. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6517 map = Fget_text_property (make_number (glyph->charpos),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6518 Qlocal_map, glyph->object);
32988
c3435dc00ed7 * lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 32792
diff changeset
6519 if (KEYMAPP (map))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6520 cursor = f->output_data.w32->nontext_cursor;
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6521 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6522 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6523 map = Fget_text_property (make_number (glyph->charpos),
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6524 Qkeymap, glyph->object);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6525 if (KEYMAPP (map))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6526 cursor = f->output_data.w32->nontext_cursor;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6527 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6528 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6529 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6530
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
6531 #if 0 /* TODO: mouse cursor */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6532 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), cursor);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6533 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6534 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6535
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6536
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6537 /* Take proper action when the mouse has moved to position X, Y on
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6538 frame F as regards highlighting characters that have mouse-face
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6539 properties. Also de-highlighting chars where the mouse was before.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6540 X and Y can be negative or out of range. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6541
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6542 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6543 note_mouse_highlight (f, x, y)
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6544 struct frame *f;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6545 int x, y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6546 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6547 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6548 int portion;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6549 Lisp_Object window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6550 struct window *w;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6551 struct buffer *b;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6552
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6553 /* When a menu is active, don't highlight because this looks odd. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6554 if (popup_activated ())
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6555 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6556
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
6557 if (NILP (Vmouse_highlight)
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6558 || !f->glyphs_initialized_p)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6559 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6560
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6561 dpyinfo->mouse_face_mouse_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6562 dpyinfo->mouse_face_mouse_y = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6563 dpyinfo->mouse_face_mouse_frame = f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6564
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6565 if (dpyinfo->mouse_face_defer)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6566 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6567
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6568 if (gc_in_progress)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6569 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6570 dpyinfo->mouse_face_deferred_gc = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6571 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6572 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6573
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6574 /* Which window is that in? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6575 window = window_from_coordinates (f, x, y, &portion, 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6576
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6577 /* If we were displaying active text in another window, clear that. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6578 if (! EQ (window, dpyinfo->mouse_face_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6579 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6580
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6581 /* Not on a window -> return. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6582 if (!WINDOWP (window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6583 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6584
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6585 /* Reset help_echo. It will get recomputed below. */
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6586 help_echo = Qnil;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6587
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6588 /* Convert to window-relative pixel coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6589 w = XWINDOW (window);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6590 frame_to_window_pixel_xy (w, &x, &y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6591
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6592 /* Handle tool-bar window differently since it doesn't display a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6593 buffer. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6594 if (EQ (window, f->tool_bar_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6595 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6596 note_tool_bar_highlight (f, x, y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6597 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6598 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6599
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6600 /* Mouse is on the mode or header line? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6601 if (portion == 1 || portion == 3)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6602 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6603 note_mode_line_highlight (w, x, portion == 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6604 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6605 }
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
6606 #if 0 /* TODO: mouse cursor */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6607 if (portion == 2)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6608 cursor = f->output_data.x->horizontal_drag_cursor;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6609 else
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6610 cursor = f->output_data.x->text_cursor;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6611 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6612 /* Are we in a window whose display is up to date?
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6613 And verify the buffer's text has not changed. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6614 b = XBUFFER (w->buffer);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
6615 if (/* Within text portion of the window. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6616 portion == 0
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6617 && EQ (w->window_end_valid, w->buffer)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6618 && XFASTINT (w->last_modified) == BUF_MODIFF (b)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6619 && XFASTINT (w->last_overlay_modified) == BUF_OVERLAY_MODIFF (b))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6620 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6621 int hpos, vpos, pos, i, area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6622 struct glyph *glyph;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6623 Lisp_Object object;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6624 Lisp_Object mouse_face = Qnil, overlay = Qnil, position;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6625 Lisp_Object *overlay_vec = NULL;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6626 int len, noverlays;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6627 struct buffer *obuf;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6628 int obegv, ozv, same_region;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6629
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6630 /* Find the glyph under X/Y. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6631 glyph = x_y_to_hpos_vpos (w, x, y, &hpos, &vpos, &area, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6632
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6633 /* Clear mouse face if X/Y not over text. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6634 if (glyph == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6635 || area != TEXT_AREA
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6636 || !MATRIX_ROW (w->current_matrix, vpos)->displays_text_p)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6637 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6638 clear_mouse_face (dpyinfo);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6639 /* TODO: mouse cursor */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6640 goto set_cursor;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6641 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6642
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6643 pos = glyph->charpos;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6644 object = glyph->object;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6645 if (!STRINGP (object) && !BUFFERP (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6646 goto set_cursor;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6647
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6648 /* If we get an out-of-range value, return now; avoid an error. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6649 if (BUFFERP (object) && pos > BUF_Z (b))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6650 goto set_cursor;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6651
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6652 /* Make the window's buffer temporarily current for
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6653 overlays_at and compute_char_face. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6654 obuf = current_buffer;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6655 current_buffer = b;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6656 obegv = BEGV;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6657 ozv = ZV;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6658 BEGV = BEG;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6659 ZV = Z;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6660
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6661 /* Is this char mouse-active or does it have help-echo? */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6662 position = make_number (pos);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6663
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6664 if (BUFFERP (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6665 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6666 /* Put all the overlays we want in a vector in overlay_vec.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6667 Store the length in len. If there are more than 10, make
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6668 enough space for all, and try again. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6669 len = 10;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6670 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6671 noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL, 0);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6672 if (noverlays > len)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6673 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6674 len = noverlays;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6675 overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6676 noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL,0);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6677 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6678
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6679 /* Sort overlays into increasing priority order. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6680 noverlays = sort_overlays (overlay_vec, noverlays, w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6681 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6682 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6683 noverlays = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6684
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6685 same_region = (EQ (window, dpyinfo->mouse_face_window)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6686 && vpos >= dpyinfo->mouse_face_beg_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6687 && vpos <= dpyinfo->mouse_face_end_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6688 && (vpos > dpyinfo->mouse_face_beg_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6689 || hpos >= dpyinfo->mouse_face_beg_col)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6690 && (vpos < dpyinfo->mouse_face_end_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6691 || hpos < dpyinfo->mouse_face_end_col
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6692 || dpyinfo->mouse_face_past_end));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6693
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6694 /* TODO: if (same_region)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6695 mouse cursor */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6696
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6697 /* Check mouse-face highlighting. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6698 if (! same_region
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6699 /* If there exists an overlay with mouse-face overlapping
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6700 the one we are currently highlighting, we have to
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6701 check if we enter the overlapping overlay, and then
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6702 highlight that. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6703 || (OVERLAYP (dpyinfo->mouse_face_overlay)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6704 && mouse_face_overlay_overlaps (dpyinfo->mouse_face_overlay)))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6705 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6706 /* Find the highest priority overlay that has a mouse-face
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6707 property. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6708 overlay = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6709 for (i = noverlays - 1; i >= 0 && NILP (overlay); --i)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6710 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6711 mouse_face = Foverlay_get (overlay_vec[i], Qmouse_face);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6712 if (!NILP (mouse_face))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6713 overlay = overlay_vec[i];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6714 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6715
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6716 /* If we're actually highlighting the same overlay as
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6717 before, there's no need to do that again. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6718 if (!NILP (overlay)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6719 && EQ (overlay, dpyinfo->mouse_face_overlay))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6720 goto check_help_echo;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6721
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6722 dpyinfo->mouse_face_overlay = overlay;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6723
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6724 /* Clear the display of the old active region, if any. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6725 clear_mouse_face (dpyinfo);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6726 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6727
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6728 /* If no overlay applies, get a text property. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6729 if (NILP (overlay))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6730 mouse_face = Fget_text_property (position, Qmouse_face, object);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6731
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6732 /* Handle the overlay case. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6733 if (!NILP (overlay))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6734 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6735 /* Find the range of text around this char that
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6736 should be active. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6737 Lisp_Object before, after;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6738 int ignore;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6739
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6740 before = Foverlay_start (overlay);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6741 after = Foverlay_end (overlay);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6742 /* Record this as the current active region. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6743 fast_find_position (w, XFASTINT (before),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6744 &dpyinfo->mouse_face_beg_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6745 &dpyinfo->mouse_face_beg_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6746 &dpyinfo->mouse_face_beg_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6747 &dpyinfo->mouse_face_beg_y, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6748
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6749 dpyinfo->mouse_face_past_end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6750 = !fast_find_position (w, XFASTINT (after),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6751 &dpyinfo->mouse_face_end_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6752 &dpyinfo->mouse_face_end_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6753 &dpyinfo->mouse_face_end_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6754 &dpyinfo->mouse_face_end_y, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6755 dpyinfo->mouse_face_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6756
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6757 dpyinfo->mouse_face_face_id
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6758 = face_at_buffer_position (w, pos, 0, 0,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6759 &ignore, pos + 1, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6760
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6761 /* Display it as active. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6762 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6763 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6764 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6765 /* Handle the text property case. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6766 else if (! NILP (mouse_face) && BUFFERP (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6767 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6768 /* Find the range of text around this char that
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6769 should be active. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6770 Lisp_Object before, after, beginning, end;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6771 int ignore;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6772
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6773 beginning = Fmarker_position (w->start);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6774 end = make_number (BUF_Z (XBUFFER (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6775 - XFASTINT (w->window_end_pos));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6776 before
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6777 = Fprevious_single_property_change (make_number (pos + 1),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6778 Qmouse_face,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6779 object, beginning);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6780 after
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6781 = Fnext_single_property_change (position, Qmouse_face,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6782 object, end);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6783
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6784 /* Record this as the current active region. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6785 fast_find_position (w, XFASTINT (before),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6786 &dpyinfo->mouse_face_beg_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6787 &dpyinfo->mouse_face_beg_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6788 &dpyinfo->mouse_face_beg_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6789 &dpyinfo->mouse_face_beg_y, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6790 dpyinfo->mouse_face_past_end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6791 = !fast_find_position (w, XFASTINT (after),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6792 &dpyinfo->mouse_face_end_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6793 &dpyinfo->mouse_face_end_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6794 &dpyinfo->mouse_face_end_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6795 &dpyinfo->mouse_face_end_y, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6796 dpyinfo->mouse_face_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6797
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6798 if (BUFFERP (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6799 dpyinfo->mouse_face_face_id
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6800 = face_at_buffer_position (w, pos, 0, 0,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6801 &ignore, pos + 1, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6802
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6803 /* Display it as active. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6804 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6805 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6806 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6807 else if (!NILP (mouse_face) && STRINGP (object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6808 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6809 Lisp_Object b, e;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6810 int ignore;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6811
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6812 b = Fprevious_single_property_change (make_number (pos + 1),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6813 Qmouse_face,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6814 object, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6815 e = Fnext_single_property_change (position, Qmouse_face,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6816 object, Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6817 if (NILP (b))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6818 b = make_number (0);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6819 if (NILP (e))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6820 e = make_number (XSTRING (object)->size - 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6821 fast_find_string_pos (w, XINT (b), object,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6822 &dpyinfo->mouse_face_beg_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6823 &dpyinfo->mouse_face_beg_row,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6824 &dpyinfo->mouse_face_beg_x,
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6825 &dpyinfo->mouse_face_beg_y, 0);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6826 fast_find_string_pos (w, XINT (e), object,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6827 &dpyinfo->mouse_face_end_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6828 &dpyinfo->mouse_face_end_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6829 &dpyinfo->mouse_face_end_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6830 &dpyinfo->mouse_face_end_y, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6831 dpyinfo->mouse_face_past_end = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6832 dpyinfo->mouse_face_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6833 dpyinfo->mouse_face_face_id
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6834 = face_at_string_position (w, object, pos, 0, 0, 0, &ignore,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6835 glyph->face_id, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6836 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6837 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6838 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6839 else if (STRINGP (object) && NILP (mouse_face))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6840 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6841 /* A string which doesn't have mouse-face, but
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6842 the text ``under'' it might have. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6843 struct glyph_row *r = MATRIX_ROW (w->current_matrix, vpos);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6844 int start = MATRIX_ROW_START_CHARPOS (r);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6845
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6846 pos = string_buffer_position (w, object, start);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6847 if (pos > 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6848 mouse_face = get_char_property_and_overlay (make_number (pos),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6849 Qmouse_face,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6850 w->buffer,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6851 &overlay);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6852 if (!NILP (mouse_face) && !NILP (overlay))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6853 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6854 Lisp_Object before = Foverlay_start (overlay);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6855 Lisp_Object after = Foverlay_end (overlay);
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
6856 int ignore;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6857
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6858 /* Note that we might not be able to find position
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6859 BEFORE in the glyph matrix if the overlay is
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6860 entirely covered by a `display' property. In
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6861 this case, we overshoot. So let's stop in
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6862 the glyph matrix before glyphs for OBJECT. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6863 fast_find_position (w, XFASTINT (before),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6864 &dpyinfo->mouse_face_beg_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6865 &dpyinfo->mouse_face_beg_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6866 &dpyinfo->mouse_face_beg_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6867 &dpyinfo->mouse_face_beg_y,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6868 object);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6869
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6870 dpyinfo->mouse_face_past_end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6871 = !fast_find_position (w, XFASTINT (after),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6872 &dpyinfo->mouse_face_end_col,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6873 &dpyinfo->mouse_face_end_row,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6874 &dpyinfo->mouse_face_end_x,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6875 &dpyinfo->mouse_face_end_y,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6876 Qnil);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6877 dpyinfo->mouse_face_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6878 dpyinfo->mouse_face_face_id
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6879 = face_at_buffer_position (w, pos, 0, 0,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6880 &ignore, pos + 1, 1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6881
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6882 /* Display it as active. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6883 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6884 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6885 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6886 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6887 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6888
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6889 check_help_echo:
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6890
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6891 /* Look for a `help-echo' property. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6892 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6893 Lisp_Object help, overlay;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6894
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6895 /* Check overlays first. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6896 help = overlay = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6897 for (i = noverlays - 1; i >= 0 && NILP (help); --i)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6898 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6899 overlay = overlay_vec[i];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6900 help = Foverlay_get (overlay, Qhelp_echo);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6901 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6902
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6903 if (!NILP (help))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6904 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6905 help_echo = help;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6906 help_echo_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6907 help_echo_object = overlay;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6908 help_echo_pos = pos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6909 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6910 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6911 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6912 Lisp_Object object = glyph->object;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6913 int charpos = glyph->charpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6914
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6915 /* Try text properties. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6916 if (STRINGP (object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6917 && charpos >= 0
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6918 && charpos < XSTRING (object)->size)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6919 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6920 help = Fget_text_property (make_number (charpos),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6921 Qhelp_echo, object);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6922 if (NILP (help))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6923 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6924 /* If the string itself doesn't specify a help-echo,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6925 see if the buffer text ``under'' it does. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6926 struct glyph_row *r
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6927 = MATRIX_ROW (w->current_matrix, vpos);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6928 int start = MATRIX_ROW_START_CHARPOS (r);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6929 int pos = string_buffer_position (w, object, start);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6930 if (pos > 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6931 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6932 help = Fget_char_property (make_number (pos),
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6933 Qhelp_echo, w->buffer);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6934 if (!NILP (help))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6935 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6936 charpos = pos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6937 object = w->buffer;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6938 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6939 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6940 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6941 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6942 else if (BUFFERP (object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6943 && charpos >= BEGV
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6944 && charpos < ZV)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6945 help = Fget_text_property (make_number (charpos), Qhelp_echo,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6946 object);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6947
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6948 if (!NILP (help))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6949 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6950 help_echo = help;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6951 help_echo_window = window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6952 help_echo_object = object;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6953 help_echo_pos = charpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6954 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6955 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6956 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6957
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6958 BEGV = obegv;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6959 ZV = ozv;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6960 current_buffer = obuf;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6961 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6962
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6963 set_cursor:
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6964 /* TODO: mouse cursor changes. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6965 ;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6966 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6967
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6968 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6969 redo_mouse_highlight ()
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6970 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6971 if (!NILP (last_mouse_motion_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6972 && FRAME_LIVE_P (XFRAME (last_mouse_motion_frame)))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6973 note_mouse_highlight (XFRAME (last_mouse_motion_frame),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6974 LOWORD (last_mouse_motion_event.lParam),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6975 HIWORD (last_mouse_motion_event.lParam));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6976 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6977
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6978
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6979
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6980 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6981 Tool-bars
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6982 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6983
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6984 static int x_tool_bar_item P_ ((struct frame *, int, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6985 struct glyph **, int *, int *, int *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6986
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6987 /* Tool-bar item index of the item on which a mouse button was pressed
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6988 or -1. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6989
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6990 static int last_tool_bar_item;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6991
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6992
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6993 /* Get information about the tool-bar item at position X/Y on frame F.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6994 Return in *GLYPH a pointer to the glyph of the tool-bar item in
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6995 the current matrix of the tool-bar window of F, or NULL if not
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6996 on a tool-bar item. Return in *PROP_IDX the index of the tool-bar
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
6997 item in F->tool_bar_items. Value is
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6998
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6999 -1 if X/Y is not on a tool-bar item
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7000 0 if X/Y is on the same item that was highlighted before.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7001 1 otherwise. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7002
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7003 static int
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7004 x_tool_bar_item (f, x, y, glyph, hpos, vpos, prop_idx)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7005 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7006 int x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7007 struct glyph **glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7008 int *hpos, *vpos, *prop_idx;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7009 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7010 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7011 struct window *w = XWINDOW (f->tool_bar_window);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7012 int area;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7013
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7014 /* Find the glyph under X/Y. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7015 *glyph = x_y_to_hpos_vpos (w, x, y, hpos, vpos, &area, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7016 if (*glyph == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7017 return -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7018
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7019 /* Get the start of this tool-bar item's properties in
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7020 f->tool_bar_items. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7021 if (!tool_bar_item_info (f, *glyph, prop_idx))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7022 return -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7023
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7024 /* Is mouse on the highlighted item? */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7025 if (EQ (f->tool_bar_window, dpyinfo->mouse_face_window)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7026 && *vpos >= dpyinfo->mouse_face_beg_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7027 && *vpos <= dpyinfo->mouse_face_end_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7028 && (*vpos > dpyinfo->mouse_face_beg_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7029 || *hpos >= dpyinfo->mouse_face_beg_col)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7030 && (*vpos < dpyinfo->mouse_face_end_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7031 || *hpos < dpyinfo->mouse_face_end_col
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7032 || dpyinfo->mouse_face_past_end))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7033 return 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7034
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7035 return 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7036 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7037
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7038
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7039 /* Handle mouse button event on the tool-bar of frame F, at
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7040 frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7041 or ButtonRelase. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7042
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7043 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7044 w32_handle_tool_bar_click (f, button_event)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7045 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7046 struct input_event *button_event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7047 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7048 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7049 struct window *w = XWINDOW (f->tool_bar_window);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7050 int hpos, vpos, prop_idx;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7051 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7052 Lisp_Object enabled_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7053 int x = XFASTINT (button_event->x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7054 int y = XFASTINT (button_event->y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7055
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7056 /* If not on the highlighted tool-bar item, return. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7057 frame_to_window_pixel_xy (w, &x, &y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7058 if (x_tool_bar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx) != 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7059 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7060
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7061 /* If item is disabled, do nothing. */
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7062 enabled_p = AREF (f->tool_bar_items, prop_idx + TOOL_BAR_ITEM_ENABLED_P);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7063 if (NILP (enabled_p))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7064 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7065
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7066 if (button_event->kind == mouse_click)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7067 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7068 /* Show item in pressed state. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7069 show_mouse_face (dpyinfo, DRAW_IMAGE_SUNKEN);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7070 dpyinfo->mouse_face_image_state = DRAW_IMAGE_SUNKEN;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7071 last_tool_bar_item = prop_idx;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7072 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7073 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7074 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7075 Lisp_Object key, frame;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7076 struct input_event event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7077
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7078 /* Show item in released state. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7079 show_mouse_face (dpyinfo, DRAW_IMAGE_RAISED);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7080 dpyinfo->mouse_face_image_state = DRAW_IMAGE_RAISED;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7081
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7082 key = AREF (f->tool_bar_items, prop_idx + TOOL_BAR_ITEM_KEY);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7083
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7084 XSETFRAME (frame, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7085 event.kind = TOOL_BAR_EVENT;
30179
9c30c64ab61d (w32_handle_tool_bar_click): Adapt to changes in
Gerd Moellmann <gerd@gnu.org>
parents: 30050
diff changeset
7086 event.frame_or_window = frame;
9c30c64ab61d (w32_handle_tool_bar_click): Adapt to changes in
Gerd Moellmann <gerd@gnu.org>
parents: 30050
diff changeset
7087 event.arg = frame;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7088 kbd_buffer_store_event (&event);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7089
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7090 event.kind = TOOL_BAR_EVENT;
30179
9c30c64ab61d (w32_handle_tool_bar_click): Adapt to changes in
Gerd Moellmann <gerd@gnu.org>
parents: 30050
diff changeset
7091 event.frame_or_window = frame;
9c30c64ab61d (w32_handle_tool_bar_click): Adapt to changes in
Gerd Moellmann <gerd@gnu.org>
parents: 30050
diff changeset
7092 event.arg = key;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7093 event.modifiers = button_event->modifiers;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7094 kbd_buffer_store_event (&event);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7095 last_tool_bar_item = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7096 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7097 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7098
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7099
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7100 /* Possibly highlight a tool-bar item on frame F when mouse moves to
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7101 tool-bar window-relative coordinates X/Y. Called from
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7102 note_mouse_highlight. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7103
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7104 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7105 note_tool_bar_highlight (f, x, y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7106 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7107 int x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7108 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7109 Lisp_Object window = f->tool_bar_window;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7110 struct window *w = XWINDOW (window);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7111 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7112 int hpos, vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7113 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7114 struct glyph_row *row;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7115 int i;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7116 Lisp_Object enabled_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7117 int prop_idx;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7118 enum draw_glyphs_face draw = DRAW_IMAGE_RAISED;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7119 int mouse_down_p, rc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7120
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7121 /* Function note_mouse_highlight is called with negative x(y
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7122 values when mouse moves outside of the frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7123 if (x <= 0 || y <= 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7124 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7125 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7126 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7127 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7128
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7129 rc = x_tool_bar_item (f, x, y, &glyph, &hpos, &vpos, &prop_idx);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7130 if (rc < 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7131 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7132 /* Not on tool-bar item. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7133 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7134 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7135 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7136 else if (rc == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7137 /* On same tool-bar item as before. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7138 goto set_help_echo;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7139
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7140 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7141
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7142 /* Mouse is down, but on different tool-bar item? */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7143 mouse_down_p = (dpyinfo->grabbed
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7144 && f == last_mouse_frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7145 && FRAME_LIVE_P (f));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7146 if (mouse_down_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7147 && last_tool_bar_item != prop_idx)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7148 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7149
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7150 dpyinfo->mouse_face_image_state = DRAW_NORMAL_TEXT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7151 draw = mouse_down_p ? DRAW_IMAGE_SUNKEN : DRAW_IMAGE_RAISED;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7152
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7153 /* If tool-bar item is not enabled, don't highlight it. */
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7154 enabled_p = AREF (f->tool_bar_items, prop_idx + TOOL_BAR_ITEM_ENABLED_P);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7155 if (!NILP (enabled_p))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7156 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7157 /* Compute the x-position of the glyph. In front and past the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7158 image is a space. We include this is the highlighted area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7159 row = MATRIX_ROW (w->current_matrix, vpos);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7160 for (i = x = 0; i < hpos; ++i)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7161 x += row->glyphs[TEXT_AREA][i].pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7162
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7163 /* Record this as the current active region. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7164 dpyinfo->mouse_face_beg_col = hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7165 dpyinfo->mouse_face_beg_row = vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7166 dpyinfo->mouse_face_beg_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7167 dpyinfo->mouse_face_beg_y = row->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7168 dpyinfo->mouse_face_past_end = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7169
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7170 dpyinfo->mouse_face_end_col = hpos + 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7171 dpyinfo->mouse_face_end_row = vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7172 dpyinfo->mouse_face_end_x = x + glyph->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7173 dpyinfo->mouse_face_end_y = row->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7174 dpyinfo->mouse_face_window = window;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7175 dpyinfo->mouse_face_face_id = TOOL_BAR_FACE_ID;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7176
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7177 /* Display it as active. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7178 show_mouse_face (dpyinfo, draw);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7179 dpyinfo->mouse_face_image_state = draw;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7180 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7181
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7182 set_help_echo:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7183
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7184 /* Set help_echo to a help string.to display for this tool-bar item.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7185 w32_read_socket does the rest. */
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
7186 help_echo_object = help_echo_window = Qnil;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7187 help_echo_pos = -1;
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7188 help_echo = AREF (f->tool_bar_items, prop_idx + TOOL_BAR_ITEM_HELP);
30050
ed1979c6dfb9 * xterm.c (note_mode_line_highlight, note_mouse_highlight)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29321
diff changeset
7189 if (NILP (help_echo))
33766
3488141db749 (x_tool_bar_item, w32_handle_tool_bar_click)
Gerd Moellmann <gerd@gnu.org>
parents: 33583
diff changeset
7190 help_echo = AREF (f->tool_bar_items, prop_idx + TOOL_BAR_ITEM_CAPTION);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7191 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7192
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7193
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7194
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7195 /* Find the glyph matrix position of buffer position CHARPOS in window
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7196 *W. HPOS, *VPOS, *X, and *Y are set to the positions found. W's
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7197 current glyphs must be up to date. If CHARPOS is above window
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7198 start return (0, 0, 0, 0). If CHARPOS is after end of W, return end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7199 of last line in W. In the row containing CHARPOS, stop before glyphs
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7200 having STOP as object. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7201
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7202 #if 0 /* This is a version of fast_find_position that's more correct
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7203 in the presence of hscrolling, for example. I didn't install
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7204 it right away because the problem fixed is minor, it failed
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7205 in 20.x as well, and I think it's too risky to install
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7206 so near the release of 21.1. 2001-09-25 gerd. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7207
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7208 static int
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7209 fast_find_position (w, charpos, hpos, vpos, x, y, stop)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7210 struct window *w;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7211 int charpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7212 int *hpos, *vpos, *x, *y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7213 Lisp_Object stop;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7214 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7215 struct glyph_row *row, *first;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7216 struct glyph *glyph, *end;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7217 int i, past_end = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7218
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7219 first = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
40245
9175d0c189f4 (fast_find_position): Call row_containing_pos
Gerd Moellmann <gerd@gnu.org>
parents: 40157
diff changeset
7220 row = row_containing_pos (w, charpos, first, NULL, 0);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7221 if (row == NULL)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7222 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7223 if (charpos < MATRIX_ROW_START_CHARPOS (first))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7224 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7225 *x = *y = *hpos = *vpos = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7226 return 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7227 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7228 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7229 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7230 row = MATRIX_ROW (w->current_matrix, XFASTINT (w->window_end_vpos));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7231 past_end = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7232 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7233 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7234
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7235 *x = row->x;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7236 *y = row->y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7237 *vpos = MATRIX_ROW_VPOS (row, w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7238
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7239 glyph = row->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7240 end = glyph + row->used[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7241
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7242 /* Skip over glyphs not having an object at the start of the row.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7243 These are special glyphs like truncation marks on terminal
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7244 frames. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7245 if (row->displays_text_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7246 while (glyph < end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7247 && INTEGERP (glyph->object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7248 && !EQ (stop, glyph->object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7249 && glyph->charpos < 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7250 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7251 *x += glyph->pixel_width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7252 ++glyph;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7253 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7254
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7255 while (glyph < end
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7256 && !INTEGERP (glyph->object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7257 && !EQ (stop, glyph->object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7258 && (!BUFFERP (glyph->object)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7259 || glyph->charpos < charpos))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7260 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7261 *x += glyph->pixel_width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7262 ++glyph;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7263 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7264
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7265 *hpos = glyph - row->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7266 return past_end;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7267 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7268
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7269 #else /* not 0 */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7270
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7271 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7272 fast_find_position (w, pos, hpos, vpos, x, y, stop)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7273 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7274 int pos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7275 int *hpos, *vpos, *x, *y;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7276 Lisp_Object stop;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7277 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7278 int i;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7279 int lastcol;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7280 int maybe_next_line_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7281 int line_start_position;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7282 int yb = window_text_bottom_y (w);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7283 struct glyph_row *row, *best_row;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7284 int row_vpos, best_row_vpos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7285 int current_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7286
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7287 row = best_row = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7288 row_vpos = best_row_vpos = MATRIX_ROW_VPOS (row, w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7289
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7290 while (row->y < yb)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7291 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7292 if (row->used[TEXT_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7293 line_start_position = row->glyphs[TEXT_AREA]->charpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7294 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7295 line_start_position = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7296
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7297 if (line_start_position > pos)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7298 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7299 /* If the position sought is the end of the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7300 don't include the blank lines at the bottom of the window. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7301 else if (line_start_position == pos
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7302 && pos == BUF_ZV (XBUFFER (w->buffer)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7303 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7304 maybe_next_line_p = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7305 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7306 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7307 else if (line_start_position > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7308 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7309 best_row = row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7310 best_row_vpos = row_vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7311 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7312
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7313 if (row->y + row->height >= yb)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7314 break;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7315
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7316 ++row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7317 ++row_vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7318 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7319
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7320 /* Find the right column within BEST_ROW. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7321 lastcol = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7322 current_x = best_row->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7323 for (i = 0; i < best_row->used[TEXT_AREA]; i++)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7324 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7325 struct glyph *glyph = best_row->glyphs[TEXT_AREA] + i;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7326 int charpos = glyph->charpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7327
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7328 if (BUFFERP (glyph->object))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7329 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7330 if (charpos == pos)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7331 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7332 *hpos = i;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7333 *vpos = best_row_vpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7334 *x = current_x;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7335 *y = best_row->y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7336 return 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7337 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7338 else if (charpos > pos)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7339 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7340 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7341 else if (EQ (glyph->object, stop))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7342 break;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7343
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7344 if (charpos > 0)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7345 lastcol = i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7346 current_x += glyph->pixel_width;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7347 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7348
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7349 /* If we're looking for the end of the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7350 and we didn't find it in the line we scanned,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7351 use the start of the following line. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7352 if (maybe_next_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7353 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7354 ++best_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7355 ++best_row_vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7356 lastcol = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7357 current_x = best_row->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7358 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7359
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7360 *vpos = best_row_vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7361 *hpos = lastcol + 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7362 *x = current_x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7363 *y = best_row->y;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7364 return 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7365 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7366
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7367 #endif /* not 0 */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7368
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7369
42675
640c0fcaebf1 Fix typos.
Pavel Janík <Pavel@Janik.cz>
parents: 42544
diff changeset
7370 /* Find the position of the glyph for position POS in OBJECT in
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7371 window W's current matrix, and return in *X/*Y the pixel
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7372 coordinates, and return in *HPOS/*VPOS the column/row of the glyph.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7373
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7374 RIGHT_P non-zero means return the position of the right edge of the
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7375 glyph, RIGHT_P zero means return the left edge position.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7376
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7377 If no glyph for POS exists in the matrix, return the position of
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7378 the glyph with the next smaller position that is in the matrix, if
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7379 RIGHT_P is zero. If RIGHT_P is non-zero, and no glyph for POS
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7380 exists in the matrix, return the position of the glyph with the
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7381 next larger position in OBJECT.
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7382
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7383 Value is non-zero if a glyph was found. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7384
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7385 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7386 fast_find_string_pos (w, pos, object, hpos, vpos, x, y, right_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7387 struct window *w;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7388 int pos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7389 Lisp_Object object;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7390 int *hpos, *vpos, *x, *y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7391 int right_p;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7392 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7393 int yb = window_text_bottom_y (w);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7394 struct glyph_row *r;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7395 struct glyph *best_glyph = NULL;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7396 struct glyph_row *best_row = NULL;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7397 int best_x = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7398
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7399 for (r = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7400 r->enabled_p && r->y < yb;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7401 ++r)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7402 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7403 struct glyph *g = r->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7404 struct glyph *e = g + r->used[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7405 int gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7406
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7407 for (gx = r->x; g < e; gx += g->pixel_width, ++g)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7408 if (EQ (g->object, object))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7409 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7410 if (g->charpos == pos)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7411 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7412 best_glyph = g;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7413 best_x = gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7414 best_row = r;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7415 goto found;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7416 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7417 else if (best_glyph == NULL
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7418 || ((abs (g->charpos - pos)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7419 < abs (best_glyph->charpos - pos))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7420 && (right_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7421 ? g->charpos < pos
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7422 : g->charpos > pos)))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7423 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7424 best_glyph = g;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7425 best_x = gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7426 best_row = r;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7427 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7428 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7429 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7430
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7431 found:
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7432
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7433 if (best_glyph)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7434 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7435 *x = best_x;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7436 *hpos = best_glyph - best_row->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7437
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7438 if (right_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7439 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7440 *x += best_glyph->pixel_width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7441 ++*hpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7442 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7443
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7444 *y = best_row->y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7445 *vpos = best_row - w->current_matrix->rows;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7446 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7447
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7448 return best_glyph != NULL;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7449 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7450
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7451
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7452 /* Display the active region described by mouse_face_*
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7453 in its mouse-face if HL > 0, in its normal face if HL = 0. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7454
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7455 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7456 show_mouse_face (dpyinfo, draw)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7457 struct w32_display_info *dpyinfo;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7458 enum draw_glyphs_face draw;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7459 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7460 struct window *w = XWINDOW (dpyinfo->mouse_face_window);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7461 struct frame *f = XFRAME (WINDOW_FRAME (w));
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7462
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7463 if (/* If window is in the process of being destroyed, don't bother
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7464 to do anything. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7465 w->current_matrix != NULL
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
7466 /* Don't update mouse highlight if hidden */
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
7467 && (draw != DRAW_MOUSE_FACE || !dpyinfo->mouse_face_hidden)
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7468 /* Recognize when we are called to operate on rows that don't exist
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7469 anymore. This can happen when a window is split. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7470 && dpyinfo->mouse_face_end_row < w->current_matrix->nrows)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7471 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7472 int phys_cursor_on_p = w->phys_cursor_on_p;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7473 struct glyph_row *row, *first, *last;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7474
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7475 first = MATRIX_ROW (w->current_matrix, dpyinfo->mouse_face_beg_row);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7476 last = MATRIX_ROW (w->current_matrix, dpyinfo->mouse_face_end_row);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7477
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7478 for (row = first; row <= last && row->enabled_p; ++row)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7479 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7480 int start_hpos, end_hpos, start_x;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7481
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7482 /* For all but the first row, the highlight starts at column 0. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7483 if (row == first)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7484 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7485 start_hpos = dpyinfo->mouse_face_beg_col;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7486 start_x = dpyinfo->mouse_face_beg_x;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7487 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7488 else
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7489 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7490 start_hpos = 0;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7491 start_x = 0;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7492 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7493
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7494 if (row == last)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7495 end_hpos = dpyinfo->mouse_face_end_col;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7496 else
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7497 end_hpos = row->used[TEXT_AREA];
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7498
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7499 if (end_hpos > start_hpos)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7500 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7501 x_draw_glyphs (w, start_x, row, TEXT_AREA,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7502 start_hpos, end_hpos, draw, 0);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7503
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
7504 row->mouse_face_p
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
7505 = draw == DRAW_MOUSE_FACE || draw == DRAW_IMAGE_RAISED;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7506 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7507 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7508
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7509 /* When we've written over the cursor, arrange for it to
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7510 be displayed again. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7511 if (phys_cursor_on_p && !w->phys_cursor_on_p)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7512 x_display_cursor (w, 1,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7513 w->phys_cursor.hpos, w->phys_cursor.vpos,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7514 w->phys_cursor.x, w->phys_cursor.y);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7515 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
7516
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
7517 #if 0 /* TODO: mouse cursor */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7518 /* Change the mouse cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7519 if (draw == DRAW_NORMAL_TEXT)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7520 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7521 f->output_data.x->text_cursor);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7522 else if (draw == DRAW_MOUSE_FACE)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7523 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7524 f->output_data.x->cross_cursor);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7525 else
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7526 XDefineCursor (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7527 f->output_data.x->nontext_cursor);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7528 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7529 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7530
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7531 /* Clear out the mouse-highlighted active region.
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7532 Redraw it un-highlighted first. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7533
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7534 static int
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7535 clear_mouse_face (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7536 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7537 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7538 int cleared = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7539
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7540 if (! NILP (dpyinfo->mouse_face_window))
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7541 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7542 show_mouse_face (dpyinfo, DRAW_NORMAL_TEXT);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7543 cleared = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7544 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7545
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7546 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7547 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7548 dpyinfo->mouse_face_window = Qnil;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7549 dpyinfo->mouse_face_overlay = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7550 return cleared;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7551 }
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7552
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7553
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7554 /* Clear any mouse-face on window W. This function is part of the
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7555 redisplay interface, and is called from try_window_id and similar
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7556 functions to ensure the mouse-highlight is off. */
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7557
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7558 static void
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7559 x_clear_mouse_face (w)
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7560 struct window *w;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7561 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7562 struct w32_display_info *dpyinfo
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7563 = FRAME_W32_DISPLAY_INFO (XFRAME (w->frame));
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7564 Lisp_Object window;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7565
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
7566 BLOCK_INPUT;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7567 XSETWINDOW (window, w);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7568 if (EQ (window, dpyinfo->mouse_face_window))
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7569 clear_mouse_face (dpyinfo);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
7570 UNBLOCK_INPUT;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7571 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7572
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7573
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7574 /* Just discard the mouse face information for frame F, if any.
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7575 This is used when the size of F is changed. */
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7576
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7577 void
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7578 cancel_mouse_face (f)
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7579 FRAME_PTR f;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7580 {
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7581 Lisp_Object window;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7582 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7583
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7584 window = dpyinfo->mouse_face_window;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7585 if (! NILP (window) && XFRAME (XWINDOW (window)->frame) == f)
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7586 {
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7587 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7588 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7589 dpyinfo->mouse_face_window = Qnil;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7590 }
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
7591 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7592
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7593 static struct scroll_bar *x_window_to_scroll_bar ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7594 static void x_scroll_bar_report_motion ();
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
7595 static void x_check_fullscreen P_ ((struct frame *));
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
7596 static void x_check_fullscreen_move P_ ((struct frame *));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7597 static int glyph_rect P_ ((struct frame *f, int, int, RECT *));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7598
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7599
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7600 /* Try to determine frame pixel position and size of the glyph under
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7601 frame pixel coordinates X/Y on frame F . Return the position and
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7602 size in *RECT. Value is non-zero if we could compute these
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7603 values. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7604
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7605 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7606 glyph_rect (f, x, y, rect)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7607 struct frame *f;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7608 int x, y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7609 RECT *rect;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7610 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7611 Lisp_Object window;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7612 int part, found = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7613
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7614 window = window_from_coordinates (f, x, y, &part, 0);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7615 if (!NILP (window))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7616 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7617 struct window *w = XWINDOW (window);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7618 struct glyph_row *r = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7619 struct glyph_row *end = r + w->current_matrix->nrows - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7620
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7621 frame_to_window_pixel_xy (w, &x, &y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7622
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7623 for (; !found && r < end && r->enabled_p; ++r)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7624 if (r->y + r->height >= y)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7625 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7626 struct glyph *g = r->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7627 struct glyph *end = g + r->used[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7628 int gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7629
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7630 for (gx = r->x; !found && g < end; gx += g->pixel_width, ++g)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7631 if (gx + g->pixel_width >= x)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7632 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7633 rect->left = WINDOW_TO_FRAME_PIXEL_X (w, gx);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7634 rect->top = WINDOW_TO_FRAME_PIXEL_Y (w, r->y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7635 rect->right = rect->left + g->pixel_width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7636 rect->bottom = rect->top + r->height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7637 found = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7638 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7639 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7640 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7641
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7642 return found;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7643 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7644
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7645 /* Record the position of the mouse in last_mouse_glyph. */
40153
ccd2ee0384ff Fix formatting for new function.
Jason Rumney <jasonr@gnu.org>
parents: 40137
diff changeset
7646 static void
ccd2ee0384ff Fix formatting for new function.
Jason Rumney <jasonr@gnu.org>
parents: 40137
diff changeset
7647 remember_mouse_glyph (f1, gx, gy)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7648 struct frame * f1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7649 int gx, gy;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7650 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7651 if (!glyph_rect (f1, gx, gy, &last_mouse_glyph))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7652 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7653 int width = FRAME_SMALLEST_CHAR_WIDTH (f1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7654 int height = FRAME_SMALLEST_FONT_HEIGHT (f1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7655
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7656 /* Arrange for the division in PIXEL_TO_CHAR_COL etc. to
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7657 round down even for negative values. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7658 if (gx < 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7659 gx -= width - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7660 if (gy < 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7661 gy -= height - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7662 #if 0
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7663 /* This was the original code from XTmouse_position, but it seems
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7664 to give the position of the glyph diagonally next to the one
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7665 the mouse is over. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7666 gx = (gx + width - 1) / width * width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7667 gy = (gy + height - 1) / height * height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7668 #else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7669 gx = gx / width * width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7670 gy = gy / height * height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7671 #endif
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7672
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7673 last_mouse_glyph.left = gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7674 last_mouse_glyph.top = gy;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7675 last_mouse_glyph.right = gx + width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7676 last_mouse_glyph.bottom = gy + height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7677 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7678 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7679
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7680 /* Return the current position of the mouse.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7681 *fp should be a frame which indicates which display to ask about.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7682
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7683 If the mouse movement started in a scroll bar, set *fp, *bar_window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7684 and *part to the frame, window, and scroll bar part that the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7685 is over. Set *x and *y to the portion and whole of the mouse's
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7686 position on the scroll bar.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7687
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7688 If the mouse movement started elsewhere, set *fp to the frame the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7689 mouse is on, *bar_window to nil, and *x and *y to the character cell
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7690 the mouse is over.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7691
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7692 Set *time to the server time-stamp for the time at which the mouse
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7693 was at this position.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7694
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7695 Don't store anything if we don't have a valid set of values to report.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7696
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7697 This clears the mouse_moved flag, so we can wait for the next mouse
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7698 movement. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7699
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7700 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7701 w32_mouse_position (fp, insist, bar_window, part, x, y, time)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7702 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7703 int insist;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7704 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7705 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7706 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7707 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7708 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7709 FRAME_PTR f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7710
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7711 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7712
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
7713 if (! NILP (last_mouse_scroll_bar) && insist == 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7714 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7715 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7716 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7717 POINT pt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7718
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7719 Lisp_Object frame, tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7720
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7721 /* Clear the mouse-moved flag for every frame on this display. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7722 FOR_EACH_FRAME (tail, frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7723 XFRAME (frame)->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7724
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7725 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7726
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7727 GetCursorPos (&pt);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7728
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7729 /* Now we have a position on the root; find the innermost window
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7730 containing the pointer. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7731 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7732 if (FRAME_W32_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7733 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7734 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
7735 /* If mouse was grabbed on a frame, give coords for that frame
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
7736 even if the mouse is now outside it. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7737 f1 = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7738 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7739 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7740 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
7741 /* Is window under mouse one of our frames? */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7742 f1 = x_any_window_to_frame (FRAME_W32_DISPLAY_INFO (*fp),
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
7743 WindowFromPoint (pt));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7744 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7745
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7746 /* If not, is it one of our scroll bars? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7747 if (! f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7748 {
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
7749 struct scroll_bar *bar
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
7750 = x_window_to_scroll_bar (WindowFromPoint (pt));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7751
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7752 if (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7753 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7754 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7755 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7756 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7757
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
7758 if (f1 == 0 && insist > 0)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7759 f1 = SELECTED_FRAME ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7760
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7761 if (f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7762 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7763 /* Ok, we found a frame. Store all the values.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7764 last_mouse_glyph is a rectangle used to reduce the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7765 generation of mouse events. To not miss any motion
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7766 events, we must divide the frame into rectangles of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7767 size of the smallest character that could be displayed
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7768 on it, i.e. into the same rectangles that matrices on
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7769 the frame are divided into. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7770
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7771 #if OLD_REDISPLAY_CODE
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7772 int ignore1, ignore2;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7773
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7774 ScreenToClient (FRAME_W32_WINDOW (f1), &pt);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7775
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7776 pixel_to_glyph_coords (f1, pt.x, pt.y, &ignore1, &ignore2,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7777 &last_mouse_glyph,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7778 FRAME_W32_DISPLAY_INFO (f1)->grabbed
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7779 || insist);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7780 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7781 ScreenToClient (FRAME_W32_WINDOW (f1), &pt);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
7782 remember_mouse_glyph (f1, pt.x, pt.y);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7783 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7784
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7785 *bar_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7786 *part = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7787 *fp = f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7788 XSETINT (*x, pt.x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7789 XSETINT (*y, pt.y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7790 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7791 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7792 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7793 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7794
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7795 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7796 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7797
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7798
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7799 /* Scroll bar support. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7800
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7801 /* Given a window ID, find the struct scroll_bar which manages it.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7802 This can be called in GC, so we have to make sure to strip off mark
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7803 bits. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7804
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
7805 static struct scroll_bar *
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7806 x_window_to_scroll_bar (window_id)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7807 Window window_id;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7808 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7809 Lisp_Object tail;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7810
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7811 for (tail = Vframe_list;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7812 XGCTYPE (tail) == Lisp_Cons;
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
7813 tail = XCDR (tail))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7814 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7815 Lisp_Object frame, bar, condemned;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7816
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
7817 frame = XCAR (tail);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7818 /* All elements of Vframe_list should be frames. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7819 if (! GC_FRAMEP (frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7820 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7821
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7822 /* Scan this frame's scroll bar list for a scroll bar with the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7823 right window ID. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7824 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7825 for (bar = FRAME_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7826 /* This trick allows us to search both the ordinary and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7827 condemned scroll bar lists with one loop. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7828 ! GC_NILP (bar) || (bar = condemned,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7829 condemned = Qnil,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7830 ! GC_NILP (bar));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7831 bar = XSCROLL_BAR (bar)->next)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7832 if (SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar)) == window_id)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7833 return XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7834 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7835
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7836 return 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7837 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7838
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7839
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7840
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7841 /* Set the thumb size and position of scroll bar BAR. We are currently
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7842 displaying PORTION out of a whole WHOLE, and our position POSITION. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7843
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7844 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7845 w32_set_scroll_bar_thumb (bar, portion, position, whole)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7846 struct scroll_bar *bar;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7847 int portion, position, whole;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7848 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7849 Window w = SCROLL_BAR_W32_WINDOW (bar);
35984
0080b799e901 (w32_set_scroll_bar_thumb): Use `double' for `range' to avoid overflow.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35678
diff changeset
7850 double range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7851 int sb_page, sb_pos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7852 BOOL draggingp = !NILP (bar->dragging) ? TRUE : FALSE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7853
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7854 if (whole)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7855 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7856 /* Position scroll bar at rock bottom if the bottom of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7857 buffer is visible. This avoids shinking the thumb away
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7858 to nothing if it is held at the bottom of the buffer. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7859 if (position + portion >= whole)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7860 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7861 sb_page = range * (whole - position) / whole
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7862 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7863 sb_pos = range;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7864 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7865
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7866 sb_page = portion * range / whole + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7867 sb_pos = position * range / whole;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7868 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7869 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7870 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7871 sb_page = range;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7872 sb_pos = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7873 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7874
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7875 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7876
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7877 if (pfnSetScrollInfo)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7878 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7879 SCROLLINFO si;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7880
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7881 si.cbSize = sizeof (si);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7882 /* Only update page size if currently dragging, to reduce
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7883 flicker effects. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7884 if (draggingp)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7885 si.fMask = SIF_PAGE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7886 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7887 si.fMask = SIF_PAGE | SIF_POS;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7888 si.nPage = sb_page;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7889 si.nPos = sb_pos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7890
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7891 pfnSetScrollInfo (w, SB_CTL, &si, !draggingp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7892 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7893 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7894 SetScrollPos (w, SB_CTL, sb_pos, !draggingp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7895
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7896 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7897 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7898
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7899
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7900 /************************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7901 Scroll bars, general
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7902 ************************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7903
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7904 HWND
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7905 my_create_scrollbar (f, bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7906 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7907 struct scroll_bar * bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7908 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7909 return (HWND) SendMessage (FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7910 WM_EMACS_CREATESCROLLBAR, (WPARAM) f,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7911 (LPARAM) bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7912 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7913
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
7914 /*#define ATTACH_THREADS*/
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7915
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7916 BOOL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7917 my_show_window (FRAME_PTR f, HWND hwnd, int how)
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7918 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7919 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7920 return SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SHOWWINDOW,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7921 (WPARAM) hwnd, (LPARAM) how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7922 #else
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7923 return ShowWindow (hwnd, how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7924 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7925 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7926
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7927 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7928 my_set_window_pos (HWND hwnd, HWND hwndAfter,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7929 int x, int y, int cx, int cy, UINT flags)
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7930 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7931 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7932 WINDOWPOS pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7933 pos.hwndInsertAfter = hwndAfter;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7934 pos.x = x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7935 pos.y = y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7936 pos.cx = cx;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7937 pos.cy = cy;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7938 pos.flags = flags;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7939 SendMessage (hwnd, WM_EMACS_SETWINDOWPOS, (WPARAM) &pos, 0);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7940 #else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7941 SetWindowPos (hwnd, hwndAfter, x, y, cx, cy, flags);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7942 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7943 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
7944
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7945 void
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7946 my_set_focus (f, hwnd)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7947 struct frame * f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7948 HWND hwnd;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7949 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7950 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SETFOCUS,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7951 (WPARAM) hwnd, 0);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7952 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
7953
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
7954 void
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7955 my_set_foreground_window (hwnd)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7956 HWND hwnd;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7957 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7958 SendMessage (hwnd, WM_EMACS_SETFOREGROUND, (WPARAM) hwnd, 0);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7959 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
7960
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7961 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7962 my_destroy_window (f, hwnd)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7963 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7964 HWND hwnd;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7965 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
7966 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_DESTROYWINDOW,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7967 (WPARAM) hwnd, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7968 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7969
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7970 /* Create a scroll bar and return the scroll bar vector for it. W is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7971 the Emacs window on which to create the scroll bar. TOP, LEFT,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7972 WIDTH and HEIGHT are.the pixel coordinates and dimensions of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7973 scroll bar. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7974
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7975 static struct scroll_bar *
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7976 x_scroll_bar_create (w, top, left, width, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7977 struct window *w;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7978 int top, left, width, height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7979 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7980 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7981 HWND hwnd;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7982 struct scroll_bar *bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7983 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7984
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7985 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7986
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
7987 XSETWINDOW (bar->window, w);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7988 XSETINT (bar->top, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7989 XSETINT (bar->left, left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7990 XSETINT (bar->width, width);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7991 XSETINT (bar->height, height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7992 XSETINT (bar->start, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7993 XSETINT (bar->end, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7994 bar->dragging = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7995
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7996 /* Requires geometry to be set before call to create the real window */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7997
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7998 hwnd = my_create_scrollbar (f, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7999
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8000 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8001 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8002 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8003
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8004 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8005 si.fMask = SIF_ALL;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8006 si.nMin = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8007 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8008 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8009 si.nPage = si.nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8010 si.nPos = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8011
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8012 pfnSetScrollInfo (hwnd, SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8013 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8014 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8015 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8016 SetScrollRange (hwnd, SB_CTL, 0,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8017 VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8018 SetScrollPos (hwnd, SB_CTL, 0, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8019 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8020
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8021 SET_SCROLL_BAR_W32_WINDOW (bar, hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8022
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8023 /* Add bar to its frame's list of scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8024 bar->next = FRAME_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8025 bar->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8026 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8027 if (! NILP (bar->next))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8028 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8029
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8030 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8031
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8032 return bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8033 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8034
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8035
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8036 /* Destroy scroll bar BAR, and set its Emacs window's scroll bar to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8037 nil. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8038
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8039 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8040 x_scroll_bar_remove (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8041 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8042 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8043 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8044
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8045 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8046
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8047 /* Destroy the window. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8048 my_destroy_window (f, SCROLL_BAR_W32_WINDOW (bar));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8049
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8050 /* Disassociate this scroll bar from its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8051 XWINDOW (bar->window)->vertical_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8052
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8053 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8054 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8055
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8056 /* Set the handle of the vertical scroll bar for WINDOW to indicate
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8057 that we are displaying PORTION characters out of a total of WHOLE
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8058 characters, starting at POSITION. If WINDOW has no scroll bar,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8059 create one. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8060 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8061 w32_set_vertical_scroll_bar (w, portion, whole, position)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8062 struct window *w;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8063 int portion, whole, position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8064 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8065 struct frame *f = XFRAME (w->frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8066 struct scroll_bar *bar;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8067 int top, height, left, sb_left, width, sb_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8068 int window_x, window_y, window_width, window_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8069
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8070 /* Get window dimensions. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8071 window_box (w, -1, &window_x, &window_y, &window_width, &window_height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8072 top = window_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8073 width = FRAME_SCROLL_BAR_COLS (f) * CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8074 height = window_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8075
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8076 /* Compute the left edge of the scroll bar area. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8077 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8078 left = XINT (w->left) + XINT (w->width) - FRAME_SCROLL_BAR_COLS (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8079 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8080 left = XFASTINT (w->left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8081 left *= CANON_X_UNIT (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8082 left += FRAME_INTERNAL_BORDER_WIDTH (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8083
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8084 /* Compute the width of the scroll bar which might be less than
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8085 the width of the area reserved for the scroll bar. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8086 if (FRAME_SCROLL_BAR_PIXEL_WIDTH (f) > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8087 sb_width = FRAME_SCROLL_BAR_PIXEL_WIDTH (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8088 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8089 sb_width = width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8090
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8091 /* Compute the left edge of the scroll bar. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8092 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8093 sb_left = left + width - sb_width - (width - sb_width) / 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8094 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8095 sb_left = left + (width - sb_width) / 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8096
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8097 /* Does the scroll bar exist yet? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8098 if (NILP (w->vertical_scroll_bar))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8099 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
8100 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8101 BLOCK_INPUT;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
8102 if (width > 0 && height > 0)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8103 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8104 hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8105 w32_clear_area (f, hdc, left, top, width, height);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8106 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8107 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8108 UNBLOCK_INPUT;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
8109
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8110 bar = x_scroll_bar_create (w, top, sb_left, sb_width, height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8111 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8112 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8113 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8114 /* It may just need to be moved and resized. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8115 HWND hwnd;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8116
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8117 bar = XSCROLL_BAR (w->vertical_scroll_bar);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8118 hwnd = SCROLL_BAR_W32_WINDOW (bar);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8119
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8120 /* If already correctly positioned, do nothing. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8121 if ( XINT (bar->left) == sb_left
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8122 && XINT (bar->top) == top
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8123 && XINT (bar->width) == sb_width
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8124 && XINT (bar->height) == height )
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8125 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8126 /* Redraw after clear_frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8127 if (!my_show_window (f, hwnd, SW_NORMAL))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8128 InvalidateRect (hwnd, NULL, FALSE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8129 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8130 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8131 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
8132 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8133 BLOCK_INPUT;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8134 if (width && height)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8135 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8136 hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8137 /* Since Windows scroll bars are smaller than the space reserved
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8138 for them on the frame, we have to clear "under" them. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8139 w32_clear_area (f, hdc,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8140 left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8141 top,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8142 width,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8143 height);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8144 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8145 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8146 /* Make sure scroll bar is "visible" before moving, to ensure the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8147 area of the parent window now exposed will be refreshed. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8148 my_show_window (f, hwnd, SW_HIDE);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8149 MoveWindow (hwnd, sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8150 top, sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8151 max (height, 1), TRUE);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8152 if (pfnSetScrollInfo)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8153 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8154 SCROLLINFO si;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8155
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8156 si.cbSize = sizeof (si);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8157 si.fMask = SIF_RANGE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8158 si.nMin = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8159 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8160 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8161
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
8162 pfnSetScrollInfo (hwnd, SB_CTL, &si, FALSE);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8163 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8164 else
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
8165 SetScrollRange (hwnd, SB_CTL, 0,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8166 VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8167 my_show_window (f, hwnd, SW_NORMAL);
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
8168 /* InvalidateRect (w, NULL, FALSE); */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8169
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8170 /* Remember new settings. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8171 XSETINT (bar->left, sb_left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8172 XSETINT (bar->top, top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8173 XSETINT (bar->width, sb_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8174 XSETINT (bar->height, height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8175
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8176 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8177 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8178 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8179 w32_set_scroll_bar_thumb (bar, portion, position, whole);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8180
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8181 XSETVECTOR (w->vertical_scroll_bar, bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8182 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8183
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8184
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8185 /* The following three hooks are used when we're doing a thorough
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8186 redisplay of the frame. We don't explicitly know which scroll bars
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8187 are going to be deleted, because keeping track of when windows go
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8188 away is a real pain - "Can you say set-window-configuration, boys
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8189 and girls?" Instead, we just assert at the beginning of redisplay
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8190 that *all* scroll bars are to be removed, and then save a scroll bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8191 from the fiery pit when we actually redisplay its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8192
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8193 /* Arrange for all scroll bars on FRAME to be removed at the next call
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8194 to `*judge_scroll_bars_hook'. A scroll bar may be spared if
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8195 `*redeem_scroll_bar_hook' is applied to its window before the judgment. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8196
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8197 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8198 w32_condemn_scroll_bars (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8199 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8200 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8201 /* Transfer all the scroll bars to FRAME_CONDEMNED_SCROLL_BARS. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8202 while (! NILP (FRAME_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8203 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8204 Lisp_Object bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8205 bar = FRAME_SCROLL_BARS (frame);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8206 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8207 XSCROLL_BAR (bar)->next = FRAME_CONDEMNED_SCROLL_BARS (frame);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8208 XSCROLL_BAR (bar)->prev = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8209 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8210 XSCROLL_BAR (FRAME_CONDEMNED_SCROLL_BARS (frame))->prev = bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8211 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
8212 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8213 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8214
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8215
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8216 /* Un-mark WINDOW's scroll bar for deletion in this judgment cycle.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8217 Note that WINDOW isn't necessarily condemned at all. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8218
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8219 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8220 w32_redeem_scroll_bar (window)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8221 struct window *window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8222 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8223 struct scroll_bar *bar;
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8224 struct frame *f;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8225
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8226 /* We can't redeem this window's scroll bar if it doesn't have one. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8227 if (NILP (window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8228 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8229
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8230 bar = XSCROLL_BAR (window->vertical_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8231
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8232 /* Unlink it from the condemned list. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8233 f = XFRAME (WINDOW_FRAME (window));
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8234 if (NILP (bar->prev))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8235 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8236 /* If the prev pointer is nil, it must be the first in one of
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8237 the lists. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8238 if (EQ (FRAME_SCROLL_BARS (f), window->vertical_scroll_bar))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8239 /* It's not condemned. Everything's fine. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8240 return;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8241 else if (EQ (FRAME_CONDEMNED_SCROLL_BARS (f),
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8242 window->vertical_scroll_bar))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8243 FRAME_CONDEMNED_SCROLL_BARS (f) = bar->next;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8244 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8245 /* If its prev pointer is nil, it must be at the front of
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8246 one or the other! */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8247 abort ();
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8248 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8249 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8250 XSCROLL_BAR (bar->prev)->next = bar->next;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8251
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8252 if (! NILP (bar->next))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8253 XSCROLL_BAR (bar->next)->prev = bar->prev;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8254
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8255 bar->next = FRAME_SCROLL_BARS (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8256 bar->prev = Qnil;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8257 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8258 if (! NILP (bar->next))
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8259 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8260 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8261
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8262 /* Remove all scroll bars on FRAME that haven't been saved since the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8263 last call to `*condemn_scroll_bars_hook'. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8264
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8265 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8266 w32_judge_scroll_bars (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8267 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8268 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8269 Lisp_Object bar, next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8270
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8271 bar = FRAME_CONDEMNED_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8272
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8273 /* Clear out the condemned list now so we won't try to process any
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8274 more events on the hapless scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8275 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8276
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8277 for (; ! NILP (bar); bar = next)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8278 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8279 struct scroll_bar *b = XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8280
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8281 x_scroll_bar_remove (b);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8282
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8283 next = b->next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8284 b->next = b->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8285 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8286
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8287 /* Now there should be no references to the condemned scroll bars,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8288 and they should get garbage-collected. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8289 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8290
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8291 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8292 is set to something other than no_event, it is enqueued.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8293
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8294 This may be called from a signal handler, so we have to ignore GC
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8295 mark bits. */
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8296
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8297 static int
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8298 w32_scroll_bar_handle_click (bar, msg, emacs_event)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8299 struct scroll_bar *bar;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8300 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8301 struct input_event *emacs_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8302 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8303 if (! GC_WINDOWP (bar->window))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8304 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8305
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8306 emacs_event->kind = w32_scroll_bar_click;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8307 emacs_event->code = 0;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8308 /* not really meaningful to distinguish up/down */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8309 emacs_event->modifiers = msg->dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8310 emacs_event->frame_or_window = bar->window;
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
8311 emacs_event->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8312 emacs_event->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8313
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8314 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8315 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8316 int y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8317 int dragging = !NILP (bar->dragging);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8318
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8319 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8320 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8321 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8322
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8323 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8324 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8325
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8326 pfnGetScrollInfo ((HWND) msg->msg.lParam, SB_CTL, &si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8327 y = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8328 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8329 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8330 y = GetScrollPos ((HWND) msg->msg.lParam, SB_CTL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8331
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8332 bar->dragging = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8333
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8334
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8335 last_mouse_scroll_bar_pos = msg->msg.wParam;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8336
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8337 switch (LOWORD (msg->msg.wParam))
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8338 {
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8339 case SB_LINEDOWN:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8340 emacs_event->part = scroll_bar_down_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8341 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8342 case SB_LINEUP:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8343 emacs_event->part = scroll_bar_up_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8344 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8345 case SB_PAGEUP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8346 emacs_event->part = scroll_bar_above_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8347 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8348 case SB_PAGEDOWN:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8349 emacs_event->part = scroll_bar_below_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8350 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8351 case SB_TOP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8352 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8353 y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8354 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8355 case SB_BOTTOM:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8356 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8357 y = top_range;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8358 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8359 case SB_THUMBTRACK:
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8360 case SB_THUMBPOSITION:
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8361 if (VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) <= 0xffff)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8362 y = HIWORD (msg->msg.wParam);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8363 bar->dragging = Qt;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8364 emacs_event->part = scroll_bar_handle;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8365
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8366 /* "Silently" update current position. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8367 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8368 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8369 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8370
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8371 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8372 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8373 si.nPos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8374 /* Remember apparent position (we actually lag behind the real
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8375 position, so don't set that directly. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8376 last_scroll_bar_drag_pos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8377
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8378 pfnSetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8379 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8380 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8381 SetScrollPos (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, y, FALSE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8382 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8383 case SB_ENDSCROLL:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8384 /* If this is the end of a drag sequence, then reset the scroll
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8385 handle size to normal and do a final redraw. Otherwise do
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8386 nothing. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8387 if (dragging)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8388 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8389 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8390 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8391 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8392 int start = XINT (bar->start);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8393 int end = XINT (bar->end);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8394
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8395 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8396 si.fMask = SIF_PAGE | SIF_POS;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8397 si.nPage = end - start + VERTICAL_SCROLL_BAR_MIN_HANDLE;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8398 si.nPos = last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8399 pfnSetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8400 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8401 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8402 SetScrollPos (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, y, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8403 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8404 /* fall through */
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8405 default:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8406 emacs_event->kind = no_event;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8407 return FALSE;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
8408 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8409
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8410 XSETINT (emacs_event->x, y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8411 XSETINT (emacs_event->y, top_range);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8412
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8413 return TRUE;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8414 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8415 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8416
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8417 /* Return information to the user about the current position of the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8418 on the scroll bar. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8419
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8420 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8421 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8422 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8423 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8424 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8425 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8426 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8427 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8428 struct scroll_bar *bar = XSCROLL_BAR (last_mouse_scroll_bar);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8429 Window w = SCROLL_BAR_W32_WINDOW (bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8430 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8431 int pos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8432 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8433
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8434 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8435
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8436 *fp = f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8437 *bar_window = bar->window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8438
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8439 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8440 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8441 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8442
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8443 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8444 si.fMask = SIF_POS | SIF_PAGE | SIF_RANGE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8445
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8446 pfnGetScrollInfo (w, SB_CTL, &si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8447 pos = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8448 top_range = si.nMax - si.nPage + 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8449 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8450 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8451 pos = GetScrollPos (w, SB_CTL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8452
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8453 switch (LOWORD (last_mouse_scroll_bar_pos))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8454 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8455 case SB_THUMBPOSITION:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8456 case SB_THUMBTRACK:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8457 *part = scroll_bar_handle;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8458 if (VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) <= 0xffff)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8459 pos = HIWORD (last_mouse_scroll_bar_pos);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8460 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8461 case SB_LINEDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8462 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8463 pos++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8464 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8465 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8466 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8467 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8468 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8469
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
8470 XSETINT (*x, pos);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
8471 XSETINT (*y, top_range);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8472
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8473 f->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8474 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8475
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8476 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8477
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8478 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8479 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8480
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8481
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8482 /* The screen has been cleared so we may have changed foreground or
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8483 background colors, and the scroll bars may need to be redrawn.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8484 Clear out the scroll bars, and ask for expose events, so we can
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8485 redraw them. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8486
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8487 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8488 x_scroll_bar_clear (f)
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8489 FRAME_PTR f;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8490 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8491 Lisp_Object bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8492
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8493 /* We can have scroll bars even if this is 0,
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8494 if we just turned off scroll bar mode.
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8495 But in that case we should not clear them. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8496 if (FRAME_HAS_VERTICAL_SCROLL_BARS (f))
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8497 for (bar = FRAME_SCROLL_BARS (f); VECTORP (bar);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8498 bar = XSCROLL_BAR (bar)->next)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8499 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8500 HWND window = SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar));
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8501 HDC hdc = GetDC (window);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8502 RECT rect;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8503
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8504 /* Hide scroll bar until ready to repaint. x_scroll_bar_move
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8505 arranges to refresh the scroll bar if hidden. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8506 my_show_window (f, window, SW_HIDE);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8507
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8508 GetClientRect (window, &rect);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8509 select_palette (f, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8510 w32_clear_rect (f, hdc, &rect);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8511 deselect_palette (f, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8512
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8513 ReleaseDC (window, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8514 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8515 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8516
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8517
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8518 /* The main W32 event-reading loop - w32_read_socket. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8519
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8520 /* Time stamp of enter window event. This is only used by w32_read_socket,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8521 but we have to put it out here, since static variables within functions
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8522 sometimes don't work. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8523
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8524 static Time enter_timestamp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8525
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8526 /* Record the last 100 characters stored
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8527 to help debug the loss-of-chars-during-GC problem. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8528
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8529 static int temp_index;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8530 static short temp_buffer[100];
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8531
14462
599a3ae1e8ea (convert_to_key_event, is_dead_key): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14351
diff changeset
8532
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8533 /* Read events coming from the W32 shell.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8534 This routine is called by the SIGIO handler.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8535 We return as soon as there are no more events to be read.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8536
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8537 Events representing keys are stored in buffer BUFP,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8538 which can hold up to NUMCHARS characters.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8539 We return the number of characters stored into the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8540 thus pretending to be `read'.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8541
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8542 EXPECTED is nonzero if the caller knows input is available.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8543
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8544 Some of these messages are reposted back to the message queue since the
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
8545 system calls the windows proc directly in a context where we cannot return
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
8546 the data nor can we guarantee the state we are in. So if we dispatch them
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8547 we will get into an infinite loop. To prevent this from ever happening we
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8548 will set a variable to indicate we are in the read_socket call and indicate
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
8549 which message we are processing since the windows proc gets called
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
8550 recursively with different messages by the system.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8551 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8552
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8553 int
16326
a85909645f7a (w32_read_socket): Delete WAITP arg.
Richard M. Stallman <rms@gnu.org>
parents: 16258
diff changeset
8554 w32_read_socket (sd, bufp, numchars, expected)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8555 register int sd;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8556 /* register */ struct input_event *bufp;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
8557 /* register */ int numchars;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8558 int expected;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8559 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8560 int count = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8561 int check_visibility = 0;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8562 W32Msg msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8563 struct frame *f;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
8564 struct w32_display_info *dpyinfo = &one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8565
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8566 if (interrupt_input_blocked)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8567 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8568 interrupt_input_pending = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8569 return -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8570 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8571
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8572 interrupt_input_pending = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8573 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8574
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8575 /* So people can tell when we have read the available input. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8576 input_signal_count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8577
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8578 if (numchars <= 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8579 abort (); /* Don't think this happens. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8580
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8581 /* TODO: tool-bars, ghostscript integration, mouse
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8582 cursors. */
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8583 while (get_next_msg (&msg, FALSE))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8584 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8585 switch (msg.msg.message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8586 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8587 case WM_PAINT:
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8588 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8589
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8590 if (f)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8591 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8592 if (msg.rect.right == msg.rect.left ||
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8593 msg.rect.bottom == msg.rect.top)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8594 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8595 /* We may get paint messages even though the client
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8596 area is clipped - these are not expose events. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8597 DebPrint (("clipped frame %p (%s) got WM_PAINT - ignored\n", f,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8598 XSTRING (f->name)->data));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8599 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8600 else if (f->async_visible != 1)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8601 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8602 /* Definitely not obscured, so mark as visible. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8603 f->async_visible = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8604 f->async_iconified = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8605 SET_FRAME_GARBAGED (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8606 DebPrint (("frame %p (%s) reexposed by WM_PAINT\n", f,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8607 XSTRING (f->name)->data));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8608
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8609 /* WM_PAINT serves as MapNotify as well, so report
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8610 visibility changes properly. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8611 if (f->iconified)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8612 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8613 bufp->kind = deiconify_event;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8614 XSETFRAME (bufp->frame_or_window, f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8615 bufp->arg = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8616 bufp++;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8617 count++;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8618 numchars--;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8619 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8620 else if (! NILP (Vframe_list)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8621 && ! NILP (XCDR (Vframe_list)))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8622 /* Force a redisplay sooner or later to update the
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8623 frame titles in case this is the second frame. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8624 record_asynch_buffer_change ();
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8625 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8626 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8627 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8628 HDC hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8629
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8630 /* Erase background again for safety. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8631 w32_clear_rect (f, hdc, &msg.rect);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8632 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8633 expose_frame (f,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8634 msg.rect.left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8635 msg.rect.top,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8636 msg.rect.right - msg.rect.left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8637 msg.rect.bottom - msg.rect.top);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8638 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8639 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8640 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8641
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8642 case WM_INPUTLANGCHANGE:
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8643 /* Generate a language change event. */
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8644 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8645
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8646 if (f)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8647 {
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8648 if (numchars == 0)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8649 abort ();
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8650
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8651 bufp->kind = language_change_event;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8652 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
8653 bufp->arg = Qnil;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8654 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8655 bufp->modifiers = msg.msg.lParam & 0xffff;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8656 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8657 count++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8658 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8659 }
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8660 break;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8661
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8662 case WM_KEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8663 case WM_SYSKEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8664 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8665
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8666 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8667 {
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8668 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8669 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8670 dpyinfo->mouse_face_hidden = 1;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8671 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8672 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8673
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8674 if (temp_index == sizeof temp_buffer / sizeof (short))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8675 temp_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8676 temp_buffer[temp_index++] = msg.msg.wParam;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8677 bufp->kind = non_ascii_keystroke;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8678 bufp->code = msg.msg.wParam;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8679 bufp->modifiers = msg.dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8680 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
8681 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8682 bufp->timestamp = msg.msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8683 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8684 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8685 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8686 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8687 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8688
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8689 case WM_SYSCHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8690 case WM_CHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8691 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8692
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8693 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8694 {
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8695 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8696 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8697 dpyinfo->mouse_face_hidden = 1;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8698 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8699 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8700
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8701 if (temp_index == sizeof temp_buffer / sizeof (short))
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8702 temp_index = 0;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8703 temp_buffer[temp_index++] = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8704 bufp->kind = ascii_keystroke;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8705 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8706 bufp->modifiers = msg.dwModifiers;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8707 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
8708 bufp->arg = Qnil;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8709 bufp->timestamp = msg.msg.time;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8710 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8711 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
8712 count++;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8713 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8714 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8715
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8716 case WM_MOUSEMOVE:
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8717 previous_help_echo = help_echo;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8718 help_echo_object = help_echo_window = Qnil;
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
8719 help_echo_pos = -1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8720
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8721 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8722 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8723 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8724 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8725 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8726
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8727 if (dpyinfo->mouse_face_hidden)
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8728 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8729 dpyinfo->mouse_face_hidden = 0;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8730 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8731 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
8732
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8733 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8734 note_mouse_movement (f, &msg.msg);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8735 else
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8736 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8737 /* If we move outside the frame, then we're
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8738 certainly no longer on any text in the frame. */
36315
b72dddbb65b2 * w32term.c (x_set_glyph_string_background_width): Extend the
Jason Rumney <jasonr@gnu.org>
parents: 36045
diff changeset
8739 clear_mouse_face (dpyinfo);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8740 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8741
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8742 /* If the contents of the global variable help_echo
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8743 has changed, generate a HELP_EVENT. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
8744 if (help_echo != previous_help_echo)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8745 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8746 Lisp_Object frame;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
8747 int n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8748
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8749 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8750 XSETFRAME (frame, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8751 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8752 frame = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8753
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8754 any_help_event_p = 1;
31010
040345be1d12 (w32_read_socket): Change calls to gen_help_event.
Gerd Moellmann <gerd@gnu.org>
parents: 30988
diff changeset
8755 n = gen_help_event (bufp, numchars, help_echo, frame,
040345be1d12 (w32_read_socket): Change calls to gen_help_event.
Gerd Moellmann <gerd@gnu.org>
parents: 30988
diff changeset
8756 help_echo_window, help_echo_object,
040345be1d12 (w32_read_socket): Change calls to gen_help_event.
Gerd Moellmann <gerd@gnu.org>
parents: 30988
diff changeset
8757 help_echo_pos);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
8758 bufp += n, count += n, numchars -= n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8759 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8760 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8761
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8762 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8763 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8764 case WM_MBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8765 case WM_MBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8766 case WM_RBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8767 case WM_RBUTTONUP:
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
8768 case WM_XBUTTONDOWN:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
8769 case WM_XBUTTONUP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8770 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8771 /* If we decide we want to generate an event to be seen
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8772 by the rest of Emacs, we put it here. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8773 struct input_event emacs_event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8774 int tool_bar_p = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8775 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8776 int up;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8777
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8778 emacs_event.kind = no_event;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8779
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8780 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8781 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8782 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8783 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8784 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8785
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8786 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8787 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8788 construct_mouse_click (&emacs_event, &msg, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8789
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8790 /* Is this in the tool-bar? */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8791 if (WINDOWP (f->tool_bar_window)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8792 && XFASTINT (XWINDOW (f->tool_bar_window)->height))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8793 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8794 Lisp_Object window;
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
8795 int p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8796
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8797 /* Set x and y. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8798 window = window_from_coordinates (f,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8799 emacs_event.x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8800 emacs_event.y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8801 &p, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8802 if (EQ (window, f->tool_bar_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8803 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8804 w32_handle_tool_bar_click (f, &emacs_event);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8805 tool_bar_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8806 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8807 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8808
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8809 if (!tool_bar_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8810 if (!dpyinfo->w32_focus_frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8811 || f == dpyinfo->w32_focus_frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8812 && (numchars >= 1))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8813 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8814 construct_mouse_click (bufp, &msg, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8815 bufp++;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8816 count++;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8817 numchars--;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8818 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8819 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8820
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
8821 parse_button (msg.msg.message, HIWORD (msg.msg.wParam),
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
8822 &button, &up);
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
8823
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8824 if (up)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8825 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8826 dpyinfo->grabbed &= ~ (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8827 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8828 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8829 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8830 dpyinfo->grabbed |= (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8831 last_mouse_frame = f;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8832 /* Ignore any mouse motion that happened
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8833 before this event; any subsequent mouse-movement
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8834 Emacs events should reflect only motion after
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8835 the ButtonPress. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8836 if (f != 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8837 f->mouse_moved = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8838
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8839 if (!tool_bar_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
8840 last_tool_bar_item = -1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8841 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8842 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8843 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8844
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8845 case WM_MOUSEWHEEL:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8846 if (dpyinfo->grabbed && last_mouse_frame
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8847 && FRAME_LIVE_P (last_mouse_frame))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8848 f = last_mouse_frame;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8849 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8850 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8851
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8852 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8853 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8854 if ((!dpyinfo->w32_focus_frame
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8855 || f == dpyinfo->w32_focus_frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8856 && (numchars >= 1))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8857 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8858 construct_mouse_wheel (bufp, &msg, f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8859 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8860 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8861 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8862 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8863 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8864 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8865
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8866 case WM_DROPFILES:
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8867 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8868
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8869 if (f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8870 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8871 construct_drag_n_drop (bufp, &msg, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8872 bufp++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8873 count++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8874 numchars--;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8875 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8876 break;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
8877
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8878 case WM_VSCROLL:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8879 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8880 struct scroll_bar *bar =
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8881 x_window_to_scroll_bar ((HWND)msg.msg.lParam);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8882
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8883 if (bar && numchars >= 1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8884 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
8885 if (w32_scroll_bar_handle_click (bar, &msg, bufp))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8886 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8887 bufp++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8888 count++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8889 numchars--;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
8890 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8891 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8892 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8893 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8894
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8895 case WM_WINDOWPOSCHANGED:
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8896 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8897 if (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8898 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8899 x_check_fullscreen_move(f);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8900 if (f->output_data.w32->want_fullscreen & FULLSCREEN_WAIT)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8901 f->output_data.w32->want_fullscreen &=
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8902 ~(FULLSCREEN_WAIT|FULLSCREEN_BOTH);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8903 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8904 check_visibility = 1;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8905 break;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8906
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8907 case WM_ACTIVATE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8908 case WM_ACTIVATEAPP:
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8909 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8910 if (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
8911 x_check_fullscreen (f);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8912 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8913 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8914
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8915 case WM_MOVE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8916 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8917
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8918 if (f && !f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8919 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8920 int x, y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8921
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8922 x_real_positions (f, &x, &y);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8923 f->output_data.w32->left_pos = x;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8924 f->output_data.w32->top_pos = y;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8925 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8926
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8927 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8928 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8929
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8930 case WM_SHOWWINDOW:
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8931 /* wParam non-zero means Window is about to be shown, 0 means
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8932 about to be hidden. */
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8933 /* Redo the mouse-highlight after the tooltip has gone. */
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8934 if (!msg.msg.wParam && msg.msg.hwnd == tip_window)
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8935 {
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8936 tip_window = NULL;
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8937 redo_mouse_highlight ();
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8938 }
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
8939
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8940 /* If window has been obscured or exposed by another window
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8941 being maximised or minimised/restored, then recheck
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8942 visibility of all frames. Direct changes to our own
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8943 windows get handled by WM_SIZE. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8944 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8945 if (msg.msg.lParam != 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8946 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8947 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8948 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8949 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8950 f->async_visible = msg.msg.wParam;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8951 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8952 #endif
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8953
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8954 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8955 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8956
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8957 case WM_SIZE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8958 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8959
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8960 /* Inform lisp of whether frame has been iconified etc. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8961 if (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8962 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8963 switch (msg.msg.wParam)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8964 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8965 case SIZE_MINIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8966 f->async_visible = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8967 f->async_iconified = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8968
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8969 bufp->kind = iconify_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8970 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
8971 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8972 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8973 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8974 numchars--;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8975 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8976
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8977 case SIZE_MAXIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
8978 case SIZE_RESTORED:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8979 f->async_visible = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8980 f->async_iconified = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8981
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8982 /* wait_reading_process_input will notice this and update
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8983 the frame's display structures. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8984 SET_FRAME_GARBAGED (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8985
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8986 if (f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8987 {
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8988 int x, y;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8989
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8990 /* Reset top and left positions of the Window
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8991 here since Windows sends a WM_MOVE message
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8992 BEFORE telling us the Window is minimized
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8993 when the Window is iconified, with 3000,3000
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8994 as the co-ords. */
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8995 x_real_positions (f, &x, &y);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8996 f->output_data.w32->left_pos = x;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8997 f->output_data.w32->top_pos = y;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
8998
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8999 bufp->kind = deiconify_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9000 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
9001 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9002 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9003 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9004 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9005 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9006 else if (! NILP (Vframe_list)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9007 && ! NILP (XCDR (Vframe_list)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9008 /* Force a redisplay sooner or later
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9009 to update the frame titles
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9010 in case this is the second frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9011 record_asynch_buffer_change ();
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9012 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9013 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9014 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9015
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9016 if (f && !f->async_iconified && msg.msg.wParam != SIZE_MINIMIZED)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9017 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9018 RECT rect;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9019 int rows;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9020 int columns;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9021 int width;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9022 int height;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9023
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
9024 GetClientRect (msg.msg.hwnd, &rect);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9025
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9026 height = rect.bottom - rect.top;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9027 width = rect.right - rect.left;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9028
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9029 rows = PIXEL_TO_CHAR_HEIGHT (f, height);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9030 columns = PIXEL_TO_CHAR_WIDTH (f, width);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9031
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9032 /* TODO: Clip size to the screen dimensions. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9033
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9034 /* Even if the number of character rows and columns has
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9035 not changed, the font size may have changed, so we need
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9036 to check the pixel dimensions as well. */
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9037
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9038 if (columns != f->width
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9039 || rows != f->height
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9040 || width != f->output_data.w32->pixel_width
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9041 || height != f->output_data.w32->pixel_height)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9042 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9043 change_frame_size (f, rows, columns, 0, 1, 0);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9044 SET_FRAME_GARBAGED (f);
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
9045 cancel_mouse_face (f);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9046 f->output_data.w32->pixel_width = width;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9047 f->output_data.w32->pixel_height = height;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9048 f->output_data.w32->win_gravity = NorthWestGravity;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9049 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9050 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
9051
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9052 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9053 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9054
41731
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9055 case WM_MOUSELEAVE:
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9056 f = x_any_window_to_frame (dpyinfo, msg.msg.hwnd);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9057 if (f)
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9058 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9059 if (f == dpyinfo->mouse_face_mouse_frame)
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9060 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9061 /* If we move outside the frame, then we're
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9062 certainly no longer on any text in the frame. */
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9063 clear_mouse_face (dpyinfo);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9064 dpyinfo->mouse_face_mouse_frame = 0;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9065 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9066
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9067 /* Generate a nil HELP_EVENT to cancel a help-echo.
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9068 Do it only if there's something to cancel.
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9069 Otherwise, the startup message is cleared when
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9070 the mouse leaves the frame. */
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9071 if (any_help_event_p)
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9072 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9073 Lisp_Object frame;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9074 int n;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9075
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9076 XSETFRAME (frame, f);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9077 help_echo = Qnil;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9078 n = gen_help_event (bufp, numchars,
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9079 Qnil, frame, Qnil, Qnil, 0);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9080 bufp += n, count += n, numchars -= n;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9081 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9082 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9083 break;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
9084
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9085 case WM_SETFOCUS:
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9086 f = x_any_window_to_frame (dpyinfo, msg.msg.hwnd);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9087
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9088 dpyinfo->w32_focus_event_frame = f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9089
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9090 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9091 x_new_focus_frame (dpyinfo, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9092
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9093
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9094 dpyinfo->grabbed = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9095 check_visibility = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9096 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9097
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9098 case WM_KILLFOCUS:
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
9099 /* TODO: some of this belongs in MOUSE_LEAVE */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9100 f = x_top_window_to_frame (dpyinfo, msg.msg.hwnd);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9101
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9102 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9103 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9104 if (f == dpyinfo->w32_focus_event_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9105 dpyinfo->w32_focus_event_frame = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9106
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9107 if (f == dpyinfo->w32_focus_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9108 x_new_focus_frame (dpyinfo, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9109
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9110 if (f == dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9111 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9112 /* If we move outside the frame, then we're
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9113 certainly no longer on any text in the frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9114 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9115 dpyinfo->mouse_face_mouse_frame = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9116 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9117
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9118 /* Generate a nil HELP_EVENT to cancel a help-echo.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9119 Do it only if there's something to cancel.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9120 Otherwise, the startup message is cleared when
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9121 the mouse leaves the frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9122 if (any_help_event_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9123 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9124 Lisp_Object frame;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
9125 int n;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
9126
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9127 XSETFRAME (frame, f);
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9128 help_echo = Qnil;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9129 n = gen_help_event (bufp, numchars,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9130 Qnil, frame, Qnil, Qnil, 0);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
9131 bufp += n, count += n, numchars -=n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9132 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9133 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9134
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
9135 dpyinfo->grabbed = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9136 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9137 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9138
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9139 case WM_CLOSE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9140 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9141
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9142 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9143 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9144 if (numchars == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9145 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9146
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9147 bufp->kind = delete_window_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9148 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
9149 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9150 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9151 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9152 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9153 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9154 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9155
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9156 case WM_INITMENU:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9157 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9158
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9159 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9160 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9161 if (numchars == 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9162 abort ();
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9163
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9164 bufp->kind = menu_bar_activate_event;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9165 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
9166 bufp->arg = Qnil;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9167 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9168 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9169 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9170 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9171 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9172
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9173 case WM_COMMAND:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9174 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
21740
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
9175
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9176 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9177 {
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
9178 extern void menubar_selection_callback
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
9179 (FRAME_PTR f, void * client_data);
21740
92c501ecca49 (w32_read_socket): Don't misinterpret WM_PAINT message
Geoff Voelker <voelker@cs.washington.edu>
parents: 21614
diff changeset
9180 menubar_selection_callback (f, (void *)msg.msg.wParam);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9181 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9182
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9183 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9184 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9185
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9186 case WM_DISPLAYCHANGE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9187 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9188
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9189 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9190 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9191 dpyinfo->width = (short) LOWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9192 dpyinfo->height = (short) HIWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9193 dpyinfo->n_cbits = msg.msg.wParam;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9194 DebPrint (("display change: %d %d\n", dpyinfo->width,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9195 dpyinfo->height));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9196 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9197
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9198 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9199 break;
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9200
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9201 default:
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9202 /* Check for messages registered at runtime. */
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9203 if (msg.msg.message == msh_mousewheel)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9204 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9205 if (dpyinfo->grabbed && last_mouse_frame
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9206 && FRAME_LIVE_P (last_mouse_frame))
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9207 f = last_mouse_frame;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9208 else
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9209 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9210
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9211 if (f)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9212 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9213 if ((!dpyinfo->w32_focus_frame
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9214 || f == dpyinfo->w32_focus_frame)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9215 && (numchars >= 1))
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9216 {
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9217 construct_mouse_wheel (bufp, &msg, f);
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9218 bufp++;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9219 count++;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9220 numchars--;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9221 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9222 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9223 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
9224 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9225 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9226 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9227
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9228 /* If the focus was just given to an autoraising frame,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9229 raise it now. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9230 /* ??? This ought to be able to handle more than one such frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9231 if (pending_autoraise_frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9232 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9233 x_raise_frame (pending_autoraise_frame);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9234 pending_autoraise_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9235 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9236
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9237 /* Check which frames are still visisble, if we have enqueued any user
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9238 events or been notified of events that may affect visibility. We
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9239 do this here because there doesn't seem to be any direct
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9240 notification from Windows that the visibility of a window has
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9241 changed (at least, not in all cases). */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9242 if (count > 0 || check_visibility)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9243 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9244 Lisp_Object tail, frame;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9245
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9246 FOR_EACH_FRAME (tail, frame)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9247 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9248 FRAME_PTR f = XFRAME (frame);
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
9249 /* The tooltip has been drawn already. Avoid the
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
9250 SET_FRAME_GARBAGED below. */
41639
0c5ab6e27a8f (w32_read_socket) <WM_MENUSELECT>: Remove.
Jason Rumney <jasonr@gnu.org>
parents: 41447
diff changeset
9251 if (EQ (frame, tip_frame))
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
9252 continue;
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
9253
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9254 /* Check "visible" frames and mark each as obscured or not.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9255 Note that async_visible is nonzero for unobscured and
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9256 obscured frames, but zero for hidden and iconified frames. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9257 if (FRAME_W32_P (f) && f->async_visible)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9258 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9259 RECT clipbox;
40005
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9260 HDC hdc;
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9261
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9262 enter_crit ();
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9263 /* Query clipping rectangle for the entire window area
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9264 (GetWindowDC), not just the client portion (GetDC).
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9265 Otherwise, the scrollbars and menubar aren't counted as
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9266 part of the visible area of the frame, and we may think
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9267 the frame is obscured when really a scrollbar is still
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9268 visible and gets WM_PAINT messages above. */
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9269 hdc = GetWindowDC (FRAME_W32_WINDOW (f));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9270 GetClipBox (hdc, &clipbox);
40005
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9271 ReleaseDC (FRAME_W32_WINDOW (f), hdc);
8bde67004473 (w32_read_socket): Determine clipping rectangle for
Andrew Innes <andrewi@gnu.org>
parents: 39973
diff changeset
9272 leave_crit ();
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9273
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9274 if (clipbox.right == clipbox.left
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9275 || clipbox.bottom == clipbox.top)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9276 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9277 /* Frame has become completely obscured so mark as
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9278 such (we do this by setting async_visible to 2 so
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9279 that FRAME_VISIBLE_P is still true, but redisplay
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9280 will skip it). */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9281 f->async_visible = 2;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9282
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9283 if (!FRAME_OBSCURED_P (f))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9284 {
39129
651a67207f2b (w32_read_socket): Add more information to debugging output.
Andrew Innes <andrewi@gnu.org>
parents: 39002
diff changeset
9285 DebPrint (("frame %p (%s) obscured\n", f,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9286 XSTRING (f->name)->data));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9287 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9288 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9289 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9290 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9291 /* Frame is not obscured, so mark it as such. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9292 f->async_visible = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9293
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9294 if (FRAME_OBSCURED_P (f))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9295 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9296 SET_FRAME_GARBAGED (f);
39129
651a67207f2b (w32_read_socket): Add more information to debugging output.
Andrew Innes <andrewi@gnu.org>
parents: 39002
diff changeset
9297 DebPrint (("obscured frame %p (%s) found to be visible\n", f,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9298 XSTRING (f->name)->data));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9299
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9300 /* Force a redisplay sooner or later. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9301 record_asynch_buffer_change ();
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9302 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9303 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9304 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9305 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9306 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
9307
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9308 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9309 return count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9310 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9311
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9312
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9313
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9314
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9315 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9316 Text Cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9317 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9318
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9319 /* Notice if the text cursor of window W has been overwritten by a
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9320 drawing operation that outputs glyphs starting at START_X and
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9321 ending at END_X in the line given by output_cursor.vpos.
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9322 Coordinates are area-relative. END_X < 0 means all the rest
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9323 of the line after START_X has been written. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9324
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9325 static void
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9326 notice_overwritten_cursor (w, area, x0, x1, y0, y1)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9327 struct window *w;
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9328 enum glyph_row_area area;
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9329 int x0, x1, y0, y1;
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9330 {
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9331 if (area == TEXT_AREA
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9332 && w->phys_cursor_on_p
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9333 && y0 <= w->phys_cursor.y
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9334 && y1 >= w->phys_cursor.y + w->phys_cursor_height
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9335 && x0 <= w->phys_cursor.x
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
9336 && (x1 < 0 || x1 > w->phys_cursor.x))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9337 w->phys_cursor_on_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9338 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9339
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9340
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9341 /* Set clipping for output in glyph row ROW. W is the window in which
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9342 we operate. GC is the graphics context to set clipping in.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9343 WHOLE_LINE_P non-zero means include the areas used for truncation
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9344 mark display and alike in the clipping rectangle.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9345
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9346 ROW may be a text row or, e.g., a mode line. Text rows must be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9347 clipped to the interior of the window dedicated to text display,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9348 mode lines must be clipped to the whole window. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9349
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9350 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9351 w32_clip_to_row (w, row, hdc, whole_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9352 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9353 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9354 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9355 int whole_line_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9356 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9357 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9358 RECT clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9359 int window_x, window_y, window_width, window_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9360
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9361 window_box (w, -1, &window_x, &window_y, &window_width, &window_height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9362
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9363 clip_rect.left = WINDOW_TO_FRAME_PIXEL_X (w, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9364 clip_rect.top = WINDOW_TO_FRAME_PIXEL_Y (w, row->y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9365 clip_rect.top = max (clip_rect.top, window_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9366 clip_rect.right = clip_rect.left + window_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9367 clip_rect.bottom = clip_rect.top + row->visible_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9368
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9369 /* If clipping to the whole line, including trunc marks, extend
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9370 the rectangle to the left and increase its width. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9371 if (whole_line_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9372 {
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
9373 clip_rect.left -= FRAME_X_LEFT_FRINGE_WIDTH (f);
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
9374 clip_rect.right += FRAME_X_FRINGE_WIDTH (f);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9375 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9376
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9377 w32_set_clip_rectangle (hdc, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9378 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9379
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9380
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9381 /* Draw a hollow box cursor on window W in glyph row ROW. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9382
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9383 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9384 x_draw_hollow_cursor (w, row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9385 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9386 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9387 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9388 struct frame *f = XFRAME (WINDOW_FRAME (w));
34779
94c3431a7fe2 (x_draw_hollow_cursor): Delay obtaining the frame's DC to avoid
Jason Rumney <jasonr@gnu.org>
parents: 34545
diff changeset
9389 HDC hdc;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9390 RECT rect;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9391 int wd;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9392 struct glyph *cursor_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9393 HBRUSH hb = CreateSolidBrush (f->output_data.w32->cursor_pixel);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9394
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9395 /* Compute frame-relative coordinates from window-relative
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9396 coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9397 rect.left = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9398 rect.top = (WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9399 + row->ascent - w->phys_cursor_ascent);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9400 rect.bottom = rect.top + row->height - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9401
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9402 /* Get the glyph the cursor is on. If we can't tell because
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9403 the current matrix is invalid or such, give up. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9404 cursor_glyph = get_phys_cursor_glyph (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9405 if (cursor_glyph == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9406 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9407
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9408 /* Compute the width of the rectangle to draw. If on a stretch
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9409 glyph, and `x-stretch-block-cursor' is nil, don't draw a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9410 rectangle as wide as the glyph, but use a canonical character
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9411 width instead. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9412 wd = cursor_glyph->pixel_width - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9413 if (cursor_glyph->type == STRETCH_GLYPH
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9414 && !x_stretch_cursor_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9415 wd = min (CANON_X_UNIT (f), wd);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9416
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9417 rect.right = rect.left + wd;
34779
94c3431a7fe2 (x_draw_hollow_cursor): Delay obtaining the frame's DC to avoid
Jason Rumney <jasonr@gnu.org>
parents: 34545
diff changeset
9418 hdc = get_frame_dc (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9419 FrameRect (hdc, &rect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9420 DeleteObject (hb);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
9421
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
9422 release_frame_dc (f, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9423 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9424
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9425
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9426 /* Draw a bar cursor on window W in glyph row ROW.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9427
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9428 Implementation note: One would like to draw a bar cursor with an
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9429 angle equal to the one given by the font property XA_ITALIC_ANGLE.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9430 Unfortunately, I didn't find a font yet that has this property set.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9431 --gerd. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9432
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9433 static void
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9434 x_draw_bar_cursor (w, row, width)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9435 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9436 struct glyph_row *row;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9437 int width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9438 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9439 struct frame *f = XFRAME (w->frame);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9440 struct glyph *cursor_glyph;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9441 int x;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9442 HDC hdc;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9443
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9444 /* If cursor is out of bounds, don't draw garbage. This can happen
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9445 in mini-buffer windows when switching between echo area glyphs
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9446 and mini-buffer. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9447 cursor_glyph = get_phys_cursor_glyph (w);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9448 if (cursor_glyph == NULL)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9449 return;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9450
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9451 /* If on an image, draw like a normal cursor. That's usually better
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9452 visible than drawing a bar, esp. if the image is large so that
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9453 the bar might not be in the window. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9454 if (cursor_glyph->type == IMAGE_GLYPH)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9455 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9456 struct glyph_row *row;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9457 row = MATRIX_ROW (w->current_matrix, w->phys_cursor.vpos);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9458 x_draw_phys_cursor_glyph (w, row, DRAW_CURSOR);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9459 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9460 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9461 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9462 COLORREF cursor_color = f->output_data.w32->cursor_pixel;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9463 struct face *face = FACE_FROM_ID (f, cursor_glyph->face_id);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9464
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9465 if (width < 0)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9466 width = f->output_data.w32->cursor_width;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9467
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9468 /* If the glyph's background equals the color we normally draw
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9469 the bar cursor in, the bar cursor in its normal color is
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9470 invisible. Use the glyph's foreground color instead in this
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9471 case, on the assumption that the glyph's colors are chosen so
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9472 that the glyph is legible. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9473 if (face->background == cursor_color)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9474 cursor_color = face->foreground;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9475
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9476 x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9477 hdc = get_frame_dc (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9478 w32_clip_to_row (w, row, hdc, 0);
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9479 w32_fill_area (f, hdc, cursor_color, x,
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9480 WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y),
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9481 min (cursor_glyph->pixel_width, width),
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9482 row->height);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9483 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9484 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9485 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9486
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9487
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9488 /* Clear the cursor of window W to background color, and mark the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9489 cursor as not shown. This is used when the text where the cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9490 is is about to be rewritten. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9491
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9492 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9493 x_clear_cursor (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9494 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9495 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9496 if (FRAME_VISIBLE_P (XFRAME (w->frame)) && w->phys_cursor_on_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9497 x_update_window_cursor (w, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9498 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9499
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9500
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9501 /* Draw the cursor glyph of window W in glyph row ROW. See the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9502 comment of x_draw_glyphs for the meaning of HL. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9503
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9504 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9505 x_draw_phys_cursor_glyph (w, row, hl)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9506 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9507 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9508 enum draw_glyphs_face hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9509 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9510 /* If cursor hpos is out of bounds, don't draw garbage. This can
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9511 happen in mini-buffer windows when switching between echo area
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9512 glyphs and mini-buffer. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9513 if (w->phys_cursor.hpos < row->used[TEXT_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9514 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9515 int on_p = w->phys_cursor_on_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9516 x_draw_glyphs (w, w->phys_cursor.x, row, TEXT_AREA,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9517 w->phys_cursor.hpos, w->phys_cursor.hpos + 1,
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9518 hl, 0);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9519 w->phys_cursor_on_p = on_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9520
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9521 /* When we erase the cursor, and ROW is overlapped by other
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9522 rows, make sure that these overlapping parts of other rows
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9523 are redrawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9524 if (hl == DRAW_NORMAL_TEXT && row->overlapped_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9525 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9526 if (row > w->current_matrix->rows
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9527 && MATRIX_ROW_OVERLAPS_SUCC_P (row - 1))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9528 x_fix_overlapping_area (w, row - 1, TEXT_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9529
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9530 if (MATRIX_ROW_BOTTOM_Y (row) < window_text_bottom_y (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9531 && MATRIX_ROW_OVERLAPS_PRED_P (row + 1))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9532 x_fix_overlapping_area (w, row + 1, TEXT_AREA);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9533 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9534 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9535 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9536
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9537
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9538 /* Erase the image of a cursor of window W from the screen. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9539
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9540 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9541 x_erase_phys_cursor (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9542 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9543 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9544 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9545 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9546 int hpos = w->phys_cursor.hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9547 int vpos = w->phys_cursor.vpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9548 int mouse_face_here_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9549 struct glyph_matrix *active_glyphs = w->current_matrix;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9550 struct glyph_row *cursor_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9551 struct glyph *cursor_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9552 enum draw_glyphs_face hl;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9553
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9554 /* No cursor displayed or row invalidated => nothing to do on the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9555 screen. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9556 if (w->phys_cursor_type == NO_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9557 goto mark_cursor_off;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9558
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9559 /* VPOS >= active_glyphs->nrows means that window has been resized.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9560 Don't bother to erase the cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9561 if (vpos >= active_glyphs->nrows)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9562 goto mark_cursor_off;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9563
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9564 /* If row containing cursor is marked invalid, there is nothing we
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9565 can do. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9566 cursor_row = MATRIX_ROW (active_glyphs, vpos);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9567 if (!cursor_row->enabled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9568 goto mark_cursor_off;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9569
42794
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9570 /* If row is completely invisible, don't attempt to delete a cursor which
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9571 isn't there. This may happen if cursor is at top of window, and
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9572 we switch to a buffer with a header line in that window. */
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9573 if (cursor_row->visible_height <= 0)
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9574 goto mark_cursor_off;
dee88a860452 (x_erase_phys_cursor): Don't erase cursor if cursor row
Kim F. Storm <storm@cua.dk>
parents: 42720
diff changeset
9575
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9576 /* This can happen when the new row is shorter than the old one.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9577 In this case, either x_draw_glyphs or clear_end_of_line
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9578 should have cleared the cursor. Note that we wouldn't be
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9579 able to erase the cursor in this case because we don't have a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9580 cursor glyph at hand. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9581 if (w->phys_cursor.hpos >= cursor_row->used[TEXT_AREA])
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9582 goto mark_cursor_off;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9583
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9584 /* If the cursor is in the mouse face area, redisplay that when
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9585 we clear the cursor. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9586 if (! NILP (dpyinfo->mouse_face_window)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9587 && w == XWINDOW (dpyinfo->mouse_face_window)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9588 && (vpos > dpyinfo->mouse_face_beg_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9589 || (vpos == dpyinfo->mouse_face_beg_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9590 && hpos >= dpyinfo->mouse_face_beg_col))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9591 && (vpos < dpyinfo->mouse_face_end_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9592 || (vpos == dpyinfo->mouse_face_end_row
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9593 && hpos < dpyinfo->mouse_face_end_col))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9594 /* Don't redraw the cursor's spot in mouse face if it is at the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9595 end of a line (on a newline). The cursor appears there, but
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9596 mouse highlighting does not. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9597 && cursor_row->used[TEXT_AREA] > hpos)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9598 mouse_face_here_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9599
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9600 /* Maybe clear the display under the cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9601 if (w->phys_cursor_type == HOLLOW_BOX_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9602 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9603 int x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9604 int header_line_height = WINDOW_DISPLAY_HEADER_LINE_HEIGHT (w);
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
9605 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9606
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9607 cursor_glyph = get_phys_cursor_glyph (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9608 if (cursor_glyph == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9609 goto mark_cursor_off;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9610
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9611 x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
9612
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
9613 hdc = get_frame_dc (f);
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
9614 w32_clear_area (f, hdc, x,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9615 WINDOW_TO_FRAME_PIXEL_Y (w, max (header_line_height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9616 cursor_row->y)),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9617 cursor_glyph->pixel_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9618 cursor_row->visible_height);
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
9619 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9620 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9621
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9622 /* Erase the cursor by redrawing the character underneath it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9623 if (mouse_face_here_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9624 hl = DRAW_MOUSE_FACE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9625 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9626 hl = DRAW_NORMAL_TEXT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9627 x_draw_phys_cursor_glyph (w, cursor_row, hl);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9628
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9629 mark_cursor_off:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9630 w->phys_cursor_on_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9631 w->phys_cursor_type = NO_CURSOR;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9632 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9633
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9634
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9635 /* Non-zero if physical cursor of window W is within mouse face. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9636
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9637 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9638 cursor_in_mouse_face_p (w)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9639 struct window *w;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9640 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9641 struct w32_display_info *dpyinfo
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9642 = FRAME_W32_DISPLAY_INFO (XFRAME (w->frame));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9643 int in_mouse_face = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9644
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9645 if (WINDOWP (dpyinfo->mouse_face_window)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9646 && XWINDOW (dpyinfo->mouse_face_window) == w)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9647 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9648 int hpos = w->phys_cursor.hpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9649 int vpos = w->phys_cursor.vpos;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9650
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9651 if (vpos >= dpyinfo->mouse_face_beg_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9652 && vpos <= dpyinfo->mouse_face_end_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9653 && (vpos > dpyinfo->mouse_face_beg_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9654 || hpos >= dpyinfo->mouse_face_beg_col)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9655 && (vpos < dpyinfo->mouse_face_end_row
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9656 || hpos < dpyinfo->mouse_face_end_col
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9657 || dpyinfo->mouse_face_past_end))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9658 in_mouse_face = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9659 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9660
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9661 return in_mouse_face;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9662 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9663
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
9664
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9665 /* Display or clear cursor of window W. If ON is zero, clear the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9666 cursor. If it is non-zero, display the cursor. If ON is nonzero,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9667 where to put the cursor is specified by HPOS, VPOS, X and Y. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9668
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9669 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9670 x_display_and_set_cursor (w, on, hpos, vpos, x, y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9671 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9672 int on, hpos, vpos, x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9673 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9674 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9675 int new_cursor_type;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9676 int new_cursor_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9677 struct glyph_matrix *current_glyphs;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9678 struct glyph_row *glyph_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9679 struct glyph *glyph;
40728
cd732a04b136 (x_display_and_set_cursor): Use buffer-local
Richard M. Stallman <rms@gnu.org>
parents: 40384
diff changeset
9680 int cursor_non_selected;
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9681 int active_cursor = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9682
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9683 /* This is pointless on invisible frames, and dangerous on garbaged
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9684 windows and frames; in the latter case, the frame or window may
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9685 be in the midst of changing its size, and x and y may be off the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9686 window. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9687 if (! FRAME_VISIBLE_P (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9688 || FRAME_GARBAGED_P (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9689 || vpos >= w->current_matrix->nrows
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9690 || hpos >= w->current_matrix->matrix_w)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9691 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9692
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9693 /* If cursor is off and we want it off, return quickly. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9694 if (!on && !w->phys_cursor_on_p)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9695 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9696
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9697 current_glyphs = w->current_matrix;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9698 glyph_row = MATRIX_ROW (current_glyphs, vpos);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9699 glyph = glyph_row->glyphs[TEXT_AREA] + hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9700
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9701 /* If cursor row is not enabled, we don't really know where to
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9702 display the cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9703 if (!glyph_row->enabled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9704 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9705 w->phys_cursor_on_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9706 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9707 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9708
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9709 xassert (interrupt_input_blocked);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9710
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9711 /* Set new_cursor_type to the cursor we want to be displayed. In a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9712 mini-buffer window, we want the cursor only to appear if we are
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9713 reading input from this window. For the selected window, we want
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9714 the cursor type given by the frame parameter. If explicitly
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9715 marked off, draw no cursor. In all other cases, we want a hollow
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9716 box cursor. */
40728
cd732a04b136 (x_display_and_set_cursor): Use buffer-local
Richard M. Stallman <rms@gnu.org>
parents: 40384
diff changeset
9717 cursor_non_selected
40747
205f4498ca85 (x_display_and_set_cursor): Fix w32 compilation error.
Sam Steingold <sds@gnu.org>
parents: 40728
diff changeset
9718 = !NILP (Fbuffer_local_value (Qcursor_in_non_selected_windows,
40728
cd732a04b136 (x_display_and_set_cursor): Use buffer-local
Richard M. Stallman <rms@gnu.org>
parents: 40384
diff changeset
9719 w->buffer));
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9720 new_cursor_width = -1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9721 if (cursor_in_echo_area
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9722 && FRAME_HAS_MINIBUF_P (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9723 && EQ (FRAME_MINIBUF_WINDOW (f), echo_area_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9724 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9725 if (w == XWINDOW (echo_area_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9726 new_cursor_type = FRAME_DESIRED_CURSOR (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9727 else
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9728 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9729 if (cursor_non_selected)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9730 new_cursor_type = HOLLOW_BOX_CURSOR;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9731 else
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
9732 new_cursor_type = NO_CURSOR;
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9733 active_cursor = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9734 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9735 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9736 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9737 {
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
9738 if (f != FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
9739 || w != XWINDOW (f->selected_window))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9740 {
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9741 active_cursor = 0;
27937
da3a30362526 Bring up to date with xterm.c changes of 2000-02-24 and 2000-02-25.
Jason Rumney <jasonr@gnu.org>
parents: 27889
diff changeset
9742
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
9743 if (MINI_WINDOW_P (w)
40728
cd732a04b136 (x_display_and_set_cursor): Use buffer-local
Richard M. Stallman <rms@gnu.org>
parents: 40384
diff changeset
9744 || !cursor_non_selected
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
9745 || NILP (XBUFFER (w->buffer)->cursor_type))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9746 new_cursor_type = NO_CURSOR;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9747 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9748 new_cursor_type = HOLLOW_BOX_CURSOR;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9749 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9750 else if (w->cursor_off_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9751 new_cursor_type = NO_CURSOR;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9752 else
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9753 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9754 struct buffer *b = XBUFFER (w->buffer);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9755
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9756 if (EQ (b->cursor_type, Qt))
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9757 new_cursor_type = FRAME_DESIRED_CURSOR (f);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9758 else
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9759 new_cursor_type = x_specified_cursor_type (b->cursor_type,
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9760 &new_cursor_width);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9761 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9762 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9763
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9764 /* If cursor is currently being shown and we don't want it to be or
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9765 it is in the wrong place, or the cursor type is not what we want,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9766 erase it. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9767 if (w->phys_cursor_on_p
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9768 && (!on
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9769 || w->phys_cursor.x != x
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9770 || w->phys_cursor.y != y
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9771 || new_cursor_type != w->phys_cursor_type))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9772 x_erase_phys_cursor (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9773
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9774 /* If the cursor is now invisible and we want it to be visible,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9775 display it. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9776 if (on && !w->phys_cursor_on_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9777 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9778 w->phys_cursor_ascent = glyph_row->ascent;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9779 w->phys_cursor_height = glyph_row->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9780
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9781 /* Set phys_cursor_.* before x_draw_.* is called because some
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9782 of them may need the information. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9783 w->phys_cursor.x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9784 w->phys_cursor.y = glyph_row->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9785 w->phys_cursor.hpos = hpos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9786 w->phys_cursor.vpos = vpos;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9787
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9788 /* If the user wants to use the system caret, make sure our own
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9789 cursor remains invisible. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9790 if (w32_use_visible_system_caret)
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9791 {
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9792 if (w->phys_cursor_type != NO_CURSOR)
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9793 x_erase_phys_cursor (w);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9794
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9795 new_cursor_type = w->phys_cursor_type = NO_CURSOR;
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9796 }
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9797 else
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9798 w->phys_cursor_type = new_cursor_type;
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9799
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9800 w->phys_cursor_on_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9801
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9802 /* If this is the active cursor, we need to track it with the
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9803 system caret, so third party software like screen magnifiers
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9804 and speech synthesizers can follow the cursor. */
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9805 if (active_cursor)
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9806 {
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9807 HWND hwnd = FRAME_W32_WINDOW (f);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9808
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9809 w32_system_caret_x
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9810 = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9811 w32_system_caret_y
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9812 = (WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y)
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9813 + glyph_row->ascent - w->phys_cursor_ascent);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9814
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9815 /* If the size of the active cursor changed, destroy the old
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9816 system caret. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9817 if (w32_system_caret_hwnd
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9818 && (w32_system_caret_height != w->phys_cursor_height))
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9819 PostMessage (hwnd, WM_EMACS_DESTROY_CARET, 0, 0);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9820
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9821 w32_system_caret_height = w->phys_cursor_height;
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9822
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9823 /* Move the system caret. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
9824 PostMessage (hwnd, WM_EMACS_TRACK_CARET, 0, 0);
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9825 }
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
9826
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9827 switch (new_cursor_type)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9828 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9829 case HOLLOW_BOX_CURSOR:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9830 x_draw_hollow_cursor (w, glyph_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9831 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9832
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9833 case FILLED_BOX_CURSOR:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9834 x_draw_phys_cursor_glyph (w, glyph_row, DRAW_CURSOR);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9835 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9836
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9837 case BAR_CURSOR:
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9838 x_draw_bar_cursor (w, glyph_row, new_cursor_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9839 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9840
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9841 case NO_CURSOR:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9842 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9843
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9844 default:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9845 abort ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9846 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9847 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9848 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9849
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9850
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9851 /* Display the cursor on window W, or clear it. X and Y are window
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9852 relative pixel coordinates. HPOS and VPOS are glyph matrix
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9853 positions. If W is not the selected window, display a hollow
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9854 cursor. ON non-zero means display the cursor at X, Y which
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9855 correspond to HPOS, VPOS, otherwise it is cleared. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9856
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9857 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9858 x_display_cursor (w, on, hpos, vpos, x, y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9859 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9860 int on, hpos, vpos, x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9861 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9862 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9863 x_display_and_set_cursor (w, on, hpos, vpos, x, y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9864 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9865 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9866
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9867
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9868 /* Display the cursor on window W, or clear it, according to ON_P.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9869 Don't change the cursor's position. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9870
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9871 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9872 x_update_cursor (f, on_p)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9873 struct frame *f;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9874 int on_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9875 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9876 x_update_cursor_in_window_tree (XWINDOW (f->root_window), on_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9877 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9878
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9879
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9880 /* Call x_update_window_cursor with parameter ON_P on all leaf windows
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9881 in the window tree rooted at W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9882
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9883 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9884 x_update_cursor_in_window_tree (w, on_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9885 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9886 int on_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9887 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9888 while (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9889 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9890 if (!NILP (w->hchild))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9891 x_update_cursor_in_window_tree (XWINDOW (w->hchild), on_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9892 else if (!NILP (w->vchild))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9893 x_update_cursor_in_window_tree (XWINDOW (w->vchild), on_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9894 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9895 x_update_window_cursor (w, on_p);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9896
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9897 w = NILP (w->next) ? 0 : XWINDOW (w->next);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9898 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9899 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9900
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9901
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9902 /* Switch the display of W's cursor on or off, according to the value
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9903 of ON. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9904
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9905 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9906 x_update_window_cursor (w, on)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9907 struct window *w;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9908 int on;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9909 {
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9910 /* Don't update cursor in windows whose frame is in the process
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9911 of being deleted. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9912 if (w->current_matrix)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9913 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9914 BLOCK_INPUT;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9915 x_display_and_set_cursor (w, on, w->phys_cursor.hpos,
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9916 w->phys_cursor.vpos, w->phys_cursor.x,
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9917 w->phys_cursor.y);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9918 UNBLOCK_INPUT;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9919 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9920 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
9921
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9922
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9923
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9924
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9925 /* Icons. */
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9926
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9927 int
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9928 x_bitmap_icon (f, icon)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9929 struct frame *f;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9930 Lisp_Object icon;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9931 {
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9932 HANDLE hicon;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9933
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9934 if (FRAME_W32_WINDOW (f) == 0)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9935 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9936
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9937 if (NILP (icon))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9938 hicon = LoadIcon (hinst, EMACS_CLASS);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9939 else if (STRINGP (icon))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9940 hicon = LoadImage (NULL, (LPCTSTR) XSTRING (icon)->data, IMAGE_ICON, 0, 0,
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9941 LR_DEFAULTSIZE | LR_LOADFROMFILE);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9942 else if (SYMBOLP (icon))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9943 {
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9944 LPCTSTR name;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9945
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9946 if (EQ (icon, intern ("application")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9947 name = (LPCTSTR) IDI_APPLICATION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9948 else if (EQ (icon, intern ("hand")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9949 name = (LPCTSTR) IDI_HAND;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9950 else if (EQ (icon, intern ("question")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9951 name = (LPCTSTR) IDI_QUESTION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9952 else if (EQ (icon, intern ("exclamation")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9953 name = (LPCTSTR) IDI_EXCLAMATION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9954 else if (EQ (icon, intern ("asterisk")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9955 name = (LPCTSTR) IDI_ASTERISK;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9956 else if (EQ (icon, intern ("winlogo")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9957 name = (LPCTSTR) IDI_WINLOGO;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9958 else
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9959 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9960
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9961 hicon = LoadIcon (NULL, name);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9962 }
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9963 else
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9964 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9965
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9966 if (hicon == NULL)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9967 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9968
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9969 PostMessage (FRAME_W32_WINDOW (f), WM_SETICON, (WPARAM) ICON_BIG,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
9970 (LPARAM) hicon);
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9971
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9972 return 0;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9973 }
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9974
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
9975
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9976 /************************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9977 Handling X errors
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9978 ************************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9979
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9980 /* Display Error Handling functions not used on W32. Listing them here
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9981 helps diff stay in step when comparing w32term.c with xterm.c.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9982
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9983 x_error_catcher (display, error)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9984 x_catch_errors (dpy)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9985 x_catch_errors_unwind (old_val)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9986 x_check_errors (dpy, format)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9987 x_had_errors_p (dpy)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9988 x_clear_errors (dpy)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9989 x_uncatch_errors (dpy, count)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9990 x_trace_wire ()
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9991 x_connection_signal (signalnum)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9992 x_connection_closed (dpy, error_message)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9993 x_error_quitter (display, error)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9994 x_error_handler (display, error)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9995 x_io_error_quitter (display)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9996
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9997 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9998
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
9999
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10000 /* Changing the font of the frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10001
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10002 /* Give frame F the font named FONTNAME as its default font, and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10003 return the full name of that font. FONTNAME may be a wildcard
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10004 pattern; in that case, we choose some font that fits the pattern.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10005 The return value shows which font we chose. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10006
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10007 Lisp_Object
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10008 x_new_font (f, fontname)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10009 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10010 register char *fontname;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10011 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10012 struct font_info *fontp
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
10013 = FS_LOAD_FONT (f, 0, fontname, -1);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10014
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10015 if (!fontp)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10016 return Qnil;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10017
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10018 FRAME_FONT (f) = (XFontStruct *) (fontp->font);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10019 FRAME_BASELINE_OFFSET (f) = fontp->baseline_offset;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10020 FRAME_FONTSET (f) = -1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10021
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10022 /* Compute the scroll bar width in character columns. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10023 if (f->scroll_bar_pixel_width > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10024 {
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10025 int wid = FONT_WIDTH (FRAME_FONT (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10026 f->scroll_bar_cols = (f->scroll_bar_pixel_width + wid-1) / wid;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10027 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10028 else
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10029 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10030 int wid = FONT_WIDTH (FRAME_FONT (f));
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10031 f->scroll_bar_cols = (14 + wid - 1) / wid;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10032 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10033
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10034 /* Now make the frame display the given font. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10035 if (FRAME_W32_WINDOW (f) != 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10036 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10037 frame_update_line_height (f);
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
10038 if (NILP (tip_frame) || XFRAME (tip_frame) != f)
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
10039 x_set_window_size (f, 0, f->width, f->height);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10040 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10041 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10042 /* If we are setting a new frame's font for the first time,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10043 there are no faces yet, so this font's height is the line height. */
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10044 f->output_data.w32->line_height = FONT_HEIGHT (FRAME_FONT (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10045
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10046 return build_string (fontp->full_name);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10047 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10048
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10049 /* Give frame F the fontset named FONTSETNAME as its default font, and
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10050 return the full name of that fontset. FONTSETNAME may be a wildcard
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10051 pattern; in that case, we choose some fontset that fits the pattern.
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10052 The return value shows which fontset we chose. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10053
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10054 Lisp_Object
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10055 x_new_fontset (f, fontsetname)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10056 struct frame *f;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10057 char *fontsetname;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10058 {
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
10059 int fontset = fs_query_fontset (build_string (fontsetname), 0);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10060 Lisp_Object result;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10061
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10062 if (fontset < 0)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10063 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10064
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10065 if (FRAME_FONTSET (f) == fontset)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10066 /* This fontset is already set in frame F. There's nothing more
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10067 to do. */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
10068 return fontset_name (fontset);
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
10069
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
10070 result = x_new_font (f, (XSTRING (fontset_ascii (fontset))->data));
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10071
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10072 if (!STRINGP (result))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10073 /* Can't load ASCII font. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10074 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10075
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10076 /* Since x_new_font doesn't update any fontset information, do it now. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10077 FRAME_FONTSET(f) = fontset;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10078
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10079 return build_string (fontsetname);
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10080 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10081
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10082 /* Compute actual fringe widths */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10083
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10084 void
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10085 x_compute_fringe_widths (f, redraw)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10086 struct frame *f;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10087 int redraw;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10088 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10089 int o_left = f->output_data.w32->left_fringe_width;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10090 int o_right = f->output_data.w32->right_fringe_width;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10091 int o_cols = f->output_data.w32->fringe_cols;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10092
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10093 Lisp_Object left_fringe = Fassq (Qleft_fringe, f->param_alist);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10094 Lisp_Object right_fringe = Fassq (Qright_fringe, f->param_alist);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10095 int left_fringe_width, right_fringe_width;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10096
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10097 if (!NILP (left_fringe))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10098 left_fringe = Fcdr (left_fringe);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10099 if (!NILP (right_fringe))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10100 right_fringe = Fcdr (right_fringe);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10101
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10102 left_fringe_width = ((NILP (left_fringe) || !INTEGERP (left_fringe)) ? 8 :
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10103 XINT (left_fringe));
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10104 right_fringe_width = ((NILP (right_fringe) || !INTEGERP (right_fringe)) ? 8 :
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10105 XINT (right_fringe));
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10106
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10107 if (left_fringe_width || right_fringe_width)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10108 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10109 int left_wid = left_fringe_width >= 0 ? left_fringe_width : -left_fringe_width;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10110 int right_wid = right_fringe_width >= 0 ? right_fringe_width : -right_fringe_width;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10111 int conf_wid = left_wid + right_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10112 int font_wid = FONT_WIDTH (f->output_data.w32->font);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10113 int cols = (left_wid + right_wid + font_wid-1) / font_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10114 int real_wid = cols * font_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10115 if (left_wid && right_wid)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10116 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10117 if (left_fringe_width < 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10118 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10119 /* Left fringe width is fixed, adjust right fringe if necessary */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10120 f->output_data.w32->left_fringe_width = left_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10121 f->output_data.w32->right_fringe_width = real_wid - left_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10122 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10123 else if (right_fringe_width < 0)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10124 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10125 /* Right fringe width is fixed, adjust left fringe if necessary */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10126 f->output_data.w32->left_fringe_width = real_wid - right_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10127 f->output_data.w32->right_fringe_width = right_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10128 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10129 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10130 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10131 /* Adjust both fringes with an equal amount.
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10132 Note that we are doing integer arithmetic here, so don't
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10133 lose a pixel if the total width is an odd number. */
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10134 int fill = real_wid - conf_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10135 f->output_data.w32->left_fringe_width = left_wid + fill/2;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10136 f->output_data.w32->right_fringe_width = right_wid + fill - fill/2;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10137 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10138 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10139 else if (left_fringe_width)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10140 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10141 f->output_data.w32->left_fringe_width = real_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10142 f->output_data.w32->right_fringe_width = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10143 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10144 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10145 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10146 f->output_data.w32->left_fringe_width = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10147 f->output_data.w32->right_fringe_width = real_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10148 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10149 f->output_data.w32->fringe_cols = cols;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10150 f->output_data.w32->fringes_extra = real_wid;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10151 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10152 else
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10153 {
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10154 f->output_data.w32->left_fringe_width = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10155 f->output_data.w32->right_fringe_width = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10156 f->output_data.w32->fringe_cols = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10157 f->output_data.w32->fringes_extra = 0;
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10158 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10159
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10160 if (redraw && FRAME_VISIBLE_P (f))
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10161 if (o_left != f->output_data.w32->left_fringe_width ||
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10162 o_right != f->output_data.w32->right_fringe_width ||
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10163 o_cols != f->output_data.w32->fringe_cols)
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10164 redraw_frame (f);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10165 }
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10166
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10167 /***********************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10168 TODO: W32 Input Methods
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10169 ***********************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10170 /* Listing missing functions from xterm.c helps diff stay in step.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10171
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10172 xim_destroy_callback (xim, client_data, call_data)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10173 xim_open_dpy (dpyinfo, resource_name)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10174 struct xim_inst_t
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10175 xim_instantiate_callback (display, client_data, call_data)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10176 xim_initialize (dpyinfo, resource_name)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10177 xim_close_dpy (dpyinfo)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10178
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10179 */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10180
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10181
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10182 /* Calculate the absolute position in frame F
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10183 from its current recorded position values and gravity. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10184
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
10185 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10186 x_calc_absolute_position (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10187 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10188 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10189 POINT pt;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10190 int flags = f->output_data.w32->size_hint_flags;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10191
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10192 pt.x = pt.y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10193
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10194 /* Find the position of the outside upper-left corner of
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10195 the inner window, with respect to the outer window.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10196 But do this only if we will need the results. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10197 if (f->output_data.w32->parent_desc != FRAME_W32_DISPLAY_INFO (f)->root_window)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10198 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10199 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10200 MapWindowPoints (FRAME_W32_WINDOW (f),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10201 f->output_data.w32->parent_desc,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10202 &pt, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10203 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10204 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10205
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10206 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10207 RECT rt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10208 rt.left = rt.right = rt.top = rt.bottom = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10209
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10210 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10211 AdjustWindowRect(&rt, f->output_data.w32->dwStyle,
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
10212 FRAME_EXTERNAL_MENU_BAR (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10213 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10214
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10215 pt.x += (rt.right - rt.left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10216 pt.y += (rt.bottom - rt.top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10217 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10218
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10219 /* Treat negative positions as relative to the leftmost bottommost
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10220 position that fits on the screen. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10221 if (flags & XNegative)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10222 f->output_data.w32->left_pos = (FRAME_W32_DISPLAY_INFO (f)->width
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10223 - 2 * f->output_data.w32->border_width - pt.x
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10224 - PIXEL_WIDTH (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10225 + f->output_data.w32->left_pos);
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
10226
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10227 if (flags & YNegative)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10228 f->output_data.w32->top_pos = (FRAME_W32_DISPLAY_INFO (f)->height
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10229 - 2 * f->output_data.w32->border_width - pt.y
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10230 - PIXEL_HEIGHT (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10231 + f->output_data.w32->top_pos);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10232 /* The left_pos and top_pos
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10233 are now relative to the top and left screen edges,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10234 so the flags should correspond. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10235 f->output_data.w32->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10236 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10237
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10238 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10239 to really change the position, and 0 when calling from
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10240 x_make_frame_visible (in that case, XOFF and YOFF are the current
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10241 position values). It is -1 when calling from x_set_frame_parameters,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10242 which means, do adjust for borders but don't change the gravity. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10243
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
10244 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10245 x_set_offset (f, xoff, yoff, change_gravity)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10246 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10247 register int xoff, yoff;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10248 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10249 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10250 int modified_top, modified_left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10251
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10252 if (change_gravity > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10253 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10254 f->output_data.w32->top_pos = yoff;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10255 f->output_data.w32->left_pos = xoff;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10256 f->output_data.w32->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10257 if (xoff < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10258 f->output_data.w32->size_hint_flags |= XNegative;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10259 if (yoff < 0)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10260 f->output_data.w32->size_hint_flags |= YNegative;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10261 f->output_data.w32->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10262 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10263 x_calc_absolute_position (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10264
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10265 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10266 x_wm_set_size_hint (f, (long) 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10267
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10268 modified_left = f->output_data.w32->left_pos;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10269 modified_top = f->output_data.w32->top_pos;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10270
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10271 my_set_window_pos (FRAME_W32_WINDOW (f),
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10272 NULL,
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10273 modified_left, modified_top,
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
10274 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10275 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10276 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10277 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10278
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10279
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10280 /* Check if we need to resize the frame due to a fullscreen request.
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10281 If so needed, resize the frame. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10282 static void
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10283 x_check_fullscreen (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10284 struct frame *f;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10285 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10286 if (f->output_data.w32->want_fullscreen & FULLSCREEN_BOTH)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10287 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10288 int width, height, ign;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10289
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10290 x_real_positions (f, &f->output_data.w32->left_pos,
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10291 &f->output_data.w32->top_pos);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10292
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10293 x_fullscreen_adjust (f, &width, &height, &ign, &ign);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10294
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10295 /* We do not need to move the window, it shall be taken care of
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10296 when setting WM manager hints.
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10297 If the frame is visible already, the position is checked by
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10298 x_check_fullscreen_move. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10299 if (f->width != width || f->height != height)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10300 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10301 change_frame_size (f, height, width, 0, 1, 0);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10302 SET_FRAME_GARBAGED (f);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10303 cancel_mouse_face (f);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10304
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10305 /* Wait for the change of frame size to occur */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10306 f->output_data.w32->want_fullscreen |= FULLSCREEN_WAIT;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10307 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10308 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10309 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10310
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10311 /* If frame parameters are set after the frame is mapped, we need to move
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10312 the window. This is done in xfns.c.
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10313 Some window managers moves the window to the right position, some
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10314 moves the outer window manager window to the specified position.
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10315 Here we check that we are in the right spot. If not, make a second
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10316 move, assuming we are dealing with the second kind of window manager. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10317 static void
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10318 x_check_fullscreen_move (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10319 struct frame *f;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10320 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10321 if (f->output_data.w32->want_fullscreen & FULLSCREEN_MOVE_WAIT)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10322 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10323 int expect_top = f->output_data.w32->top_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10324 int expect_left = f->output_data.w32->left_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10325
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10326 if (f->output_data.w32->want_fullscreen & FULLSCREEN_HEIGHT)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10327 expect_top = 0;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10328 if (f->output_data.w32->want_fullscreen & FULLSCREEN_WIDTH)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10329 expect_left = 0;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10330
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10331 if (expect_top != f->output_data.w32->top_pos
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10332 || expect_left != f->output_data.w32->left_pos)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10333 x_set_offset (f, expect_left, expect_top, 1);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10334
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10335 /* Just do this once */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10336 f->output_data.w32->want_fullscreen &= ~FULLSCREEN_MOVE_WAIT;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10337 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10338 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10339
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10340
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10341 /* Calculate fullscreen size. Return in *TOP_POS and *LEFT_POS the
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10342 wanted positions of the WM window (not emacs window).
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10343 Return in *WIDTH and *HEIGHT the wanted width and height of Emacs
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10344 window (FRAME_X_WINDOW).
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10345 */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10346 void
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10347 x_fullscreen_adjust (f, width, height, top_pos, left_pos)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10348 struct frame *f;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10349 int *width;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10350 int *height;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10351 int *top_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10352 int *left_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10353 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10354 int newwidth = f->width, newheight = f->height;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10355
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10356 *top_pos = f->output_data.w32->top_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10357 *left_pos = f->output_data.w32->left_pos;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10358
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10359 if (f->output_data.w32->want_fullscreen & FULLSCREEN_HEIGHT)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10360 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10361 int ph;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10362
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10363 ph = FRAME_X_DISPLAY_INFO (f)->height;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10364 newheight = PIXEL_TO_CHAR_HEIGHT (f, ph);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10365 ph = CHAR_TO_PIXEL_HEIGHT (f, newheight)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10366 - f->output_data.w32->y_pixels_diff;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10367 newheight = PIXEL_TO_CHAR_HEIGHT (f, ph);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10368 *top_pos = 0;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10369 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10370
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10371 if (f->output_data.w32->want_fullscreen & FULLSCREEN_WIDTH)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10372 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10373 int pw;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10374
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10375 pw = FRAME_X_DISPLAY_INFO (f)->width;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10376 newwidth = PIXEL_TO_CHAR_WIDTH (f, pw);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10377 pw = CHAR_TO_PIXEL_WIDTH (f, newwidth)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10378 - f->output_data.w32->x_pixels_diff;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10379 newwidth = PIXEL_TO_CHAR_WIDTH (f, pw);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10380 *left_pos = 0;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10381 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10382
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10383 *width = newwidth;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10384 *height = newheight;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10385 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10386
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
10387
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10388 /* Call this to change the size of frame F's x-window.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10389 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10390 for this size change and subsequent size changes.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10391 Otherwise we leave the window gravity unchanged. */
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10392
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10393 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10394 x_set_window_size (f, change_gravity, cols, rows)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10395 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10396 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10397 int cols, rows;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10398 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10399 int pixelwidth, pixelheight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10400
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10401 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10402
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10403 check_frame_size (f, &rows, &cols);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10404 f->output_data.w32->vertical_scroll_bar_extra
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10405 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10406 ? 0
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10407 : (FRAME_SCROLL_BAR_COLS (f) * FONT_WIDTH (f->output_data.w32->font)));
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10408
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10409 x_compute_fringe_widths (f, 0);
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
10410
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10411 pixelwidth = CHAR_TO_PIXEL_WIDTH (f, cols);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10412 pixelheight = CHAR_TO_PIXEL_HEIGHT (f, rows);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10413
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10414 f->output_data.w32->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10415 x_wm_set_size_hint (f, (long) 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10416
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10417 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10418 RECT rect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10419
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10420 rect.left = rect.top = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10421 rect.right = pixelwidth;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10422 rect.bottom = pixelheight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10423
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10424 AdjustWindowRect(&rect, f->output_data.w32->dwStyle,
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
10425 FRAME_EXTERNAL_MENU_BAR (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10426
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10427 my_set_window_pos (FRAME_W32_WINDOW (f),
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10428 NULL,
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10429 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10430 rect.right - rect.left,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10431 rect.bottom - rect.top,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10432 SWP_NOZORDER | SWP_NOMOVE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10433 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10435 /* Now, strictly speaking, we can't be sure that this is accurate,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10436 but the window manager will get around to dealing with the size
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10437 change request eventually, and we'll hear how it went when the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10438 ConfigureNotify event gets here.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10439
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10440 We could just not bother storing any of this information here,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10441 and let the ConfigureNotify event set everything up, but that
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10442 might be kind of confusing to the Lisp code, since size changes
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10443 wouldn't be reported in the frame parameters until some random
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10444 point in the future when the ConfigureNotify event arrives.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10445
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10446 We pass 1 for DELAY since we can't run Lisp code inside of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10447 a BLOCK_INPUT. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10448 change_frame_size (f, rows, cols, 0, 1, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10449 PIXEL_WIDTH (f) = pixelwidth;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10450 PIXEL_HEIGHT (f) = pixelheight;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10451
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10452 /* We've set {FRAME,PIXEL}_{WIDTH,HEIGHT} to the values we hope to
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10453 receive in the ConfigureNotify event; if we get what we asked
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10454 for, then the event won't cause the screen to become garbaged, so
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10455 we have to make sure to do it here. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10456 SET_FRAME_GARBAGED (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10457
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10458 /* If cursor was outside the new size, mark it as off. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10459 mark_window_cursors_off (XWINDOW (f->root_window));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10460
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10461 /* Clear out any recollection of where the mouse highlighting was,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10462 since it might be in a place that's outside the new frame size.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10463 Actually checking whether it is outside is a pain in the neck,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10464 so don't try--just let the highlighting be done afresh with new size. */
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
10465 cancel_mouse_face (f);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
10466
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10467 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10468 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10469
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10470 /* Mouse warping. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10471
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10472 void x_set_mouse_pixel_position (struct frame *f, int pix_x, int pix_y);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10473
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10474 void
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10475 x_set_mouse_position (f, x, y)
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10476 struct frame *f;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10477 int x, y;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10478 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10479 int pix_x, pix_y;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10480
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10481 pix_x = CHAR_TO_PIXEL_COL (f, x) + FONT_WIDTH (f->output_data.w32->font) / 2;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10482 pix_y = CHAR_TO_PIXEL_ROW (f, y) + f->output_data.w32->line_height / 2;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10483
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10484 if (pix_x < 0) pix_x = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10485 if (pix_x > PIXEL_WIDTH (f)) pix_x = PIXEL_WIDTH (f);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10486
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10487 if (pix_y < 0) pix_y = 0;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10488 if (pix_y > PIXEL_HEIGHT (f)) pix_y = PIXEL_HEIGHT (f);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10489
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10490 x_set_mouse_pixel_position (f, pix_x, pix_y);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10491 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10492
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10493 void
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10494 x_set_mouse_pixel_position (f, pix_x, pix_y)
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10495 struct frame *f;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10496 int pix_x, pix_y;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10497 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10498 RECT rect;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10499 POINT pt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10500
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10501 BLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10502
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10503 GetClientRect (FRAME_W32_WINDOW (f), &rect);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10504 pt.x = rect.left + pix_x;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10505 pt.y = rect.top + pix_y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10506 ClientToScreen (FRAME_W32_WINDOW (f), &pt);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10507
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10508 SetCursorPos (pt.x, pt.y);
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10509
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10510 UNBLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10511 }
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
10512
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10513
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10514 /* focus shifting, raising and lowering. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10515
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10516 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10517 x_focus_on_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10518 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10519 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10520 struct w32_display_info *dpyinfo = &one_w32_display_info;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10521
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10522 /* Give input focus to frame. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10523 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10524 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10525 /* Try not to change its Z-order if possible. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10526 if (x_window_to_frame (dpyinfo, GetForegroundWindow ()))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10527 my_set_focus (f, FRAME_W32_WINDOW (f));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10528 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10529 #endif
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
10530 my_set_foreground_window (FRAME_W32_WINDOW (f));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10531 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10532 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10533
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10534 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10535 x_unfocus_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10536 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10537 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10538 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10539
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10540 /* Raise frame F. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10541 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10542 x_raise_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10543 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10544 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10545 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10546
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10547 /* Strictly speaking, raise-frame should only change the frame's Z
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10548 order, leaving input focus unchanged. This is reasonable behaviour
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10549 on X where the usual policy is point-to-focus. However, this
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10550 behaviour would be very odd on Windows where the usual policy is
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10551 click-to-focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10552
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10553 On X, if the mouse happens to be over the raised frame, it gets
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10554 input focus anyway (so the window with focus will never be
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10555 completely obscured) - if not, then just moving the mouse over it
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10556 is sufficient to give it focus. On Windows, the user must actually
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10557 click on the frame (preferrably the title bar so as not to move
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10558 point), which is more awkward. Also, no other Windows program
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10559 raises a window to the top but leaves another window (possibly now
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10560 completely obscured) with input focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10561
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10562 Because there is a system setting on Windows that allows the user
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10563 to choose the point to focus policy, we make the strict semantics
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10564 optional, but by default we grab focus when raising. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10565
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10566 if (NILP (Vw32_grab_focus_on_raise))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10567 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10568 /* The obvious call to my_set_window_pos doesn't work if Emacs is
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10569 not already the foreground application: the frame is raised
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10570 above all other frames belonging to us, but not above the
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10571 current top window. To achieve that, we have to resort to this
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10572 more cumbersome method. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10573
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10574 HDWP handle = BeginDeferWindowPos (2);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10575 if (handle)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10576 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10577 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10578 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10579 HWND_TOP,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10580 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10581 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10582
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10583 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10584 GetForegroundWindow (),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10585 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10586 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10587 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10588
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10589 EndDeferWindowPos (handle);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10590 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10591 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10592 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10593 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
10594 my_set_foreground_window (FRAME_W32_WINDOW (f));
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10595 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10596
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10597 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10598 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10599
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10600 /* Lower frame F. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10601 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10602 x_lower_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10603 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10604 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10605 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10606 my_set_window_pos (FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10607 HWND_BOTTOM,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10608 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10609 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10610 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10611 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10612
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10613 static void
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10614 w32_frame_raise_lower (f, raise_flag)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10615 FRAME_PTR f;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10616 int raise_flag;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10617 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
10618 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
10619 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
10620
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10621 if (raise_flag)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10622 x_raise_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10623 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10624 x_lower_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10625 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10626
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10627 /* Change of visibility. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10628
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10629 /* This tries to wait until the frame is really visible.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10630 However, if the window manager asks the user where to position
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10631 the frame, this will return before the user finishes doing that.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10632 The frame will not actually be visible at that time,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10633 but it will become visible later when the window manager
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10634 finishes with it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10635
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
10636 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10637 x_make_frame_visible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10638 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10639 {
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10640 Lisp_Object type;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10641
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10642 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10643
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10644 type = x_icon_type (f);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10645 if (!NILP (type))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10646 x_bitmap_icon (f, type);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10647
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10648 if (! FRAME_VISIBLE_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10649 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10650 /* We test FRAME_GARBAGED_P here to make sure we don't
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10651 call x_set_offset a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10652 if we get to x_make_frame_visible a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10653 before the window gets really visible. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10654 if (! FRAME_ICONIFIED_P (f)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10655 && ! f->output_data.w32->asked_for_visible)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10656 x_set_offset (f, f->output_data.w32->left_pos, f->output_data.w32->top_pos, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10657
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10658 f->output_data.w32->asked_for_visible = 1;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10659
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
10660 /* my_show_window (f, FRAME_W32_WINDOW (f), f->async_iconified ? SW_RESTORE : SW_SHOW); */
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10661 my_show_window (f, FRAME_W32_WINDOW (f), SW_SHOWNORMAL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10662 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10663
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10664 /* Synchronize to ensure Emacs knows the frame is visible
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10665 before we do anything else. We do this loop with input not blocked
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10666 so that incoming events are handled. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10667 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10668 Lisp_Object frame;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10669 int count;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10670
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10671 /* This must come after we set COUNT. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10672 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10673
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10674 XSETFRAME (frame, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10675
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10676 /* Wait until the frame is visible. Process X events until a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10677 MapNotify event has been seen, or until we think we won't get a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10678 MapNotify at all.. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10679 for (count = input_signal_count + 10;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10680 input_signal_count < count && !FRAME_VISIBLE_P (f);)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10681 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10682 /* Force processing of queued events. */
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
10683 /* TODO: x_sync equivalent? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10684
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10685 /* Machines that do polling rather than SIGIO have been observed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10686 to go into a busy-wait here. So we'll fake an alarm signal
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10687 to let the handler know that there's something to be read.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10688 We used to raise a real alarm, but it seems that the handler
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10689 isn't always enabled here. This is probably a bug. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10690 if (input_polling_used ())
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10691 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10692 /* It could be confusing if a real alarm arrives while processing
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10693 the fake one. Turn it off and let the handler reset it. */
27631
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
10694 int old_poll_suppress_count = poll_suppress_count;
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
10695 poll_suppress_count = 1;
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
10696 poll_for_input_1 ();
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
10697 poll_suppress_count = old_poll_suppress_count;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10698 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10699 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10700 FRAME_SAMPLE_VISIBILITY (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10701 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10702 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10703
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10704 /* Change from mapped state to withdrawn state. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10705
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10706 /* Make the frame visible (mapped and not iconified). */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10707
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10708 x_make_frame_invisible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10709 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10710 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10711 /* Don't keep the highlight on an invisible frame. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10712 if (FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame == f)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10713 FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10714
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10715 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10716
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10717 my_show_window (f, FRAME_W32_WINDOW (f), SW_HIDE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10718
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10719 /* We can't distinguish this from iconification
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10720 just by the event that we get from the server.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10721 So we can't win using the usual strategy of letting
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10722 FRAME_SAMPLE_VISIBILITY set this. So do it by hand,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10723 and synchronize with the server to make sure we agree. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10724 f->visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10725 FRAME_ICONIFIED_P (f) = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10726 f->async_visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10727 f->async_iconified = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10728
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10729 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10730 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10731
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10732 /* Change window state from mapped to iconified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10733
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10734 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
10735 x_iconify_frame (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10736 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10737 {
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10738 Lisp_Object type;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10739
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10740 /* Don't keep the highlight on an invisible frame. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10741 if (FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame == f)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10742 FRAME_W32_DISPLAY_INFO (f)->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10743
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10744 if (f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10745 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10746
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10747 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10748
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10749 type = x_icon_type (f);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10750 if (!NILP (type))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10751 x_bitmap_icon (f, type);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
10752
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10753 /* Simulate the user minimizing the frame. */
23951
ef1cba882819 (x_iconify_frame): Wait for frame to be iconified; do
Andrew Innes <andrewi@gnu.org>
parents: 23806
diff changeset
10754 SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_MINIMIZE, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10755
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10756 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10757 }
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10758
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10759
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10760 /* Free X resources of frame F. */
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10761
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10762 void
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10763 x_free_frame_resources (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10764 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10765 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10766 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10767
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10768 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10769
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10770 if (FRAME_W32_WINDOW (f))
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10771 my_destroy_window (f, FRAME_W32_WINDOW (f));
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10772
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10773 free_frame_menubar (f);
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10774
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10775 unload_color (f, f->output_data.x->foreground_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10776 unload_color (f, f->output_data.x->background_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10777 unload_color (f, f->output_data.w32->cursor_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10778 unload_color (f, f->output_data.w32->cursor_foreground_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10779 unload_color (f, f->output_data.w32->border_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10780 unload_color (f, f->output_data.w32->mouse_pixel);
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10781 if (f->output_data.w32->white_relief.allocated_p)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10782 unload_color (f, f->output_data.w32->white_relief.pixel);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10783 if (f->output_data.w32->black_relief.allocated_p)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10784 unload_color (f, f->output_data.w32->black_relief.pixel);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10785
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10786 if (FRAME_FACE_CACHE (f))
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10787 free_frame_faces (f);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10788
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10789 xfree (f->output_data.w32);
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10790 f->output_data.w32 = NULL;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10791
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10792 if (f == dpyinfo->w32_focus_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10793 dpyinfo->w32_focus_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10794 if (f == dpyinfo->w32_focus_event_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10795 dpyinfo->w32_focus_event_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10796 if (f == dpyinfo->w32_highlight_frame)
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10797 dpyinfo->w32_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10798
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10799 if (f == dpyinfo->mouse_face_mouse_frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10800 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10801 dpyinfo->mouse_face_beg_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10802 = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10803 dpyinfo->mouse_face_end_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10804 = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10805 dpyinfo->mouse_face_window = Qnil;
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10806 dpyinfo->mouse_face_deferred_gc = 0;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10807 dpyinfo->mouse_face_mouse_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10808 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10809
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10810 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10811 }
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10812
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10813
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10814 /* Destroy the window of frame F. */
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10815
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10816 x_destroy_window (f)
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10817 struct frame *f;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10818 {
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10819 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10820
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10821 x_free_frame_resources (f);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10822
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10823 dpyinfo->reference_count--;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
10824 }
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10825
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10826
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10827 /* Setting window manager hints. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10828
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10829 /* Set the normal size hints for the window manager, for frame F.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10830 FLAGS is the flags word to use--or 0 meaning preserve the flags
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10831 that the window now has.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10832 If USER_POSITION is nonzero, we set the USPosition
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10833 flag (this is useful when FLAGS is 0). */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10834 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10835 x_wm_set_size_hint (f, flags, user_position)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10836 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10837 long flags;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10838 int user_position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10839 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10840 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10841
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
10842 enter_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10843
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10844 SetWindowLong (window, WND_FONTWIDTH_INDEX, FONT_WIDTH (f->output_data.w32->font));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10845 SetWindowLong (window, WND_LINEHEIGHT_INDEX, f->output_data.w32->line_height);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10846 SetWindowLong (window, WND_BORDER_INDEX, f->output_data.w32->internal_border_width);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
10847 SetWindowLong (window, WND_SCROLLBAR_INDEX, f->output_data.w32->vertical_scroll_bar_extra);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10848
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
10849 leave_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10850 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10851
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10852 /* Window manager things */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10853 x_wm_set_icon_position (f, icon_x, icon_y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10854 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10855 int icon_x, icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10856 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10857 #if 0
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10858 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10859
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10860 f->display.x->wm_hints.flags |= IconPositionHint;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10861 f->display.x->wm_hints.icon_x = icon_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10862 f->display.x->wm_hints.icon_y = icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10863
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10864 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->display.x->wm_hints);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10865 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10866 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10867
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10868
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10869 /***********************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10870 Fonts
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10871 ***********************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10872
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10873 /* The following functions are listed here to help diff stay in step
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10874 with xterm.c. See w32fns.c for definitions.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10875
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10876 x_get_font_info (f, font_idx)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10877 x_list_fonts (f, pattern, size, maxnames)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10878
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10879 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10880
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10881 #if GLYPH_DEBUG
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10882
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10883 /* Check that FONT is valid on frame F. It is if it can be found in F's
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10884 font table. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10885
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10886 static void
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10887 x_check_font (f, font)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10888 struct frame *f;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10889 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10890 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10891 int i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10892 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10893
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10894 xassert (font != NULL);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10895
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10896 for (i = 0; i < dpyinfo->n_fonts; i++)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10897 if (dpyinfo->font_table[i].name
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10898 && font == dpyinfo->font_table[i].font)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10899 break;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10900
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10901 xassert (i < dpyinfo->n_fonts);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10902 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10903
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10904 #endif /* GLYPH_DEBUG != 0 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10905
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10906 /* Set *W to the minimum width, *H to the minimum font height of FONT.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10907 Note: There are (broken) X fonts out there with invalid XFontStruct
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10908 min_bounds contents. For example, handa@etl.go.jp reports that
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10909 "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1" fonts
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10910 have font->min_bounds.width == 0. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10911
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10912 static INLINE void
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10913 x_font_min_bounds (font, w, h)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10914 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10915 int *w, *h;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10916 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10917 /*
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10918 * TODO: Windows does not appear to offer min bound, only
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10919 * average and maximum width, and maximum height.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10920 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10921 *h = FONT_HEIGHT (font);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10922 *w = FONT_WIDTH (font);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10923 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10924
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10925
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10926 /* Compute the smallest character width and smallest font height over
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10927 all fonts available on frame F. Set the members smallest_char_width
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10928 and smallest_font_height in F's x_display_info structure to
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10929 the values computed. Value is non-zero if smallest_font_height or
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10930 smallest_char_width become smaller than they were before. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10931
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10932 int
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10933 x_compute_min_glyph_bounds (f)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10934 struct frame *f;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10935 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10936 int i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10937 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10938 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10939 int old_width = dpyinfo->smallest_char_width;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10940 int old_height = dpyinfo->smallest_font_height;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10941
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10942 dpyinfo->smallest_font_height = 100000;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10943 dpyinfo->smallest_char_width = 100000;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10944
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10945 for (i = 0; i < dpyinfo->n_fonts; ++i)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10946 if (dpyinfo->font_table[i].name)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10947 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10948 struct font_info *fontp = dpyinfo->font_table + i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10949 int w, h;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10950
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10951 font = (XFontStruct *) fontp->font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10952 xassert (font != (XFontStruct *) ~0);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10953 x_font_min_bounds (font, &w, &h);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10954
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10955 dpyinfo->smallest_font_height = min (dpyinfo->smallest_font_height, h);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10956 dpyinfo->smallest_char_width = min (dpyinfo->smallest_char_width, w);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10957 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10958
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10959 xassert (dpyinfo->smallest_char_width > 0
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10960 && dpyinfo->smallest_font_height > 0);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10961
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10962 return (dpyinfo->n_fonts == 1
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10963 || dpyinfo->smallest_char_width < old_width
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10964 || dpyinfo->smallest_font_height < old_height);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10965 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10966
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10967 /* The following functions are listed here to help diff stay in step
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10968 with xterm.c. See w32fns.c for definitions.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10969
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10970 x_load_font (f, fontname, size)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10971 x_query_font (f, fontname)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10972 x_find_ccl_program (fontp)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10973
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
10974 */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10975
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10976 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10977 Initialization
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
10978 ***********************************************************************/
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10979
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10980 static int w32_initialized = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
10981
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10982 void
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10983 w32_initialize_display_info (display_name)
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10984 Lisp_Object display_name;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10985 {
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10986 struct w32_display_info *dpyinfo = &one_w32_display_info;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10987
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10988 bzero (dpyinfo, sizeof (*dpyinfo));
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10989
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10990 /* Put it on w32_display_name_list. */
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10991 w32_display_name_list = Fcons (Fcons (display_name, Qnil),
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10992 w32_display_name_list);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10993 dpyinfo->name_list_element = XCAR (w32_display_name_list);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10994
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10995 dpyinfo->w32_id_name
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10996 = (char *) xmalloc (XSTRING (Vinvocation_name)->size
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10997 + XSTRING (Vsystem_name)->size
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10998 + 2);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
10999 sprintf (dpyinfo->w32_id_name, "%s@%s",
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11000 XSTRING (Vinvocation_name)->data, XSTRING (Vsystem_name)->data);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11001
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11002 /* Default Console mode values - overridden when running in GUI mode
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11003 with values obtained from system metrics. */
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11004 dpyinfo->resx = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11005 dpyinfo->resy = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11006 dpyinfo->height_in = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11007 dpyinfo->width_in = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11008 dpyinfo->n_planes = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11009 dpyinfo->n_cbits = 4;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11010 dpyinfo->n_fonts = 0;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11011 dpyinfo->smallest_font_height = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11012 dpyinfo->smallest_char_width = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11013
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11014 dpyinfo->mouse_face_beg_row = dpyinfo->mouse_face_beg_col = -1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11015 dpyinfo->mouse_face_end_row = dpyinfo->mouse_face_end_col = -1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11016 dpyinfo->mouse_face_face_id = DEFAULT_FACE_ID;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11017 dpyinfo->mouse_face_window = Qnil;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11018 dpyinfo->mouse_face_overlay = Qnil;
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
11019 dpyinfo->mouse_face_hidden = 0;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
11020 /* TODO: dpyinfo->gray */
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11021
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11022 }
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11023
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11024 struct w32_display_info *
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11025 w32_term_init (display_name, xrm_option, resource_name)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11026 Lisp_Object display_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11027 char *xrm_option;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11028 char *resource_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11029 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11030 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11031 HDC hdc;
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
11032
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11033 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11034
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11035 if (!w32_initialized)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11036 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11037 w32_initialize ();
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11038 w32_initialized = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11039 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11040
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11041 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11042 int argc = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11043 char *argv[3];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11044
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11045 argv[0] = "";
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11046 argc = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11047 if (xrm_option)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11048 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11049 argv[argc++] = "-xrm";
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11050 argv[argc++] = xrm_option;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11051 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11052 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11053
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11054 w32_initialize_display_info (display_name);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11055
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11056 dpyinfo = &one_w32_display_info;
38570
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
11057
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
11058 /* Put this display on the chain. */
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
11059 dpyinfo->next = x_display_list;
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
11060 x_display_list = dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11061
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11062 hdc = GetDC (GetDesktopWindow ());
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11063
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11064 dpyinfo->height = GetDeviceCaps (hdc, VERTRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11065 dpyinfo->width = GetDeviceCaps (hdc, HORZRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11066 dpyinfo->root_window = GetDesktopWindow ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11067 dpyinfo->n_planes = GetDeviceCaps (hdc, PLANES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11068 dpyinfo->n_cbits = GetDeviceCaps (hdc, BITSPIXEL);
27514
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11069 dpyinfo->resx = GetDeviceCaps (hdc, LOGPIXELSX);
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11070 dpyinfo->resy = GetDeviceCaps (hdc, LOGPIXELSY);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11071 dpyinfo->has_palette = GetDeviceCaps (hdc, RASTERCAPS) & RC_PALETTE;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11072 dpyinfo->image_cache = make_image_cache ();
27514
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11073 dpyinfo->height_in = dpyinfo->height / dpyinfo->resx;
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11074 dpyinfo->width_in = dpyinfo->width / dpyinfo->resy;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11075 ReleaseDC (GetDesktopWindow (), hdc);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11076
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11077 /* initialise palette with white and black */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11078 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11079 COLORREF color;
27514
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11080 w32_defined_color (0, "white", &color, 1);
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
11081 w32_defined_color (0, "black", &color, 1);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11082 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11083
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11084 /* Create Row Bitmaps and store them for later use. */
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11085 left_bmp = CreateBitmap (left_width, left_height, 1, 1, left_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11086 ov_bmp = CreateBitmap (ov_width, ov_height, 1, 1, ov_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11087 right_bmp = CreateBitmap (right_width, right_height, 1, 1, right_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11088 continued_bmp = CreateBitmap (continued_width, continued_height, 1,
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11089 1, continued_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11090 continuation_bmp = CreateBitmap (continuation_width, continuation_height,
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11091 1, 1, continuation_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11092 zv_bmp = CreateBitmap (zv_width, zv_height, 1, 1, zv_bits);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11093
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11094 #ifndef F_SETOWN_BUG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11095 #ifdef F_SETOWN
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11096 #ifdef F_SETOWN_SOCK_NEG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11097 /* stdin is a socket here */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11098 fcntl (connection, F_SETOWN, -getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11099 #else /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11100 fcntl (connection, F_SETOWN, getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11101 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11102 #endif /* ! defined (F_SETOWN) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11103 #endif /* F_SETOWN_BUG */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11104
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11105 #ifdef SIGIO
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11106 if (interrupt_input)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11107 init_sigio (connection);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11108 #endif /* ! defined (SIGIO) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11109
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11110 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11111
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11112 return dpyinfo;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11113 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11114
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11115 /* Get rid of display DPYINFO, assuming all frames are already gone. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11116
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11117 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11118 x_delete_display (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11119 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11120 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11121 /* Discard this display from w32_display_name_list and w32_display_list.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11122 We can't use Fdelq because that can quit. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11123 if (! NILP (w32_display_name_list)
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
11124 && EQ (XCAR (w32_display_name_list), dpyinfo->name_list_element))
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
11125 w32_display_name_list = XCDR (w32_display_name_list);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11126 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11127 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11128 Lisp_Object tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11129
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11130 tail = w32_display_name_list;
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
11131 while (CONSP (tail) && CONSP (XCDR (tail)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11132 {
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11133 if (EQ (XCAR (XCDR (tail)), dpyinfo->name_list_element))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11134 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39697
diff changeset
11135 XSETCDR (tail, XCDR (XCDR (tail)));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11136 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11137 }
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
11138 tail = XCDR (tail);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11139 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11140 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11141
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11142 /* free palette table */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11143 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11144 struct w32_palette_entry * plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11145
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11146 plist = dpyinfo->color_list;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11147 while (plist)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11148 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11149 struct w32_palette_entry * pentry = plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11150 plist = plist->next;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
11151 xfree (pentry);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11152 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11153 dpyinfo->color_list = NULL;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11154 if (dpyinfo->palette)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11155 DeleteObject(dpyinfo->palette);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11156 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11157 xfree (dpyinfo->font_table);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11158 xfree (dpyinfo->w32_id_name);
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11159
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11160 /* Destroy row bitmaps. */
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11161 DeleteObject (left_bmp);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11162 DeleteObject (ov_bmp);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11163 DeleteObject (right_bmp);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11164 DeleteObject (continued_bmp);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11165 DeleteObject (continuation_bmp);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
11166 DeleteObject (zv_bmp);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11167 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11168
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11169 /* Set up use of W32. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11170
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11171 DWORD w32_msg_worker ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11172
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11173 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11174 x_flush (struct frame * f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11175 { /* Nothing to do */ }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11176
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11177 static struct redisplay_interface w32_redisplay_interface =
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11178 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11179 x_produce_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11180 x_write_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11181 x_insert_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11182 x_clear_end_of_line,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11183 x_scroll_run,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11184 x_after_update_window_line,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11185 x_update_window_begin,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11186 x_update_window_end,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11187 w32_cursor_to,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11188 x_flush,
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
11189 x_clear_mouse_face,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11190 x_get_glyph_overhangs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11191 x_fix_overlapping_area
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11192 };
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11193
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11194 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11195 w32_initialize ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11196 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11197 rif = &w32_redisplay_interface;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11198
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
11199 /* MSVC does not type K&R functions with no arguments correctly, and
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
11200 so we must explicitly cast them. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11201 clear_frame_hook = (void (*)(void)) x_clear_frame;
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
11202 ring_bell_hook = (void (*)(void)) w32_ring_bell;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11203 update_begin_hook = x_update_begin;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11204 update_end_hook = x_update_end;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
11205
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11206 read_socket_hook = w32_read_socket;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
11207
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11208 frame_up_to_date_hook = w32_frame_up_to_date;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
11209
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11210 mouse_position_hook = w32_mouse_position;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11211 frame_rehighlight_hook = w32_frame_rehighlight;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11212 frame_raise_lower_hook = w32_frame_raise_lower;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11213 set_vertical_scroll_bar_hook = w32_set_vertical_scroll_bar;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11214 condemn_scroll_bars_hook = w32_condemn_scroll_bars;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11215 redeem_scroll_bar_hook = w32_redeem_scroll_bar;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11216 judge_scroll_bars_hook = w32_judge_scroll_bars;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11217 estimate_mode_line_height_hook = x_estimate_mode_line_height;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11218
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11219 scroll_region_ok = 1; /* we'll scroll partial frames */
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
11220 char_ins_del_ok = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11221 line_ins_del_ok = 1; /* we'll just blt 'em */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11222 fast_clear_end_of_line = 1; /* X does this well */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11223 memory_below_frame = 0; /* we don't remember what scrolls
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11224 off the bottom */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11225 baud_rate = 19200;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11226
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
11227 w32_system_caret_hwnd = NULL;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
11228 w32_system_caret_height = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
11229 w32_system_caret_x = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
11230 w32_system_caret_y = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
11231
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11232 last_tool_bar_item = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11233 any_help_event_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11234
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11235 /* Initialize input mode: interrupt_input off, no flow control, allow
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11236 8 bit character input, standard quit char. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11237 Fset_input_mode (Qnil, Qnil, make_number (2), Qnil);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11238
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11239 /* Create the window thread - it will terminate itself or when the app terminates */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11240
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11241 init_crit ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11242
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11243 dwMainThreadId = GetCurrentThreadId ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11244 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11245 GetCurrentProcess (), &hMainThread, 0, TRUE, DUPLICATE_SAME_ACCESS);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11246
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11247 /* Wait for thread to start */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11248
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11249 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11250 MSG msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11251
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11252 PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11253
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
11254 hWindowsThread = CreateThread (NULL, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11255 (LPTHREAD_START_ROUTINE) w32_msg_worker,
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
11256 0, 0, &dwWindowsThreadId);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11257
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11258 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11259 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11260
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11261 /* It is desirable that mainThread should have the same notion of
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
11262 focus window and active window as windowsThread. Unfortunately, the
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11263 following call to AttachThreadInput, which should do precisely what
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11264 we need, causes major problems when Emacs is linked as a console
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11265 program. Unfortunately, we have good reasons for doing that, so
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
11266 instead we need to send messages to windowsThread to make some API
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11267 calls for us (ones that affect, or depend on, the active/focus
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11268 window state. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11269 #ifdef ATTACH_THREADS
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
11270 AttachThreadInput (dwMainThreadId, dwWindowsThreadId, TRUE);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11271 #endif
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11272
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11273 /* Dynamically link to optional system components. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11274 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11275 HANDLE user_lib = LoadLibrary ("user32.dll");
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11276
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11277 #define LOAD_PROC(fn) pfn##fn = (void *) GetProcAddress (user_lib, #fn)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11278
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11279 /* New proportional scroll bar functions. */
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
11280 LOAD_PROC (SetScrollInfo);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
11281 LOAD_PROC (GetScrollInfo);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11282
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11283 #undef LOAD_PROC
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11284
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11285 FreeLibrary (user_lib);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11286
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11287 /* If using proportional scroll bars, ensure handle is at least 5 pixels;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11288 otherwise use the fixed height. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11289 vertical_scroll_bar_min_handle = (pfnSetScrollInfo != NULL) ? 5 :
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11290 GetSystemMetrics (SM_CYVTHUMB);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11291
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11292 /* For either kind of scroll bar, take account of the arrows; these
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11293 effectively form the border of the main scroll bar range. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11294 vertical_scroll_bar_top_border = vertical_scroll_bar_bottom_border
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11295 = GetSystemMetrics (SM_CYVSCROLL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11296 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11297 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11298
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11299 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11300 syms_of_w32term ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11301 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11302 staticpro (&w32_display_name_list);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11303 w32_display_name_list = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11304
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11305 staticpro (&last_mouse_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11306 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11307
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11308 staticpro (&Qvendor_specific_keysyms);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11309 Qvendor_specific_keysyms = intern ("vendor-specific-keysyms");
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
11310
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11311 DEFVAR_INT ("w32-num-mouse-buttons",
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11312 &Vw32_num_mouse_buttons,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11313 doc: /* Number of physical mouse buttons. */);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11314 Vw32_num_mouse_buttons = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11315
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11316 DEFVAR_LISP ("w32-swap-mouse-buttons",
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11317 &Vw32_swap_mouse_buttons,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11318 doc: /* Swap the mapping of middle and right mouse buttons.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11319 When nil, middle button is mouse-2 and right button is mouse-3. */);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
11320 Vw32_swap_mouse_buttons = Qnil;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11321
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11322 DEFVAR_LISP ("w32-grab-focus-on-raise",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11323 &Vw32_grab_focus_on_raise,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11324 doc: /* Raised frame grabs input focus.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11325 When t, `raise-frame' grabs input focus as well. This fits well
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11326 with the normal Windows click-to-focus policy, but might not be
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11327 desirable when using a point-to-focus policy. */);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11328 Vw32_grab_focus_on_raise = Qt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11329
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11330 DEFVAR_LISP ("w32-capslock-is-shiftlock",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11331 &Vw32_capslock_is_shiftlock,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11332 doc: /* Apply CapsLock state to non character input keys.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11333 When nil, CapsLock only affects normal character input keys. */);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
11334 Vw32_capslock_is_shiftlock = Qnil;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
11335
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
11336 DEFVAR_LISP ("w32-recognize-altgr",
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
11337 &Vw32_recognize_altgr,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11338 doc: /* Recognize right-alt and left-ctrl as AltGr.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11339 When nil, the right-alt and left-ctrl key combination is
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11340 interpreted normally. */);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
11341 Vw32_recognize_altgr = Qt;
23638
e6fb9ffee4f4 (dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23510
diff changeset
11342
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
11343 DEFVAR_BOOL ("w32-enable-unicode-output",
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
11344 &w32_enable_unicode_output,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11345 doc: /* Enable the use of Unicode for text output if non-nil.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11346 Unicode output may prevent some third party applications for displaying
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11347 Far-East Languages on Windows 95/98 from working properly.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11348 NT uses Unicode internally anyway, so this flag will probably have no
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11349 affect on NT machines. */);
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
11350 w32_enable_unicode_output = 1;
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
11351
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
11352 help_echo = Qnil;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11353 staticpro (&help_echo);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
11354 help_echo_object = Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
11355 staticpro (&help_echo_object);
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
11356 help_echo_window = Qnil;
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
11357 staticpro (&help_echo_window);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
11358 previous_help_echo = Qnil;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11359 staticpro (&previous_help_echo);
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
11360 help_echo_pos = -1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11361
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
11362 DEFVAR_BOOL ("x-autoselect-window", &x_autoselect_window_p,
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
11363 doc: /* *Non-nil means autoselect window with mouse pointer. */);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
11364 x_autoselect_window_p = 0;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
11365
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11366 DEFVAR_BOOL ("w32-use-visible-system-caret",
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11367 &w32_use_visible_system_caret,
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11368 doc: /* Flag to make the system caret visible.
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11369 When this is non-nil, Emacs will indicate the position of point by
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11370 using the system caret instead of drawing its own cursor. Some screen
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11371 reader software does not track the system cursor properly when it is
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11372 invisible, and gets confused by Emacs drawing its own cursor, so this
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11373 variable is initialized to t when Emacs detects that screen reader
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11374 software is running as it starts up.
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11375
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11376 When this variable is set, other variables affecting the appearance of
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11377 the cursor have no effect. */);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11378
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11379 /* Initialize w32_use_visible_system_caret based on whether a screen
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11380 reader is in use. */
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
11381 if (!SystemParametersInfo (SPI_GETSCREENREADER, 0,
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
11382 &w32_use_visible_system_caret, 0))
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
11383 w32_use_visible_system_caret = 0;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
11384
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11385 DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11386 doc: /* *Non-nil means draw block cursor as wide as the glyph under it.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11387 For example, if a block cursor is over a tab, it will be drawn as
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11388 wide as that tab on the display. */);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11389 x_stretch_cursor_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11390
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11391 #if 0 /* TODO: Setting underline position from font properties. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11392 DEFVAR_BOOL ("x-use-underline-position-properties",
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11393 &x_use_underline_position_properties,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11394 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties.
42206
0f4506820432 Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents: 41731
diff changeset
11395 nil means ignore them. If you encounter fonts with bogus
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11396 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11397 to 4.1, set this to nil. */);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11398 x_use_underline_position_properties = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11399 #endif
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
11400
34869
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
11401 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
11402 doc: /* If not nil, Emacs uses toolkit scroll bars. */);
34869
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
11403 Vx_toolkit_scroll_bars = Qt;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11404
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11405 staticpro (&last_mouse_motion_frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11406 last_mouse_motion_frame = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
11407 }