Mercurial > emacs
annotate src/w32term.c @ 99872:7784aa29294b
(elp-instrument-list): Check argument type explicitly. Doc fix.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 24 Nov 2008 15:09:02 +0000 |
parents | 3ff54631d8b3 |
children | 81a626d61e0e |
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. |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
2 Copyright (C) 1989, 1993, 1994, 1995, 1996, 1997, 1998, |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
79759 | 4 2006, 2007, 2008 Free Software Foundation, Inc. |
13434 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94912
diff
changeset
|
8 GNU Emacs is free software: you can redistribute it and/or modify |
13434 | 9 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94912
diff
changeset
|
10 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94912
diff
changeset
|
11 (at your option) any later version. |
13434 | 12 |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94912
diff
changeset
|
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
13434 | 20 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25646
diff
changeset
|
21 #include <config.h> |
13434 | 22 #include <signal.h> |
23 #include <stdio.h> | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
24 #include <stdlib.h> |
13434 | 25 #include "lisp.h" |
26 #include "blockinput.h" | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
27 #include "w32term.h" |
13434 | 28 |
29 #include "systty.h" | |
30 #include "systime.h" | |
31 | |
32 #include <ctype.h> | |
33 #include <errno.h> | |
34 #include <setjmp.h> | |
35 #include <sys/stat.h> | |
36 | |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
37 #include "charset.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
38 #include "character.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
39 #include "coding.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
40 #include "ccl.h" |
13434 | 41 #include "frame.h" |
42 #include "dispextern.h" | |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
43 #include "fontset.h" |
13434 | 44 #include "termhooks.h" |
45 #include "termopts.h" | |
46 #include "termchar.h" | |
47 #include "disptab.h" | |
48 #include "buffer.h" | |
49 #include "window.h" | |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
50 #include "keyboard.h" |
13434 | 51 #include "intervals.h" |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
52 #include "process.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
53 #include "atimer.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
54 #include "keymap.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
55 |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
56 #include "w32heap.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
57 #include <shellapi.h> |
13434 | 58 |
90834 | 59 #include "font.h" |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
60 #include "w32font.h" |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
61 |
41125 | 62 /* Fringe bitmaps. */ |
63 | |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
64 static int max_fringe_bmp = 0; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
65 static HBITMAP *fringe_bmp = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
66 |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
67 /* 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
|
68 |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
69 Lisp_Object Vx_toolkit_scroll_bars; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
70 |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
71 /* Temporary variables for w32_read_socket. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
72 |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
73 static int last_mousemove_x = 0; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
74 static int last_mousemove_y = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
75 |
51269
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
76 /* Define GET_WHEEL_DELTA_WPARAM macro if system headers don't. */ |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
77 #ifndef GET_WHEEL_DELTA_WPARAM |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
78 #define GET_WHEEL_DELTA_WPARAM(wparam) ((short)HIWORD (wparam)) |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
79 #endif |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
80 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
81 /* 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
|
82 start. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
83 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
84 static int any_help_event_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
85 |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
86 /* Last window where we saw the mouse. Used by mouse-autoselect-window. */ |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
87 static Lisp_Object last_window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
88 |
97065
e4d0521fc1d0
(w32_enable_unicode_output, cleartype_active): Remove
Jason Rumney <jasonr@gnu.org>
parents:
96536
diff
changeset
|
89 /* Non-zero means make use of UNDERLINE_POSITION font properties. */ |
63376
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
90 int x_use_underline_position_properties; |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
91 |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
92 /* Non-zero means to draw the underline at the same place as the descent line. */ |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
93 |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
94 int x_underline_at_descent_line; |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
95 |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
96 extern unsigned int msh_mousewheel; |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
97 |
13434 | 98 extern void free_frame_menubar (); |
99 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
100 extern int w32_codepage_for_font (char *fontname); |
49371
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
101 extern Cursor w32_load_cursor (LPCTSTR name); |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
102 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
103 extern Lisp_Object Vwindow_system; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
104 |
13434 | 105 #define x_any_window_to_frame x_window_to_frame |
106 #define x_top_window_to_frame x_window_to_frame | |
107 | |
108 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
109 /* 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
|
110 struct w32_display_info one_w32_display_info; |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
111 struct w32_display_info *x_display_list; |
13434 | 112 |
113 /* 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
|
114 one for each element of w32_display_list and in the same order. |
13434 | 115 NAME is the name of the frame. |
116 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
|
117 Lisp_Object w32_display_name_list; |
13434 | 118 |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
119 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
120 #ifndef GLYPHSET |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
121 /* Pre Windows 2000, this was not available, but define it here so |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
122 that Emacs compiled on such a platform will run on newer versions. */ |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
123 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
124 typedef struct tagWCRANGE |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
125 { |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
126 WCHAR wcLow; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
127 USHORT cGlyphs; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
128 } WCRANGE; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
129 |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
130 typedef struct tagGLYPHSET |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
131 { |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
132 DWORD cbThis; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
133 DWORD flAccel; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
134 DWORD cGlyphsSupported; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
135 DWORD cRanges; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
136 WCRANGE ranges[1]; |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
137 } GLYPHSET; |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
138 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
139 #endif |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
140 |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
141 /* Dynamic linking to SetLayeredWindowAttribute (only since 2000). */ |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
142 BOOL (PASCAL *pfnSetLayeredWindowAttributes) (HWND, COLORREF, BYTE, DWORD); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
143 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
144 #ifndef LWA_ALPHA |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
145 #define LWA_ALPHA 0x02 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
146 #endif |
96536
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
147 /* WS_EX_LAYERED is defined unconditionally by MingW, but only for W2K and |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
148 later targets by MSVC headers. */ |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
149 #ifndef WS_EX_LAYERED |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
150 #define WS_EX_LAYERED 0x80000 |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
151 #endif |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
152 |
13434 | 153 /* Frame being updated by update_frame. This is declared in term.c. |
154 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
|
155 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
|
156 In that case, the w32 functions assume that `SELECTED_FRAME ()' |
13434 | 157 is the frame to apply to. */ |
158 extern struct frame *updating_frame; | |
159 | |
160 /* This is a frame waiting to be autoraised, within w32_read_socket. */ | |
161 struct frame *pending_autoraise_frame; | |
162 | |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
163 /* 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
|
164 HWND w32_system_caret_hwnd; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
165 int w32_system_caret_height; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
166 int w32_system_caret_x; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
167 int w32_system_caret_y; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
168 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
|
169 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
170 DWORD dwWindowsThreadId = 0; |
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
171 HANDLE hWindowsThread = NULL; |
13434 | 172 DWORD dwMainThreadId = 0; |
173 HANDLE hMainThread = NULL; | |
174 | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
175 int vertical_scroll_bar_min_handle; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
176 int vertical_scroll_bar_top_border; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
177 int vertical_scroll_bar_bottom_border; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
178 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
179 int last_scroll_bar_drag_pos; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
180 |
13434 | 181 /* Mouse movement. */ |
182 | |
183 /* 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
|
184 |
13434 | 185 static RECT last_mouse_glyph; |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
186 static FRAME_PTR last_mouse_glyph_frame; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
187 static Lisp_Object last_mouse_press_frame; |
13434 | 188 |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
189 int w32_num_mouse_buttons; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
190 |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
191 Lisp_Object Vw32_swap_mouse_buttons; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
192 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
193 /* 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
|
194 Lisp_Object Vw32_grab_focus_on_raise; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
195 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
196 /* 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
|
197 Lisp_Object Vw32_capslock_is_shiftlock; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
198 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
199 /* 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
|
200 Lisp_Object Vw32_recognize_altgr; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
201 |
13434 | 202 /* The scroll bar in which the last motion event occurred. |
203 | |
204 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
|
205 so w32_mouse_position can know whether to report a scroll bar motion or |
13434 | 206 an ordinary motion. |
207 | |
208 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
|
209 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
|
210 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
|
211 static int last_mouse_scroll_bar_pos; |
13434 | 212 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
213 /* This is a hack. We would really prefer that w32_mouse_position would |
13434 | 214 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
|
215 doesn't seem to be any way to wrest the time-stamp from the server |
13434 | 216 along with the position query. So, we just keep track of the time |
217 of the last movement we received, and return that in hopes that | |
218 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
|
219 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
220 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
|
221 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
222 /* 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
|
223 events. */ |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
224 |
13434 | 225 #ifdef __STDC__ |
226 static int volatile input_signal_count; | |
227 #else | |
228 static int input_signal_count; | |
229 #endif | |
230 | |
231 extern Lisp_Object Vcommand_line_args, Vsystem_name; | |
232 | |
31116
bbd7763673b6
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31010
diff
changeset
|
233 #ifndef USE_CRT_DLL |
13434 | 234 extern int errno; |
31116
bbd7763673b6
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31010
diff
changeset
|
235 #endif |
13434 | 236 |
237 /* 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
|
238 |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43694
diff
changeset
|
239 extern EMACS_INT extra_keyboard_modifiers; |
13434 | 240 |
31116
bbd7763673b6
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31010
diff
changeset
|
241 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
|
242 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
|
243 struct input_event *)); |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
244 static void w32_define_cursor P_ ((Window, Cursor)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
245 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
246 void x_lower_frame P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
247 void x_scroll_bar_clear P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
248 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
|
249 void x_raise_frame P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
250 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
|
251 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
|
252 void x_wm_set_icon_pixmap P_ ((struct frame *, int)); |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
253 static void w32_initialize P_ ((void)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
254 static void x_update_end P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
255 static void w32_frame_up_to_date P_ ((struct frame *)); |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
256 static void w32_set_terminal_modes P_ ((struct terminal *)); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
257 static void w32_reset_terminal_modes P_ ((struct terminal *)); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
258 static void x_clear_frame P_ ((struct frame *)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
259 static void frame_highlight P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
260 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
|
261 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
|
262 struct frame *)); |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
263 static void x_focus_changed P_ ((int, int, struct w32_display_info *, |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
264 struct frame *, struct input_event *)); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
265 static void w32_detect_focus_change P_ ((struct w32_display_info *, |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
266 W32Msg *, struct input_event *)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
267 static void w32_frame_rehighlight P_ ((struct frame *)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
268 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
|
269 static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *)); |
45507
b69bbd1285d1
(x_draw_bar_cursor): Update parameter list in declaration.
Jason Rumney <jasonr@gnu.org>
parents:
45467
diff
changeset
|
270 static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int, |
b69bbd1285d1
(x_draw_bar_cursor): Update parameter list in declaration.
Jason Rumney <jasonr@gnu.org>
parents:
45467
diff
changeset
|
271 enum text_cursor_kinds)); |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
272 static void w32_clip_to_row P_ ((struct window *, struct glyph_row *, int, HDC)); |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
273 static BOOL my_show_window P_ ((struct frame *, HWND, int)); |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
274 static void my_set_window_pos P_ ((HWND, HWND, int, int, int, int, UINT)); |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
275 static void my_set_focus P_ ((struct frame *, HWND)); |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
276 static void my_set_foreground_window P_ ((HWND)); |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
277 static void my_destroy_window P_ ((struct frame *, HWND)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
278 |
13434 | 279 static Lisp_Object Qvendor_specific_keysyms; |
280 | |
281 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
282 /*********************************************************************** |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
283 Debugging |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
284 ***********************************************************************/ |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
285 |
13434 | 286 #if 0 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
287 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
288 /* 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
|
289 the sequence of occurrences in this file. */ |
13434 | 290 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
291 struct record |
13434 | 292 { |
293 char *locus; | |
294 int type; | |
295 }; | |
296 | |
297 struct record event_record[100]; | |
298 | |
299 int event_record_index; | |
300 | |
301 record_event (locus, type) | |
302 char *locus; | |
303 int type; | |
304 { | |
305 if (event_record_index == sizeof (event_record) / sizeof (struct record)) | |
306 event_record_index = 0; | |
307 | |
308 event_record[event_record_index].locus = locus; | |
309 event_record[event_record_index].type = type; | |
310 event_record_index++; | |
311 } | |
312 | |
313 #endif /* 0 */ | |
314 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
315 |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
316 void |
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
317 XChangeGC (void * ignore, XGCValues* gc, unsigned long mask, |
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
318 XGCValues *xgcv) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
319 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
320 if (mask & GCForeground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
321 gc->foreground = xgcv->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
322 if (mask & GCBackground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
323 gc->background = xgcv->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
324 if (mask & GCFont) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
325 gc->font = xgcv->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
326 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
327 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
328 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
|
329 XGCValues *xgcv) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
330 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
331 XGCValues *gc = (XGCValues *) xmalloc (sizeof (XGCValues)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
332 bzero (gc, sizeof (XGCValues)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
333 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
334 XChangeGC (ignore, gc, mask, xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
335 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
336 return gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
337 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
338 |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
339 void |
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
340 XGetGCValues (void* ignore, XGCValues *gc, |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
341 unsigned long mask, XGCValues *xgcv) |
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 XChangeGC (ignore, xgcv, mask, gc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
344 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
345 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
346 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
347 w32_set_clip_rectangle (HDC hdc, RECT *rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
348 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
349 if (rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
350 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
351 HRGN clip_region = CreateRectRgnIndirect (rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
352 SelectClipRgn (hdc, clip_region); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
353 DeleteObject (clip_region); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
354 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
355 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
356 SelectClipRgn (hdc, NULL); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
357 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
358 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
359 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
360 /* Draw a hollow rectangle at the specified position. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
361 void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
362 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
|
363 int width, int height) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
364 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
365 HBRUSH hb, oldhb; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
366 HPEN hp, oldhp; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
367 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
368 hb = CreateSolidBrush (gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
369 hp = CreatePen (PS_SOLID, 0, gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
370 oldhb = SelectObject (hdc, hb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
371 oldhp = SelectObject (hdc, hp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
372 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
373 Rectangle (hdc, x, y, x + width, y + height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
374 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
375 SelectObject (hdc, oldhb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
376 SelectObject (hdc, oldhp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
377 DeleteObject (hb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
378 DeleteObject (hp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
379 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
380 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
381 /* Draw a filled rectangle at the specified position. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
382 void |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
383 w32_fill_rect (f, hdc, pix, lprect) |
13434 | 384 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
|
385 HDC hdc; |
13434 | 386 COLORREF pix; |
387 RECT * lprect; | |
388 { | |
389 HBRUSH hb; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
390 |
13434 | 391 hb = CreateSolidBrush (pix); |
392 FillRect (hdc, lprect, hb); | |
393 DeleteObject (hb); | |
394 } | |
395 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
396 void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
397 w32_clear_window (f) |
13434 | 398 FRAME_PTR f; |
399 { | |
400 RECT rect; | |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
401 HDC hdc = get_frame_dc (f); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
402 |
34093
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
403 /* 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
|
404 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
|
405 of 0 indicates this. */ |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
406 if (hdc) |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
407 { |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
408 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
|
409 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
|
410 } |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
411 |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
412 release_frame_dc (f, hdc); |
13434 | 413 } |
414 | |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
415 #define OPAQUE_FRAME 255 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
416 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
417 void |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
418 x_set_frame_alpha (f) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
419 struct frame *f; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
420 { |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
421 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
422 double alpha = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
423 double alpha_min = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
424 BYTE opac; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
425 LONG ex_style; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
426 HWND window = FRAME_W32_WINDOW (f); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
427 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
428 /* Older versions of Windows do not support transparency. */ |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
429 if (!pfnSetLayeredWindowAttributes) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
430 return; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
431 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
432 if (dpyinfo->x_highlight_frame == f) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
433 alpha = f->alpha[0]; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
434 else |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
435 alpha = f->alpha[1]; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
436 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
437 if (FLOATP (Vframe_alpha_lower_limit)) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
438 alpha_min = XFLOAT_DATA (Vframe_alpha_lower_limit); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
439 else if (INTEGERP (Vframe_alpha_lower_limit)) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
440 alpha_min = (XINT (Vframe_alpha_lower_limit)) / 100.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
441 |
99509
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
442 if (alpha < 0.0) |
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
443 return; |
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
444 else if (alpha > 1.0) |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
445 alpha = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
446 else if (alpha < alpha_min && alpha_min <= 1.0) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
447 alpha = alpha_min; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
448 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
449 opac = alpha * OPAQUE_FRAME; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
450 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
451 ex_style = GetWindowLong (window, GWL_EXSTYLE); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
452 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
453 if (opac == OPAQUE_FRAME) |
96423
0b2f64a1ff6e
(x_set_frame_alpha): Fix logic.
Jason Rumney <jasonr@gnu.org>
parents:
96403
diff
changeset
|
454 ex_style &= ~WS_EX_LAYERED; |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
455 else |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
456 ex_style |= WS_EX_LAYERED; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
457 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
458 SetWindowLong (window, GWL_EXSTYLE, ex_style); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
459 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
460 if (opac != OPAQUE_FRAME) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
461 pfnSetLayeredWindowAttributes (window, 0, opac, LWA_ALPHA); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
462 } |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
463 |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
464 int |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
465 x_display_pixel_height (dpyinfo) |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
466 struct w32_display_info *dpyinfo; |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
467 { |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
468 return GetDeviceCaps (GetDC (GetDesktopWindow ()), VERTRES); |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
469 } |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
470 |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
471 int |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
472 x_display_pixel_width (dpyinfo) |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
473 struct w32_display_info *dpyinfo; |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
474 { |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
475 return GetDeviceCaps (GetDC (GetDesktopWindow ()), HORZRES); |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
476 } |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
477 |
13434 | 478 |
27402
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 Starting and ending an update |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
481 ***********************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
482 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
483 /* 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
|
484 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
|
485 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
|
486 each window being updated. */ |
13434 | 487 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
488 static void |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
489 x_update_begin (f) |
13434 | 490 struct frame *f; |
491 { | |
34784
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
492 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
|
493 |
35000 | 494 if (! FRAME_W32_P (f)) |
495 return; | |
496 | |
34784
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
497 /* 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
|
498 colors has changed. */ |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
499 if (display_info->regen_palette) |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
500 { |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
501 w32_regenerate_palette (f); |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
502 display_info->regen_palette = FALSE; |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
503 } |
27402
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
506 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
507 /* 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
|
508 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
|
509 position of W. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
510 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
511 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
512 x_update_window_begin (w) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
513 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
514 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
515 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
516 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
|
517 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
518 /* Hide the system caret during an update. */ |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
519 if (w32_use_visible_system_caret && w32_system_caret_hwnd) |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
520 { |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
521 SendMessage (w32_system_caret_hwnd, WM_EMACS_HIDE_CARET, 0, 0); |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
522 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
523 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
524 updated_window = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
525 set_output_cursor (&w->cursor); |
13434 | 526 |
527 BLOCK_INPUT; | |
528 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
529 if (f == display_info->mouse_face_mouse_frame) |
13434 | 530 { |
531 /* 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
|
532 display_info->mouse_face_defer = 1; |
13434 | 533 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
534 /* 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
|
535 highlighting. */ |
13434 | 536 if (FRAME_GARBAGED_P (f)) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
537 display_info->mouse_face_window = Qnil; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
538 |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
539 #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
|
540 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
|
541 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
|
542 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
|
543 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
|
544 here to prevent it from being scrolled. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
545 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
546 /* 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
|
547 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
|
548 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
|
549 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
|
550 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
|
551 if (!NILP (display_info->mouse_face_window) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
552 && w == XWINDOW (display_info->mouse_face_window)) |
13434 | 553 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
554 int i; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
555 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
556 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
|
557 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i)) |
13434 | 558 break; |
559 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
560 if (i < w->desired_matrix->nrows) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
561 clear_mouse_face (display_info); |
13434 | 562 } |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
563 #endif /* 0 */ |
13434 | 564 } |
565 | |
566 UNBLOCK_INPUT; | |
567 } | |
568 | |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
569 /* Draw a vertical window border from (x,y0) to (x,y1) */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
570 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
571 static void |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
572 w32_draw_vertical_window_border (w, x, y0, y1) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
573 struct window *w; |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
574 int x, y0, y1; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
575 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
576 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
577 RECT r; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
578 HDC hdc; |
63912
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
579 struct face *face; |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
580 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
581 r.left = x; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
582 r.right = x + 1; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
583 r.top = y0; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
584 r.bottom = y1; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
585 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
586 hdc = get_frame_dc (f); |
63912
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
587 face = FACE_FROM_ID (f, VERTICAL_BORDER_FACE_ID); |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
588 if (face) |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
589 w32_fill_rect (f, hdc, face->foreground, &r); |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
590 else |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
591 w32_fill_rect (f, hdc, FRAME_FOREGROUND_PIXEL (f), &r); |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
592 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
593 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
594 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
595 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
596 |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
597 /* 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
|
598 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
599 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
|
600 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
|
601 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
602 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
|
603 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
|
604 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
|
605 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
606 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
|
607 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
|
608 here. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
609 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
610 static void |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
611 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
|
612 struct window *w; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
613 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
|
614 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
615 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (XFRAME (w->frame)); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
616 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
617 if (!w->pseudo_window_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
618 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
619 BLOCK_INPUT; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
620 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
621 if (cursor_on_p) |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
622 display_and_set_cursor (w, 1, output_cursor.hpos, |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
623 output_cursor.vpos, |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
624 output_cursor.x, output_cursor.y); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
625 |
57373
38e45bf0128a
(x_update_window_end): Fix flicker on vertical line between
Kim F. Storm <storm@cua.dk>
parents:
57278
diff
changeset
|
626 if (draw_window_fringes (w, 1)) |
38e45bf0128a
(x_update_window_end): Fix flicker on vertical line between
Kim F. Storm <storm@cua.dk>
parents:
57278
diff
changeset
|
627 x_draw_vertical_border (w); |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
628 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
629 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
630 } |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
631 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
632 /* 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
|
633 XTframe_up_to_date to redisplay the mouse highlight. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
634 if (mouse_face_overwritten_p) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
635 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
636 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
|
637 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
|
638 dpyinfo->mouse_face_window = Qnil; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
639 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
640 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
641 /* 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
|
642 was visible before the corresponding call to HideCaret in |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
643 x_update_window_begin. */ |
48888
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
644 if (w32_use_visible_system_caret && w32_system_caret_hwnd) |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
645 { |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
646 SendMessage (w32_system_caret_hwnd, WM_EMACS_SHOW_CARET, 0, 0); |
f0df5f687c15
Revisited my earlier fix for the following entry in etc/PROBLEMS: 'Emacs built on Windows 9x/ME crashes at startup on Windows XP, or Emacs builtpart of on XP crashes at startup on Windows 9x/ME.' Fixed several Windows API errors detected by BoundsChecker
Ben Key <bkey1@tampabay.rr.com>
parents:
48819
diff
changeset
|
647 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
648 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
649 updated_window = NULL; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
650 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
651 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
652 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
653 /* 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
|
654 update_end. */ |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
655 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
656 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
657 x_update_end (f) |
13434 | 658 struct frame *f; |
659 { | |
35000 | 660 if (! FRAME_W32_P (f)) |
661 return; | |
662 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
663 /* Mouse highlight may be displayed again. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
664 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
|
665 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
666 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
667 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
668 /* 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
|
669 complete update has been performed. The global variable |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
670 updated_window is not available here. */ |
13434 | 671 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
672 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
673 w32_frame_up_to_date (f) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
674 struct frame *f; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
675 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
676 if (FRAME_W32_P (f)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
677 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
678 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
679 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
680 if (dpyinfo->mouse_face_deferred_gc |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
681 || f == dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
682 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
683 BLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
684 if (dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
685 note_mouse_highlight (dpyinfo->mouse_face_mouse_frame, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
686 dpyinfo->mouse_face_mouse_x, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
687 dpyinfo->mouse_face_mouse_y); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
688 dpyinfo->mouse_face_deferred_gc = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
689 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
690 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
691 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
692 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
693 |
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 /* Draw truncation mark bitmaps, continuation mark bitmaps, overlay |
41125 | 696 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
|
697 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
|
698 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
|
699 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
|
700 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
|
701 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
702 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
703 x_after_update_window_line (desired_row) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
704 struct glyph_row *desired_row; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
705 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
706 struct window *w = updated_window; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
707 struct frame *f; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
708 int width, height; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
709 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
710 xassert (w); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
711 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
712 if (!desired_row->mode_line_p && !w->pseudo_window_p) |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
713 desired_row->redraw_fringe_bitmaps_p = 1; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
714 |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
715 /* 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
|
716 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
|
717 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
|
718 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
|
719 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
|
720 overhead is very small. */ |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
721 if (windows_or_buffers_changed |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
722 && desired_row->full_width_p |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
723 && (f = XFRAME (w->frame), |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
724 width = FRAME_INTERNAL_BORDER_WIDTH (f), |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
725 width != 0) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
726 && (height = desired_row->visible_height, |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
727 height > 0)) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
728 { |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
729 int y = WINDOW_TO_FRAME_PIXEL_Y (w, max (0, desired_row->y)); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
730 |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
731 /* 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
|
732 if (WINDOWP (f->tool_bar_window) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
733 && w == XWINDOW (f->tool_bar_window)) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
734 y -= width; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
735 |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
736 BLOCK_INPUT; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
737 { |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
738 HDC hdc = get_frame_dc (f); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
739 w32_clear_area (f, hdc, 0, y, width, height); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
740 w32_clear_area (f, hdc, FRAME_PIXEL_WIDTH (f) - width, |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
741 y, width, height); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
742 release_frame_dc (f, hdc); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
743 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
744 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
745 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
746 } |
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 |
41125 | 749 /* 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
|
750 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
|
751 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
|
752 drawn. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
753 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
754 static void |
50096 | 755 w32_draw_fringe_bitmap (w, row, p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
756 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
757 struct glyph_row *row; |
50096 | 758 struct draw_fringe_bitmap_params *p; |
27402
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 frame *f = XFRAME (WINDOW_FRAME (w)); |
50096 | 761 HDC hdc; |
762 struct face *face = p->face; | |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
763 int rowY; |
50096 | 764 |
765 hdc = get_frame_dc (f); | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
766 |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
767 if (!p->overlay_p) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
768 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
769 int bx = p->bx, by = p->by, nx = p->nx, ny = p->ny; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
770 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
771 /* If the fringe is adjacent to the left (right) scroll bar of a |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
772 leftmost (rightmost, respectively) window, then extend its |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
773 background to the gap between the fringe and the bar. */ |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
774 if ((WINDOW_LEFTMOST_P (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
775 && WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w)) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
776 || (WINDOW_RIGHTMOST_P (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
777 && WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w))) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
778 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
779 int sb_width = WINDOW_CONFIG_SCROLL_BAR_WIDTH (w); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
780 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
781 if (sb_width > 0) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
782 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
783 int left = WINDOW_SCROLL_BAR_AREA_X (w); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
784 int width = (WINDOW_CONFIG_SCROLL_BAR_COLS (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
785 * FRAME_COLUMN_WIDTH (f)); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
786 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
787 if (bx < 0) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
788 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
789 /* Bitmap fills the fringe. */ |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
790 if (left + width == p->x) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
791 bx = left + sb_width; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
792 else if (p->x + p->wd == left) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
793 bx = left; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
794 if (bx >= 0) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
795 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
796 int header_line_height = WINDOW_HEADER_LINE_HEIGHT (w); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
797 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
798 nx = width - sb_width; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
799 by = WINDOW_TO_FRAME_PIXEL_Y (w, max (header_line_height, |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
800 row->y)); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
801 ny = row->visible_height; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
802 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
803 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
804 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
805 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
806 if (left + width == bx) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
807 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
808 bx = left + sb_width; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
809 nx += width - sb_width; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
810 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
811 else if (bx + nx == left) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
812 nx += width - sb_width; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
813 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
814 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
815 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
816 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
817 if (bx >= 0 && nx > 0) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
818 w32_fill_area (f, hdc, face->background, bx, by, nx, ny); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
819 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
820 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
821 /* Must clip because of partially visible lines. */ |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
822 rowY = WINDOW_TO_FRAME_PIXEL_Y (w, row->y); |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
823 if (p->y < rowY) |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
824 { |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
825 /* Adjust position of "bottom aligned" bitmap on partially |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
826 visible last row. */ |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
827 int oldY = row->y; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
828 int oldVH = row->visible_height; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
829 row->visible_height = p->h; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
830 row->y -= rowY - p->y; |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
831 w32_clip_to_row (w, row, -1, hdc); |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
832 row->y = oldY; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
833 row->visible_height = oldVH; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
834 } |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
835 else |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
836 w32_clip_to_row (w, row, -1, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
837 |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
838 if (p->which && p->which < max_fringe_bmp) |
50096 | 839 { |
840 HBITMAP pixmap = fringe_bmp[p->which]; | |
841 HDC compat_hdc; | |
842 HANDLE horig_obj; | |
843 | |
844 compat_hdc = CreateCompatibleDC (hdc); | |
53964
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
845 |
50096 | 846 SaveDC (hdc); |
847 | |
848 horig_obj = SelectObject (compat_hdc, pixmap); | |
53964
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
849 |
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
850 /* Paint overlays transparently. */ |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
851 if (p->overlay_p) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
852 { |
54126
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
853 HBRUSH h_brush, h_orig_brush; |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
854 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
855 SetTextColor (hdc, BLACK_PIX_DEFAULT (f)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
856 SetBkColor (hdc, WHITE_PIX_DEFAULT (f)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
857 h_brush = CreateSolidBrush (face->foreground); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
858 h_orig_brush = SelectObject (hdc, h_brush); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
859 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
860 BitBlt (hdc, p->x, p->y, p->wd, p->h, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
861 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
862 DSTINVERT); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
863 BitBlt (hdc, p->x, p->y, p->wd, p->h, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
864 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
865 0x2E064A); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
866 BitBlt (hdc, p->x, p->y, p->wd, p->h, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
867 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
868 DSTINVERT); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
869 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
870 SelectObject (hdc, h_orig_brush); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
871 DeleteObject (h_brush); |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
872 } |
53964
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
873 else |
54126
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
874 { |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
875 SetTextColor (hdc, face->background); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
876 SetBkColor (hdc, (p->cursor_p |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
877 ? f->output_data.w32->cursor_pixel |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
878 : face->foreground)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
879 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
880 BitBlt (hdc, p->x, p->y, p->wd, p->h, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
881 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
882 SRCCOPY); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
883 } |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
884 |
50096 | 885 SelectObject (compat_hdc, horig_obj); |
886 DeleteDC (compat_hdc); | |
887 RestoreDC (hdc, -1); | |
888 } | |
889 | |
890 w32_set_clip_rectangle (hdc, NULL); | |
27402
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 release_frame_dc (f, hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
893 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
894 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
895 static void |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
896 w32_define_fringe_bitmap (which, bits, h, wd) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
897 int which; |
53934
de8ab2bcee32
(w32_define_fringe_bitmap): Bitmaps are now 16 bits wide,
Kim F. Storm <storm@cua.dk>
parents:
53902
diff
changeset
|
898 unsigned short *bits; |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
899 int h, wd; |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
900 { |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
901 if (which >= max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
902 { |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
903 int i = max_fringe_bmp; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
904 max_fringe_bmp = which + 20; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
905 fringe_bmp = (HBITMAP *) xrealloc (fringe_bmp, max_fringe_bmp * sizeof (HBITMAP)); |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
906 while (i < max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
907 fringe_bmp[i++] = 0; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
908 } |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
909 |
53934
de8ab2bcee32
(w32_define_fringe_bitmap): Bitmaps are now 16 bits wide,
Kim F. Storm <storm@cua.dk>
parents:
53902
diff
changeset
|
910 fringe_bmp[which] = CreateBitmap (wd, h, 1, 1, bits); |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
911 } |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
912 |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
913 static void |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
914 w32_destroy_fringe_bitmap (which) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
915 int which; |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
916 { |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
917 if (which >= max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
918 return; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
919 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
920 if (fringe_bmp[which]) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
921 DeleteObject (fringe_bmp[which]); |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
922 fringe_bmp[which] = 0; |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
923 } |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
924 |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
925 |
13434 | 926 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
927 /* 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
|
928 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
|
929 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
|
930 rarely happens). */ |
13434 | 931 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
932 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
933 w32_set_terminal_modes (struct terminal *term) |
13434 | 934 { |
935 } | |
936 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
937 /* 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
|
938 the W32 windows go away, and suspending requires no action. */ |
13434 | 939 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
940 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
941 w32_reset_terminal_modes (struct terminal *term) |
13434 | 942 { |
943 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
944 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
945 |
13434 | 946 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
947 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
948 Display Iterator |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
949 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
950 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
951 /* Function prototypes of this page. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
952 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
953 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
|
954 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
|
955 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
|
956 int)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
957 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
|
958 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
|
959 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
|
960 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
|
961 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
|
962 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
|
963 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
|
964 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
|
965 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
|
966 double, int, COLORREF)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
967 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
|
968 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
|
969 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
|
970 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
|
971 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
|
972 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
|
973 int, int, int)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
974 static void w32_draw_relief_rect P_ ((struct frame *, int, int, int, int, |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
975 int, int, int, int, int, int, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
976 RECT *)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
977 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
|
978 int, int, int, RECT *)); |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
979 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
980 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
981 /* 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
|
982 face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
983 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
984 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
985 x_set_cursor_gc (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
986 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
987 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
988 if (s->font == FRAME_FONT (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
989 && s->face->background == FRAME_BACKGROUND_PIXEL (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
990 && s->face->foreground == FRAME_FOREGROUND_PIXEL (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
991 && !s->cmp) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
992 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
|
993 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
994 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
995 /* Cursor on non-default face: must merge. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
996 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
997 unsigned long mask; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
998 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
999 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
|
1000 xgcv.foreground = s->face->background; |
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 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
|
1003 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1004 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1005 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1006 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
|
1007 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1008 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1009 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1010 /* 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
|
1011 if (xgcv.background == s->face->background |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1012 && xgcv.foreground == s->face->foreground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1013 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1014 xgcv.background = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1015 xgcv.foreground = s->face->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1016 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1017 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1018 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
|
1019 xgcv.font = s->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1020 mask = GCForeground | GCBackground | GCFont; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1021 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1022 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
|
1023 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
|
1024 mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1025 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1026 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
|
1027 = XCreateGC (NULL, s->window, mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1028 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1029 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
|
1030 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1031 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1032 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1033 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1034 /* Set up S->gc of glyph string S for drawing text in mouse face. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1035 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1036 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1037 x_set_mouse_face_gc (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1038 struct glyph_string *s; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1039 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1040 int face_id; |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
1041 struct face *face; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1042 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
1043 /* 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
|
1044 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
|
1045 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
|
1046 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
|
1047 face = FACE_FROM_ID (s->f, MOUSE_FACE_ID); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1048 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
1049 if (s->first_glyph->type == CHAR_GLYPH) |
89708
b66b529d5f33
(x_set_mouse_face_gc): Call FACE_FOR_CHAR with POS and OBJECT args.
Kenichi Handa <handa@m17n.org>
parents:
89595
diff
changeset
|
1050 face_id = FACE_FOR_CHAR (s->f, face, s->first_glyph->u.ch, -1, Qnil); |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
1051 else |
89708
b66b529d5f33
(x_set_mouse_face_gc): Call FACE_FOR_CHAR with POS and OBJECT args.
Kenichi Handa <handa@m17n.org>
parents:
89595
diff
changeset
|
1052 face_id = FACE_FOR_CHAR (s->f, face, 0, -1, Qnil); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1053 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
|
1054 PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1055 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1056 /* 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
|
1057 if (s->font == s->face->font) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1058 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1059 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1060 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1061 /* 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
|
1062 but font FONT. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1063 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1064 unsigned long mask; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1065 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1066 xgcv.background = s->face->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1067 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1068 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
|
1069 xgcv.font = s->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1070 mask = GCForeground | GCBackground | GCFont; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1071 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1072 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
|
1073 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
|
1074 mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1075 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1076 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
|
1077 = XCreateGC (NULL, s->window, mask, &xgcv); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1078 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1079 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
|
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 xassert (s->gc != 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1083 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1086 /* 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
|
1087 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
|
1088 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
|
1089 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1090 static INLINE void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1091 x_set_mode_line_face_gc (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1092 struct glyph_string *s; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1093 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1094 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1095 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1098 /* 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
|
1099 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
|
1100 pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1101 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1102 static INLINE void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1103 x_set_glyph_string_gc (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1104 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1105 { |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
1106 PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1107 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1108 if (s->hl == DRAW_NORMAL_TEXT) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1109 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1110 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1111 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1112 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1113 else if (s->hl == DRAW_INVERSE_VIDEO) |
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 x_set_mode_line_face_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1116 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1117 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1118 else if (s->hl == DRAW_CURSOR) |
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 x_set_cursor_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1121 s->stippled_p = 0; |
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 else if (s->hl == DRAW_MOUSE_FACE) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1124 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1125 x_set_mouse_face_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1126 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1127 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1128 else if (s->hl == DRAW_IMAGE_RAISED |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1129 || s->hl == DRAW_IMAGE_SUNKEN) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1130 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1131 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1132 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1133 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1134 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1135 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1136 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1137 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1138 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1139 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1140 /* GC must have been set. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1141 xassert (s->gc != 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1142 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1143 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1144 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1145 /* 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
|
1146 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
|
1147 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1148 static INLINE void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1149 x_set_glyph_string_clipping (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1150 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1151 { |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1152 RECT *r = s->clip; |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1153 int n = get_glyph_string_clip_rects (s, r, 2); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1154 |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1155 if (n == 1) |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1156 w32_set_clip_rectangle (s->hdc, r); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1157 else if (n > 1) |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1158 { |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1159 HRGN full_clip, clip1, clip2; |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1160 clip1 = CreateRectRgnIndirect (r); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1161 clip2 = CreateRectRgnIndirect (r + 1); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1162 if (CombineRgn (full_clip, clip1, clip2, RGN_OR) != ERROR) |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1163 { |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1164 SelectClipRgn (s->hdc, full_clip); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1165 } |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1166 DeleteObject (clip1); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1167 DeleteObject (clip2); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1168 DeleteObject (full_clip); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1169 } |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1170 s->num_clips = n; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1171 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1172 |
90834 | 1173 /* Set SRC's clipping for output of glyph string DST. This is called |
1174 when we are drawing DST's left_overhang or right_overhang only in | |
1175 the area of SRC. */ | |
1176 | |
1177 static void | |
1178 x_set_glyph_string_clipping_exactly (src, dst) | |
1179 struct glyph_string *src, *dst; | |
1180 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1181 RECT r; |
90834 | 1182 |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1183 r.left = src->x; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1184 r.right = r.left + src->width; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1185 r.top = src->y; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1186 r.bottom = r.top + src->height; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1187 dst->clip[0] = r; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1188 dst->num_clips = 1; |
90834 | 1189 w32_set_clip_rectangle (dst->hdc, &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1190 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1191 |
50154
10038ae9db85
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50096
diff
changeset
|
1192 /* RIF: |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1193 Compute left and right overhang of glyph string S. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1194 |
50154
10038ae9db85
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50096
diff
changeset
|
1195 static void |
10038ae9db85
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50096
diff
changeset
|
1196 w32_compute_glyph_string_overhangs (s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1197 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1198 { |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1199 if (s->cmp == NULL |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1200 && s->first_glyph->type == CHAR_GLYPH |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1201 && !s->font_not_found_p) |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1202 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1203 unsigned *code = alloca (sizeof (unsigned) * s->nchars); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1204 struct font *font = s->font; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1205 struct font_metrics metrics; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1206 int i; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1207 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1208 for (i = 0; i < s->nchars; i++) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1209 code[i] = s->char2b[i]; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1210 font->driver->text_extents (font, code, s->nchars, &metrics); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1211 s->right_overhang = (metrics.rbearing > metrics.width |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1212 ? metrics.rbearing - metrics.width : 0); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1213 s->left_overhang = metrics.lbearing < 0 ? -metrics.lbearing : 0; |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1214 } |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1215 else if (s->cmp) |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1216 { |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1217 s->right_overhang = s->cmp->rbearing - s->cmp->pixel_width; |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1218 s->left_overhang = -s->cmp->lbearing; |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1219 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1220 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1221 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1222 /* 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
|
1223 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1224 static INLINE void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1225 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
|
1226 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1227 int x, y, w, h; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1228 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1229 int real_x = x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1230 int real_y = y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1231 int real_w = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1232 int real_h = h; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1233 #if 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1234 /* Take clipping into account. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1235 if (s->gc->clip_mask == Rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1236 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1237 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
|
1238 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
|
1239 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
|
1240 - s->gc->clip_rectangle.left); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1241 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
|
1242 - s->gc->clip_rectangle.top); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1243 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1244 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1245 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
|
1246 real_w, real_h); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1247 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1248 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1249 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1250 /* 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
|
1251 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
|
1252 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
|
1253 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
|
1254 contains the first component of a composition. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1255 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1256 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1257 x_draw_glyph_string_background (s, force_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1258 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1259 int force_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1260 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1261 /* 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
|
1262 shouldn't be drawn in the first place. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1263 if (!s->background_filled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1264 { |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1265 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
|
1266 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1267 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1268 if (s->stippled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1269 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1270 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1271 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1272 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
|
1273 s->y + box_line_width, |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1274 s->background_width, |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1275 s->height - 2 * box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1276 XSetFillStyle (s->display, s->gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1277 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1278 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1279 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1280 #endif |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1281 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
|
1282 || s->font_not_found_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1283 || s->extends_to_end_of_line_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1284 || force_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1285 { |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1286 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
|
1287 s->background_width, |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1288 s->height - 2 * box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1289 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1290 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1291 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1292 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1293 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1294 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1295 /* Draw the foreground of glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1296 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1297 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1298 x_draw_glyph_string_foreground (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1299 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1300 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1301 int i, x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1302 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1303 /* 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
|
1304 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
|
1305 if (s->face->box != FACE_NO_BOX |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1306 && s->first_glyph->left_box_line_p) |
85258 | 1307 x = s->x + eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1308 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1309 x = s->x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1310 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1311 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1312 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1313 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1314 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1315 /* 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
|
1316 loaded. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1317 if (s->font_not_found_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1318 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1319 for (i = 0; i < s->nchars; ++i) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1320 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1321 struct glyph *g = s->first_glyph + i; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1322 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1323 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
|
1324 s->height - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1325 x += g->pixel_width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1326 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1327 } |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1328 else |
90834 | 1329 { |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1330 struct font *font = s->font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1331 int boff = font->baseline_offset; |
90834 | 1332 int y; |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1333 HFONT old_font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1334 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1335 old_font = SelectObject (s->hdc, FONT_HANDLE (font)); |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1336 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1337 if (font->vertical_centering) |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1338 boff = VCENTER_BASELINE_OFFSET (font, s->f) - boff; |
90834 | 1339 |
1340 y = s->ybase - boff; | |
1341 if (s->for_overlaps | |
1342 || (s->background_filled_p && s->hl != DRAW_CURSOR)) | |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1343 font->driver->draw (s, 0, s->nchars, x, y, 0); |
90834 | 1344 else |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1345 font->driver->draw (s, 0, s->nchars, x, y, 1); |
90834 | 1346 if (s->face->overstrike) |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1347 font->driver->draw (s, 0, s->nchars, x + 1, y, 0); |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1348 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1349 SelectObject (s->hdc, old_font); |
90834 | 1350 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1351 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1352 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1353 /* Draw the foreground of composite glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1354 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1355 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1356 x_draw_composite_glyph_string_foreground (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1357 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1358 { |
90834 | 1359 int i, j, x; |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1360 struct font *font = s->font; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1361 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1362 /* 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
|
1363 of S to the right of that box line. */ |
90834 | 1364 if (s->face && s->face->box != FACE_NO_BOX |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1365 && s->first_glyph->left_box_line_p) |
85258 | 1366 x = s->x + eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1367 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1368 x = s->x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1369 |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1370 /* S is a glyph string for a composition. S->cmp_from is the index |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1371 of the first character drawn for glyphs of this composition. |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1372 S->cmp_from == 0 means we are drawing the very first character of |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1373 this composition. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1374 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1375 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1376 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1377 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1378 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1379 /* 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
|
1380 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
|
1381 if (s->font_not_found_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1382 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1383 if (s->cmp_from == 0) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1384 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
|
1385 s->height - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1386 } |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1387 else if (! s->first_glyph->u.cmp.automatic) |
90834 | 1388 { |
1389 int y = s->ybase; | |
1390 int width = 0; | |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1391 HFONT old_font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1392 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1393 old_font = SelectObject (s->hdc, FONT_HANDLE (font)); |
90834 | 1394 |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1395 for (i = 0, j = s->cmp_from; i < s->nchars; i++, j++) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1396 if (COMPOSITION_GLYPH (s->cmp, j) != '\t') |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1397 { |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1398 int xx = x + s->cmp->offsets[j * 2]; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1399 int yy = y - s->cmp->offsets[j * 2 + 1]; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1400 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1401 font->driver->draw (s, j, j + 1, xx, yy, 0); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1402 if (s->face->overstrike) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1403 font->driver->draw (s, j, j + 1, xx + 1, yy, 0); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1404 } |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1405 SelectObject (s->hdc, old_font); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1406 } |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1407 else |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1408 { |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1409 Lisp_Object gstring = composition_gstring_from_id (s->cmp_id); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1410 Lisp_Object glyph; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1411 int y = s->ybase; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1412 int width = 0; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1413 HFONT old_font; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1414 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1415 old_font = SelectObject (s->hdc, FONT_HANDLE (font)); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1416 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1417 for (i = j = s->cmp_from; i < s->cmp_to; i++) |
90834 | 1418 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1419 glyph = LGSTRING_GLYPH (gstring, i); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1420 if (NILP (LGLYPH_ADJUSTMENT (glyph))) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1421 width += LGLYPH_WIDTH (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1422 else |
90834 | 1423 { |
1424 int xoff, yoff, wadjust; | |
1425 | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1426 if (j < i) |
90834 | 1427 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1428 font->driver->draw (s, j, i, x, y, 0); |
90834 | 1429 x += width; |
1430 } | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1431 xoff = LGLYPH_XOFF (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1432 yoff = LGLYPH_YOFF (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1433 wadjust = LGLYPH_WADJUST (glyph); |
90834 | 1434 font->driver->draw (s, i, i + 1, x + xoff, y + yoff, 0); |
91139
3b9ed57b1424
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
91098
diff
changeset
|
1435 x += wadjust; |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1436 j = i + 1; |
90834 | 1437 width = 0; |
1438 } | |
1439 } | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1440 if (j < i) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1441 font->driver->draw (s, j, i, x, y, 0); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1442 |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1443 SelectObject (s->hdc, old_font); |
90834 | 1444 } |
27402
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 |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1447 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1448 /* 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
|
1449 boosted. |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1450 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1451 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
|
1452 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
|
1453 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
|
1454 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
|
1455 use an additional additive factor. |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1456 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1457 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
|
1458 (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
|
1459 #define HIGHLIGHT_COLOR_DARK_BOOST_LIMIT 187 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1460 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1461 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1462 /* 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
|
1463 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
|
1464 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
|
1465 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
|
1466 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
|
1467 Value is non-zero if successful. */ |
13434 | 1468 |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
1469 static int |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1470 w32_alloc_lighter_color (f, color, factor, delta) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1471 struct frame *f; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1472 COLORREF *color; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1473 double factor; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1474 int delta; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1475 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1476 COLORREF new; |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1477 long bright; |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1478 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1479 /* 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
|
1480 delta /= 256; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1481 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1482 /* Change RGB values by specified FACTOR. Avoid overflow! */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1483 xassert (factor >= 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1484 new = PALETTERGB (min (0xff, factor * GetRValue (*color)), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1485 min (0xff, factor * GetGValue (*color)), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1486 min (0xff, factor * GetBValue (*color))); |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1487 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1488 /* Calculate brightness of COLOR. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1489 bright = (2 * GetRValue (*color) + 3 * GetGValue (*color) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1490 + GetBValue (*color)) / 6; |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1491 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1492 /* 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
|
1493 HIGHLIGHT_COLOR_DARK_BOOST_LIMIT. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1494 if (bright < HIGHLIGHT_COLOR_DARK_BOOST_LIMIT) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1495 /* 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
|
1496 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
|
1497 { |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1498 /* 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
|
1499 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
|
1500 /* The additive adjustment. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1501 int min_delta = delta * dimness * factor / 2; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1502 |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1503 if (factor < 1) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1504 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
|
1505 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
|
1506 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
|
1507 else |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1508 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
|
1509 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
|
1510 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
|
1511 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1512 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1513 if (new == *color) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1514 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
|
1515 max (0, min (0xff, delta + GetGValue (*color))), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1516 max (0, min (0xff, delta + GetBValue (*color)))); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1517 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1518 /* 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
|
1519 /* TODO: Free colors (if using palette)? */ |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
1520 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1521 if (new == *color) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1522 return 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1523 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1524 *color = new; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1525 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1526 return 1; |
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 |
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 /* 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
|
1531 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
|
1532 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
|
1533 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
|
1534 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
|
1535 be allocated, use DEFAULT_PIXEL, instead. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1536 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1537 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1538 w32_setup_relief_color (f, relief, factor, delta, default_pixel) |
13434 | 1539 struct frame *f; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1540 struct relief *relief; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1541 double factor; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1542 int delta; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1543 COLORREF default_pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1544 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1545 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1546 struct w32_output *di = f->output_data.w32; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1547 unsigned long mask = GCForeground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1548 COLORREF pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1549 COLORREF background = di->relief_background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1550 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
|
1551 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1552 /* TODO: Free colors (if using palette)? */ |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
1553 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1554 /* Allocate new color. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1555 xgcv.foreground = default_pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1556 pixel = background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1557 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
|
1558 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1559 relief->allocated_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1560 xgcv.foreground = relief->pixel = pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1561 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1562 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1563 if (relief->gc == 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1564 { |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1565 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1566 xgcv.stipple = dpyinfo->gray; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1567 mask |= GCStipple; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1568 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1569 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
|
1570 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1571 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1572 XChangeGC (NULL, relief->gc, mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1573 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1574 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1575 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1576 /* 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
|
1577 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1578 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1579 x_setup_relief_colors (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1580 struct glyph_string *s; |
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 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
|
1583 COLORREF color; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1584 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1585 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
|
1586 color = s->face->box_color; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
1587 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
|
1588 && s->img->pixmap |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
1589 && !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
|
1590 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
|
1591 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1592 color = s->gc->background; |
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 if (di->white_relief.gc == 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1595 || color != di->relief_background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1596 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1597 di->relief_background = color; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1598 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
|
1599 WHITE_PIX_DEFAULT (s->f)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1600 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
|
1601 BLACK_PIX_DEFAULT (s->f)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1602 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1605 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1606 /* 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
|
1607 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
|
1608 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
|
1609 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
|
1610 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
|
1611 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
|
1612 when drawing. */ |
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 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1615 w32_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width, |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1616 raised_p, top_p, bot_p, left_p, right_p, clip_rect) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1617 struct frame *f; |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1618 int left_x, top_y, right_x, bottom_y, width; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1619 int top_p, bot_p, left_p, right_p, raised_p; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1620 RECT *clip_rect; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1621 { |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
1622 int i; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1623 XGCValues gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1624 HDC hdc = get_frame_dc (f); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1625 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1626 if (raised_p) |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1627 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
|
1628 else |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1629 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
|
1630 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1631 w32_set_clip_rectangle (hdc, clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1632 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1633 /* Top. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1634 if (top_p) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1635 for (i = 0; i < width; ++i) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1636 w32_fill_area (f, hdc, gc.foreground, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1637 left_x + i * left_p, top_y + i, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1638 right_x - left_x - i * (left_p + right_p ) + 1, 1); |
27402
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 /* Left. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1641 if (left_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1642 for (i = 0; i < width; ++i) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1643 w32_fill_area (f, hdc, gc.foreground, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1644 left_x + i, top_y + i, 1, |
44238
ed87203c48f5
(w32_draw_relief_rect): Fix calculations of line lengths.
Jason Rumney <jasonr@gnu.org>
parents:
44108
diff
changeset
|
1645 bottom_y - top_y - 2 * i + 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1646 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1647 if (raised_p) |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1648 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
|
1649 else |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1650 gc.foreground = f->output_data.w32->white_relief.gc->foreground; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1651 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1652 /* Bottom. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1653 if (bot_p) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1654 for (i = 0; i < width; ++i) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1655 w32_fill_area (f, hdc, gc.foreground, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1656 left_x + i * left_p, bottom_y - i, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1657 right_x - left_x - i * (left_p + right_p) + 1, 1); |
27402
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 /* Right. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1660 if (right_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1661 for (i = 0; i < width; ++i) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1662 w32_fill_area (f, hdc, gc.foreground, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1663 right_x - i, top_y + i + 1, 1, |
44238
ed87203c48f5
(w32_draw_relief_rect): Fix calculations of line lengths.
Jason Rumney <jasonr@gnu.org>
parents:
44108
diff
changeset
|
1664 bottom_y - top_y - 2 * i - 1); |
27402
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 w32_set_clip_rectangle (hdc, NULL); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1667 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1668 release_frame_dc (f, hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1669 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1672 /* 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
|
1673 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
|
1674 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
|
1675 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
|
1676 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
|
1677 rectangle to use when drawing. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1678 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1679 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1680 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
|
1681 left_p, right_p, clip_rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1682 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1683 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
|
1684 RECT *clip_rect; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1685 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1686 w32_set_clip_rectangle (s->hdc, clip_rect); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1687 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1688 /* Top. */ |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1689 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
|
1690 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
|
1691 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1692 /* Left. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1693 if (left_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1694 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1695 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
|
1696 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
|
1697 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1698 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1699 /* Bottom. */ |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1700 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
|
1701 left_x, bottom_y - width + 1, right_x - left_x + 1, width); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1702 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1703 /* Right. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1704 if (right_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1705 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1706 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
|
1707 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
|
1708 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1709 |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1710 w32_set_clip_rectangle (s->hdc, NULL); |
27402
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 /* Draw a box around glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1715 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1716 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1717 x_draw_glyph_string_box (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1718 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1719 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1720 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
|
1721 int left_p, right_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1722 struct glyph *last_glyph; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1723 RECT clip_rect; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1724 |
59655
369714ad80ed
(x_draw_glyph_string_box): Fix last_x for full width rows.
Kim F. Storm <storm@cua.dk>
parents:
59332
diff
changeset
|
1725 last_x = ((s->row->full_width_p && !s->w->pseudo_window_p) |
369714ad80ed
(x_draw_glyph_string_box): Fix last_x for full width rows.
Kim F. Storm <storm@cua.dk>
parents:
59332
diff
changeset
|
1726 ? WINDOW_RIGHT_EDGE_X (s->w) |
369714ad80ed
(x_draw_glyph_string_box): Fix last_x for full width rows.
Kim F. Storm <storm@cua.dk>
parents:
59332
diff
changeset
|
1727 : window_box_right (s->w, s->area)); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1728 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1729 /* 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
|
1730 last_glyph = (s->cmp || s->img |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1731 ? s->first_glyph |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1732 : s->first_glyph + s->nchars - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1733 |
85258 | 1734 width = eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1735 raised_p = s->face->box == FACE_RAISED_BOX; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1736 left_x = s->x; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1737 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
|
1738 ? last_x - 1 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1739 : 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
|
1740 top_y = s->y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1741 bottom_y = top_y + s->height - 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1742 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1743 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
|
1744 || (s->hl == DRAW_MOUSE_FACE |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1745 && (s->prev == NULL |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1746 || s->prev->hl != s->hl))); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1747 right_p = (last_glyph->right_box_line_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1748 || (s->hl == DRAW_MOUSE_FACE |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1749 && (s->next == NULL |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1750 || s->next->hl != s->hl))); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1751 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
1752 get_glyph_string_clip_rect (s, &clip_rect); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1753 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1754 if (s->face->box == FACE_SIMPLE_BOX) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1755 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
|
1756 left_p, right_p, &clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1757 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1758 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1759 x_setup_relief_colors (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1760 w32_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y, |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1761 width, raised_p, 1, 1, left_p, right_p, &clip_rect); |
27402
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 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1764 |
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 /* Draw foreground of image glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1767 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1768 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1769 x_draw_image_foreground (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1770 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1771 { |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1772 int x = s->x; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1773 int y = s->ybase - image_ascent (s->img, s->face, &s->slice); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1774 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1775 /* 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
|
1776 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1777 if (s->face->box != FACE_NO_BOX |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1778 && s->first_glyph->left_box_line_p |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1779 && s->slice.x == 0) |
85258 | 1780 x += eabs (s->face->box_line_width); |
27402
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 /* 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
|
1783 by that margin. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1784 if (s->slice.x == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1785 x += s->img->hmargin; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1786 if (s->slice.y == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1787 y += s->img->vmargin; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1788 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1789 SaveDC (s->hdc); |
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 if (s->img->pixmap) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1792 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1793 HDC compat_hdc = CreateCompatibleDC (s->hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1794 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1795 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1796 HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1797 SetBkColor (compat_hdc, RGB (255, 255, 255)); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1798 SetTextColor (s->hdc, RGB (0, 0, 0)); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1799 x_set_glyph_string_clipping (s); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1800 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1801 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1802 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1803 HDC mask_dc = CreateCompatibleDC (s->hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1804 HGDIOBJ mask_orig_obj = SelectObject (mask_dc, s->img->mask); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1805 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1806 SetTextColor (s->hdc, RGB (255, 255, 255)); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1807 SetBkColor (s->hdc, RGB (0, 0, 0)); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1808 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1809 BitBlt (s->hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1810 compat_hdc, s->slice.x, s->slice.y, SRCINVERT); |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1811 BitBlt (s->hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1812 mask_dc, s->slice.x, s->slice.y, SRCAND); |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1813 BitBlt (s->hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1814 compat_hdc, s->slice.x, s->slice.y, SRCINVERT); |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1815 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1816 SelectObject (mask_dc, mask_orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1817 DeleteDC (mask_dc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1818 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1819 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1820 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1821 SetTextColor (s->hdc, s->gc->foreground); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1822 SetBkColor (s->hdc, s->gc->background); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1823 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1824 BitBlt (s->hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1825 compat_hdc, s->slice.x, s->slice.y, SRCCOPY); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1826 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1827 /* 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
|
1828 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
|
1829 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
|
1830 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
|
1831 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
|
1832 nothing here for mouse-face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1833 if (s->hl == DRAW_CURSOR) |
45196
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1834 { |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1835 int r = s->img->relief; |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1836 if (r < 0) r = -r; |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1837 w32_draw_rectangle (s->hdc, s->gc, x - r, y - r , |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1838 s->slice.width + r*2 - 1, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1839 s->slice.height + r*2 - 1); |
45196
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1840 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1841 } |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1842 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1843 w32_set_clip_rectangle (s->hdc, NULL); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1844 SelectObject (s->hdc, orig_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1845 DeleteObject (fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1846 SelectObject (compat_hdc, orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1847 DeleteDC (compat_hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1848 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1849 else |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1850 w32_draw_rectangle (s->hdc, s->gc, x, y, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1851 s->slice.width - 1, s->slice.height - 1); |
27402
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 RestoreDC (s->hdc ,-1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1854 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1855 |
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 /* 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
|
1858 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1859 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1860 x_draw_image_relief (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1861 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1862 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1863 int x0, y0, x1, y1, thick, raised_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1864 RECT r; |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1865 int x = s->x; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1866 int y = s->ybase - image_ascent (s->img, s->face, &s->slice); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1867 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1868 /* 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
|
1869 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1870 if (s->face->box != FACE_NO_BOX |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1871 && s->first_glyph->left_box_line_p |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1872 && s->slice.x == 0) |
85258 | 1873 x += eabs (s->face->box_line_width); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1874 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1875 /* 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
|
1876 by that margin. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1877 if (s->slice.x == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1878 x += s->img->hmargin; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1879 if (s->slice.y == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1880 y += s->img->vmargin; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1881 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1882 if (s->hl == DRAW_IMAGE_SUNKEN |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1883 || s->hl == DRAW_IMAGE_RAISED) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1884 { |
42538
2b4179d13ed7
(x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents:
42206
diff
changeset
|
1885 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
|
1886 raised_p = s->hl == DRAW_IMAGE_RAISED; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1887 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1888 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1889 { |
85258 | 1890 thick = eabs (s->img->relief); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1891 raised_p = s->img->relief > 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1892 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1893 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1894 x0 = x - thick; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1895 y0 = y - thick; |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1896 x1 = x + s->slice.width + thick - 1; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1897 y1 = y + s->slice.height + thick - 1; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1898 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1899 x_setup_relief_colors (s); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
1900 get_glyph_string_clip_rect (s, &r); |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1901 w32_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1902 s->slice.y == 0, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1903 s->slice.y + s->slice.height == s->img->height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1904 s->slice.x == 0, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1905 s->slice.x + s->slice.width == s->img->width, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1906 &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1907 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1910 /* 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
|
1911 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1912 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1913 w32_draw_image_foreground_1 (s, pixmap) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1914 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1915 HBITMAP pixmap; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1916 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1917 HDC hdc = CreateCompatibleDC (s->hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1918 HGDIOBJ orig_hdc_obj = SelectObject (hdc, pixmap); |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1919 int x = 0; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1920 int y = s->ybase - s->y - image_ascent (s->img, s->face, &s->slice); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1921 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1922 /* 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
|
1923 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1924 if (s->face->box != FACE_NO_BOX |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1925 && s->first_glyph->left_box_line_p |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1926 && s->slice.x == 0) |
85258 | 1927 x += eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1928 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1929 /* 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
|
1930 by that margin. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1931 if (s->slice.x == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1932 x += s->img->hmargin; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1933 if (s->slice.y == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1934 y += s->img->vmargin; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1935 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1936 if (s->img->pixmap) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1937 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1938 HDC compat_hdc = CreateCompatibleDC (hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1939 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1940 HBRUSH orig_brush = SelectObject (hdc, fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1941 HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1942 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1943 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1944 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1945 HDC mask_dc = CreateCompatibleDC (hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1946 HGDIOBJ mask_orig_obj = SelectObject (mask_dc, s->img->mask); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1947 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1948 SetTextColor (hdc, RGB (0, 0, 0)); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1949 SetBkColor (hdc, RGB (255, 255, 255)); |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1950 BitBlt (hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1951 compat_hdc, s->slice.x, s->slice.y, SRCINVERT); |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1952 BitBlt (hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1953 mask_dc, s->slice.x, s->slice.y, SRCAND); |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1954 BitBlt (hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1955 compat_hdc, s->slice.x, s->slice.y, SRCINVERT); |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1956 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1957 SelectObject (mask_dc, mask_orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1958 DeleteDC (mask_dc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1959 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1960 else |
13434 | 1961 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1962 SetTextColor (hdc, s->gc->foreground); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1963 SetBkColor (hdc, s->gc->background); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1964 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1965 BitBlt (hdc, x, y, s->slice.width, s->slice.height, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1966 compat_hdc, s->slice.x, s->slice.y, SRCCOPY); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1967 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1968 /* 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
|
1969 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
|
1970 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
|
1971 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
|
1972 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
|
1973 nothing here for mouse-face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1974 if (s->hl == DRAW_CURSOR) |
45196
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1975 { |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1976 int r = s->img->relief; |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1977 if (r < 0) r = -r; |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1978 w32_draw_rectangle (hdc, s->gc, x - r, y - r, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1979 s->slice.width + r*2 - 1, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1980 s->slice.height + r*2 - 1); |
45196
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1981 } |
13434 | 1982 } |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1983 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1984 SelectObject (hdc, orig_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1985 DeleteObject (fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1986 SelectObject (compat_hdc, orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1987 DeleteDC (compat_hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1988 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1989 else |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1990 w32_draw_rectangle (hdc, s->gc, x, y, |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1991 s->slice.width - 1, s->slice.height - 1); |
27402
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 SelectObject (hdc, orig_hdc_obj); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1994 DeleteDC (hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1995 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1996 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1997 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1998 /* 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
|
1999 give the rectangle to draw. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2000 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2001 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2002 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
|
2003 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2004 int x, y, w, h; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2005 { |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
2006 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2007 if (s->stippled_p) |
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 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2010 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2011 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
|
2012 XSetFillStyle (s->display, s->gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2013 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2014 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2015 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2016 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
|
2017 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2018 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2019 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2020 /* Draw image glyph string S. |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2021 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2022 s->y |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2023 s->x +------------------------- |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2024 | s->face->box |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2025 | |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2026 | +------------------------- |
35287
28e0cac22fbd
(x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
35000
diff
changeset
|
2027 | | s->img->vmargin |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2028 | | |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2029 | | +------------------- |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2030 | | | the image |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2031 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2032 */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2033 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2034 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2035 x_draw_image_glyph_string (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2036 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2037 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2038 int x, y; |
85258 | 2039 int box_line_hwidth = eabs (s->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
|
2040 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
|
2041 int height; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2042 HBITMAP pixmap = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2043 |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
2044 height = s->height - 2 * box_line_vwidth; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2045 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2046 /* 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
|
2047 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
|
2048 flickering. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2049 s->stippled_p = s->face->stipple != 0; |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2050 if (height > s->slice.height |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
2051 || s->img->hmargin |
35287
28e0cac22fbd
(x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
35000
diff
changeset
|
2052 || s->img->vmargin |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2053 || s->img->mask |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2054 || s->img->pixmap == 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2055 || s->width != s->background_width) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2056 { |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2057 x = s->x; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2058 if (s->first_glyph->left_box_line_p |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2059 && s->slice.x == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2060 x += box_line_hwidth; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2061 |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2062 y = s->y; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2063 if (s->slice.y == 0) |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2064 y += box_line_vwidth; |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2065 |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
2066 #if 0 /* TODO: figure out if we need to do this on Windows. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2067 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2068 { |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
2069 /* 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
|
2070 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
|
2071 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
|
2072 Screen *screen = FRAME_X_SCREEN (s->f); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2073 int depth = DefaultDepthOfScreen (screen); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2074 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2075 /* 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
|
2076 pixmap = XCreatePixmap (s->display, s->window, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2077 s->background_width, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2078 s->height, depth); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2079 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2080 /* 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
|
2081 pixmap. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2082 XSetClipMask (s->display, s->gc, None); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2083 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2084 /* Fill the pixmap with the background color/stipple. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2085 if (s->stippled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2086 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2087 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2088 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2089 XFillRectangle (s->display, pixmap, s->gc, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2090 0, 0, s->background_width, s->height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2091 XSetFillStyle (s->display, s->gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2092 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2093 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2094 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2095 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2096 XGetGCValues (s->display, s->gc, GCForeground | GCBackground, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2097 &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2098 XSetForeground (s->display, s->gc, xgcv.background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2099 XFillRectangle (s->display, pixmap, s->gc, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2100 0, 0, s->background_width, s->height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2101 XSetForeground (s->display, s->gc, xgcv.foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2102 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2103 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2104 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2105 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2106 x_draw_glyph_string_bg_rect (s, x, y, s->background_width, height); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2107 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2108 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2109 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2110 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2111 /* Draw the foreground. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2112 if (pixmap != 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2113 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2114 w32_draw_image_foreground_1 (s, pixmap); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2115 x_set_glyph_string_clipping (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2116 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2117 HDC compat_hdc = CreateCompatibleDC (s->hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2118 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2119 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2120 HGDIOBJ orig_obj = SelectObject (compat_hdc, pixmap); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2121 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2122 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2123 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2124 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
|
2125 compat_hdc, 0, 0, SRCCOPY); |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
2126 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2127 SelectObject (s->hdc, orig_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2128 DeleteObject (fg_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2129 SelectObject (compat_hdc, orig_obj); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2130 DeleteDC (compat_hdc); |
13434 | 2131 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2132 DeleteObject (pixmap); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2133 pixmap = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2134 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2135 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2136 x_draw_image_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2137 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2138 /* 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
|
2139 if (s->img->relief |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2140 || s->hl == DRAW_IMAGE_RAISED |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2141 || s->hl == DRAW_IMAGE_SUNKEN) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2142 x_draw_image_relief (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2143 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2146 /* Draw stretch glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2147 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2148 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2149 x_draw_stretch_glyph_string (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2150 struct glyph_string *s; |
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 xassert (s->first_glyph->type == STRETCH_GLYPH); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2153 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2154 if (s->hl == DRAW_CURSOR |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2155 && !x_stretch_cursor_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2156 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2157 /* 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
|
2158 as wide as the stretch glyph. */ |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2159 int width, background_width = s->background_width; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2160 int x = s->x, left_x = window_box_left_offset (s->w, TEXT_AREA); |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2161 |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2162 if (x < left_x) |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2163 { |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2164 background_width -= left_x - x; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2165 x = left_x; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2166 } |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2167 width = min (FRAME_COLUMN_WIDTH (s->f), background_width); |
27402
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 /* Draw cursor. */ |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2170 x_draw_glyph_string_bg_rect (s, x, s->y, width, s->height); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2171 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2172 /* Clear rest using the GC of the original non-cursor face. */ |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2173 if (width < background_width) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2174 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2175 XGCValues *gc = s->face->gc; |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2176 int y = s->y; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2177 int w = background_width - width, h = s->height; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2178 RECT r; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2179 HDC hdc = s->hdc; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2180 |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2181 x += width; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2182 if (s->row->mouse_face_p |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2183 && cursor_in_mouse_face_p (s->w)) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2184 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2185 x_set_mouse_face_gc (s); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2186 gc = s->gc; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2187 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2188 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2189 gc = s->face->gc; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2190 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2191 get_glyph_string_clip_rect (s, &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2192 w32_set_clip_rectangle (hdc, &r); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2193 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
2194 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2195 if (s->face->stipple) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2196 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2197 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2198 XSetFillStyle (s->display, gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2199 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
|
2200 XSetFillStyle (s->display, gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2201 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2202 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2203 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2204 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2205 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
|
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 } |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2209 else if (!s->background_filled_p) |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2210 { |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2211 int background_width = s->background_width; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2212 int x = s->x, left_x = window_box_left_offset (s->w, TEXT_AREA); |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2213 |
72470
3b82c004bf25
(x_draw_stretch_glyph_string): It is ok to draw a
Kim F. Storm <storm@cua.dk>
parents:
72008
diff
changeset
|
2214 /* Don't draw into left margin, fringe or scrollbar area |
3b82c004bf25
(x_draw_stretch_glyph_string): It is ok to draw a
Kim F. Storm <storm@cua.dk>
parents:
72008
diff
changeset
|
2215 except for header line and mode line. */ |
3b82c004bf25
(x_draw_stretch_glyph_string): It is ok to draw a
Kim F. Storm <storm@cua.dk>
parents:
72008
diff
changeset
|
2216 if (x < left_x && !s->row->mode_line_p) |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2217 { |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2218 background_width -= left_x - x; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2219 x = left_x; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2220 } |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2221 if (background_width > 0) |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2222 x_draw_glyph_string_bg_rect (s, x, s->y, background_width, s->height); |
71073
3aec67200140
(x_draw_stretch_glyph_string): Fix last change.
Kim F. Storm <storm@cua.dk>
parents:
71021
diff
changeset
|
2223 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2224 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2225 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2226 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2227 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2228 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2229 /* Draw glyph string S. */ |
13434 | 2230 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2231 static void |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2232 x_draw_glyph_string (s) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2233 struct glyph_string *s; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2234 { |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2235 int relief_drawn_p = 0; |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2236 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2237 /* 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
|
2238 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
|
2239 This makes S->next use XDrawString instead of XDrawImageString. */ |
65892
41fc0bf568be
Rename member for_overlaps_p in struct glyph_string to for_overlaps.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65444
diff
changeset
|
2240 if (s->next && s->right_overhang && !s->for_overlaps) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2241 { |
90834 | 2242 int width; |
2243 struct glyph_string *next; | |
99557
5cf4a15cedab
(x_draw_glyph_string): Stop drawing the background of the next glyph
Chong Yidong <cyd@stupidchicken.com>
parents:
99509
diff
changeset
|
2244 for (width = 0, next = s->next; |
5cf4a15cedab
(x_draw_glyph_string): Stop drawing the background of the next glyph
Chong Yidong <cyd@stupidchicken.com>
parents:
99509
diff
changeset
|
2245 next && width < s->right_overhang; |
90834 | 2246 width += next->width, next = next->next) |
2247 if (next->first_glyph->type != IMAGE_GLYPH) | |
2248 { | |
2249 x_set_glyph_string_gc (next); | |
2250 x_set_glyph_string_clipping (next); | |
99561
3ff54631d8b3
(x_draw_glyph_string): For stretch glyphs, don't call
Chong Yidong <cyd@stupidchicken.com>
parents:
99557
diff
changeset
|
2251 if (next->first_glyph->type == STRETCH_GLYPH) |
3ff54631d8b3
(x_draw_glyph_string): For stretch glyphs, don't call
Chong Yidong <cyd@stupidchicken.com>
parents:
99557
diff
changeset
|
2252 x_draw_stretch_glyph_string (next); |
3ff54631d8b3
(x_draw_glyph_string): For stretch glyphs, don't call
Chong Yidong <cyd@stupidchicken.com>
parents:
99557
diff
changeset
|
2253 else |
3ff54631d8b3
(x_draw_glyph_string): For stretch glyphs, don't call
Chong Yidong <cyd@stupidchicken.com>
parents:
99557
diff
changeset
|
2254 x_draw_glyph_string_background (next, 1); |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2255 next->num_clips = 0; |
90834 | 2256 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2257 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2258 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2259 /* 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
|
2260 x_set_glyph_string_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2261 |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2262 /* 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
|
2263 glyph string can be drawn over it. */ |
65892
41fc0bf568be
Rename member for_overlaps_p in struct glyph_string to for_overlaps.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65444
diff
changeset
|
2264 if (!s->for_overlaps |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2265 && s->face->box != FACE_NO_BOX |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2266 && (s->first_glyph->type == CHAR_GLYPH |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2267 || s->first_glyph->type == COMPOSITE_GLYPH)) |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2268 |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2269 { |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2270 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2271 x_draw_glyph_string_background (s, 1); |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2272 x_draw_glyph_string_box (s); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2273 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2274 relief_drawn_p = 1; |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2275 } |
95364
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2276 else if (!s->clip_head /* draw_glyphs didn't specify a clip mask. */ |
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2277 && !s->clip_tail |
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2278 && ((s->prev && s->prev->hl != s->hl && s->left_overhang) |
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2279 || (s->next && s->next->hl != s->hl && s->right_overhang))) |
90834 | 2280 /* We must clip just this glyph. left_overhang part has already |
2281 drawn when s->prev was drawn, and right_overhang part will be | |
2282 drawn later when s->next is drawn. */ | |
2283 x_set_glyph_string_clipping_exactly (s, s); | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2284 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2285 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2286 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2287 switch (s->first_glyph->type) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2288 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2289 case IMAGE_GLYPH: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2290 x_draw_image_glyph_string (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2291 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2292 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2293 case STRETCH_GLYPH: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2294 x_draw_stretch_glyph_string (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2295 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2296 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2297 case CHAR_GLYPH: |
65892
41fc0bf568be
Rename member for_overlaps_p in struct glyph_string to for_overlaps.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65444
diff
changeset
|
2298 if (s->for_overlaps) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2299 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2300 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2301 x_draw_glyph_string_background (s, 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2302 x_draw_glyph_string_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2303 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2304 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2305 case COMPOSITE_GLYPH: |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
2306 if (s->for_overlaps || (s->cmp_from > 0 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
2307 && ! s->first_glyph->u.cmp.automatic)) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2308 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2309 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2310 x_draw_glyph_string_background (s, 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2311 x_draw_composite_glyph_string_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2312 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2313 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2314 default: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2315 abort (); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2316 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2317 |
65892
41fc0bf568be
Rename member for_overlaps_p in struct glyph_string to for_overlaps.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
65444
diff
changeset
|
2318 if (!s->for_overlaps) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2319 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2320 /* Draw underline. */ |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2321 if (s->face->underline_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2322 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2323 unsigned long thickness, position; |
90867
129b35b0274f
(w32_native_per_char_metric): Swap width and rbearing
Jason Rumney <jasonr@gnu.org>
parents:
90834
diff
changeset
|
2324 int y; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2325 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2326 if (s->prev && s->prev->face->underline_p) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2327 { |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2328 /* We use the same underline style as the previous one. */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2329 thickness = s->prev->underline_thickness; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2330 position = s->prev->underline_position; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2331 } |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2332 else |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
2333 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2334 /* Get the underline thickness. Default is 1 pixel. */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2335 if (s->font && s->font->underline_thickness > 0) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2336 thickness = s->font->underline_thickness; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2337 else |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2338 thickness = 1; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2339 if (x_underline_at_descent_line) |
95296
e76b055e122c
(x_draw_glyph_string): Fix calculation of underline
Kenichi Handa <handa@m17n.org>
parents:
95247
diff
changeset
|
2340 position = (s->height - thickness) - (s->ybase - s->y); |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2341 else |
90834 | 2342 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2343 /* Get the underline position. This is the recommended |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2344 vertical offset in pixels from the baseline to the top of |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2345 the underline. This is a signed value according to the |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2346 specs, and its default is |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2347 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2348 ROUND ((maximum_descent) / 2), with |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2349 ROUND (x) = floor (x + 0.5) */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2350 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2351 if (x_use_underline_position_properties |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2352 && s->font && s->font->underline_position >= 0) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2353 position = s->font->underline_position; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2354 else if (s->font) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2355 position = (s->font->descent + 1) / 2; |
90834 | 2356 } |
95792
953225ddde83
* xdisp.c (underline_minimum_offset): Rename from xterm.c's
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95733
diff
changeset
|
2357 position = max (position, underline_minimum_offset); |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
2358 } |
95247
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2359 /* Check the sanity of thickness and position. We should |
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2360 avoid drawing underline out of the current line area. */ |
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2361 if (s->y + s->height <= s->ybase + position) |
95296
e76b055e122c
(x_draw_glyph_string): Fix calculation of underline
Kenichi Handa <handa@m17n.org>
parents:
95247
diff
changeset
|
2362 position = (s->height - 1) - (s->ybase - s->y); |
95247
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2363 if (s->y + s->height < s->ybase + position + thickness) |
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2364 thickness = (s->y + s->height) - (s->ybase + position); |
95240
b4799755ba3d
(x_draw_glyph_string): Be sure to update
Kenichi Handa <handa@m17n.org>
parents:
95170
diff
changeset
|
2365 s->underline_thickness = thickness; |
b4799755ba3d
(x_draw_glyph_string): Be sure to update
Kenichi Handa <handa@m17n.org>
parents:
95170
diff
changeset
|
2366 s->underline_position =position; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2367 y = s->ybase + position; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2368 if (s->face->underline_defaulted_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2369 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2370 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x, |
90867
129b35b0274f
(w32_native_per_char_metric): Swap width and rbearing
Jason Rumney <jasonr@gnu.org>
parents:
90834
diff
changeset
|
2371 y, s->background_width, 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2372 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2373 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2374 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2375 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x, |
90867
129b35b0274f
(w32_native_per_char_metric): Swap width and rbearing
Jason Rumney <jasonr@gnu.org>
parents:
90834
diff
changeset
|
2376 y, s->background_width, 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2377 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2378 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2379 /* Draw overline. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2380 if (s->face->overline_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2381 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2382 unsigned long dy = 0, h = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2383 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2384 if (s->face->overline_color_defaulted_p) |
90834 | 2385 { |
2386 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x, | |
2387 s->y + dy, s->background_width, h); | |
2388 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2389 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2390 { |
57626
d208db2b5db2
(x_draw_glyph_string): Use overline_color for overlines.
Jason Rumney <jasonr@gnu.org>
parents:
57560
diff
changeset
|
2391 w32_fill_area (s->f, s->hdc, s->face->overline_color, s->x, |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
2392 s->y + dy, s->background_width, h); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2393 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2394 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2395 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2396 /* Draw strike-through. */ |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2397 if (s->face->strike_through_p |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
2398 && !FONT_TEXTMETRIC(s->font).tmStruckOut) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2399 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2400 unsigned long h = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2401 unsigned long dy = (s->height - h) / 2; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2402 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2403 if (s->face->strike_through_color_defaulted_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2404 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2405 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
|
2406 s->width, h); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2407 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2408 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2409 { |
78858
266d9baa6dec
(x_draw_glyph_string): Use strike_through_color, not underline_color,
Juanma Barranquero <lekktu@gmail.com>
parents:
78501
diff
changeset
|
2410 w32_fill_area (s->f, s->hdc, s->face->strike_through_color, s->x, |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2411 s->y + dy, s->width, h); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2412 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2413 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2414 |
90834 | 2415 /* Draw relief if not yet drawn. */ |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2416 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
|
2417 x_draw_glyph_string_box (s); |
90834 | 2418 |
2419 if (s->prev) | |
2420 { | |
2421 struct glyph_string *prev; | |
2422 | |
2423 for (prev = s->prev; prev; prev = prev->prev) | |
2424 if (prev->hl != s->hl | |
2425 && prev->x + prev->width + prev->right_overhang > s->x) | |
2426 { | |
2427 /* As prev was drawn while clipped to its own area, we | |
2428 must draw the right_overhang part using s->hl now. */ | |
2429 enum draw_glyphs_face save = prev->hl; | |
2430 | |
2431 prev->hl = s->hl; | |
2432 x_set_glyph_string_gc (prev); | |
2433 x_set_glyph_string_clipping_exactly (s, prev); | |
2434 if (prev->first_glyph->type == CHAR_GLYPH) | |
2435 x_draw_glyph_string_foreground (prev); | |
2436 else | |
2437 x_draw_composite_glyph_string_foreground (prev); | |
2438 w32_set_clip_rectangle (prev->hdc, NULL); | |
2439 prev->hl = save; | |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2440 prev->num_clips = 0; |
90834 | 2441 } |
2442 } | |
2443 | |
2444 if (s->next) | |
2445 { | |
2446 struct glyph_string *next; | |
2447 | |
2448 for (next = s->next; next; next = next->next) | |
2449 if (next->hl != s->hl | |
2450 && next->x - next->left_overhang < s->x + s->width) | |
2451 { | |
2452 /* As next will be drawn while clipped to its own area, | |
2453 we must draw the left_overhang part using s->hl now. */ | |
2454 enum draw_glyphs_face save = next->hl; | |
2455 | |
2456 next->hl = s->hl; | |
2457 x_set_glyph_string_gc (next); | |
2458 x_set_glyph_string_clipping_exactly (s, next); | |
2459 if (next->first_glyph->type == CHAR_GLYPH) | |
2460 x_draw_glyph_string_foreground (next); | |
2461 else | |
2462 x_draw_composite_glyph_string_foreground (next); | |
2463 w32_set_clip_rectangle (next->hdc, NULL); | |
2464 next->hl = save; | |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2465 next->num_clips = 0; |
90834 | 2466 } |
2467 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2468 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2469 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2470 /* Reset clipping. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2471 w32_set_clip_rectangle (s->hdc, NULL); |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2472 s->num_clips = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2473 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2474 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2475 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2476 /* Shift display to make room for inserted glyphs. */ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2477 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2478 void |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2479 w32_shift_glyphs_for_insert (f, x, y, width, height, shift_by) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2480 struct frame *f; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2481 int x, y, width, height, shift_by; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2482 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2483 HDC hdc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2484 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2485 hdc = get_frame_dc (f); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2486 BitBlt (hdc, x + shift_by, y, width, height, |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2487 hdc, x, y, SRCCOPY); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2488 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2489 release_frame_dc (f, hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2490 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2491 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2492 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2493 /* 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
|
2494 for X frames. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2495 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2496 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2497 x_delete_glyphs (f, n) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2498 struct frame *f; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2499 register int n; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2500 { |
35000 | 2501 if (! FRAME_W32_P (f)) |
2502 return; | |
2503 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2504 abort (); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2505 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2506 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2507 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2508 /* 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
|
2509 frame. Otherwise clear the selected frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2510 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2511 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2512 x_clear_frame (struct frame *f) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2513 { |
35000 | 2514 if (! FRAME_W32_P (f)) |
2515 return; | |
2516 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2517 /* 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
|
2518 longer visible. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2519 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
|
2520 output_cursor.hpos = output_cursor.vpos = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2521 output_cursor.x = -1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2522 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2523 /* 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
|
2524 follow an explicit cursor_to. */ |
13434 | 2525 BLOCK_INPUT; |
2526 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2527 w32_clear_window (f); |
13434 | 2528 |
2529 /* We have to clear the scroll bars, too. If we have changed | |
2530 colors or something like that, then they should be notified. */ | |
2531 x_scroll_bar_clear (f); | |
2532 | |
2533 UNBLOCK_INPUT; | |
2534 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2535 |
13434 | 2536 |
2537 /* Make audible bell. */ | |
2538 | |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2539 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2540 w32_ring_bell (struct frame *f) |
13434 | 2541 { |
2542 BLOCK_INPUT; | |
2543 | |
35449
98d65e364070
(w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents:
35384
diff
changeset
|
2544 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
|
2545 { |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2546 int i; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2547 HWND hwnd = FRAME_W32_WINDOW (f); |
22059
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2548 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2549 for (i = 0; i < 5; i++) |
22059
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2550 { |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2551 FlashWindow (hwnd, TRUE); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2552 Sleep (10); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2553 } |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2554 FlashWindow (hwnd, FALSE); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2555 } |
13434 | 2556 else |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2557 w32_sys_ring_bell (f); |
13434 | 2558 |
2559 UNBLOCK_INPUT; | |
2560 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2561 |
13434 | 2562 |
2563 /* Specify how many text lines, from the top of the window, | |
2564 should be affected by insert-lines and delete-lines operations. | |
2565 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
|
2566 that is bounded by calls to x_update_begin and x_update_end. */ |
13434 | 2567 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2568 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2569 w32_set_terminal_window (n) |
13434 | 2570 register int n; |
2571 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2572 /* This function intentionally left blank. */ |
13434 | 2573 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2574 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2575 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2576 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2577 Line Dance |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2578 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2579 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2580 /* 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
|
2581 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
|
2582 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2583 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2584 x_ins_del_lines (f, vpos, n) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2585 struct frame *f; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2586 int vpos, n; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2587 { |
35000 | 2588 if (! FRAME_W32_P (f)) |
2589 return; | |
2590 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2591 abort (); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2592 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2593 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2594 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2595 /* 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
|
2596 |
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2597 static void |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2598 x_scroll_run (w, run) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2599 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2600 struct run *run; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2601 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2602 struct frame *f = XFRAME (w->frame); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2603 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
|
2604 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
|
2605 HRGN expect_dirty; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2606 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2607 /* Get frame-relative bounding box of the text display area of W, |
41125 | 2608 without mode lines. Include in this box the left and right |
2609 fringes of W. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2610 window_box (w, -1, &x, &y, &width, &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 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
|
2613 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
|
2614 bottom_y = y + height; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2615 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2616 if (to_y < from_y) |
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 /* 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
|
2619 line at the bottom. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2620 if (from_y + run->height > bottom_y) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2621 height = bottom_y - from_y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2622 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2623 height = run->height; |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2624 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
|
2625 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2626 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2627 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2628 /* 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
|
2629 at the bottom. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2630 if (to_y + run->height > bottom_y) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2631 height = bottom_y - to_y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2632 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2633 height = run->height; |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2634 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
|
2635 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2636 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2637 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2638 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2639 /* 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
|
2640 updated_window = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2641 x_clear_cursor (w); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2642 |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2643 { |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2644 RECT from; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2645 RECT to; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2646 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
|
2647 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
|
2648 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2649 from.left = to.left = x; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2650 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
|
2651 from.top = from_y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2652 from.bottom = from_y + height; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2653 to.top = y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2654 to.bottom = bottom_y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2655 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2656 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
|
2657 NULL, SW_INVALIDATE); |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2658 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2659 /* 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
|
2660 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
|
2661 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
|
2662 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2663 /* 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
|
2664 if (!EqualRgn (combined, expect_dirty)) |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2665 SET_FRAME_GARBAGED (f); |
57837
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2666 |
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2667 DeleteObject (dirty); |
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2668 DeleteObject (combined); |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2669 } |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2670 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2671 UNBLOCK_INPUT; |
57837
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2672 DeleteObject (expect_dirty); |
27402
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 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2675 |
27402
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 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2678 Exposure Events |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2679 ***********************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2680 |
13434 | 2681 static void |
2682 frame_highlight (f) | |
2683 struct frame *f; | |
2684 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2685 x_update_cursor (f, 1); |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
2686 x_set_frame_alpha (f); |
13434 | 2687 } |
2688 | |
2689 static void | |
2690 frame_unhighlight (f) | |
2691 struct frame *f; | |
2692 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2693 x_update_cursor (f, 1); |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
2694 x_set_frame_alpha (f); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2695 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2696 |
13434 | 2697 /* The focus has changed. Update the frames as necessary to reflect |
2698 the new situation. Note that we can't change the selected frame | |
2699 here, because the Lisp code we are interrupting might become confused. | |
2700 Each event gets marked with the frame in which it occurred, so the | |
2701 Lisp code can tell when the switch took place by examining the events. */ | |
2702 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2703 static void |
13434 | 2704 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
|
2705 struct w32_display_info *dpyinfo; |
13434 | 2706 struct frame *frame; |
2707 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2708 struct frame *old_focus = dpyinfo->w32_focus_frame; |
13434 | 2709 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2710 if (frame != dpyinfo->w32_focus_frame) |
13434 | 2711 { |
2712 /* 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
|
2713 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
|
2714 dpyinfo->w32_focus_frame = frame; |
13434 | 2715 |
2716 if (old_focus && old_focus->auto_lower) | |
2717 x_lower_frame (old_focus); | |
2718 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2719 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
|
2720 pending_autoraise_frame = dpyinfo->w32_focus_frame; |
13434 | 2721 else |
2722 pending_autoraise_frame = 0; | |
2723 } | |
2724 | |
2725 x_frame_rehighlight (dpyinfo); | |
2726 } | |
2727 | |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2728 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2729 /* Handle FocusIn and FocusOut state changes for FRAME. |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2730 If FRAME has focus and there exists more than one frame, puts |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2731 a FOCUS_IN_EVENT into *BUFP. */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2732 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2733 static void |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2734 x_focus_changed (type, state, dpyinfo, frame, bufp) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2735 int type; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2736 int state; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2737 struct w32_display_info *dpyinfo; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2738 struct frame *frame; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2739 struct input_event *bufp; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2740 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2741 if (type == WM_SETFOCUS) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2742 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2743 if (dpyinfo->w32_focus_event_frame != frame) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2744 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2745 x_new_focus_frame (dpyinfo, frame); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2746 dpyinfo->w32_focus_event_frame = frame; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2747 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2748 /* Don't stop displaying the initial startup message |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2749 for a switch-frame event we don't need. */ |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
2750 if (NILP (Vterminal_frame) |
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
2751 && CONSP (Vframe_list) |
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
2752 && !NILP (XCDR (Vframe_list))) |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2753 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2754 bufp->kind = FOCUS_IN_EVENT; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2755 XSETFRAME (bufp->frame_or_window, frame); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2756 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2757 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2758 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2759 frame->output_data.x->focus_state |= state; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2760 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2761 /* TODO: IME focus? */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2762 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2763 else if (type == WM_KILLFOCUS) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2764 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2765 frame->output_data.x->focus_state &= ~state; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2766 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2767 if (dpyinfo->w32_focus_event_frame == frame) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2768 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2769 dpyinfo->w32_focus_event_frame = 0; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2770 x_new_focus_frame (dpyinfo, 0); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2771 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2772 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2773 /* TODO: IME focus? */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2774 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2775 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2776 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2777 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2778 /* The focus may have changed. Figure out if it is a real focus change, |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2779 by checking both FocusIn/Out and Enter/LeaveNotify events. |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2780 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2781 Returns FOCUS_IN_EVENT event in *BUFP. */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2782 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2783 static void |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2784 w32_detect_focus_change (dpyinfo, event, bufp) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2785 struct w32_display_info *dpyinfo; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2786 W32Msg *event; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2787 struct input_event *bufp; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2788 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2789 struct frame *frame; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2790 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2791 frame = x_any_window_to_frame (dpyinfo, event->msg.hwnd); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2792 if (! frame) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2793 return; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2794 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2795 /* On w32, this is only called from focus events, so no switch needed. */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2796 x_focus_changed (event->msg.message, |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2797 (event->msg.message == WM_KILLFOCUS ? |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2798 FOCUS_IMPLICIT : FOCUS_EXPLICIT), |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2799 dpyinfo, frame, bufp); |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2800 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2801 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2802 |
13434 | 2803 /* Handle an event saying the mouse has moved out of an Emacs frame. */ |
2804 | |
2805 void | |
2806 x_mouse_leave (dpyinfo) | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2807 struct w32_display_info *dpyinfo; |
13434 | 2808 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2809 x_new_focus_frame (dpyinfo, dpyinfo->w32_focus_event_frame); |
13434 | 2810 } |
2811 | |
2812 /* The focus has changed, or we have redirected a frame's focus to | |
2813 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
|
2814 mini-buffer frame). Shift the highlight as appropriate. |
13434 | 2815 |
2816 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
|
2817 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
|
2818 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
|
2819 |
13434 | 2820 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2821 w32_frame_rehighlight (frame) |
13434 | 2822 struct frame *frame; |
2823 { | |
35000 | 2824 if (! FRAME_W32_P (frame)) |
2825 return; | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2826 x_frame_rehighlight (FRAME_W32_DISPLAY_INFO (frame)); |
13434 | 2827 } |
2828 | |
2829 static void | |
2830 x_frame_rehighlight (dpyinfo) | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2831 struct w32_display_info *dpyinfo; |
13434 | 2832 { |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2833 struct frame *old_highlight = dpyinfo->x_highlight_frame; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2834 |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2835 if (dpyinfo->w32_focus_frame) |
13434 | 2836 { |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2837 dpyinfo->x_highlight_frame |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
2838 = ((FRAMEP (FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame))) |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2839 ? 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
|
2840 : dpyinfo->w32_focus_frame); |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2841 if (! FRAME_LIVE_P (dpyinfo->x_highlight_frame)) |
13434 | 2842 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2843 FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame) = Qnil; |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2844 dpyinfo->x_highlight_frame = dpyinfo->w32_focus_frame; |
13434 | 2845 } |
2846 } | |
2847 else | |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2848 dpyinfo->x_highlight_frame = 0; |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2849 |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2850 if (dpyinfo->x_highlight_frame != old_highlight) |
13434 | 2851 { |
2852 if (old_highlight) | |
2853 frame_unhighlight (old_highlight); | |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2854 if (dpyinfo->x_highlight_frame) |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2855 frame_highlight (dpyinfo->x_highlight_frame); |
13434 | 2856 } |
2857 } | |
2858 | |
2859 /* Keyboard processing - modifier keys, etc. */ | |
2860 | |
2861 /* Convert a keysym to its name. */ | |
2862 | |
2863 char * | |
2864 x_get_keysym_name (keysym) | |
2865 int keysym; | |
2866 { | |
2867 /* Make static so we can always return it */ | |
2868 static char value[100]; | |
2869 | |
2870 BLOCK_INPUT; | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
2871 GetKeyNameText (keysym, value, 100); |
13434 | 2872 UNBLOCK_INPUT; |
2873 | |
2874 return value; | |
2875 } | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2876 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2877 |
13434 | 2878 |
2879 /* Mouse clicks and mouse movement. Rah. */ | |
2880 | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2881 /* 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
|
2882 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
|
2883 button messages. Returns FALSE if unable to parse the message. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2884 BOOL |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2885 parse_button (message, xbutton, pbutton, pup) |
13434 | 2886 int message; |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2887 int xbutton; |
13434 | 2888 int * pbutton; |
2889 int * pup; | |
2890 { | |
2891 int button = 0; | |
2892 int up = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2893 |
13434 | 2894 switch (message) |
2895 { | |
2896 case WM_LBUTTONDOWN: | |
2897 button = 0; | |
2898 up = 0; | |
2899 break; | |
2900 case WM_LBUTTONUP: | |
2901 button = 0; | |
2902 up = 1; | |
2903 break; | |
2904 case WM_MBUTTONDOWN: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2905 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2906 button = 1; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2907 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2908 button = 2; |
13434 | 2909 up = 0; |
2910 break; | |
2911 case WM_MBUTTONUP: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2912 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2913 button = 1; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2914 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2915 button = 2; |
13434 | 2916 up = 1; |
2917 break; | |
2918 case WM_RBUTTONDOWN: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2919 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2920 button = 2; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2921 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2922 button = 1; |
13434 | 2923 up = 0; |
2924 break; | |
2925 case WM_RBUTTONUP: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2926 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2927 button = 2; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2928 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2929 button = 1; |
13434 | 2930 up = 1; |
2931 break; | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2932 case WM_XBUTTONDOWN: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2933 button = xbutton + 2; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2934 up = 0; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2935 break; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2936 case WM_XBUTTONUP: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2937 button = xbutton + 2; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2938 up = 1; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2939 break; |
13434 | 2940 default: |
2941 return (FALSE); | |
2942 } | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2943 |
13434 | 2944 if (pup) *pup = up; |
2945 if (pbutton) *pbutton = button; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2946 |
13434 | 2947 return (TRUE); |
2948 } | |
2949 | |
2950 | |
2951 /* Prepare a mouse-event in *RESULT for placement in the input queue. | |
2952 | |
2953 If the event is a button press, then note that we have grabbed | |
2954 the mouse. */ | |
2955 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2956 static Lisp_Object |
13434 | 2957 construct_mouse_click (result, msg, f) |
2958 struct input_event *result; | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2959 W32Msg *msg; |
13434 | 2960 struct frame *f; |
2961 { | |
2962 int button; | |
2963 int up; | |
2964 | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2965 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
|
2966 &button, &up); |
13434 | 2967 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
2968 /* Make the event type NO_EVENT; we'll change that when we decide |
13434 | 2969 otherwise. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
2970 result->kind = MOUSE_CLICK_EVENT; |
13434 | 2971 result->code = button; |
2972 result->timestamp = msg->msg.time; | |
2973 result->modifiers = (msg->dwModifiers | |
2974 | (up | |
2975 ? up_modifier | |
2976 : down_modifier)); | |
2977 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2978 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
|
2979 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
|
2980 XSETFRAME (result->frame_or_window, f); |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2981 result->arg = Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2982 return Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2983 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2984 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2985 static Lisp_Object |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2986 construct_mouse_wheel (result, msg, f) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2987 struct input_event *result; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2988 W32Msg *msg; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2989 struct frame *f; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2990 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2991 POINT p; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2992 int delta; |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2993 |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
2994 result->kind = msg->msg.message == WM_MOUSEHWHEEL ? HORIZ_WHEEL_EVENT |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
2995 : WHEEL_EVENT; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2996 result->code = 0; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2997 result->timestamp = msg->msg.time; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2998 |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2999 /* A WHEEL_DELTA positive value indicates that the wheel was rotated |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3000 forward, away from the user (up); a negative value indicates that |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3001 the wheel was rotated backward, toward the user (down). */ |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3002 delta = GET_WHEEL_DELTA_WPARAM (msg->msg.wParam); |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3003 |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3004 /* The up and down modifiers indicate if the wheel was rotated up or |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3005 down based on WHEEL_DELTA value. */ |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3006 result->modifiers = (msg->dwModifiers |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3007 | ((delta < 0 ) ? down_modifier : up_modifier)); |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
3008 |
70234
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
3009 /* With multiple monitors, we can legitimately get negative |
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
3010 coordinates, so cast to short to interpret them correctly. */ |
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
3011 p.x = (short) LOWORD (msg->msg.lParam); |
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
3012 p.y = (short) 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
|
3013 ScreenToClient (msg->msg.hwnd, &p); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3014 XSETINT (result->x, p.x); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3015 XSETINT (result->y, p.y); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3016 XSETFRAME (result->frame_or_window, f); |
30199
298f10cd4ba5
(construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents:
30179
diff
changeset
|
3017 result->arg = Qnil; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3018 return Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3019 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3020 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3021 static Lisp_Object |
21885 | 3022 construct_drag_n_drop (result, msg, f) |
3023 struct input_event *result; | |
3024 W32Msg *msg; | |
3025 struct frame *f; | |
3026 { | |
3027 Lisp_Object files; | |
3028 Lisp_Object frame; | |
3029 HDROP hdrop; | |
3030 POINT p; | |
3031 WORD num_files; | |
3032 char *name; | |
3033 int i, len; | |
3034 | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
3035 result->kind = DRAG_N_DROP_EVENT; |
21885 | 3036 result->code = 0; |
3037 result->timestamp = msg->msg.time; | |
3038 result->modifiers = msg->dwModifiers; | |
3039 | |
24265
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
3040 hdrop = (HDROP) msg->msg.wParam; |
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
3041 DragQueryPoint (hdrop, &p); |
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
3042 |
24674 | 3043 #if 0 |
21885 | 3044 p.x = LOWORD (msg->msg.lParam); |
3045 p.y = HIWORD (msg->msg.lParam); | |
3046 ScreenToClient (msg->msg.hwnd, &p); | |
24674 | 3047 #endif |
3048 | |
21885 | 3049 XSETINT (result->x, p.x); |
3050 XSETINT (result->y, p.y); | |
3051 | |
3052 num_files = DragQueryFile (hdrop, 0xFFFFFFFF, NULL, 0); | |
3053 files = Qnil; | |
3054 | |
3055 for (i = 0; i < num_files; i++) | |
3056 { | |
3057 len = DragQueryFile (hdrop, i, NULL, 0); | |
3058 if (len <= 0) | |
3059 continue; | |
3060 name = alloca (len + 1); | |
3061 DragQueryFile (hdrop, i, name, len + 1); | |
44641
3afb0684cbc2
(construct_drag_n_drop): Likewise.
Jason Rumney <jasonr@gnu.org>
parents:
44359
diff
changeset
|
3062 files = Fcons (DECODE_FILE (build_string (name)), files); |
21885 | 3063 } |
3064 | |
3065 DragFinish (hdrop); | |
3066 | |
3067 XSETFRAME (frame, f); | |
67669
31fb537a065c
(construct_drag_n_drop): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66081
diff
changeset
|
3068 result->frame_or_window = frame; |
31fb537a065c
(construct_drag_n_drop): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66081
diff
changeset
|
3069 result->arg = files; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3070 return Qnil; |
21885 | 3071 } |
3072 | |
13434 | 3073 |
3074 /* Function to report a mouse movement to the mainstream Emacs code. | |
3075 The input handler calls this. | |
3076 | |
3077 We have received a mouse movement event, which is given in *event. | |
3078 If the mouse is over a different glyph than it was last time, tell | |
3079 the mainstream emacs code by setting mouse_moved. If not, ask for | |
3080 another motion event, so we can check again the next time it moves. */ | |
3081 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3082 static MSG last_mouse_motion_event; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3083 static Lisp_Object last_mouse_motion_frame; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3084 |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3085 static int |
13434 | 3086 note_mouse_movement (frame, msg) |
3087 FRAME_PTR frame; | |
3088 MSG *msg; | |
3089 { | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3090 int mouse_x = LOWORD (msg->lParam); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3091 int mouse_y = HIWORD (msg->lParam); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3092 |
13434 | 3093 last_mouse_movement_time = msg->time; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3094 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
|
3095 XSETFRAME (last_mouse_motion_frame, frame); |
13434 | 3096 |
90834 | 3097 if (!FRAME_X_OUTPUT (frame)) |
3098 return 0; | |
3099 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3100 if (msg->hwnd != FRAME_W32_WINDOW (frame)) |
13434 | 3101 { |
3102 frame->mouse_moved = 1; | |
3103 last_mouse_scroll_bar = Qnil; | |
3104 note_mouse_highlight (frame, -1, -1); | |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3105 last_mouse_glyph_frame = 0; |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3106 return 1; |
13434 | 3107 } |
3108 | |
3109 /* Has the mouse moved off the glyph it was on at the last sighting? */ | |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3110 if (frame != last_mouse_glyph_frame |
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3111 || mouse_x < last_mouse_glyph.left |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3112 || mouse_x >= last_mouse_glyph.right |
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3113 || mouse_y < last_mouse_glyph.top |
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3114 || mouse_y >= last_mouse_glyph.bottom) |
13434 | 3115 { |
3116 frame->mouse_moved = 1; | |
3117 last_mouse_scroll_bar = Qnil; | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3118 note_mouse_highlight (frame, mouse_x, mouse_y); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3119 /* 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
|
3120 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
|
3121 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
|
3122 other times. */ |
66034
d1a8711a8c3a
(note_mouse_movement): Fix last_mouse_glyph check.
Kim F. Storm <storm@cua.dk>
parents:
65892
diff
changeset
|
3123 remember_mouse_glyph (frame, mouse_x, mouse_y, &last_mouse_glyph); |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3124 last_mouse_glyph_frame = frame; |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3125 return 1; |
13434 | 3126 } |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3127 |
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
3128 return 0; |
13434 | 3129 } |
3130 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3131 |
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 Mouse Face |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3134 ************************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3135 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3136 static struct scroll_bar *x_window_to_scroll_bar (); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3137 static void x_scroll_bar_report_motion (); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3138 static void x_check_fullscreen P_ ((struct frame *)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3139 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3140 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3141 redo_mouse_highlight () |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3142 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3143 if (!NILP (last_mouse_motion_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3144 && FRAME_LIVE_P (XFRAME (last_mouse_motion_frame))) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3145 note_mouse_highlight (XFRAME (last_mouse_motion_frame), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3146 LOWORD (last_mouse_motion_event.lParam), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3147 HIWORD (last_mouse_motion_event.lParam)); |
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 |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
3150 static void |
49371
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3151 w32_define_cursor (window, cursor) |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3152 Window window; |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3153 Cursor cursor; |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3154 { |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3155 PostMessage (window, WM_EMACS_SETCURSOR, (WPARAM) cursor, 0); |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3156 } |
13434 | 3157 /* Return the current position of the mouse. |
3158 *fp should be a frame which indicates which display to ask about. | |
3159 | |
3160 If the mouse movement started in a scroll bar, set *fp, *bar_window, | |
3161 and *part to the frame, window, and scroll bar part that the mouse | |
3162 is over. Set *x and *y to the portion and whole of the mouse's | |
3163 position on the scroll bar. | |
3164 | |
3165 If the mouse movement started elsewhere, set *fp to the frame the | |
3166 mouse is on, *bar_window to nil, and *x and *y to the character cell | |
3167 the mouse is over. | |
3168 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3169 Set *time to the server time-stamp for the time at which the mouse |
13434 | 3170 was at this position. |
3171 | |
3172 Don't store anything if we don't have a valid set of values to report. | |
3173 | |
3174 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
|
3175 movement. */ |
13434 | 3176 |
3177 static void | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3178 w32_mouse_position (fp, insist, bar_window, part, x, y, time) |
13434 | 3179 FRAME_PTR *fp; |
3180 int insist; | |
3181 Lisp_Object *bar_window; | |
3182 enum scroll_bar_part *part; | |
3183 Lisp_Object *x, *y; | |
3184 unsigned long *time; | |
3185 { | |
3186 FRAME_PTR f1; | |
3187 | |
3188 BLOCK_INPUT; | |
3189 | |
20179
b4fe0e8ac819
(w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19713
diff
changeset
|
3190 if (! NILP (last_mouse_scroll_bar) && insist == 0) |
13434 | 3191 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time); |
3192 else | |
3193 { | |
3194 POINT pt; | |
3195 | |
3196 Lisp_Object frame, tail; | |
3197 | |
3198 /* Clear the mouse-moved flag for every frame on this display. */ | |
3199 FOR_EACH_FRAME (tail, frame) | |
3200 XFRAME (frame)->mouse_moved = 0; | |
3201 | |
3202 last_mouse_scroll_bar = Qnil; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3203 |
13434 | 3204 GetCursorPos (&pt); |
3205 | |
3206 /* Now we have a position on the root; find the innermost window | |
3207 containing the pointer. */ | |
3208 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3209 if (FRAME_W32_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame |
13434 | 3210 && FRAME_LIVE_P (last_mouse_frame)) |
3211 { | |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
3212 /* 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
|
3213 even if the mouse is now outside it. */ |
13434 | 3214 f1 = last_mouse_frame; |
3215 } | |
3216 else | |
3217 { | |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
3218 /* Is window under mouse one of our frames? */ |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3219 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
|
3220 WindowFromPoint (pt)); |
13434 | 3221 } |
3222 | |
3223 /* If not, is it one of our scroll bars? */ | |
3224 if (! f1) | |
3225 { | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3226 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
|
3227 = x_window_to_scroll_bar (WindowFromPoint (pt)); |
13434 | 3228 |
3229 if (bar) | |
3230 { | |
3231 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); | |
3232 } | |
3233 } | |
3234 | |
20179
b4fe0e8ac819
(w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19713
diff
changeset
|
3235 if (f1 == 0 && insist > 0) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3236 f1 = SELECTED_FRAME (); |
13434 | 3237 |
3238 if (f1) | |
3239 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3240 /* 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
|
3241 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
|
3242 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
|
3243 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
|
3244 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
|
3245 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
|
3246 the frame are divided into. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3247 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3248 ScreenToClient (FRAME_W32_WINDOW (f1), &pt); |
66034
d1a8711a8c3a
(note_mouse_movement): Fix last_mouse_glyph check.
Kim F. Storm <storm@cua.dk>
parents:
65892
diff
changeset
|
3249 remember_mouse_glyph (f1, pt.x, pt.y, &last_mouse_glyph); |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3250 last_mouse_glyph_frame = f1; |
13434 | 3251 |
3252 *bar_window = Qnil; | |
3253 *part = 0; | |
3254 *fp = f1; | |
3255 XSETINT (*x, pt.x); | |
3256 XSETINT (*y, pt.y); | |
3257 *time = last_mouse_movement_time; | |
3258 } | |
3259 } | |
3260 } | |
3261 | |
3262 UNBLOCK_INPUT; | |
3263 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3264 |
13434 | 3265 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3266 /*********************************************************************** |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3267 Tool-bars |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3268 ***********************************************************************/ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3269 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3270 /* Handle mouse button event on the tool-bar of frame F, at |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3271 frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3272 or ButtonRelase. */ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3273 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3274 static void |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3275 w32_handle_tool_bar_click (f, button_event) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3276 struct frame *f; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3277 struct input_event *button_event; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3278 { |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3279 int x = XFASTINT (button_event->x); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3280 int y = XFASTINT (button_event->y); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3281 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3282 if (button_event->modifiers & down_modifier) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3283 handle_tool_bar_click (f, x, y, 1, 0); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3284 else |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3285 handle_tool_bar_click (f, x, y, 0, |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3286 button_event->modifiers & ~up_modifier); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3287 } |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3288 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3289 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3290 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3291 /*********************************************************************** |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3292 Scroll bars |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3293 ***********************************************************************/ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3294 |
13434 | 3295 /* Scroll bar support. */ |
3296 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3297 /* Given a window ID, find the struct scroll_bar which manages it. |
13434 | 3298 This can be called in GC, so we have to make sure to strip off mark |
3299 bits. */ | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3300 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3301 static struct scroll_bar * |
13434 | 3302 x_window_to_scroll_bar (window_id) |
3303 Window window_id; | |
3304 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3305 Lisp_Object tail; |
13434 | 3306 |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3307 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail)) |
13434 | 3308 { |
3309 Lisp_Object frame, bar, condemned; | |
3310 | |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25236
diff
changeset
|
3311 frame = XCAR (tail); |
13434 | 3312 /* All elements of Vframe_list should be frames. */ |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3313 if (! FRAMEP (frame)) |
13434 | 3314 abort (); |
3315 | |
3316 /* Scan this frame's scroll bar list for a scroll bar with the | |
3317 right window ID. */ | |
3318 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame)); | |
3319 for (bar = FRAME_SCROLL_BARS (XFRAME (frame)); | |
3320 /* This trick allows us to search both the ordinary and | |
3321 condemned scroll bar lists with one loop. */ | |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3322 ! NILP (bar) || (bar = condemned, |
13434 | 3323 condemned = Qnil, |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3324 ! NILP (bar)); |
13434 | 3325 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
|
3326 if (SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar)) == window_id) |
13434 | 3327 return XSCROLL_BAR (bar); |
3328 } | |
3329 | |
3330 return 0; | |
3331 } | |
3332 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3333 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3334 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3335 /* 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
|
3336 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
|
3337 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3338 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3339 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
|
3340 struct scroll_bar *bar; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3341 int portion, position, whole; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3342 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3343 Window w = SCROLL_BAR_W32_WINDOW (bar); |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3344 /* We use the whole scroll-bar height in the calculations below, to |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3345 avoid strange effects like scrolling backwards when just clicking |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3346 on the handle (without moving it). */ |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3347 double range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3348 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3349 int sb_page, sb_pos; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3350 BOOL draggingp = !NILP (bar->dragging) ? TRUE : FALSE; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3351 SCROLLINFO si; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3352 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3353 /* We used to change the nPage setting while dragging the handle, |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3354 but that had very strange effects (such as scrolling backwards |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3355 while dragging downwards). |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3356 |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3357 Now, we don't change the nPage setting while dragging unless we |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3358 get near to the end of the buffer, in which case we often have to |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3359 resize the handle to "go all the way". */ |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3360 |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3361 if (draggingp) |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3362 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3363 int near_bottom_p; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3364 BLOCK_INPUT; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3365 si.cbSize = sizeof (si); |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3366 si.fMask = SIF_POS | SIF_PAGE; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3367 GetScrollInfo(w, SB_CTL, &si); |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3368 near_bottom_p = si.nPos + si.nPage >= range; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3369 UNBLOCK_INPUT; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3370 if (!near_bottom_p) |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3371 return; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3372 } |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3373 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3374 if (whole) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3375 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3376 /* 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
|
3377 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
|
3378 to nothing if it is held at the bottom of the buffer. */ |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3379 if (position + portion >= whole && !draggingp) |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3380 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3381 sb_page = range * (whole - position) / whole; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3382 sb_pos = range; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3383 } |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3384 else |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3385 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3386 sb_pos = position * range / whole; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3387 sb_page = (min (portion, (whole - position)) * range) / whole; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3388 } |
27402
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3391 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3392 sb_page = range; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3393 sb_pos = 0; |
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 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3396 sb_page = max (sb_page, VERTICAL_SCROLL_BAR_MIN_HANDLE); |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3397 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3398 BLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3399 |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3400 si.cbSize = sizeof (si); |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3401 si.fMask = SIF_PAGE | SIF_POS; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3402 si.nPage = sb_page; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3403 si.nPos = sb_pos; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3404 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3405 SetScrollInfo (w, SB_CTL, &si, TRUE); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3406 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3407 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3408 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3409 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3410 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3411 /************************************************************************ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3412 Scroll bars, general |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3413 ************************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3414 |
85309
3224d6c172a6
(w32_font_is_double_byte, my_create_scrollbar): Make static.
Juanma Barranquero <lekktu@gmail.com>
parents:
85258
diff
changeset
|
3415 static HWND |
13434 | 3416 my_create_scrollbar (f, bar) |
3417 struct frame * f; | |
3418 struct scroll_bar * bar; | |
3419 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3420 return (HWND) SendMessage (FRAME_W32_WINDOW (f), |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3421 WM_EMACS_CREATESCROLLBAR, (WPARAM) f, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3422 (LPARAM) bar); |
13434 | 3423 } |
3424 | |
42919
2a546583564f
(x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents:
42864
diff
changeset
|
3425 /*#define ATTACH_THREADS*/ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3426 |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3427 static BOOL |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3428 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
|
3429 { |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3430 #ifndef ATTACH_THREADS |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3431 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
|
3432 (WPARAM) hwnd, (LPARAM) how); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3433 #else |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3434 return ShowWindow (hwnd, how); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3435 #endif |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3436 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3437 |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3438 static void |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3439 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
|
3440 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
|
3441 { |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3442 #ifndef ATTACH_THREADS |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3443 WINDOWPOS pos; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3444 pos.hwndInsertAfter = hwndAfter; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3445 pos.x = x; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3446 pos.y = y; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3447 pos.cx = cx; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3448 pos.cy = cy; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3449 pos.flags = flags; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3450 SendMessage (hwnd, WM_EMACS_SETWINDOWPOS, (WPARAM) &pos, 0); |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3451 #else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3452 SetWindowPos (hwnd, hwndAfter, x, y, cx, cy, flags); |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3453 #endif |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3454 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3455 |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3456 static void |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3457 my_set_focus (f, hwnd) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3458 struct frame * f; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3459 HWND hwnd; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3460 { |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3461 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SETFOCUS, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3462 (WPARAM) hwnd, 0); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3463 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3464 |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3465 static void |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3466 my_set_foreground_window (hwnd) |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3467 HWND hwnd; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3468 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3469 SendMessage (hwnd, WM_EMACS_SETFOREGROUND, (WPARAM) hwnd, 0); |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3470 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3471 |
64661
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3472 |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3473 static void |
13434 | 3474 my_destroy_window (f, hwnd) |
3475 struct frame * f; | |
3476 HWND hwnd; | |
3477 { | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3478 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_DESTROYWINDOW, |
13434 | 3479 (WPARAM) hwnd, 0); |
3480 } | |
3481 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3482 /* 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
|
3483 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
|
3484 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
|
3485 scroll bar. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3486 |
13434 | 3487 static struct scroll_bar * |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3488 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
|
3489 struct window *w; |
13434 | 3490 int top, left, width, height; |
3491 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3492 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3493 HWND hwnd; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3494 SCROLLINFO si; |
13434 | 3495 struct scroll_bar *bar |
3496 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil)); | |
3497 | |
3498 BLOCK_INPUT; | |
3499 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3500 XSETWINDOW (bar->window, w); |
13434 | 3501 XSETINT (bar->top, top); |
3502 XSETINT (bar->left, left); | |
3503 XSETINT (bar->width, width); | |
3504 XSETINT (bar->height, height); | |
3505 XSETINT (bar->start, 0); | |
3506 XSETINT (bar->end, 0); | |
3507 bar->dragging = Qnil; | |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3508 bar->fringe_extended_p = Qnil; |
13434 | 3509 |
3510 /* Requires geometry to be set before call to create the real window */ | |
3511 | |
3512 hwnd = my_create_scrollbar (f, bar); | |
3513 | |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3514 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3515 si.fMask = SIF_ALL; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3516 si.nMin = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3517 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height) |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3518 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3519 si.nPage = si.nMax; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3520 si.nPos = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3521 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3522 SetScrollInfo (hwnd, SB_CTL, &si, FALSE); |
13434 | 3523 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3524 SET_SCROLL_BAR_W32_WINDOW (bar, hwnd); |
13434 | 3525 |
3526 /* Add bar to its frame's list of scroll bars. */ | |
3527 bar->next = FRAME_SCROLL_BARS (f); | |
3528 bar->prev = Qnil; | |
3529 XSETVECTOR (FRAME_SCROLL_BARS (f), bar); | |
3530 if (! NILP (bar->next)) | |
3531 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); | |
3532 | |
3533 UNBLOCK_INPUT; | |
3534 | |
3535 return bar; | |
3536 } | |
3537 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3538 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3539 /* 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
|
3540 nil. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3541 |
13434 | 3542 static void |
3543 x_scroll_bar_remove (bar) | |
3544 struct scroll_bar *bar; | |
3545 { | |
3546 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); | |
3547 | |
3548 BLOCK_INPUT; | |
3549 | |
3550 /* Destroy the window. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3551 my_destroy_window (f, SCROLL_BAR_W32_WINDOW (bar)); |
13434 | 3552 |
3553 /* Disassociate this scroll bar from its window. */ | |
3554 XWINDOW (bar->window)->vertical_scroll_bar = Qnil; | |
3555 | |
3556 UNBLOCK_INPUT; | |
3557 } | |
3558 | |
3559 /* Set the handle of the vertical scroll bar for WINDOW to indicate | |
3560 that we are displaying PORTION characters out of a total of WHOLE | |
3561 characters, starting at POSITION. If WINDOW has no scroll bar, | |
3562 create one. */ | |
3563 static void | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3564 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
|
3565 struct window *w; |
13434 | 3566 int portion, whole, position; |
3567 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3568 struct frame *f = XFRAME (w->frame); |
13434 | 3569 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
|
3570 int top, height, left, sb_left, width, sb_width; |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3571 int window_y, window_height; |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3572 int fringe_extended_p; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3573 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3574 /* Get window dimensions. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3575 window_box (w, -1, 0, &window_y, 0, &window_height); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3576 top = window_y; |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3577 width = WINDOW_CONFIG_SCROLL_BAR_COLS (w) * FRAME_COLUMN_WIDTH (f); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3578 height = window_height; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3579 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3580 /* Compute the left edge of the scroll bar area. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3581 left = WINDOW_SCROLL_BAR_AREA_X (w); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3582 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3583 /* 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
|
3584 the width of the area reserved for the scroll bar. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3585 if (WINDOW_CONFIG_SCROLL_BAR_WIDTH (w) > 0) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3586 sb_width = WINDOW_CONFIG_SCROLL_BAR_WIDTH (w); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3587 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3588 sb_width = width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3589 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3590 /* Compute the left edge of the scroll bar. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3591 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w)) |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3592 sb_left = left + (WINDOW_RIGHTMOST_P (w) ? width - sb_width : 0); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3593 else |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3594 sb_left = left + (WINDOW_LEFTMOST_P (w) ? 0 : width - sb_width); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3595 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3596 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_LEFT (w)) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3597 fringe_extended_p = (WINDOW_LEFTMOST_P (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3598 && WINDOW_LEFT_FRINGE_WIDTH (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3599 && (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3600 || WINDOW_LEFT_MARGIN_COLS (w) == 0)); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3601 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3602 fringe_extended_p = (WINDOW_RIGHTMOST_P (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3603 && WINDOW_RIGHT_FRINGE_WIDTH (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3604 && (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3605 || WINDOW_RIGHT_MARGIN_COLS (w) == 0)); |
13434 | 3606 |
3607 /* Does the scroll bar exist yet? */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3608 if (NILP (w->vertical_scroll_bar)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3609 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3610 HDC hdc; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3611 BLOCK_INPUT; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
3612 if (width > 0 && height > 0) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3613 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3614 hdc = get_frame_dc (f); |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3615 if (fringe_extended_p) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3616 w32_clear_area (f, hdc, sb_left, top, sb_width, height); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3617 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3618 w32_clear_area (f, hdc, left, top, width, height); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3619 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3620 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3621 UNBLOCK_INPUT; |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3622 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3623 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
|
3624 } |
13434 | 3625 else |
3626 { | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3627 /* It may just need to be moved and resized. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3628 HWND hwnd; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3629 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3630 bar = XSCROLL_BAR (w->vertical_scroll_bar); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3631 hwnd = SCROLL_BAR_W32_WINDOW (bar); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3632 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3633 /* If already correctly positioned, do nothing. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3634 if ( XINT (bar->left) == sb_left |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3635 && XINT (bar->top) == top |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3636 && XINT (bar->width) == sb_width |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3637 && XINT (bar->height) == height |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3638 && !NILP (bar->fringe_extended_p) == fringe_extended_p ) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3639 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3640 /* Redraw after clear_frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3641 if (!my_show_window (f, hwnd, SW_NORMAL)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3642 InvalidateRect (hwnd, NULL, FALSE); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3643 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3644 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3645 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3646 HDC hdc; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3647 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3648 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3649 BLOCK_INPUT; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3650 if (width && height) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3651 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3652 hdc = get_frame_dc (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3653 /* 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
|
3654 for them on the frame, we have to clear "under" them. */ |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3655 if (fringe_extended_p) |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3656 w32_clear_area (f, hdc, sb_left, top, sb_width, height); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3657 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3658 w32_clear_area (f, hdc, left, top, width, height); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3659 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3660 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3661 /* 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
|
3662 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
|
3663 my_show_window (f, hwnd, SW_HIDE); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3664 MoveWindow (hwnd, sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3665 top, sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3666 max (height, 1), TRUE); |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3667 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3668 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3669 si.fMask = SIF_RANGE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3670 si.nMin = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3671 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height) |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3672 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3673 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3674 SetScrollInfo (hwnd, SB_CTL, &si, FALSE); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3675 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3676 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
|
3677 /* InvalidateRect (w, NULL, FALSE); */ |
27402
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 /* Remember new settings. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3680 XSETINT (bar->left, sb_left); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3681 XSETINT (bar->top, top); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3682 XSETINT (bar->width, sb_width); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3683 XSETINT (bar->height, height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3684 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3685 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3686 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3687 } |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3688 bar->fringe_extended_p = fringe_extended_p ? Qt : Qnil; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3689 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3690 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
|
3691 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3692 XSETVECTOR (w->vertical_scroll_bar, bar); |
13434 | 3693 } |
3694 | |
3695 | |
3696 /* The following three hooks are used when we're doing a thorough | |
3697 redisplay of the frame. We don't explicitly know which scroll bars | |
3698 are going to be deleted, because keeping track of when windows go | |
3699 away is a real pain - "Can you say set-window-configuration, boys | |
3700 and girls?" Instead, we just assert at the beginning of redisplay | |
3701 that *all* scroll bars are to be removed, and then save a scroll bar | |
3702 from the fiery pit when we actually redisplay its window. */ | |
3703 | |
3704 /* Arrange for all scroll bars on FRAME to be removed at the next call | |
3705 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
|
3706 `*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
|
3707 |
13434 | 3708 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3709 w32_condemn_scroll_bars (frame) |
13434 | 3710 FRAME_PTR frame; |
3711 { | |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3712 /* 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
|
3713 while (! NILP (FRAME_SCROLL_BARS (frame))) |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3714 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3715 Lisp_Object bar; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3716 bar = FRAME_SCROLL_BARS (frame); |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3717 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3718 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
|
3719 XSCROLL_BAR (bar)->prev = Qnil; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3720 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame))) |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3721 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
|
3722 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3723 } |
13434 | 3724 } |
3725 | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3726 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3727 /* Un-mark WINDOW's scroll bar for deletion in this judgment cycle. |
13434 | 3728 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
|
3729 |
13434 | 3730 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3731 w32_redeem_scroll_bar (window) |
13434 | 3732 struct window *window; |
3733 { | |
3734 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
|
3735 struct frame *f; |
13434 | 3736 |
3737 /* We can't redeem this window's scroll bar if it doesn't have one. */ | |
3738 if (NILP (window->vertical_scroll_bar)) | |
3739 abort (); | |
3740 | |
3741 bar = XSCROLL_BAR (window->vertical_scroll_bar); | |
3742 | |
3743 /* 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
|
3744 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
|
3745 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
|
3746 { |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3747 /* 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
|
3748 the lists. */ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3749 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
|
3750 /* 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
|
3751 return; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3752 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
|
3753 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
|
3754 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
|
3755 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3756 /* 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
|
3757 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
|
3758 abort (); |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3759 } |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3760 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3761 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
|
3762 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3763 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
|
3764 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
|
3765 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3766 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
|
3767 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
|
3768 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
|
3769 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
|
3770 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); |
13434 | 3771 } |
3772 | |
3773 /* Remove all scroll bars on FRAME that haven't been saved since the | |
3774 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
|
3775 |
13434 | 3776 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3777 w32_judge_scroll_bars (f) |
13434 | 3778 FRAME_PTR f; |
3779 { | |
3780 Lisp_Object bar, next; | |
3781 | |
3782 bar = FRAME_CONDEMNED_SCROLL_BARS (f); | |
3783 | |
3784 /* Clear out the condemned list now so we won't try to process any | |
3785 more events on the hapless scroll bars. */ | |
3786 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil; | |
3787 | |
3788 for (; ! NILP (bar); bar = next) | |
3789 { | |
3790 struct scroll_bar *b = XSCROLL_BAR (bar); | |
3791 | |
3792 x_scroll_bar_remove (b); | |
3793 | |
3794 next = b->next; | |
3795 b->next = b->prev = Qnil; | |
3796 } | |
3797 | |
3798 /* Now there should be no references to the condemned scroll bars, | |
3799 and they should get garbage-collected. */ | |
3800 } | |
3801 | |
3802 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
3803 is set to something other than NO_EVENT, it is enqueued. |
13434 | 3804 |
3805 This may be called from a signal handler, so we have to ignore GC | |
3806 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
|
3807 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3808 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
|
3809 w32_scroll_bar_handle_click (bar, msg, emacs_event) |
13434 | 3810 struct scroll_bar *bar; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3811 W32Msg *msg; |
13434 | 3812 struct input_event *emacs_event; |
3813 { | |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3814 if (! WINDOWP (bar->window)) |
13434 | 3815 abort (); |
3816 | |
85983
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
3817 emacs_event->kind = SCROLL_BAR_CLICK_EVENT; |
13434 | 3818 emacs_event->code = 0; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3819 /* not really meaningful to distinguish up/down */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3820 emacs_event->modifiers = msg->dwModifiers; |
13434 | 3821 emacs_event->frame_or_window = bar->window; |
30199
298f10cd4ba5
(construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents:
30179
diff
changeset
|
3822 emacs_event->arg = Qnil; |
13434 | 3823 emacs_event->timestamp = msg->msg.time; |
3824 | |
3825 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3826 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
|
3827 int y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3828 int dragging = !NILP (bar->dragging); |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3829 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3830 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3831 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3832 si.fMask = SIF_POS; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3833 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3834 GetScrollInfo ((HWND) msg->msg.lParam, SB_CTL, &si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3835 y = si.nPos; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3836 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3837 bar->dragging = Qnil; |
13434 | 3838 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3839 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3840 last_mouse_scroll_bar_pos = msg->msg.wParam; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3841 |
13434 | 3842 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
|
3843 { |
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3844 case SB_LINEDOWN: |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3845 emacs_event->part = scroll_bar_down_arrow; |
13434 | 3846 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3847 case SB_LINEUP: |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3848 emacs_event->part = scroll_bar_up_arrow; |
13434 | 3849 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3850 case SB_PAGEUP: |
13434 | 3851 emacs_event->part = scroll_bar_above_handle; |
3852 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3853 case SB_PAGEDOWN: |
13434 | 3854 emacs_event->part = scroll_bar_below_handle; |
3855 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3856 case SB_TOP: |
13434 | 3857 emacs_event->part = scroll_bar_handle; |
3858 y = 0; | |
3859 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3860 case SB_BOTTOM: |
13434 | 3861 emacs_event->part = scroll_bar_handle; |
3862 y = top_range; | |
3863 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3864 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
|
3865 case SB_THUMBPOSITION: |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3866 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
|
3867 y = HIWORD (msg->msg.wParam); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3868 bar->dragging = Qt; |
13434 | 3869 emacs_event->part = scroll_bar_handle; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3870 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3871 /* "Silently" update current position. */ |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3872 { |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3873 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3874 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3875 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3876 si.fMask = SIF_POS; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3877 si.nPos = y; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3878 /* Remember apparent position (we actually lag behind the real |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3879 position, so don't set that directly. */ |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3880 last_scroll_bar_drag_pos = y; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3881 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3882 SetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, FALSE); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3883 } |
13434 | 3884 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3885 case SB_ENDSCROLL: |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3886 /* 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
|
3887 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
|
3888 nothing. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3889 if (dragging) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3890 { |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3891 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3892 int start = XINT (bar->start); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3893 int end = XINT (bar->end); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3894 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3895 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3896 si.fMask = SIF_PAGE | SIF_POS; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3897 si.nPage = end - start + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3898 si.nPos = last_scroll_bar_drag_pos; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3899 SetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, TRUE); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3900 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3901 /* 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
|
3902 default: |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
3903 emacs_event->kind = NO_EVENT; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3904 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
|
3905 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3906 |
13434 | 3907 XSETINT (emacs_event->x, y); |
3908 XSETINT (emacs_event->y, top_range); | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3909 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3910 return TRUE; |
13434 | 3911 } |
3912 } | |
3913 | |
3914 /* Return information to the user about the current position of the mouse | |
3915 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
|
3916 |
13434 | 3917 static void |
3918 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time) | |
3919 FRAME_PTR *fp; | |
3920 Lisp_Object *bar_window; | |
3921 enum scroll_bar_part *part; | |
3922 Lisp_Object *x, *y; | |
3923 unsigned long *time; | |
3924 { | |
3925 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
|
3926 Window w = SCROLL_BAR_W32_WINDOW (bar); |
13434 | 3927 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
3928 int pos; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3929 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)); |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3930 SCROLLINFO si; |
13434 | 3931 |
3932 BLOCK_INPUT; | |
3933 | |
3934 *fp = f; | |
3935 *bar_window = bar->window; | |
3936 | |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3937 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3938 si.fMask = SIF_POS | SIF_PAGE | SIF_RANGE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3939 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3940 GetScrollInfo (w, SB_CTL, &si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3941 pos = si.nPos; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3942 top_range = si.nMax - si.nPage + 1; |
13434 | 3943 |
3944 switch (LOWORD (last_mouse_scroll_bar_pos)) | |
3945 { | |
3946 case SB_THUMBPOSITION: | |
3947 case SB_THUMBTRACK: | |
3948 *part = scroll_bar_handle; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3949 if (VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) <= 0xffff) |
13434 | 3950 pos = HIWORD (last_mouse_scroll_bar_pos); |
3951 break; | |
3952 case SB_LINEDOWN: | |
3953 *part = scroll_bar_handle; | |
3954 pos++; | |
3955 break; | |
3956 default: | |
3957 *part = scroll_bar_handle; | |
3958 break; | |
3959 } | |
3960 | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3961 XSETINT (*x, pos); |
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3962 XSETINT (*y, top_range); |
13434 | 3963 |
3964 f->mouse_moved = 0; | |
3965 last_mouse_scroll_bar = Qnil; | |
3966 | |
3967 *time = last_mouse_movement_time; | |
3968 | |
3969 UNBLOCK_INPUT; | |
3970 } | |
3971 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3972 |
13434 | 3973 /* The screen has been cleared so we may have changed foreground or |
3974 background colors, and the scroll bars may need to be redrawn. | |
3975 Clear out the scroll bars, and ask for expose events, so we can | |
3976 redraw them. */ | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3977 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3978 void |
13434 | 3979 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
|
3980 FRAME_PTR f; |
13434 | 3981 { |
3982 Lisp_Object bar; | |
3983 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3984 /* 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
|
3985 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
|
3986 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
|
3987 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
|
3988 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
|
3989 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
|
3990 { |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3991 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
|
3992 HDC hdc = GetDC (window); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3993 RECT rect; |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3994 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3995 /* 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
|
3996 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
|
3997 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
|
3998 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3999 GetClientRect (window, &rect); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4000 select_palette (f, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4001 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
|
4002 deselect_palette (f, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4003 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4004 ReleaseDC (window, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4005 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4006 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4007 |
13434 | 4008 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
4009 /* The main W32 event-reading loop - w32_read_socket. */ |
13434 | 4010 |
4011 /* Record the last 100 characters stored | |
4012 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
|
4013 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4014 static int temp_index; |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4015 static short temp_buffer[100]; |
13434 | 4016 |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4017 /* Temporarily store lead byte of DBCS input sequences. */ |
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4018 static char dbcs_lead = 0; |
14462
599a3ae1e8ea
(convert_to_key_event, is_dead_key): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents:
14351
diff
changeset
|
4019 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
4020 /* Read events coming from the W32 shell. |
13434 | 4021 This routine is called by the SIGIO handler. |
4022 We return as soon as there are no more events to be read. | |
4023 | |
4024 We return the number of characters stored into the buffer, | |
4025 thus pretending to be `read'. | |
4026 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4027 EXPECTED is nonzero if the caller knows input is available. |
13434 | 4028 |
4029 Some of these messages are reposted back to the message queue since the | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4030 system calls the windows proc directly in a context where we cannot return |
85309
3224d6c172a6
(w32_font_is_double_byte, my_create_scrollbar): Make static.
Juanma Barranquero <lekktu@gmail.com>
parents:
85258
diff
changeset
|
4031 the data nor can we guarantee the state we are in. So if we dispatch them |
13434 | 4032 we will get into an infinite loop. To prevent this from ever happening we |
4033 will set a variable to indicate we are in the read_socket call and indicate | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4034 which message we are processing since the windows proc gets called |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
4035 recursively with different messages by the system. |
13434 | 4036 */ |
4037 | |
4038 int | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4039 w32_read_socket (sd, expected, hold_quit) |
13434 | 4040 register int sd; |
4041 int expected; | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4042 struct input_event *hold_quit; |
13434 | 4043 { |
4044 int count = 0; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4045 int check_visibility = 0; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
4046 W32Msg msg; |
13434 | 4047 struct frame *f; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
4048 struct w32_display_info *dpyinfo = &one_w32_display_info; |
13434 | 4049 |
4050 if (interrupt_input_blocked) | |
4051 { | |
4052 interrupt_input_pending = 1; | |
4053 return -1; | |
4054 } | |
4055 | |
4056 interrupt_input_pending = 0; | |
4057 BLOCK_INPUT; | |
4058 | |
4059 /* So people can tell when we have read the available input. */ | |
4060 input_signal_count++; | |
4061 | |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4062 /* TODO: ghostscript integration. */ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4063 while (get_next_msg (&msg, FALSE)) |
13434 | 4064 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4065 struct input_event inev; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4066 int do_help = 0; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4067 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4068 EVENT_INIT (inev); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4069 inev.kind = NO_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4070 inev.arg = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4071 |
13434 | 4072 switch (msg.msg.message) |
4073 { | |
4074 case WM_PAINT: | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4075 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4076 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4077 if (f) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4078 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4079 if (msg.rect.right == msg.rect.left || |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4080 msg.rect.bottom == msg.rect.top) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4081 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4082 /* We may get paint messages even though the client |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4083 area is clipped - these are not expose events. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4084 DebPrint (("clipped frame %p (%s) got WM_PAINT - ignored\n", f, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45803
diff
changeset
|
4085 SDATA (f->name))); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4086 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4087 else if (f->async_visible != 1) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4088 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4089 /* Definitely not obscured, so mark as visible. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4090 f->async_visible = 1; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4091 f->async_iconified = 0; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4092 SET_FRAME_GARBAGED (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4093 DebPrint (("frame %p (%s) reexposed by WM_PAINT\n", f, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45803
diff
changeset
|
4094 SDATA (f->name))); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4095 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4096 /* WM_PAINT serves as MapNotify as well, so report |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4097 visibility changes properly. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4098 if (f->iconified) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4099 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4100 inev.kind = DEICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4101 XSETFRAME (inev.frame_or_window, f); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4102 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4103 else if (! NILP (Vframe_list) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4104 && ! NILP (XCDR (Vframe_list))) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4105 /* Force a redisplay sooner or later to update the |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4106 frame titles in case this is the second frame. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4107 record_asynch_buffer_change (); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4108 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4109 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4110 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4111 HDC hdc = get_frame_dc (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4112 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4113 /* Erase background again for safety. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4114 w32_clear_rect (f, hdc, &msg.rect); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4115 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4116 expose_frame (f, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4117 msg.rect.left, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4118 msg.rect.top, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4119 msg.rect.right - msg.rect.left, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4120 msg.rect.bottom - msg.rect.top); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4121 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4122 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4123 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4124 |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4125 case WM_INPUTLANGCHANGE: |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4126 /* Generate a language change event. */ |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4127 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
|
4128 |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4129 if (f) |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4130 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4131 inev.kind = LANGUAGE_CHANGE_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4132 XSETFRAME (inev.frame_or_window, f); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4133 inev.code = msg.msg.wParam; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4134 inev.modifiers = msg.msg.lParam & 0xffff; |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4135 } |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4136 break; |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4137 |
13434 | 4138 case WM_KEYDOWN: |
4139 case WM_SYSKEYDOWN: | |
4140 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4141 |
13434 | 4142 if (f && !f->iconified) |
4143 { | |
69662
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4144 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight) |
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4145 && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window)) |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4146 { |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4147 clear_mouse_face (dpyinfo); |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4148 dpyinfo->mouse_face_hidden = 1; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4149 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4150 |
13434 | 4151 if (temp_index == sizeof temp_buffer / sizeof (short)) |
4152 temp_index = 0; | |
4153 temp_buffer[temp_index++] = msg.msg.wParam; | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4154 inev.kind = NON_ASCII_KEYSTROKE_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4155 inev.code = msg.msg.wParam; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4156 inev.modifiers = msg.dwModifiers; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4157 XSETFRAME (inev.frame_or_window, f); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4158 inev.timestamp = msg.msg.time; |
13434 | 4159 } |
4160 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4161 |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4162 case WM_UNICHAR: |
13434 | 4163 case WM_SYSCHAR: |
4164 case WM_CHAR: | |
4165 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4166 |
13434 | 4167 if (f && !f->iconified) |
4168 { | |
69662
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4169 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight) |
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4170 && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window)) |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4171 { |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4172 clear_mouse_face (dpyinfo); |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4173 dpyinfo->mouse_face_hidden = 1; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4174 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4175 |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4176 if (temp_index == sizeof temp_buffer / sizeof (short)) |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4177 temp_index = 0; |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4178 temp_buffer[temp_index++] = msg.msg.wParam; |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4179 |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4180 inev.modifiers = msg.dwModifiers; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4181 XSETFRAME (inev.frame_or_window, f); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4182 inev.timestamp = msg.msg.time; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4183 |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4184 if (msg.msg.message == WM_UNICHAR) |
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4185 { |
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4186 inev.code = msg.msg.wParam; |
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4187 } |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4188 else if (msg.msg.wParam < 256) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4189 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4190 wchar_t code; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4191 char dbcs[2]; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4192 dbcs[0] = 0; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4193 dbcs[1] = (char) msg.msg.wParam; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4194 |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4195 if (dbcs_lead) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4196 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4197 dbcs[0] = dbcs_lead; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4198 dbcs_lead = 0; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4199 if (!MultiByteToWideChar (CP_ACP, 0, dbcs, 2, &code, 1)) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4200 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4201 /* Garbage */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4202 DebPrint (("Invalid DBCS sequence: %d %d\n", |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4203 dbcs[0], dbcs[1])); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4204 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4205 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4206 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4207 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4208 else if (IsDBCSLeadByteEx (CP_ACP, (BYTE) msg.msg.wParam)) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4209 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4210 dbcs_lead = (char) msg.msg.wParam; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4211 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4212 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4213 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4214 else |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4215 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4216 if (!MultiByteToWideChar (CP_ACP, 0, &dbcs[1], 1, |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4217 &code, 1)) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4218 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4219 /* What to do with garbage? */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4220 DebPrint (("Invalid character: %d\n", dbcs[1])); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4221 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4222 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4223 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4224 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4225 inev.code = code; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4226 } |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4227 else |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4228 { |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4229 /* Windows shouldn't generate WM_CHAR events above 0xFF |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4230 in non-Unicode message handlers. */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4231 DebPrint (("Non-byte WM_CHAR: %d\n", msg.msg.wParam)); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4232 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4233 break; |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4234 } |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4235 inev.kind = inev.code < 128 ? ASCII_KEYSTROKE_EVENT |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4236 : MULTIBYTE_CHAR_KEYSTROKE_EVENT; |
13434 | 4237 } |
4238 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4239 |
85983
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4240 case WM_APPCOMMAND: |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4241 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4242 |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4243 if (f && !f->iconified) |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4244 { |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4245 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight) |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4246 && !EQ (f->tool_bar_window, dpyinfo->mouse_face_window)) |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4247 { |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4248 clear_mouse_face (dpyinfo); |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4249 dpyinfo->mouse_face_hidden = 1; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4250 } |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4251 |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4252 if (temp_index == sizeof temp_buffer / sizeof (short)) |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4253 temp_index = 0; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4254 temp_buffer[temp_index++] = msg.msg.wParam; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4255 inev.kind = MULTIMEDIA_KEY_EVENT; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4256 inev.code = GET_APPCOMMAND_LPARAM(msg.msg.lParam); |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4257 inev.modifiers = msg.dwModifiers; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4258 XSETFRAME (inev.frame_or_window, f); |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4259 inev.timestamp = msg.msg.time; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4260 } |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4261 break; |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
4262 |
13434 | 4263 case WM_MOUSEMOVE: |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4264 /* Ignore non-movement. */ |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4265 { |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4266 int x = LOWORD (msg.msg.lParam); |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4267 int y = HIWORD (msg.msg.lParam); |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4268 if (x == last_mousemove_x && y == last_mousemove_y) |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4269 break; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4270 last_mousemove_x = x; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4271 last_mousemove_y = y; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4272 } |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4273 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4274 previous_help_echo_string = help_echo_string; |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
4275 help_echo_string = Qnil; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4276 |
13434 | 4277 if (dpyinfo->grabbed && last_mouse_frame |
4278 && FRAME_LIVE_P (last_mouse_frame)) | |
4279 f = last_mouse_frame; | |
4280 else | |
4281 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4282 |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4283 if (dpyinfo->mouse_face_hidden) |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4284 { |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4285 dpyinfo->mouse_face_hidden = 0; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4286 clear_mouse_face (dpyinfo); |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4287 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4288 |
13434 | 4289 if (f) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4290 { |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4291 /* Generate SELECT_WINDOW_EVENTs when needed. */ |
72736
f6b18b9949d1
* xdisp.c (mouse_autoselect_window): Removed.
Chong Yidong <cyd@stupidchicken.com>
parents:
72505
diff
changeset
|
4292 if (!NILP (Vmouse_autoselect_window)) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4293 { |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4294 Lisp_Object window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4295 int x = LOWORD (msg.msg.lParam); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4296 int y = HIWORD (msg.msg.lParam); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4297 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4298 window = window_from_coordinates (f, x, y, 0, 0, 0, 0); |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4299 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4300 /* Window will be selected only when it is not |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4301 selected now and last mouse movement event was |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4302 not in it. Minibuffer window will be selected |
78501 | 4303 only when it is active. */ |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4304 if (WINDOWP(window) |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4305 && !EQ (window, last_window) |
78988
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4306 && !EQ (window, selected_window) |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4307 /* For click-to-focus window managers |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4308 create event iff we don't leave the |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4309 selected frame. */ |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4310 && (focus_follows_mouse |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4311 || (EQ (XWINDOW (window)->frame, |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4312 XWINDOW (selected_window)->frame)))) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4313 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4314 inev.kind = SELECT_WINDOW_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4315 inev.frame_or_window = window; |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4316 } |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4317 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4318 last_window=window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4319 } |
66081
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
4320 if (!note_mouse_movement (f, &msg.msg)) |
824b4c76ae12
(note_mouse_movement, w32_read_socket): Apply 2005-10-14 changes for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66049
diff
changeset
|
4321 help_echo_string = previous_help_echo_string; |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4322 } |
13434 | 4323 else |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4324 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4325 /* 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
|
4326 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
|
4327 clear_mouse_face (dpyinfo); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4328 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4329 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4330 /* If the contents of the global variable help_echo_string |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4331 has changed, generate a HELP_EVENT. */ |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4332 #if 0 /* The below is an invalid comparison when USE_LISP_UNION_TYPE. |
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4333 But it was originally changed to this to fix a bug, so I have |
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4334 not removed it completely in case the bug is still there. */ |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4335 if (help_echo_string != previous_help_echo_string || |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4336 (!NILP (help_echo_string) && !STRINGP (help_echo_string) && f->mouse_moved)) |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4337 #else /* This is what xterm.c does. */ |
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4338 if (!NILP (help_echo_string) |
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4339 || !NILP (previous_help_echo_string)) |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4340 do_help = 1; |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4341 #endif |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4342 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4343 |
13434 | 4344 case WM_LBUTTONDOWN: |
4345 case WM_LBUTTONUP: | |
4346 case WM_MBUTTONDOWN: | |
4347 case WM_MBUTTONUP: | |
4348 case WM_RBUTTONDOWN: | |
4349 case WM_RBUTTONUP: | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4350 case WM_XBUTTONDOWN: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4351 case WM_XBUTTONUP: |
13434 | 4352 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4353 /* 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
|
4354 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
|
4355 int tool_bar_p = 0; |
13434 | 4356 int button; |
4357 int up; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4358 |
13434 | 4359 if (dpyinfo->grabbed && last_mouse_frame |
4360 && FRAME_LIVE_P (last_mouse_frame)) | |
4361 f = last_mouse_frame; | |
4362 else | |
4363 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4364 |
13434 | 4365 if (f) |
4366 { | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4367 construct_mouse_click (&inev, &msg, f); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4368 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4369 /* Is this in the tool-bar? */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4370 if (WINDOWP (f->tool_bar_window) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4371 && WINDOW_TOTAL_LINES (XWINDOW (f->tool_bar_window))) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4372 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4373 Lisp_Object window; |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4374 int x = XFASTINT (inev.x); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4375 int y = XFASTINT (inev.y); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4376 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4377 window = window_from_coordinates (f, x, y, 0, 0, 0, 1); |
44095
cdcab7b110f6
(zv_bits): Declare as short, for word alignment.
Jason Rumney <jasonr@gnu.org>
parents:
44045
diff
changeset
|
4378 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4379 if (EQ (window, f->tool_bar_window)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4380 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4381 w32_handle_tool_bar_click (f, &inev); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4382 tool_bar_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4383 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4384 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4385 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4386 if (tool_bar_p |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4387 || (dpyinfo->w32_focus_frame |
54225
61ba665b1e90
(w32_read_socket): Fix last change to ButtonPress handling.
Jason Rumney <jasonr@gnu.org>
parents:
54171
diff
changeset
|
4388 && f != dpyinfo->w32_focus_frame)) |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4389 inev.kind = NO_EVENT; |
13434 | 4390 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4391 |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4392 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
|
4393 &button, &up); |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4394 |
13434 | 4395 if (up) |
4396 { | |
4397 dpyinfo->grabbed &= ~ (1 << button); | |
4398 } | |
4399 else | |
4400 { | |
4401 dpyinfo->grabbed |= (1 << button); | |
4402 last_mouse_frame = f; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4403 /* Ignore any mouse motion that happened |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4404 before this event; any subsequent mouse-movement |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4405 Emacs events should reflect only motion after |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4406 the ButtonPress. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4407 if (f != 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4408 f->mouse_moved = 0; |
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 if (!tool_bar_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4411 last_tool_bar_item = -1; |
13434 | 4412 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4413 break; |
13434 | 4414 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4415 |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4416 case WM_MOUSEWHEEL: |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
4417 case WM_MOUSEHWHEEL: |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4418 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4419 if (dpyinfo->grabbed && last_mouse_frame |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4420 && FRAME_LIVE_P (last_mouse_frame)) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4421 f = last_mouse_frame; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4422 else |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4423 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4424 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4425 if (f) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4426 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4427 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4428 if (!dpyinfo->w32_focus_frame |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4429 || f == dpyinfo->w32_focus_frame) |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4430 { |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4431 /* Emit an Emacs wheel-up/down event. */ |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4432 construct_mouse_wheel (&inev, &msg, f); |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4433 } |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4434 /* Ignore any mouse motion that happened before this |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4435 event; any subsequent mouse-movement Emacs events |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4436 should reflect only motion after the |
74145 | 4437 ButtonPress. */ |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4438 f->mouse_moved = 0; |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4439 } |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4440 last_mouse_frame = f; |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4441 last_tool_bar_item = -1; |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4442 } |
13434 | 4443 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4444 |
21885 | 4445 case WM_DROPFILES: |
4446 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
4447 | |
4448 if (f) | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4449 construct_drag_n_drop (&inev, &msg, f); |
21885 | 4450 break; |
4451 | |
13434 | 4452 case WM_VSCROLL: |
4453 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4454 struct scroll_bar *bar = |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4455 x_window_to_scroll_bar ((HWND)msg.msg.lParam); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4456 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4457 if (bar) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4458 w32_scroll_bar_handle_click (bar, &msg, &inev); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4459 break; |
13434 | 4460 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4461 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4462 case WM_WINDOWPOSCHANGED: |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4463 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
|
4464 if (f) |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4465 { |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4466 if (f->want_fullscreen & FULLSCREEN_WAIT) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4467 f->want_fullscreen &= ~(FULLSCREEN_WAIT|FULLSCREEN_BOTH); |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4468 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4469 check_visibility = 1; |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4470 break; |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4471 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4472 case WM_ACTIVATE: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4473 case WM_ACTIVATEAPP: |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4474 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
|
4475 if (f) |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4476 x_check_fullscreen (f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4477 check_visibility = 1; |
13434 | 4478 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4479 |
13434 | 4480 case WM_MOVE: |
4481 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4482 |
13434 | 4483 if (f && !f->async_iconified) |
4484 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4485 int x, y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4486 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4487 x_real_positions (f, &x, &y); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4488 f->left_pos = x; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4489 f->top_pos = y; |
13434 | 4490 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4491 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4492 check_visibility = 1; |
13434 | 4493 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4494 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4495 case WM_SHOWWINDOW: |
41447
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4496 /* 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
|
4497 about to be hidden. */ |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4498 /* 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
|
4499 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
|
4500 { |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4501 tip_window = NULL; |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4502 redo_mouse_highlight (); |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4503 } |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4504 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4505 /* 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
|
4506 being maximised or minimised/restored, then recheck |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4507 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
|
4508 windows get handled by WM_SIZE. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4509 #if 0 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4510 if (msg.msg.lParam != 0) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4511 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4512 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4513 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4514 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
|
4515 f->async_visible = msg.msg.wParam; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4516 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4517 #endif |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4518 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4519 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4520 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4521 |
13434 | 4522 case WM_SIZE: |
4523 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4524 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4525 /* 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
|
4526 if (f) |
13434 | 4527 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4528 switch (msg.msg.wParam) |
13434 | 4529 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4530 case SIZE_MINIMIZED: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4531 f->async_visible = 0; |
13434 | 4532 f->async_iconified = 1; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4533 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4534 inev.kind = ICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4535 XSETFRAME (inev.frame_or_window, f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4536 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4537 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4538 case SIZE_MAXIMIZED: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4539 case SIZE_RESTORED: |
13434 | 4540 f->async_visible = 1; |
4541 f->async_iconified = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4542 |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
55646
diff
changeset
|
4543 /* wait_reading_process_output will notice this and update |
13434 | 4544 the frame's display structures. */ |
4545 SET_FRAME_GARBAGED (f); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4546 |
13434 | 4547 if (f->iconified) |
4548 { | |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4549 int x, y; |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4550 |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4551 /* 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
|
4552 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
|
4553 BEFORE telling us the Window is minimized |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4554 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
|
4555 as the co-ords. */ |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4556 x_real_positions (f, &x, &y); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4557 f->left_pos = x; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4558 f->top_pos = y; |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4559 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4560 inev.kind = DEICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4561 XSETFRAME (inev.frame_or_window, f); |
13434 | 4562 } |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4563 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
|
4564 && ! NILP (XCDR (Vframe_list))) |
13434 | 4565 /* Force a redisplay sooner or later |
4566 to update the frame titles | |
4567 in case this is the second frame. */ | |
4568 record_asynch_buffer_change (); | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4569 break; |
13434 | 4570 } |
4571 } | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4572 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4573 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
|
4574 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4575 RECT rect; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4576 int rows; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4577 int columns; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4578 int width; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4579 int height; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4580 |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
4581 GetClientRect (msg.msg.hwnd, &rect); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4582 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4583 height = rect.bottom - rect.top; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4584 width = rect.right - rect.left; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4585 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4586 rows = FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f, height); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4587 columns = FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f, width); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4588 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4589 /* TODO: Clip size to the screen dimensions. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4590 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4591 /* 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
|
4592 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
|
4593 to check the pixel dimensions as well. */ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4594 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4595 if (columns != FRAME_COLS (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4596 || rows != FRAME_LINES (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4597 || width != FRAME_PIXEL_WIDTH (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4598 || height != FRAME_PIXEL_HEIGHT (f)) |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4599 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4600 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
|
4601 SET_FRAME_GARBAGED (f); |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4602 cancel_mouse_face (f); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4603 FRAME_PIXEL_WIDTH (f) = width; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4604 FRAME_PIXEL_HEIGHT (f) = height; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4605 f->win_gravity = NorthWestGravity; |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4606 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4607 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4608 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4609 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4610 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4611 |
41731
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4612 case WM_MOUSELEAVE: |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4613 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
|
4614 if (f) |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4615 { |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4616 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
|
4617 { |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4618 /* 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
|
4619 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
|
4620 clear_mouse_face (dpyinfo); |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4621 dpyinfo->mouse_face_mouse_frame = 0; |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4622 } |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4623 |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4624 /* 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
|
4625 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
|
4626 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
|
4627 the mouse leaves the frame. */ |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4628 if (any_help_event_p) |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4629 do_help = -1; |
41731
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4630 } |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4631 break; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4632 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4633 case WM_SETFOCUS: |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
4634 w32_detect_focus_change (dpyinfo, &msg, &inev); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4635 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4636 dpyinfo->grabbed = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4637 check_visibility = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4638 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4639 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4640 case WM_KILLFOCUS: |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4641 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
|
4642 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4643 if (f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4644 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4645 if (f == dpyinfo->w32_focus_event_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4646 dpyinfo->w32_focus_event_frame = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4647 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4648 if (f == dpyinfo->w32_focus_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4649 x_new_focus_frame (dpyinfo, 0); |
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 if (f == dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4652 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4653 /* 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
|
4654 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
|
4655 clear_mouse_face (dpyinfo); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4656 dpyinfo->mouse_face_mouse_frame = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4657 } |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4658 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4659 /* 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
|
4660 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
|
4661 Otherwise, the startup message is cleared when |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4662 the mouse leaves the frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4663 if (any_help_event_p) |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4664 do_help = -1; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4665 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4666 |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
4667 dpyinfo->grabbed = 0; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4668 check_visibility = 1; |
13434 | 4669 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4670 |
13434 | 4671 case WM_CLOSE: |
4672 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4673 |
13434 | 4674 if (f) |
4675 { | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4676 inev.kind = DELETE_WINDOW_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4677 XSETFRAME (inev.frame_or_window, f); |
13434 | 4678 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4679 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4680 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4681 case WM_INITMENU: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4682 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4683 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4684 if (f) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4685 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4686 inev.kind = MENU_BAR_ACTIVATE_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4687 XSETFRAME (inev.frame_or_window, f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4688 } |
13434 | 4689 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4690 |
13434 | 4691 case WM_COMMAND: |
4692 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
|
4693 |
13434 | 4694 if (f) |
4695 { | |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4696 extern void menubar_selection_callback |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4697 (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
|
4698 menubar_selection_callback (f, (void *)msg.msg.wParam); |
13434 | 4699 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4700 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4701 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4702 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4703 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4704 case WM_DISPLAYCHANGE: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4705 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
|
4706 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4707 if (f) |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4708 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4709 dpyinfo->n_cbits = msg.msg.wParam; |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
4710 DebPrint (("display change: %d %d\n", |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
4711 (short) LOWORD (msg.msg.lParam), |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
4712 (short) HIWORD (msg.msg.lParam))); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4713 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4714 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4715 check_visibility = 1; |
13434 | 4716 break; |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4717 |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4718 default: |
51270
827c306f0515
Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents:
51269
diff
changeset
|
4719 /* Check for messages registered at runtime. */ |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4720 if (msg.msg.message == msh_mousewheel) |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4721 { |
51270
827c306f0515
Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents:
51269
diff
changeset
|
4722 /* Forward MSH_MOUSEWHEEL as WM_MOUSEWHEEL. */ |
52349
c631ebcc0df9
(w32_read_socket): Fix WM_MOUSEWHEEL assignment.
Jason Rumney <jasonr@gnu.org>
parents:
51382
diff
changeset
|
4723 msg.msg.message = WM_MOUSEWHEEL; |
51270
827c306f0515
Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents:
51269
diff
changeset
|
4724 prepend_msg (&msg); |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4725 } |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4726 break; |
13434 | 4727 } |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4728 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4729 if (inev.kind != NO_EVENT) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4730 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4731 kbd_buffer_store_event_hold (&inev, hold_quit); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4732 count++; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4733 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4734 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4735 if (do_help |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4736 && !(hold_quit && hold_quit->kind != NO_EVENT)) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4737 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4738 Lisp_Object frame; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4739 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4740 if (f) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4741 XSETFRAME (frame, f); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4742 else |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4743 frame = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4744 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4745 if (do_help > 0) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4746 { |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4747 if (NILP (help_echo_string)) |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4748 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4749 help_echo_object = help_echo_window = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4750 help_echo_pos = -1; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4751 } |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4752 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4753 any_help_event_p = 1; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4754 gen_help_event (help_echo_string, frame, help_echo_window, |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4755 help_echo_object, help_echo_pos); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4756 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4757 else |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4758 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4759 help_echo_string = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4760 gen_help_event (Qnil, frame, Qnil, Qnil, 0); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4761 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4762 count++; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4763 } |
13434 | 4764 } |
4765 | |
4766 /* If the focus was just given to an autoraising frame, | |
4767 raise it now. */ | |
4768 /* ??? This ought to be able to handle more than one such frame. */ | |
4769 if (pending_autoraise_frame) | |
4770 { | |
4771 x_raise_frame (pending_autoraise_frame); | |
4772 pending_autoraise_frame = 0; | |
4773 } | |
4774 | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4775 /* 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
|
4776 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
|
4777 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
|
4778 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
|
4779 changed (at least, not in all cases). */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4780 if (count > 0 || check_visibility) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4781 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4782 Lisp_Object tail, frame; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4783 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4784 FOR_EACH_FRAME (tail, frame) |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4785 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4786 FRAME_PTR f = XFRAME (frame); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4787 /* The tooltip has been drawn already. Avoid the |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4788 SET_FRAME_GARBAGED below. */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4789 if (EQ (frame, tip_frame)) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4790 continue; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4791 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4792 /* Check "visible" frames and mark each as obscured or not. |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4793 Note that async_visible is nonzero for unobscured and |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4794 obscured frames, but zero for hidden and iconified frames. */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4795 if (FRAME_W32_P (f) && f->async_visible) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4796 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4797 RECT clipbox; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4798 HDC hdc; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4799 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4800 enter_crit (); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4801 /* Query clipping rectangle for the entire window area |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4802 (GetWindowDC), not just the client portion (GetDC). |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4803 Otherwise, the scrollbars and menubar aren't counted as |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4804 part of the visible area of the frame, and we may think |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4805 the frame is obscured when really a scrollbar is still |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4806 visible and gets WM_PAINT messages above. */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4807 hdc = GetWindowDC (FRAME_W32_WINDOW (f)); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4808 GetClipBox (hdc, &clipbox); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4809 ReleaseDC (FRAME_W32_WINDOW (f), hdc); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4810 leave_crit (); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4811 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4812 if (clipbox.right == clipbox.left |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4813 || clipbox.bottom == clipbox.top) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4814 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4815 /* Frame has become completely obscured so mark as |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4816 such (we do this by setting async_visible to 2 so |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4817 that FRAME_VISIBLE_P is still true, but redisplay |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4818 will skip it). */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4819 f->async_visible = 2; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4820 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4821 if (!FRAME_OBSCURED_P (f)) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4822 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4823 DebPrint (("frame %p (%s) obscured\n", f, |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4824 SDATA (f->name))); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4825 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4826 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4827 else |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4828 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4829 /* Frame is not obscured, so mark it as such. */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4830 f->async_visible = 1; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4831 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4832 if (FRAME_OBSCURED_P (f)) |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4833 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4834 SET_FRAME_GARBAGED (f); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4835 DebPrint (("obscured frame %p (%s) found to be visible\n", f, |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4836 SDATA (f->name))); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4837 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4838 /* Force a redisplay sooner or later. */ |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4839 record_asynch_buffer_change (); |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4840 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4841 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4842 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4843 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4844 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4845 |
13434 | 4846 UNBLOCK_INPUT; |
4847 return count; | |
4848 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4849 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4850 |
13434 | 4851 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4852 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4853 Text Cursor |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4854 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4855 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4856 /* 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
|
4857 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
|
4858 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4859 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
|
4860 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
|
4861 mode lines must be clipped to the whole window. */ |
13434 | 4862 |
4863 static void | |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4864 w32_clip_to_row (w, row, area, hdc) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4865 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4866 struct glyph_row *row; |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4867 int area; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4868 HDC hdc; |
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 frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4871 RECT clip_rect; |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4872 int window_x, window_y, window_width; |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4873 |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4874 window_box (w, area, &window_x, &window_y, &window_width, 0); |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4875 |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4876 clip_rect.left = window_x; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4877 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
|
4878 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
|
4879 clip_rect.right = clip_rect.left + window_width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4880 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
|
4881 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4882 w32_set_clip_rectangle (hdc, &clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4883 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4886 /* 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
|
4887 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4888 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4889 x_draw_hollow_cursor (w, row) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4890 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4891 struct glyph_row *row; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4892 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4893 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
|
4894 HDC hdc; |
13434 | 4895 RECT rect; |
71074
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4896 int left, top, h; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4897 struct glyph *cursor_glyph; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4898 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
|
4899 |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4900 /* Get the glyph the cursor is on. If we can't tell because |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4901 the current matrix is invalid or such, give up. */ |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4902 cursor_glyph = get_phys_cursor_glyph (w); |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4903 if (cursor_glyph == NULL) |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4904 return; |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4905 |
59748
1df465faf1df
(x_draw_hollow_cursor): Use get_phys_cursor_geometry.
Kim F. Storm <storm@cua.dk>
parents:
59655
diff
changeset
|
4906 /* Compute frame-relative coordinates for phys cursor. */ |
71074
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4907 get_phys_cursor_geometry (w, row, cursor_glyph, &left, &top, &h); |
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4908 rect.left = left; |
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4909 rect.top = top; |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4910 rect.bottom = rect.top + h; |
59748
1df465faf1df
(x_draw_hollow_cursor): Use get_phys_cursor_geometry.
Kim F. Storm <storm@cua.dk>
parents:
59655
diff
changeset
|
4911 rect.right = rect.left + w->phys_cursor_width; |
1df465faf1df
(x_draw_hollow_cursor): Use get_phys_cursor_geometry.
Kim F. Storm <storm@cua.dk>
parents:
59655
diff
changeset
|
4912 |
34779
94c3431a7fe2
(x_draw_hollow_cursor): Delay obtaining the frame's DC to avoid
Jason Rumney <jasonr@gnu.org>
parents:
34545
diff
changeset
|
4913 hdc = get_frame_dc (f); |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4914 /* Set clipping, draw the rectangle, and reset clipping again. */ |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4915 w32_clip_to_row (w, row, TEXT_AREA, hdc); |
13434 | 4916 FrameRect (hdc, &rect, hb); |
4917 DeleteObject (hb); | |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4918 w32_set_clip_rectangle (hdc, NULL); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4919 release_frame_dc (f, hdc); |
13434 | 4920 } |
4921 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4922 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4923 /* 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
|
4924 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4925 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
|
4926 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
|
4927 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
|
4928 --gerd. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4929 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4930 static void |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4931 x_draw_bar_cursor (w, row, width, kind) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4932 struct window *w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4933 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
|
4934 int width; |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4935 enum text_cursor_kinds kind; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4936 { |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4937 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
|
4938 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
|
4939 int x; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4940 HDC hdc; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4941 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4942 /* 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
|
4943 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
|
4944 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
|
4945 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
|
4946 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
|
4947 return; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4948 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4949 /* 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
|
4950 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
|
4951 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
|
4952 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
|
4953 { |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4954 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
|
4955 row = MATRIX_ROW (w->current_matrix, w->phys_cursor.vpos); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4956 draw_phys_cursor_glyph (w, row, DRAW_CURSOR); |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4957 } |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4958 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4959 { |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4960 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
|
4961 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
|
4962 |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4963 /* 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
|
4964 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
|
4965 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
|
4966 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
|
4967 that the glyph is legible. */ |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4968 if (face->background == cursor_color) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4969 cursor_color = face->foreground; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4970 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4971 x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x); |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4972 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4973 if (width < 0) |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4974 width = FRAME_CURSOR_WIDTH (f); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4975 width = min (cursor_glyph->pixel_width, width); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4976 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4977 w->phys_cursor_width = width; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4978 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4979 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4980 hdc = get_frame_dc (f); |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4981 w32_clip_to_row (w, row, TEXT_AREA, hdc); |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4982 |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4983 if (kind == BAR_CURSOR) |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4984 { |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4985 w32_fill_area (f, hdc, cursor_color, x, |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4986 WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y), |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4987 width, row->height); |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4988 } |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4989 else |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4990 { |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4991 w32_fill_area (f, hdc, cursor_color, x, |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4992 WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y + |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4993 row->height - width), |
99169
3079e132966c
(x_draw_bar_cursor): When hbar cursor is on over-sized glyph, draw it
Chong Yidong <cyd@stupidchicken.com>
parents:
98227
diff
changeset
|
4994 min (FRAME_COLUMN_WIDTH (f), cursor_glyph->pixel_width), |
3079e132966c
(x_draw_bar_cursor): When hbar cursor is on over-sized glyph, draw it
Chong Yidong <cyd@stupidchicken.com>
parents:
98227
diff
changeset
|
4995 width); |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4996 } |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4997 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4998 w32_set_clip_rectangle (hdc, NULL); |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4999 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5000 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5001 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5002 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5003 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5004 /* RIF: Define cursor CURSOR on frame F. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5005 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5006 static void |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5007 w32_define_frame_cursor (f, cursor) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5008 struct frame *f; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5009 Cursor cursor; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5010 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5011 w32_define_cursor (FRAME_W32_WINDOW (f), cursor); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5012 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5013 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5014 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5015 /* RIF: Clear area on frame F. */ |
13434 | 5016 |
5017 static void | |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5018 w32_clear_frame_area (f, x, y, width, height) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5019 struct frame *f; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5020 int x, y, width, height; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5021 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5022 HDC hdc; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5023 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5024 hdc = get_frame_dc (f); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5025 w32_clear_area (f, hdc, x, y, width, height); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5026 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5027 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5028 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5029 /* RIF: Draw or clear cursor on window W. */ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5030 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5031 static void |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5032 w32_draw_window_cursor (w, glyph_row, x, y, cursor_type, cursor_width, on_p, active_p) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
5033 struct window *w; |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5034 struct glyph_row *glyph_row; |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5035 int x, y; |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5036 int cursor_type, cursor_width; |
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5037 int on_p, active_p; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5038 { |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5039 if (on_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5040 { |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5041 /* 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
|
5042 cursor remains invisible. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5043 if (w32_use_visible_system_caret) |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5044 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
5045 /* Call to erase_phys_cursor here seems to use the |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
5046 wrong values of w->phys_cursor, as they have been |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
5047 overwritten before this function was called. */ |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5048 if (w->phys_cursor_type != NO_CURSOR) |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5049 erase_phys_cursor (w); |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5050 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5051 cursor_type = w->phys_cursor_type = NO_CURSOR; |
43621
7755c5d1d8b4
(x_display_and_set_cursor): Blink box cursor using
Kim F. Storm <storm@cua.dk>
parents:
43478
diff
changeset
|
5052 w->phys_cursor_width = -1; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5053 } |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5054 else |
43621
7755c5d1d8b4
(x_display_and_set_cursor): Blink box cursor using
Kim F. Storm <storm@cua.dk>
parents:
43478
diff
changeset
|
5055 { |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5056 w->phys_cursor_type = cursor_type; |
43621
7755c5d1d8b4
(x_display_and_set_cursor): Blink box cursor using
Kim F. Storm <storm@cua.dk>
parents:
43478
diff
changeset
|
5057 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5058 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5059 w->phys_cursor_on_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5060 |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
5061 /* 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
|
5062 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
|
5063 and speech synthesizers can follow the cursor. */ |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5064 if (active_p) |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
5065 { |
50280
1a5341fe785b
(w32_draw_window_cursor): Fix last change.
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
5066 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5067 HWND hwnd = FRAME_W32_WINDOW (f); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5068 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5069 w32_system_caret_x |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5070 = 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
|
5071 w32_system_caret_y |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5072 = (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
|
5073 + glyph_row->ascent - w->phys_cursor_ascent); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5074 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5075 /* 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
|
5076 system caret. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5077 if (w32_system_caret_hwnd |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5078 && (w32_system_caret_height != w->phys_cursor_height)) |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5079 PostMessage (hwnd, WM_EMACS_DESTROY_CARET, 0, 0); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5080 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5081 w32_system_caret_height = w->phys_cursor_height; |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5082 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5083 /* Move the system caret. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5084 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
|
5085 } |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
5086 |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5087 if (glyph_row->exact_window_width_line_p |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5088 && w->phys_cursor.hpos >= glyph_row->used[TEXT_AREA]) |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5089 { |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5090 glyph_row->cursor_in_fringe_p = 1; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5091 draw_fringe_bitmap (w, glyph_row, 0); |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5092 return; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5093 } |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5094 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5095 switch (cursor_type) |
13434 | 5096 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5097 case HOLLOW_BOX_CURSOR: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5098 x_draw_hollow_cursor (w, glyph_row); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5099 break; |
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 case FILLED_BOX_CURSOR: |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5102 draw_phys_cursor_glyph (w, glyph_row, DRAW_CURSOR); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5103 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5104 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5105 case BAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5106 x_draw_bar_cursor (w, glyph_row, cursor_width, BAR_CURSOR); |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
5107 break; |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
5108 |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
5109 case HBAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5110 x_draw_bar_cursor (w, glyph_row, cursor_width, HBAR_CURSOR); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5111 break; |
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 case NO_CURSOR: |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
5114 w->phys_cursor_width = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5115 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5116 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5117 default: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5118 abort (); |
13434 | 5119 } |
27402
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 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5122 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5123 |
13434 | 5124 |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5125 /* Icons. */ |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5126 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5127 int |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5128 x_bitmap_icon (f, icon) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5129 struct frame *f; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5130 Lisp_Object icon; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5131 { |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5132 HANDLE main_icon; |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5133 HANDLE small_icon = NULL; |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5134 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5135 if (FRAME_W32_WINDOW (f) == 0) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5136 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5137 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5138 if (NILP (icon)) |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5139 main_icon = LoadIcon (hinst, EMACS_CLASS); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5140 else if (STRINGP (icon)) |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5141 { |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5142 /* Load the main icon from the named file. */ |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5143 main_icon = LoadImage (NULL, (LPCTSTR) SDATA (icon), IMAGE_ICON, 0, 0, |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5144 LR_DEFAULTSIZE | LR_LOADFROMFILE); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5145 /* Try to load a small icon to go with it. */ |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5146 small_icon = LoadImage (NULL, (LPCSTR) SDATA (icon), IMAGE_ICON, |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5147 GetSystemMetrics (SM_CXSMICON), |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5148 GetSystemMetrics (SM_CYSMICON), |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5149 LR_LOADFROMFILE); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5150 } |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5151 else if (SYMBOLP (icon)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5152 { |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5153 LPCTSTR name; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5154 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5155 if (EQ (icon, intern ("application"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5156 name = (LPCTSTR) IDI_APPLICATION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5157 else if (EQ (icon, intern ("hand"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5158 name = (LPCTSTR) IDI_HAND; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5159 else if (EQ (icon, intern ("question"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5160 name = (LPCTSTR) IDI_QUESTION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5161 else if (EQ (icon, intern ("exclamation"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5162 name = (LPCTSTR) IDI_EXCLAMATION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5163 else if (EQ (icon, intern ("asterisk"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5164 name = (LPCTSTR) IDI_ASTERISK; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5165 else if (EQ (icon, intern ("winlogo"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5166 name = (LPCTSTR) IDI_WINLOGO; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5167 else |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5168 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5169 |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5170 main_icon = LoadIcon (NULL, name); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5171 } |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5172 else |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5173 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5174 |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5175 if (main_icon == NULL) |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5176 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5177 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5178 PostMessage (FRAME_W32_WINDOW (f), WM_SETICON, (WPARAM) ICON_BIG, |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5179 (LPARAM) main_icon); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5180 |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5181 /* If there is a small icon that goes with it, set that too. */ |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5182 if (small_icon) |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5183 PostMessage (FRAME_W32_WINDOW (f), WM_SETICON, (WPARAM) ICON_SMALL, |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5184 (LPARAM) small_icon); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5185 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5186 return 0; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5187 } |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5188 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5189 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5190 /************************************************************************ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5191 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
|
5192 ************************************************************************/ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5193 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5194 /* 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
|
5195 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
|
5196 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5197 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
|
5198 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
|
5199 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
|
5200 x_check_errors (dpy, format) |
69401
259ab035a718
Add x_fully_uncatch_errors and x_catching_errors to
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5201 x_fully_uncatch_errors () |
259ab035a718
Add x_fully_uncatch_errors and x_catching_errors to
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5202 x_catching_errors () |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5203 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
|
5204 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
|
5205 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
|
5206 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
|
5207 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
|
5208 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
|
5209 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
|
5210 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
|
5211 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
|
5212 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5213 */ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5214 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5215 |
13434 | 5216 /* Changing the font of the frame. */ |
5217 | |
90834 | 5218 Lisp_Object |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5219 x_new_font (f, font_object, fontset) |
90834 | 5220 struct frame *f; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5221 Lisp_Object font_object; |
90834 | 5222 int fontset; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5223 { |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5224 struct font *font = XFONT_OBJECT (font_object); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5225 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5226 if (fontset < 0) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5227 fontset = fontset_from_font (font_object); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5228 FRAME_FONTSET (f) = fontset; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5229 if (FRAME_FONT (f) == font) |
90834 | 5230 /* This font is already set in frame F. There's nothing more to |
5231 do. */ | |
5232 return fontset_name (fontset); | |
5233 | |
5234 BLOCK_INPUT; | |
5235 | |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5236 FRAME_FONT (f) = font; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5237 FRAME_BASELINE_OFFSET (f) = font->baseline_offset; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5238 FRAME_COLUMN_WIDTH (f) = font->average_width; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5239 FRAME_SPACE_WIDTH (f) = font->space_width; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5240 FRAME_LINE_HEIGHT (f) = font->height; |
90834 | 5241 |
5242 compute_fringe_widths (f, 1); | |
5243 | |
5244 /* Compute the scroll bar width in character columns. */ | |
5245 if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0) | |
5246 { | |
5247 int wid = FRAME_COLUMN_WIDTH (f); | |
5248 FRAME_CONFIG_SCROLL_BAR_COLS (f) | |
5249 = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid - 1) / wid; | |
5250 } | |
5251 else | |
5252 { | |
5253 int wid = FRAME_COLUMN_WIDTH (f); | |
5254 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid; | |
5255 } | |
5256 | |
5257 /* Now make the frame display the given font. */ | |
5258 if (FRAME_X_WINDOW (f) != 0) | |
5259 { | |
5260 /* Don't change the size of a tip frame; there's no point in | |
5261 doing it because it's done in Fx_show_tip, and it leads to | |
5262 problems because the tip frame has no widget. */ | |
5263 if (NILP (tip_frame) || XFRAME (tip_frame) != f) | |
5264 x_set_window_size (f, 0, FRAME_COLS (f), FRAME_LINES (f)); | |
5265 } | |
5266 | |
5267 #ifdef HAVE_X_I18N | |
5268 if (FRAME_XIC (f) | |
5269 && (FRAME_XIC_STYLE (f) & (XIMPreeditPosition | XIMStatusArea))) | |
5270 xic_set_xfontset (f, SDATA (fontset_ascii (fontset))); | |
5271 #endif | |
5272 | |
5273 UNBLOCK_INPUT; | |
5274 | |
5275 return fontset_name (fontset); | |
5276 } | |
5277 | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5278 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5279 /*********************************************************************** |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5280 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
|
5281 ***********************************************************************/ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5282 /* 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
|
5283 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5284 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
|
5285 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
|
5286 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
|
5287 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
|
5288 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
|
5289 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
|
5290 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5291 */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5292 |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
5293 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5294 /* Calculate the absolute position in frame F |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5295 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
|
5296 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
5297 void |
13434 | 5298 x_calc_absolute_position (f) |
5299 struct frame *f; | |
5300 { | |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5301 int flags = f->size_hint_flags; |
13434 | 5302 |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5303 /* The sum of the widths of the frame's left and right borders, and |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5304 the sum of the heights of the frame's top and bottom borders (in |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5305 pixels) drawn by Windows. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5306 unsigned int left_right_borders_width, top_bottom_borders_height; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5307 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5308 /* Try to get the actual values of these two variables. We compute |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5309 the border width (height) by subtracting the width (height) of |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5310 the frame's client area from the width (height) of the frame's |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5311 entire window. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5312 WINDOWPLACEMENT wp = { 0 }; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5313 RECT client_rect = { 0 }; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5314 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5315 if (GetWindowPlacement (FRAME_W32_WINDOW (f), &wp) |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5316 && GetClientRect (FRAME_W32_WINDOW (f), &client_rect)) |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5317 { |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5318 left_right_borders_width = |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5319 (wp.rcNormalPosition.right - wp.rcNormalPosition.left) - |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5320 (client_rect.right - client_rect.left); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5321 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5322 top_bottom_borders_height = |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5323 (wp.rcNormalPosition.bottom - wp.rcNormalPosition.top) - |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5324 (client_rect.bottom - client_rect.top); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5325 } |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5326 else |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5327 { |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5328 /* Use sensible default values. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5329 left_right_borders_width = 8; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5330 top_bottom_borders_height = 32; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5331 } |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5332 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5333 /* Treat negative positions as relative to the rightmost bottommost |
13434 | 5334 position that fits on the screen. */ |
5335 if (flags & XNegative) | |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
5336 f->left_pos = (x_display_pixel_width (FRAME_W32_DISPLAY_INFO (f)) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5337 - FRAME_PIXEL_WIDTH (f) |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5338 + f->left_pos |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5339 - (left_right_borders_width - 1)); |
30988
a69a2ac4345b
(help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
30730
diff
changeset
|
5340 |
13434 | 5341 if (flags & YNegative) |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
5342 f->top_pos = (x_display_pixel_height (FRAME_W32_DISPLAY_INFO (f)) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5343 - FRAME_PIXEL_HEIGHT (f) |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5344 + f->top_pos |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5345 - (top_bottom_borders_height - 1)); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5346 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5347 /* The left_pos and top_pos are now relative to the top and left |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5348 screen edges, so the flags should correspond. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5349 f->size_hint_flags &= ~ (XNegative | YNegative); |
13434 | 5350 } |
5351 | |
5352 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position, | |
5353 to really change the position, and 0 when calling from | |
5354 x_make_frame_visible (in that case, XOFF and YOFF are the current | |
5355 position values). It is -1 when calling from x_set_frame_parameters, | |
5356 which means, do adjust for borders but don't change the gravity. */ | |
5357 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
5358 void |
13434 | 5359 x_set_offset (f, xoff, yoff, change_gravity) |
5360 struct frame *f; | |
5361 register int xoff, yoff; | |
5362 int change_gravity; | |
5363 { | |
5364 int modified_top, modified_left; | |
5365 | |
5366 if (change_gravity > 0) | |
5367 { | |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5368 f->top_pos = yoff; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5369 f->left_pos = xoff; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5370 f->size_hint_flags &= ~ (XNegative | YNegative); |
13434 | 5371 if (xoff < 0) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5372 f->size_hint_flags |= XNegative; |
13434 | 5373 if (yoff < 0) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5374 f->size_hint_flags |= YNegative; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5375 f->win_gravity = NorthWestGravity; |
13434 | 5376 } |
5377 x_calc_absolute_position (f); | |
5378 | |
5379 BLOCK_INPUT; | |
5380 x_wm_set_size_hint (f, (long) 0, 0); | |
5381 | |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5382 modified_left = f->left_pos; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5383 modified_top = f->top_pos; |
13434 | 5384 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5385 my_set_window_pos (FRAME_W32_WINDOW (f), |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5386 NULL, |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5387 modified_left, modified_top, |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
5388 0, 0, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5389 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE); |
13434 | 5390 UNBLOCK_INPUT; |
5391 } | |
5392 | |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5393 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5394 /* 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
|
5395 If so needed, resize the frame. */ |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5396 static void |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5397 x_check_fullscreen (f) |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5398 struct frame *f; |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5399 { |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5400 if (f->want_fullscreen & FULLSCREEN_BOTH) |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5401 { |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5402 int width, height, ign; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5403 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5404 x_real_positions (f, &f->left_pos, &f->top_pos); |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5405 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5406 x_fullscreen_adjust (f, &width, &height, &ign, &ign); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5407 |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5408 /* We do not need to move the window, it shall be taken care of |
52754
d08832a11cfd
* w32term.c (w32_read_socket): Remove call to x_check_fullscreen_move,
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
5409 when setting WM manager hints. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5410 if (FRAME_COLS (f) != width || FRAME_LINES (f) != height) |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5411 { |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5412 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
|
5413 SET_FRAME_GARBAGED (f); |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5414 cancel_mouse_face (f); |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5415 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5416 /* Wait for the change of frame size to occur */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5417 f->want_fullscreen |= FULLSCREEN_WAIT; |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5418 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5419 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5420 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5421 |
13434 | 5422 /* Call this to change the size of frame F's x-window. |
5423 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity | |
5424 for this size change and subsequent size changes. | |
5425 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
|
5426 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5427 void |
13434 | 5428 x_set_window_size (f, change_gravity, cols, rows) |
5429 struct frame *f; | |
5430 int change_gravity; | |
5431 int cols, rows; | |
5432 { | |
5433 int pixelwidth, pixelheight; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5434 |
13434 | 5435 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5436 |
13434 | 5437 check_frame_size (f, &rows, &cols); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5438 f->scroll_bar_actual_width |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5439 = FRAME_SCROLL_BAR_COLS (f) * FRAME_COLUMN_WIDTH (f); |
41727
d5baaa7df054
Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents:
41639
diff
changeset
|
5440 |
50096 | 5441 compute_fringe_widths (f, 0); |
41727
d5baaa7df054
Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents:
41639
diff
changeset
|
5442 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5443 pixelwidth = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f, cols); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5444 pixelheight = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f, rows); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5445 |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5446 f->win_gravity = NorthWestGravity; |
13434 | 5447 x_wm_set_size_hint (f, (long) 0, 0); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5448 |
13434 | 5449 { |
5450 RECT rect; | |
5451 | |
5452 rect.left = rect.top = 0; | |
5453 rect.right = pixelwidth; | |
5454 rect.bottom = pixelheight; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5455 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5456 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
|
5457 FRAME_EXTERNAL_MENU_BAR (f)); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5458 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5459 my_set_window_pos (FRAME_W32_WINDOW (f), |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5460 NULL, |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5461 0, 0, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5462 rect.right - rect.left, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5463 rect.bottom - rect.top, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5464 SWP_NOZORDER | SWP_NOMOVE | SWP_NOACTIVATE); |
13434 | 5465 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5466 |
79023
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5467 #if 0 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5468 /* The following mirrors what is done in xterm.c. It appears to be |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5469 for informing lisp of the new size immediately, while the actual |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5470 resize will happen asynchronously. But on Windows, the menu bar |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5471 automatically wraps when the frame is too narrow to contain it, |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5472 and that causes any calculations made here to come out wrong. The |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
96343
diff
changeset
|
5473 end is some nasty buggy behavior, including the potential loss |
79023
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5474 of the minibuffer. |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5475 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5476 Disabling this code is either not sufficient to fix the problems |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5477 completely, or it causes fresh problems, but at least it removes |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5478 the most problematic symptom of the minibuffer becoming unusable. |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5479 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5480 ----------------------------------------------------------------- |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5481 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5482 Now, strictly speaking, we can't be sure that this is accurate, |
13434 | 5483 but the window manager will get around to dealing with the size |
5484 change request eventually, and we'll hear how it went when the | |
5485 ConfigureNotify event gets here. | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5486 |
13434 | 5487 We could just not bother storing any of this information here, |
5488 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
|
5489 might be kind of confusing to the Lisp code, since size changes |
13434 | 5490 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
|
5491 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
|
5492 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5493 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
|
5494 a BLOCK_INPUT. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5495 change_frame_size (f, rows, cols, 0, 1, 0); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5496 FRAME_PIXEL_WIDTH (f) = pixelwidth; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5497 FRAME_PIXEL_HEIGHT (f) = pixelheight; |
13434 | 5498 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5499 /* 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
|
5500 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
|
5501 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
|
5502 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
|
5503 SET_FRAME_GARBAGED (f); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5504 |
13434 | 5505 /* 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
|
5506 mark_window_cursors_off (XWINDOW (f->root_window)); |
13434 | 5507 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5508 /* Clear out any recollection of where the mouse highlighting was, |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5509 since it might be in a place that's outside the new frame size. |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5510 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
|
5511 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
|
5512 cancel_mouse_face (f); |
79023
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5513 #endif |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
5514 |
13434 | 5515 UNBLOCK_INPUT; |
5516 } | |
5517 | |
5518 /* Mouse warping. */ | |
5519 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5520 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
|
5521 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5522 void |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5523 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
|
5524 struct frame *f; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5525 int x, y; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5526 { |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5527 int pix_x, pix_y; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5528 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5529 pix_x = FRAME_COL_TO_PIXEL_X (f, x) + FRAME_COLUMN_WIDTH (f) / 2; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5530 pix_y = FRAME_LINE_TO_PIXEL_Y (f, y) + FRAME_LINE_HEIGHT (f) / 2; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5531 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5532 if (pix_x < 0) pix_x = 0; |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5533 if (pix_x > FRAME_PIXEL_WIDTH (f)) pix_x = FRAME_PIXEL_WIDTH (f); |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5534 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5535 if (pix_y < 0) pix_y = 0; |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5536 if (pix_y > FRAME_PIXEL_HEIGHT (f)) pix_y = FRAME_PIXEL_HEIGHT (f); |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5537 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5538 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
|
5539 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5540 |
13434 | 5541 void |
15616
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5542 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
|
5543 struct frame *f; |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5544 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
|
5545 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5546 RECT rect; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5547 POINT pt; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5548 |
15616
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5549 BLOCK_INPUT; |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5550 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5551 GetClientRect (FRAME_W32_WINDOW (f), &rect); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5552 pt.x = rect.left + pix_x; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5553 pt.y = rect.top + pix_y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5554 ClientToScreen (FRAME_W32_WINDOW (f), &pt); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5555 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5556 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
|
5557 |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5558 UNBLOCK_INPUT; |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5559 } |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5560 |
13434 | 5561 |
5562 /* focus shifting, raising and lowering. */ | |
5563 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5564 void |
13434 | 5565 x_focus_on_frame (f) |
5566 struct frame *f; | |
5567 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5568 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
|
5569 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5570 /* Give input focus to frame. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5571 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5572 #if 0 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5573 /* 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
|
5574 if (x_window_to_frame (dpyinfo, GetForegroundWindow ())) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5575 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
|
5576 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5577 #endif |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
5578 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
|
5579 UNBLOCK_INPUT; |
13434 | 5580 } |
5581 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5582 void |
13434 | 5583 x_unfocus_frame (f) |
5584 struct frame *f; | |
5585 { | |
5586 } | |
5587 | |
5588 /* Raise frame F. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5589 void |
13434 | 5590 x_raise_frame (f) |
5591 struct frame *f; | |
5592 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5593 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5594 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5595 /* Strictly speaking, raise-frame should only change the frame's Z |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
96343
diff
changeset
|
5596 order, leaving input focus unchanged. This is reasonable behavior |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5597 on X where the usual policy is point-to-focus. However, this |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
96343
diff
changeset
|
5598 behavior would be very odd on Windows where the usual policy is |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5599 click-to-focus. |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5600 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5601 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
|
5602 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
|
5603 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
|
5604 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
|
5605 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
|
5606 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
|
5607 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
|
5608 completely obscured) with input focus. |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5609 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5610 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
|
5611 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
|
5612 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
|
5613 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5614 if (NILP (Vw32_grab_focus_on_raise)) |
13434 | 5615 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5616 /* 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
|
5617 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
|
5618 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
|
5619 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
|
5620 more cumbersome method. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5621 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5622 HDWP handle = BeginDeferWindowPos (2); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5623 if (handle) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5624 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5625 DeferWindowPos (handle, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5626 FRAME_W32_WINDOW (f), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5627 HWND_TOP, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5628 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5629 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5630 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5631 DeferWindowPos (handle, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5632 GetForegroundWindow (), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5633 FRAME_W32_WINDOW (f), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5634 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5635 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5636 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5637 EndDeferWindowPos (handle); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5638 } |
13434 | 5639 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5640 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5641 { |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
5642 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
|
5643 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5644 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5645 UNBLOCK_INPUT; |
13434 | 5646 } |
5647 | |
5648 /* Lower frame F. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5649 void |
13434 | 5650 x_lower_frame (f) |
5651 struct frame *f; | |
5652 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5653 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5654 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
|
5655 HWND_BOTTOM, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5656 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5657 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5658 UNBLOCK_INPUT; |
13434 | 5659 } |
5660 | |
5661 static void | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5662 w32_frame_raise_lower (f, raise_flag) |
13434 | 5663 FRAME_PTR f; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5664 int raise_flag; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5665 { |
35000 | 5666 if (! FRAME_W32_P (f)) |
5667 return; | |
5668 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5669 if (raise_flag) |
13434 | 5670 x_raise_frame (f); |
5671 else | |
5672 x_lower_frame (f); | |
5673 } | |
5674 | |
5675 /* Change of visibility. */ | |
5676 | |
5677 /* This tries to wait until the frame is really visible. | |
5678 However, if the window manager asks the user where to position | |
5679 the frame, this will return before the user finishes doing that. | |
5680 The frame will not actually be visible at that time, | |
5681 but it will become visible later when the window manager | |
5682 finishes with it. */ | |
5683 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5684 void |
13434 | 5685 x_make_frame_visible (f) |
5686 struct frame *f; | |
5687 { | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5688 Lisp_Object type; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5689 |
13434 | 5690 BLOCK_INPUT; |
5691 | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5692 type = x_icon_type (f); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5693 if (!NILP (type)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5694 x_bitmap_icon (f, type); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5695 |
13434 | 5696 if (! FRAME_VISIBLE_P (f)) |
5697 { | |
5698 /* We test FRAME_GARBAGED_P here to make sure we don't | |
5699 call x_set_offset a second time | |
5700 if we get to x_make_frame_visible a second time | |
5701 before the window gets really visible. */ | |
5702 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
|
5703 && ! f->output_data.w32->asked_for_visible) |
71546
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5704 { |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5705 RECT workarea_rect; |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5706 RECT window_rect; |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5707 |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5708 /* Adjust vertical window position in order to avoid being |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5709 covered by a task bar placed at the bottom of the desktop. */ |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5710 SystemParametersInfo(SPI_GETWORKAREA, 0, &workarea_rect, 0); |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5711 GetWindowRect(FRAME_W32_WINDOW(f), &window_rect); |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5712 if (window_rect.bottom > workarea_rect.bottom |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5713 && window_rect.top > workarea_rect.top) |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5714 f->top_pos = max (window_rect.top |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5715 - window_rect.bottom + workarea_rect.bottom, |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5716 workarea_rect.top); |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5717 |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5718 x_set_offset (f, f->left_pos, f->top_pos, 0); |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5719 } |
13434 | 5720 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5721 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
|
5722 |
95733
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5723 /* The first of these seems to give more expected behavior, but |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5724 was added as a commented out line in Sept 1997, with the |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5725 second version remaining uncommented. There may have been |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5726 some problem with it that led to it not being enabled, |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5727 so the old version remains commented out below in case we |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5728 decide we need to go back to it [23.0.60 2008-06-09]. */ |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5729 my_show_window (f, FRAME_W32_WINDOW (f), |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5730 f->async_iconified ? SW_RESTORE : SW_SHOW); |
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5731 /* my_show_window (f, FRAME_W32_WINDOW (f), SW_SHOWNORMAL); */ |
13434 | 5732 } |
5733 | |
5734 /* Synchronize to ensure Emacs knows the frame is visible | |
5735 before we do anything else. We do this loop with input not blocked | |
5736 so that incoming events are handled. */ | |
5737 { | |
5738 Lisp_Object frame; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5739 int count; |
13434 | 5740 |
5741 /* This must come after we set COUNT. */ | |
5742 UNBLOCK_INPUT; | |
5743 | |
5744 XSETFRAME (frame, f); | |
5745 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5746 /* 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
|
5747 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
|
5748 MapNotify at all.. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5749 for (count = input_signal_count + 10; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5750 input_signal_count < count && !FRAME_VISIBLE_P (f);) |
13434 | 5751 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5752 /* Force processing of queued events. */ |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
5753 /* TODO: x_sync equivalent? */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5754 |
13434 | 5755 /* Machines that do polling rather than SIGIO have been observed |
5756 to go into a busy-wait here. So we'll fake an alarm signal | |
5757 to let the handler know that there's something to be read. | |
5758 We used to raise a real alarm, but it seems that the handler | |
5759 isn't always enabled here. This is probably a bug. */ | |
5760 if (input_polling_used ()) | |
5761 { | |
5762 /* It could be confusing if a real alarm arrives while processing | |
5763 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
|
5764 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
|
5765 poll_suppress_count = 1; |
5fe002cf4b37
(x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents:
27514
diff
changeset
|
5766 poll_for_input_1 (); |
5fe002cf4b37
(x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents:
27514
diff
changeset
|
5767 poll_suppress_count = old_poll_suppress_count; |
13434 | 5768 } |
5769 } | |
5770 FRAME_SAMPLE_VISIBILITY (f); | |
5771 } | |
5772 } | |
5773 | |
5774 /* Change from mapped state to withdrawn state. */ | |
5775 | |
5776 /* Make the frame visible (mapped and not iconified). */ | |
5777 | |
5778 x_make_frame_invisible (f) | |
5779 struct frame *f; | |
5780 { | |
5781 /* Don't keep the highlight on an invisible frame. */ | |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5782 if (FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame == f) |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5783 FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame = 0; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5784 |
13434 | 5785 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5786 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5787 my_show_window (f, FRAME_W32_WINDOW (f), SW_HIDE); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5788 |
13434 | 5789 /* We can't distinguish this from iconification |
5790 just by the event that we get from the server. | |
5791 So we can't win using the usual strategy of letting | |
5792 FRAME_SAMPLE_VISIBILITY set this. So do it by hand, | |
5793 and synchronize with the server to make sure we agree. */ | |
5794 f->visible = 0; | |
5795 FRAME_ICONIFIED_P (f) = 0; | |
5796 f->async_visible = 0; | |
5797 f->async_iconified = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5798 |
13434 | 5799 UNBLOCK_INPUT; |
5800 } | |
5801 | |
5802 /* Change window state from mapped to iconified. */ | |
5803 | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5804 void |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5805 x_iconify_frame (f) |
13434 | 5806 struct frame *f; |
5807 { | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5808 Lisp_Object type; |
13434 | 5809 |
5810 /* Don't keep the highlight on an invisible frame. */ | |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5811 if (FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame == f) |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5812 FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame = 0; |
13434 | 5813 |
5814 if (f->async_iconified) | |
5815 return; | |
5816 | |
5817 BLOCK_INPUT; | |
5818 | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5819 type = x_icon_type (f); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5820 if (!NILP (type)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5821 x_bitmap_icon (f, type); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5822 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5823 /* 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
|
5824 SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_MINIMIZE, 0); |
13434 | 5825 |
5826 UNBLOCK_INPUT; | |
5827 } | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5828 |
13434 | 5829 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5830 /* 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
|
5831 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5832 void |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5833 x_free_frame_resources (f) |
13434 | 5834 struct frame *f; |
5835 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5836 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); |
13434 | 5837 |
5838 BLOCK_INPUT; | |
5839 | |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5840 /* We must free faces before destroying windows because some |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5841 font-driver (e.g. xft) access a window while finishing a |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5842 face. */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5843 if (FRAME_FACE_CACHE (f)) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5844 free_frame_faces (f); |
90834 | 5845 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5846 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
|
5847 my_destroy_window (f, FRAME_W32_WINDOW (f)); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5848 |
13434 | 5849 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
|
5850 |
83505 | 5851 unload_color (f, FRAME_FOREGROUND_PIXEL (f)); |
5852 unload_color (f, FRAME_BACKGROUND_PIXEL (f)); | |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5853 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
|
5854 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
|
5855 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
|
5856 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
|
5857 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
|
5858 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
|
5859 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
|
5860 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
|
5861 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5862 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
|
5863 free_frame_faces (f); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5864 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5865 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
|
5866 f->output_data.w32 = NULL; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5867 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5868 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
|
5869 dpyinfo->w32_focus_frame = 0; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5870 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
|
5871 dpyinfo->w32_focus_event_frame = 0; |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5872 if (f == dpyinfo->x_highlight_frame) |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
5873 dpyinfo->x_highlight_frame = 0; |
13434 | 5874 |
5875 if (f == dpyinfo->mouse_face_mouse_frame) | |
5876 { | |
5877 dpyinfo->mouse_face_beg_row | |
5878 = dpyinfo->mouse_face_beg_col = -1; | |
5879 dpyinfo->mouse_face_end_row | |
5880 = dpyinfo->mouse_face_end_col = -1; | |
5881 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
|
5882 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
|
5883 dpyinfo->mouse_face_mouse_frame = 0; |
13434 | 5884 } |
5885 | |
5886 UNBLOCK_INPUT; | |
5887 } | |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5888 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5889 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5890 /* Destroy the window of frame F. */ |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5891 void |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5892 x_destroy_window (f) |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5893 struct frame *f; |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5894 { |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5895 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
|
5896 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5897 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
|
5898 dpyinfo->reference_count--; |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5899 } |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5900 |
13434 | 5901 |
5902 /* Setting window manager hints. */ | |
5903 | |
5904 /* Set the normal size hints for the window manager, for frame F. | |
5905 FLAGS is the flags word to use--or 0 meaning preserve the flags | |
5906 that the window now has. | |
5907 If USER_POSITION is nonzero, we set the USPosition | |
5908 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
|
5909 void |
13434 | 5910 x_wm_set_size_hint (f, flags, user_position) |
5911 struct frame *f; | |
5912 long flags; | |
5913 int user_position; | |
5914 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5915 Window window = FRAME_W32_WINDOW (f); |
13434 | 5916 |
14351
fb2ce4ebc871
ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents:
14248
diff
changeset
|
5917 enter_crit (); |
13434 | 5918 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5919 SetWindowLong (window, WND_FONTWIDTH_INDEX, FRAME_COLUMN_WIDTH (f)); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5920 SetWindowLong (window, WND_LINEHEIGHT_INDEX, FRAME_LINE_HEIGHT (f)); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5921 SetWindowLong (window, WND_BORDER_INDEX, FRAME_INTERNAL_BORDER_WIDTH (f)); |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5922 SetWindowLong (window, WND_SCROLLBAR_INDEX, f->scroll_bar_actual_width); |
13434 | 5923 |
14351
fb2ce4ebc871
ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents:
14248
diff
changeset
|
5924 leave_crit (); |
13434 | 5925 } |
5926 | |
5927 /* Window manager things */ | |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
5928 void |
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
5929 x_wm_set_icon_position (f, icon_x, icon_y) |
13434 | 5930 struct frame *f; |
5931 int icon_x, icon_y; | |
5932 { | |
5933 #if 0 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5934 Window window = FRAME_W32_WINDOW (f); |
13434 | 5935 |
5936 f->display.x->wm_hints.flags |= IconPositionHint; | |
5937 f->display.x->wm_hints.icon_x = icon_x; | |
5938 f->display.x->wm_hints.icon_y = icon_y; | |
5939 | |
5940 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->display.x->wm_hints); | |
5941 #endif | |
5942 } | |
5943 | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5944 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5945 /*********************************************************************** |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5946 Initialization |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5947 ***********************************************************************/ |
13434 | 5948 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5949 static int w32_initialized = 0; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5950 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5951 void |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5952 w32_initialize_display_info (display_name) |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5953 Lisp_Object display_name; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5954 { |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5955 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
|
5956 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5957 bzero (dpyinfo, sizeof (*dpyinfo)); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5958 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5959 /* 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
|
5960 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
|
5961 w32_display_name_list); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5962 dpyinfo->name_list_element = XCAR (w32_display_name_list); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5963 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5964 dpyinfo->w32_id_name |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45803
diff
changeset
|
5965 = (char *) xmalloc (SCHARS (Vinvocation_name) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45803
diff
changeset
|
5966 + SCHARS (Vsystem_name) |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5967 + 2); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5968 sprintf (dpyinfo->w32_id_name, "%s@%s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
45803
diff
changeset
|
5969 SDATA (Vinvocation_name), SDATA (Vsystem_name)); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5970 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5971 /* 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
|
5972 with values obtained from system metrics. */ |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5973 dpyinfo->resx = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5974 dpyinfo->resy = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5975 dpyinfo->n_planes = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5976 dpyinfo->n_cbits = 4; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5977 dpyinfo->n_fonts = 0; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5978 dpyinfo->smallest_font_height = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5979 dpyinfo->smallest_char_width = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5980 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5981 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
|
5982 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
|
5983 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
|
5984 dpyinfo->mouse_face_window = Qnil; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
5985 dpyinfo->mouse_face_overlay = Qnil; |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
5986 dpyinfo->mouse_face_hidden = 0; |
49371
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
5987 |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
5988 dpyinfo->vertical_scroll_bar_cursor = w32_load_cursor (IDC_ARROW); |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
5989 /* TODO: dpyinfo->gray */ |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5990 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5991 } |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5992 |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5993 /* Create an xrdb-style database of resources to supercede registry settings. |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5994 The database is just a concatenation of C strings, finished by an additional |
85309
3224d6c172a6
(w32_font_is_double_byte, my_create_scrollbar): Make static.
Juanma Barranquero <lekktu@gmail.com>
parents:
85258
diff
changeset
|
5995 \0. The strings are submitted to some basic normalization, so |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5996 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5997 [ *]option[ *]:[ *]value... |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5998 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5999 becomes |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6000 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6001 option:value... |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6002 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6003 but any whitespace following value is not removed. */ |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6004 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6005 static char * |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6006 w32_make_rdb (xrm_option) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6007 char *xrm_option; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6008 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6009 char *buffer = xmalloc (strlen (xrm_option) + 2); |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6010 char *current = buffer; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6011 char ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6012 int in_option = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6013 int before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6014 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6015 do { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6016 ch = *xrm_option++; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6017 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6018 if (ch == '\n') |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6019 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6020 *current++ = '\0'; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6021 in_option = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6022 before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6023 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6024 else if (ch != ' ') |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6025 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6026 *current++ = ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6027 if (in_option && (ch == ':')) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6028 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6029 in_option = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6030 before_value = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6031 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6032 else if (before_value) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6033 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6034 before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6035 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6036 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6037 else if (!(in_option || before_value)) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6038 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6039 *current++ = ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6040 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6041 } while (ch); |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6042 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6043 *current = '\0'; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6044 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6045 return buffer; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6046 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6047 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6048 void |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6049 x_flush (struct frame * f) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6050 { /* Nothing to do */ } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6051 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6052 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6053 extern frame_parm_handler w32_frame_parm_handlers[]; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6054 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6055 static struct redisplay_interface w32_redisplay_interface = |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6056 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6057 w32_frame_parm_handlers, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6058 x_produce_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6059 x_write_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6060 x_insert_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6061 x_clear_end_of_line, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6062 x_scroll_run, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6063 x_after_update_window_line, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6064 x_update_window_begin, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6065 x_update_window_end, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6066 x_cursor_to, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6067 x_flush, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6068 0, /* flush_display_optional */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6069 x_clear_window_mouse_face, |
94970
2905831ea99f
(w32_get_glyph_overhangs): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
6070 x_get_glyph_overhangs, |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6071 x_fix_overlapping_area, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6072 w32_draw_fringe_bitmap, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6073 w32_define_fringe_bitmap, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6074 w32_destroy_fringe_bitmap, |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
6075 w32_compute_glyph_string_overhangs, |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6076 x_draw_glyph_string, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6077 w32_define_frame_cursor, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6078 w32_clear_frame_area, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6079 w32_draw_window_cursor, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6080 w32_draw_vertical_window_border, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6081 w32_shift_glyphs_for_insert |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6082 }; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6083 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6084 static void x_delete_terminal (struct terminal *term); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6085 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6086 static struct terminal * |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6087 w32_create_terminal (struct w32_display_info *dpyinfo) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6088 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6089 struct terminal *terminal; |
84764
8556c5b11c62
(x_draw_glyph_string): Use strike_through_color, not underline_color,
Juanma Barranquero <lekktu@gmail.com>
parents:
84686
diff
changeset
|
6090 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6091 terminal = create_terminal (); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6092 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6093 terminal->type = output_w32; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6094 terminal->display_info.w32 = dpyinfo; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6095 dpyinfo->terminal = terminal; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6096 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6097 /* MSVC does not type K&R functions with no arguments correctly, and |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6098 so we must explicitly cast them. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6099 terminal->clear_frame_hook = x_clear_frame; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6100 terminal->ins_del_lines_hook = x_ins_del_lines; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6101 terminal->delete_glyphs_hook = x_delete_glyphs; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6102 terminal->ring_bell_hook = w32_ring_bell; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6103 terminal->reset_terminal_modes_hook = w32_reset_terminal_modes; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6104 terminal->set_terminal_modes_hook = w32_set_terminal_modes; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6105 terminal->update_begin_hook = x_update_begin; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6106 terminal->update_end_hook = x_update_end; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6107 terminal->set_terminal_window_hook = w32_set_terminal_window; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6108 terminal->read_socket_hook = w32_read_socket; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6109 terminal->frame_up_to_date_hook = w32_frame_up_to_date; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6110 terminal->mouse_position_hook = w32_mouse_position; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6111 terminal->frame_rehighlight_hook = w32_frame_rehighlight; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6112 terminal->frame_raise_lower_hook = w32_frame_raise_lower; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6113 // terminal->fullscreen_hook = XTfullscreen_hook; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6114 terminal->set_vertical_scroll_bar_hook = w32_set_vertical_scroll_bar; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6115 terminal->condemn_scroll_bars_hook = w32_condemn_scroll_bars; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6116 terminal->redeem_scroll_bar_hook = w32_redeem_scroll_bar; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6117 terminal->judge_scroll_bars_hook = w32_judge_scroll_bars; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6118 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6119 terminal->delete_frame_hook = x_destroy_window; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6120 terminal->delete_terminal_hook = x_delete_terminal; |
84764
8556c5b11c62
(x_draw_glyph_string): Use strike_through_color, not underline_color,
Juanma Barranquero <lekktu@gmail.com>
parents:
84686
diff
changeset
|
6121 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6122 terminal->rif = &w32_redisplay_interface; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6123 terminal->scroll_region_ok = 1; /* We'll scroll partial frames. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6124 terminal->char_ins_del_ok = 1; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6125 terminal->line_ins_del_ok = 1; /* We'll just blt 'em. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6126 terminal->fast_clear_end_of_line = 1; /* X does this well. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6127 terminal->memory_below_frame = 0; /* We don't remember what scrolls |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6128 off the bottom. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6129 |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6130 /* We don't yet support separate terminals on W32, so don't try to share |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6131 keyboards between virtual terminals that are on the same physical |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6132 terminal like X does. */ |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6133 terminal->kboard = (KBOARD *) xmalloc (sizeof (KBOARD)); |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6134 init_kboard (terminal->kboard); |
85614
9f3a25157e4f
Make `window-system' into a keyboard-local variable (rather than
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85311
diff
changeset
|
6135 terminal->kboard->Vwindow_system = intern ("w32"); |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6136 terminal->kboard->next_kboard = all_kboards; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6137 all_kboards = terminal->kboard; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6138 /* Don't let the initial kboard remain current longer than necessary. |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6139 That would cause problems if a file loaded on startup tries to |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6140 prompt in the mini-buffer. */ |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6141 if (current_kboard == initial_kboard) |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6142 current_kboard = terminal->kboard; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6143 terminal->kboard->reference_count++; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6144 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6145 return terminal; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6146 } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6147 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6148 static void |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6149 x_delete_terminal (struct terminal *terminal) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6150 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6151 struct w32_display_info *dpyinfo = terminal->display_info.w32; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6152 int i; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6153 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6154 /* Protect against recursive calls. Fdelete_frame in |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6155 delete_terminal calls us back when it deletes our last frame. */ |
84686
e68aa34ac58f
(w32_delete_terminal): Use terminal->name as liveness status.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84543
diff
changeset
|
6156 if (!terminal->name) |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6157 return; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6158 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6159 BLOCK_INPUT; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6160 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6161 x_delete_display (dpyinfo); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6162 UNBLOCK_INPUT; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6163 } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6164 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6165 struct w32_display_info * |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6166 w32_term_init (display_name, xrm_option, resource_name) |
13434 | 6167 Lisp_Object display_name; |
6168 char *xrm_option; | |
6169 char *resource_name; | |
6170 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6171 struct w32_display_info *dpyinfo; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6172 struct terminal *terminal; |
13434 | 6173 HDC hdc; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6174 |
13434 | 6175 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6176 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6177 if (!w32_initialized) |
13434 | 6178 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6179 w32_initialize (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6180 w32_initialized = 1; |
13434 | 6181 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6182 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6183 w32_initialize_display_info (display_name); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6184 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6185 dpyinfo = &one_w32_display_info; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6186 terminal = w32_create_terminal (dpyinfo); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6187 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6188 /* Set the name of the terminal. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6189 terminal->name = (char *) xmalloc (SBYTES (display_name) + 1); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6190 strncpy (terminal->name, SDATA (display_name), SBYTES (display_name)); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6191 terminal->name[SBYTES (display_name)] = 0; |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6192 |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6193 dpyinfo->xrdb = xrm_option ? w32_make_rdb (xrm_option) : NULL; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6194 |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6195 /* Put this display on the chain. */ |
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6196 dpyinfo->next = x_display_list; |
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6197 x_display_list = dpyinfo; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6198 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6199 hdc = GetDC (GetDesktopWindow ()); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6200 |
13434 | 6201 dpyinfo->root_window = GetDesktopWindow (); |
6202 dpyinfo->n_planes = GetDeviceCaps (hdc, PLANES); | |
6203 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
|
6204 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
|
6205 dpyinfo->resy = GetDeviceCaps (hdc, LOGPIXELSY); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6206 dpyinfo->has_palette = GetDeviceCaps (hdc, RASTERCAPS) & RC_PALETTE; |
92109
4d9fc08769fa
Consolidate the image_cache to the terminal struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91702
diff
changeset
|
6207 dpyinfo->terminal->image_cache = make_image_cache (); |
13434 | 6208 ReleaseDC (GetDesktopWindow (), hdc); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6209 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6210 /* initialise palette with white and black */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6211 { |
47981
74b52651467d
(w32_term_init): Pass XColor to w32_define_color, not COLORREF.
Juanma Barranquero <lekktu@gmail.com>
parents:
47148
diff
changeset
|
6212 XColor color; |
27514
9625ad0c0f52
(w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents:
27406
diff
changeset
|
6213 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
|
6214 w32_defined_color (0, "black", &color, 1); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6215 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6216 |
83609
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6217 /* Add the default keyboard. */ |
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6218 add_keyboard_wait_descriptor (0); |
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6219 |
50096 | 6220 /* Create Fringe Bitmaps and store them for later use. |
6221 | |
6222 On W32, bitmaps are all unsigned short, as Windows requires | |
6223 bitmap data to be Word aligned. For some reason they are | |
6224 horizontally reflected compared to how they appear on X, so we | |
6225 need to bitswap and convert to unsigned shorts before creating | |
6226 the bitmaps. */ | |
84543
c7b52c80ffa2
(w32_term_init): Pass rif to w32_init_fringe.
Jason Rumney <jasonr@gnu.org>
parents:
83876
diff
changeset
|
6227 w32_init_fringe (terminal->rif); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6228 |
13434 | 6229 #ifdef F_SETOWN |
6230 fcntl (connection, F_SETOWN, getpid ()); | |
6231 #endif /* ! defined (F_SETOWN) */ | |
6232 | |
6233 #ifdef SIGIO | |
6234 if (interrupt_input) | |
6235 init_sigio (connection); | |
6236 #endif /* ! defined (SIGIO) */ | |
6237 | |
6238 UNBLOCK_INPUT; | |
6239 | |
6240 return dpyinfo; | |
6241 } | |
6242 | |
6243 /* Get rid of display DPYINFO, assuming all frames are already gone. */ | |
6244 void | |
6245 x_delete_display (dpyinfo) | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6246 struct w32_display_info *dpyinfo; |
13434 | 6247 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6248 /* Discard this display from w32_display_name_list and w32_display_list. |
13434 | 6249 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
|
6250 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
|
6251 && 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
|
6252 w32_display_name_list = XCDR (w32_display_name_list); |
13434 | 6253 else |
6254 { | |
6255 Lisp_Object tail; | |
6256 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6257 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
|
6258 while (CONSP (tail) && CONSP (XCDR (tail))) |
13434 | 6259 { |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6260 if (EQ (XCAR (XCDR (tail)), dpyinfo->name_list_element)) |
13434 | 6261 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39697
diff
changeset
|
6262 XSETCDR (tail, XCDR (XCDR (tail))); |
13434 | 6263 break; |
6264 } | |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25236
diff
changeset
|
6265 tail = XCDR (tail); |
13434 | 6266 } |
6267 } | |
6268 | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6269 /* free palette table */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6270 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6271 struct w32_palette_entry * plist; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6272 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6273 plist = dpyinfo->color_list; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6274 while (plist) |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6275 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6276 struct w32_palette_entry * pentry = plist; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6277 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
|
6278 xfree (pentry); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6279 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6280 dpyinfo->color_list = NULL; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6281 if (dpyinfo->palette) |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6282 DeleteObject(dpyinfo->palette); |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6283 } |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6284 xfree (dpyinfo->w32_id_name); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6285 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
6286 w32_reset_fringes (); |
13434 | 6287 } |
6288 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6289 /* Set up use of W32. */ |
13434 | 6290 |
74220
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6291 DWORD WINAPI w32_msg_worker (void * arg); |
13434 | 6292 |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
6293 static void |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6294 w32_initialize () |
13434 | 6295 { |
6296 baud_rate = 19200; | |
6297 | |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6298 w32_system_caret_hwnd = NULL; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6299 w32_system_caret_height = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6300 w32_system_caret_x = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6301 w32_system_caret_y = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6302 |
63904
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6303 /* Initialize w32_use_visible_system_caret based on whether a screen |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6304 reader is in use. */ |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6305 if (!SystemParametersInfo (SPI_GETSCREENREADER, 0, |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6306 &w32_use_visible_system_caret, 0)) |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6307 w32_use_visible_system_caret = 0; |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6308 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6309 last_tool_bar_item = -1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6310 any_help_event_p = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6311 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6312 /* 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
|
6313 8 bit character input, standard quit char. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6314 Fset_input_mode (Qnil, Qnil, make_number (2), Qnil); |
13434 | 6315 |
6316 /* Create the window thread - it will terminate itself or when the app terminates */ | |
6317 | |
6318 init_crit (); | |
6319 | |
6320 dwMainThreadId = GetCurrentThreadId (); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6321 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (), |
13434 | 6322 GetCurrentProcess (), &hMainThread, 0, TRUE, DUPLICATE_SAME_ACCESS); |
6323 | |
6324 /* Wait for thread to start */ | |
6325 | |
6326 { | |
6327 MSG msg; | |
6328 | |
6329 PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE); | |
6330 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6331 hWindowsThread = CreateThread (NULL, 0, |
74220
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6332 w32_msg_worker, |
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6333 0, 0, &dwWindowsThreadId); |
13434 | 6334 |
6335 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE); | |
6336 } | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6337 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6338 /* 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
|
6339 focus window and active window as windowsThread. Unfortunately, the |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6340 following call to AttachThreadInput, which should do precisely what |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6341 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
|
6342 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
|
6343 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
|
6344 calls for us (ones that affect, or depend on, the active/focus |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
6345 window state.) */ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6346 #ifdef ATTACH_THREADS |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
6347 AttachThreadInput (dwMainThreadId, dwWindowsThreadId, TRUE); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6348 #endif |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6349 |
90436
6194dc57516d
(w32_initialize) Manually sync 2006-06-05 change from HEAD.
Jason Rumney <jasonr@gnu.org>
parents:
90428
diff
changeset
|
6350 /* Dynamically link to optional system components. */ |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6351 { |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
6352 HANDLE user_lib = LoadLibrary ("user32.dll"); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6353 |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
6354 #define LOAD_PROC(lib, fn) pfn##fn = (void *) GetProcAddress (lib, #fn) |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6355 |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
6356 LOAD_PROC (user_lib, SetLayeredWindowAttributes); |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
6357 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6358 #undef LOAD_PROC |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6359 |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
6360 FreeLibrary (user_lib); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6361 |
90436
6194dc57516d
(w32_initialize) Manually sync 2006-06-05 change from HEAD.
Jason Rumney <jasonr@gnu.org>
parents:
90428
diff
changeset
|
6362 /* Ensure scrollbar handle is at least 5 pixels. */ |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
6363 vertical_scroll_bar_min_handle = 5; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6364 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6365 /* 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
|
6366 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
|
6367 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
|
6368 = GetSystemMetrics (SM_CYVSCROLL); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6369 } |
13434 | 6370 } |
6371 | |
6372 void | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6373 syms_of_w32term () |
13434 | 6374 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6375 staticpro (&w32_display_name_list); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6376 w32_display_name_list = Qnil; |
13434 | 6377 |
6378 staticpro (&last_mouse_scroll_bar); | |
6379 last_mouse_scroll_bar = Qnil; | |
6380 | |
90923
4a877f897bd8
(syms_of_w32term): Use DEFSYM macro.
Jason Rumney <jasonr@gnu.org>
parents:
90905
diff
changeset
|
6381 DEFSYM (Qvendor_specific_keysyms, "vendor-specific-keysyms"); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6382 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6383 DEFVAR_INT ("w32-num-mouse-buttons", |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
6384 &w32_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
|
6385 doc: /* Number of physical mouse buttons. */); |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
6386 w32_num_mouse_buttons = 2; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6387 |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6388 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
|
6389 &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
|
6390 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
|
6391 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
|
6392 Vw32_swap_mouse_buttons = Qnil; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6393 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6394 DEFVAR_LISP ("w32-grab-focus-on-raise", |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6395 &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
|
6396 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
|
6397 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
|
6398 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
|
6399 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
|
6400 Vw32_grab_focus_on_raise = Qt; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6401 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6402 DEFVAR_LISP ("w32-capslock-is-shiftlock", |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6403 &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
|
6404 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
|
6405 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
|
6406 Vw32_capslock_is_shiftlock = Qnil; |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6407 |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6408 DEFVAR_LISP ("w32-recognize-altgr", |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6409 &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
|
6410 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
|
6411 When nil, the right-alt and left-ctrl key combination is |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6412 interpreted normally. */); |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6413 Vw32_recognize_altgr = Qt; |
23638
e6fb9ffee4f4
(dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23510
diff
changeset
|
6414 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6415 DEFVAR_BOOL ("w32-use-visible-system-caret", |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6416 &w32_use_visible_system_caret, |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6417 doc: /* Flag to make the system caret visible. |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6418 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
|
6419 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
|
6420 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
|
6421 invisible, and gets confused by Emacs drawing its own cursor, so this |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6422 variable is initialized to t when Emacs detects that screen reader |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6423 software is running as it starts up. |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6424 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6425 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
|
6426 the cursor have no effect. */); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6427 |
63904
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6428 w32_use_visible_system_caret = 0; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6429 |
63376
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6430 /* We don't yet support this, but defining this here avoids whining |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6431 from cus-start.el and other places, like "M-x set-variable". */ |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6432 DEFVAR_BOOL ("x-use-underline-position-properties", |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6433 &x_use_underline_position_properties, |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6434 doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
74571
e08f8d4c6dae
(syms_of_w32term) <x-use-underline-position-properties,
Juanma Barranquero <lekktu@gmail.com>
parents:
74220
diff
changeset
|
6435 A value of nil means ignore them. If you encounter fonts with bogus |
63376
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6436 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6437 to 4.1, set this to nil. |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6438 |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6439 NOTE: Not supported on MS-Windows yet. */); |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6440 x_use_underline_position_properties = 0; |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6441 |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6442 DEFVAR_BOOL ("x-underline-at-descent-line", |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6443 &x_underline_at_descent_line, |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6444 doc: /* *Non-nil means to draw the underline at the same place as the descent line. |
74571
e08f8d4c6dae
(syms_of_w32term) <x-use-underline-position-properties,
Juanma Barranquero <lekktu@gmail.com>
parents:
74220
diff
changeset
|
6445 A value of nil means to draw the underline according to the value of the |
e08f8d4c6dae
(syms_of_w32term) <x-use-underline-position-properties,
Juanma Barranquero <lekktu@gmail.com>
parents:
74220
diff
changeset
|
6446 variable `x-use-underline-position-properties', which is usually at the |
e08f8d4c6dae
(syms_of_w32term) <x-use-underline-position-properties,
Juanma Barranquero <lekktu@gmail.com>
parents:
74220
diff
changeset
|
6447 baseline level. The default value is nil. */); |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6448 x_underline_at_descent_line = 0; |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6449 |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
6450 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
|
6451 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
|
6452 Vx_toolkit_scroll_bars = Qt; |
27402
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 staticpro (&last_mouse_motion_frame); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6455 last_mouse_motion_frame = Qnil; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6456 } |
52401 | 6457 |
6458 /* arch-tag: 5fa70624-ab86-499c-8a85-473958ee4646 | |
6459 (do not change this comment) */ |