Mercurial > emacs
annotate src/w32term.c @ 110097:19dfa5177fdd
gnus-html.el: Try to get the rescaling logic right for images that are just wide and not tall.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Thu, 02 Sep 2010 00:08:22 +0000 |
parents | 1ada063020ba |
children | 55c8c3ca3d48 |
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, |
106815 | 4 2006, 2007, 2008, 2009, 2010 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> |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104030
diff
changeset
|
25 #include <setjmp.h> |
13434 | 26 #include "lisp.h" |
27 #include "blockinput.h" | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
28 #include "w32term.h" |
13434 | 29 |
30 #include "systty.h" | |
31 #include "systime.h" | |
32 | |
33 #include <ctype.h> | |
34 #include <errno.h> | |
35 #include <sys/stat.h> | |
104030
91b945d54645
* w32fns.c (w32_wnd_proc) [WM_IME_STARTCOMPOSITION]: Position
Jason Rumney <jasonr@gnu.org>
parents:
103716
diff
changeset
|
36 #include <imm.h> |
13434 | 37 |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
38 #include "charset.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
39 #include "character.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
40 #include "coding.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
41 #include "ccl.h" |
13434 | 42 #include "frame.h" |
43 #include "dispextern.h" | |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
44 #include "fontset.h" |
13434 | 45 #include "termhooks.h" |
46 #include "termopts.h" | |
47 #include "termchar.h" | |
48 #include "disptab.h" | |
49 #include "buffer.h" | |
50 #include "window.h" | |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
51 #include "keyboard.h" |
13434 | 52 #include "intervals.h" |
89588
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
53 #include "process.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
54 #include "atimer.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
55 #include "keymap.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
56 |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
57 #include "w32heap.h" |
3a34407a4019
(w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents:
89483
diff
changeset
|
58 #include <shellapi.h> |
13434 | 59 |
90834 | 60 #include "font.h" |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
61 #include "w32font.h" |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
62 |
41125 | 63 /* Fringe bitmaps. */ |
64 | |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
65 static int max_fringe_bmp = 0; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
66 static HBITMAP *fringe_bmp = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
67 |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
68 /* 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
|
69 |
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
70 Lisp_Object Vx_toolkit_scroll_bars; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
71 |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
72 /* Temporary variables for w32_read_socket. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
73 |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
74 static int last_mousemove_x = 0; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
75 static int last_mousemove_y = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
76 |
51269
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
77 /* 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
|
78 #ifndef GET_WHEEL_DELTA_WPARAM |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
79 #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
|
80 #endif |
0e4f36767c58
(GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents:
51258
diff
changeset
|
81 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
82 /* 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
|
83 start. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
84 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
85 static int any_help_event_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
86 |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
87 /* 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
|
88 static Lisp_Object last_window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
89 |
97065
e4d0521fc1d0
(w32_enable_unicode_output, cleartype_active): Remove
Jason Rumney <jasonr@gnu.org>
parents:
96536
diff
changeset
|
90 /* 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
|
91 int x_use_underline_position_properties; |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
92 |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
93 /* 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
|
94 |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
95 int x_underline_at_descent_line; |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
96 |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
97 extern unsigned int msh_mousewheel; |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
98 |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
99 extern void free_frame_menubar (struct frame *); |
13434 | 100 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
101 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
|
102 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
|
103 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
104 extern Lisp_Object Vwindow_system; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
105 |
13434 | 106 #define x_any_window_to_frame x_window_to_frame |
107 #define x_top_window_to_frame x_window_to_frame | |
108 | |
109 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
110 /* 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
|
111 struct w32_display_info one_w32_display_info; |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
112 struct w32_display_info *x_display_list; |
13434 | 113 |
114 /* 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
|
115 one for each element of w32_display_list and in the same order. |
13434 | 116 NAME is the name of the frame. |
117 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
|
118 Lisp_Object w32_display_name_list; |
13434 | 119 |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
120 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
121 #ifndef GLYPHSET |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
122 /* 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
|
123 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
|
124 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
125 typedef struct tagWCRANGE |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
126 { |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
127 WCHAR wcLow; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
128 USHORT cGlyphs; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
129 } WCRANGE; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
130 |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
131 typedef struct tagGLYPHSET |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
132 { |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
133 DWORD cbThis; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
134 DWORD flAccel; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
135 DWORD cGlyphsSupported; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
136 DWORD cRanges; |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
137 WCRANGE ranges[1]; |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
138 } GLYPHSET; |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
139 |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
140 #endif |
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
141 |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
142 /* Dynamic linking to SetLayeredWindowAttribute (only since 2000). */ |
103641
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
143 BOOL (WINAPI *pfnSetLayeredWindowAttributes) (HWND, COLORREF, BYTE, DWORD); |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
144 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
145 #ifndef LWA_ALPHA |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
146 #define LWA_ALPHA 0x02 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
147 #endif |
96536
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
148 /* 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
|
149 later targets by MSVC headers. */ |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
150 #ifndef WS_EX_LAYERED |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
151 #define WS_EX_LAYERED 0x80000 |
3855b66380c9
(WS_EX_LAYERED): Define if not already.
Jason Rumney <jasonr@gnu.org>
parents:
96423
diff
changeset
|
152 #endif |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
153 |
13434 | 154 /* Frame being updated by update_frame. This is declared in term.c. |
155 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
|
156 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
|
157 In that case, the w32 functions assume that `SELECTED_FRAME ()' |
13434 | 158 is the frame to apply to. */ |
159 extern struct frame *updating_frame; | |
160 | |
161 /* This is a frame waiting to be autoraised, within w32_read_socket. */ | |
162 struct frame *pending_autoraise_frame; | |
163 | |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
164 /* 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
|
165 HWND w32_system_caret_hwnd; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
166 int w32_system_caret_height; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
167 int w32_system_caret_x; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
168 int w32_system_caret_y; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
169 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
|
170 |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
171 DWORD dwWindowsThreadId = 0; |
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
172 HANDLE hWindowsThread = NULL; |
13434 | 173 DWORD dwMainThreadId = 0; |
174 HANDLE hMainThread = NULL; | |
175 | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
176 int vertical_scroll_bar_min_handle; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
177 int vertical_scroll_bar_top_border; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
178 int vertical_scroll_bar_bottom_border; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
179 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
180 int last_scroll_bar_drag_pos; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
181 |
13434 | 182 /* Mouse movement. */ |
183 | |
184 /* Where the mouse was last time we reported a mouse event. */ | |
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 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
|
220 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
221 /* 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
|
222 events. */ |
13434 | 223 #ifdef __STDC__ |
224 static int volatile input_signal_count; | |
225 #else | |
226 static int input_signal_count; | |
227 #endif | |
228 | |
229 extern Lisp_Object Vcommand_line_args, Vsystem_name; | |
230 | |
231 /* A mask of extra modifier bits to put into every keyboard char. */ | |
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
|
232 extern EMACS_INT extra_keyboard_modifiers; |
13434 | 233 |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
234 /* Keyboard code page - may be changed by language-change events. */ |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
235 static int keyboard_codepage; |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
236 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
237 static void x_update_window_end (struct window *, int, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
238 static void w32_handle_tool_bar_click (struct frame *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
239 struct input_event *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
240 static void w32_define_cursor (Window, Cursor); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
241 |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
242 void x_lower_frame (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
243 void x_scroll_bar_clear (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
244 void x_wm_set_size_hint (struct frame *, long, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
245 void x_raise_frame (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
246 void x_set_window_size (struct frame *, int, int, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
247 void x_wm_set_window_state (struct frame *, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
248 void x_wm_set_icon_pixmap (struct frame *, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
249 static void w32_initialize (void); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
250 static void x_update_end (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
251 static void w32_frame_up_to_date (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
252 static void w32_set_terminal_modes (struct terminal *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
253 static void w32_reset_terminal_modes (struct terminal *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
254 static void x_clear_frame (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
255 static void frame_highlight (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
256 static void frame_unhighlight (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
257 static void x_new_focus_frame (struct w32_display_info *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
258 struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
259 static void x_focus_changed (int, int, struct w32_display_info *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
260 struct frame *, struct input_event *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
261 static void w32_detect_focus_change (struct w32_display_info *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
262 W32Msg *, struct input_event *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
263 static void w32_frame_rehighlight (struct frame *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
264 static void x_frame_rehighlight (struct w32_display_info *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
265 static void x_draw_hollow_cursor (struct window *, struct glyph_row *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
266 static void x_draw_bar_cursor (struct window *, struct glyph_row *, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
267 enum text_cursor_kinds); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
268 static void w32_clip_to_row (struct window *, struct glyph_row *, int, HDC); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
269 static BOOL my_show_window (struct frame *, HWND, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
270 static void my_set_window_pos (HWND, HWND, int, int, int, int, UINT); |
109516
68ca98ae70fb
Make building under stricter warning flags somewhat cleaner.
Juanma Barranquero <lekktu@gmail.com>
parents:
109495
diff
changeset
|
271 #if 0 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
272 static void my_set_focus (struct frame *, HWND); |
109516
68ca98ae70fb
Make building under stricter warning flags somewhat cleaner.
Juanma Barranquero <lekktu@gmail.com>
parents:
109495
diff
changeset
|
273 #endif |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
274 static void my_set_foreground_window (HWND); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
275 static void my_destroy_window (struct frame *, HWND); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
276 |
13434 | 277 static Lisp_Object Qvendor_specific_keysyms; |
278 | |
279 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
280 /*********************************************************************** |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
281 Debugging |
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 |
13434 | 284 #if 0 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
285 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
286 /* 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
|
287 the sequence of occurrences in this file. */ |
13434 | 288 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
289 struct record |
13434 | 290 { |
291 char *locus; | |
292 int type; | |
293 }; | |
294 | |
295 struct record event_record[100]; | |
296 | |
297 int event_record_index; | |
298 | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
299 record_event (char *locus, int type) |
13434 | 300 { |
301 if (event_record_index == sizeof (event_record) / sizeof (struct record)) | |
302 event_record_index = 0; | |
303 | |
304 event_record[event_record_index].locus = locus; | |
305 event_record[event_record_index].type = type; | |
306 event_record_index++; | |
307 } | |
308 | |
309 #endif /* 0 */ | |
310 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
311 |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
312 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
313 XChangeGC (void *ignore, XGCValues *gc, unsigned long mask, |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
314 XGCValues *xgcv) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
315 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
316 if (mask & GCForeground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
317 gc->foreground = xgcv->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
318 if (mask & GCBackground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
319 gc->background = xgcv->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
320 if (mask & GCFont) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
321 gc->font = xgcv->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
322 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
323 |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
324 XGCValues * |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
325 XCreateGC (void *ignore, Window window, unsigned long mask, XGCValues *xgcv) |
27402
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 XGCValues *gc = (XGCValues *) xmalloc (sizeof (XGCValues)); |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109160
diff
changeset
|
328 memset (gc, 0, sizeof (XGCValues)); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
329 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
330 XChangeGC (ignore, gc, mask, xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
331 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
332 return gc; |
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 |
50441
37738feb0204
Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents:
50376
diff
changeset
|
335 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
336 XGetGCValues (void *ignore, XGCValues *gc, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
337 unsigned long mask, XGCValues *xgcv) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
338 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
339 XChangeGC (ignore, xgcv, mask, gc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
340 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
341 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
342 static void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
343 w32_set_clip_rectangle (HDC hdc, RECT *rect) |
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 if (rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
346 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
347 HRGN clip_region = CreateRectRgnIndirect (rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
348 SelectClipRgn (hdc, clip_region); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
349 DeleteObject (clip_region); |
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
352 SelectClipRgn (hdc, NULL); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
353 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
356 /* Draw a hollow rectangle at the specified position. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
357 void |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
358 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
|
359 int width, int height) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
360 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
361 HBRUSH hb, oldhb; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
362 HPEN hp, oldhp; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
363 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
364 hb = CreateSolidBrush (gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
365 hp = CreatePen (PS_SOLID, 0, gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
366 oldhb = SelectObject (hdc, hb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
367 oldhp = SelectObject (hdc, hp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
368 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
369 Rectangle (hdc, x, y, x + width, y + height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
370 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
371 SelectObject (hdc, oldhb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
372 SelectObject (hdc, oldhp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
373 DeleteObject (hb); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
374 DeleteObject (hp); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
375 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
376 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
377 /* 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
|
378 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
379 w32_fill_rect (FRAME_PTR f, HDC hdc, COLORREF pix, RECT *lprect) |
13434 | 380 { |
381 HBRUSH hb; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
382 |
13434 | 383 hb = CreateSolidBrush (pix); |
384 FillRect (hdc, lprect, hb); | |
385 DeleteObject (hb); | |
386 } | |
387 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
388 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
389 w32_clear_window (FRAME_PTR f) |
13434 | 390 { |
391 RECT rect; | |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
392 HDC hdc = get_frame_dc (f); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
393 |
34093
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
394 /* 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
|
395 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
|
396 of 0 indicates this. */ |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
397 if (hdc) |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
398 { |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
399 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
|
400 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
|
401 } |
d554a3ac3039
(x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents:
33766
diff
changeset
|
402 |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
403 release_frame_dc (f, hdc); |
13434 | 404 } |
405 | |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
406 #define OPAQUE_FRAME 255 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
407 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
408 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
409 x_set_frame_alpha (struct frame *f) |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
410 { |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
411 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
|
412 double alpha = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
413 double alpha_min = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
414 BYTE opac; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
415 LONG ex_style; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
416 HWND window = FRAME_W32_WINDOW (f); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
417 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
418 /* 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
|
419 if (!pfnSetLayeredWindowAttributes) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
420 return; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
421 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
422 if (dpyinfo->x_highlight_frame == f) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
423 alpha = f->alpha[0]; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
424 else |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
425 alpha = f->alpha[1]; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
426 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
427 if (FLOATP (Vframe_alpha_lower_limit)) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
428 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
|
429 else if (INTEGERP (Vframe_alpha_lower_limit)) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
430 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
|
431 |
99509
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
432 if (alpha < 0.0) |
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
433 return; |
386d8aa805a2
(x_set_frame_alpha): Do nothing if alpha is negative.
Chong Yidong <cyd@stupidchicken.com>
parents:
99169
diff
changeset
|
434 else if (alpha > 1.0) |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
435 alpha = 1.0; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
436 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
|
437 alpha = alpha_min; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
438 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
439 opac = alpha * OPAQUE_FRAME; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
440 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
441 ex_style = GetWindowLong (window, GWL_EXSTYLE); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
442 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
443 if (opac == OPAQUE_FRAME) |
96423
0b2f64a1ff6e
(x_set_frame_alpha): Fix logic.
Jason Rumney <jasonr@gnu.org>
parents:
96403
diff
changeset
|
444 ex_style &= ~WS_EX_LAYERED; |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
445 else |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
446 ex_style |= WS_EX_LAYERED; |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
447 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
448 SetWindowLong (window, GWL_EXSTYLE, ex_style); |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
449 |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
450 if (opac != OPAQUE_FRAME) |
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
451 pfnSetLayeredWindowAttributes (window, 0, opac, LWA_ALPHA); |
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 |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
454 int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
455 x_display_pixel_height (struct w32_display_info *dpyinfo) |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
456 { |
101977
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
457 HDC dc = GetDC (NULL); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
458 int pixels = GetDeviceCaps (dc, VERTRES); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
459 ReleaseDC (NULL, dc); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
460 return pixels; |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
461 } |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
462 |
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
463 int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
464 x_display_pixel_width (struct w32_display_info *dpyinfo) |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
465 { |
101977
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
466 HDC dc = GetDC (NULL); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
467 int pixels = GetDeviceCaps (dc, HORZRES); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
468 ReleaseDC (NULL, dc); |
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
469 return pixels; |
98227
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 |
13434 | 472 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
473 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
474 Starting and ending an update |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
475 ***********************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
476 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
477 /* 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
|
478 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
|
479 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
|
480 each window being updated. */ |
13434 | 481 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
482 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
483 x_update_begin (struct frame *f) |
13434 | 484 { |
34784
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
485 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
|
486 |
35000 | 487 if (! FRAME_W32_P (f)) |
488 return; | |
489 | |
34784
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
490 /* 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
|
491 colors has changed. */ |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
492 if (display_info->regen_palette) |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
493 { |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
494 w32_regenerate_palette (f); |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
495 display_info->regen_palette = FALSE; |
d140f5fb3307
(x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents:
34779
diff
changeset
|
496 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
497 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
498 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
499 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
500 /* 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
|
501 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
|
502 position of W. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
503 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
504 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
505 x_update_window_begin (struct window *w) |
27402
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 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
508 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
|
509 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
510 /* 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
|
511 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
|
512 { |
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
|
513 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
|
514 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
515 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
516 updated_window = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
517 set_output_cursor (&w->cursor); |
13434 | 518 |
519 BLOCK_INPUT; | |
520 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
521 if (f == display_info->mouse_face_mouse_frame) |
13434 | 522 { |
523 /* 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
|
524 display_info->mouse_face_defer = 1; |
13434 | 525 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
526 /* 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
|
527 highlighting. */ |
13434 | 528 if (FRAME_GARBAGED_P (f)) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
529 display_info->mouse_face_window = Qnil; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
530 |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
531 #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
|
532 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
|
533 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
|
534 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
|
535 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
|
536 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
|
537 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
538 /* 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
|
539 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
|
540 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
|
541 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
|
542 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
|
543 if (!NILP (display_info->mouse_face_window) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
544 && w == XWINDOW (display_info->mouse_face_window)) |
13434 | 545 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
546 int i; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
547 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
548 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
|
549 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i)) |
13434 | 550 break; |
551 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
552 if (i < w->desired_matrix->nrows) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
553 clear_mouse_face (display_info); |
13434 | 554 } |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
555 #endif /* 0 */ |
13434 | 556 } |
557 | |
558 UNBLOCK_INPUT; | |
559 } | |
560 | |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
561 /* 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
|
562 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
563 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
564 w32_draw_vertical_window_border (struct window *w, int x, int y0, int y1) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
565 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
566 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
|
567 RECT r; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
568 HDC hdc; |
63912
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
569 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
|
570 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
571 r.left = x; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
572 r.right = x + 1; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
573 r.top = y0; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
574 r.bottom = y1; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
575 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
576 hdc = get_frame_dc (f); |
63912
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
577 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
|
578 if (face) |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
579 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
|
580 else |
12f374b6c866
(w32_draw_vertical_window_border): Use foreground of
Eli Zaretskii <eliz@gnu.org>
parents:
63904
diff
changeset
|
581 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
|
582 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
583 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
584 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
585 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
586 |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
587 /* 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
|
588 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
589 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
|
590 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
|
591 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
592 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
|
593 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
|
594 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
|
595 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
596 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
|
597 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
|
598 here. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
599 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
600 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
601 x_update_window_end (struct window *w, int cursor_on_p, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
602 int mouse_face_overwritten_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
603 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
604 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
|
605 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
606 if (!w->pseudo_window_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
607 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
608 BLOCK_INPUT; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
609 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
610 if (cursor_on_p) |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
611 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
|
612 output_cursor.vpos, |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
613 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
|
614 |
57373
38e45bf0128a
(x_update_window_end): Fix flicker on vertical line between
Kim F. Storm <storm@cua.dk>
parents:
57278
diff
changeset
|
615 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
|
616 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
|
617 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
618 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
619 } |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
620 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
621 /* 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
|
622 XTframe_up_to_date to redisplay the mouse highlight. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
623 if (mouse_face_overwritten_p) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
624 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
625 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
|
626 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
|
627 dpyinfo->mouse_face_window = Qnil; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
628 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
629 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
630 /* 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
|
631 was visible before the corresponding call to HideCaret in |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
632 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
|
633 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
|
634 { |
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
|
635 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
|
636 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
637 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
638 updated_window = NULL; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
639 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
640 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
641 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
642 /* 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
|
643 update_end. */ |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
644 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
645 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
646 x_update_end (struct frame *f) |
13434 | 647 { |
35000 | 648 if (! FRAME_W32_P (f)) |
649 return; | |
650 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
651 /* Mouse highlight may be displayed again. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
652 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
|
653 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
654 |
29321
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 /* 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
|
657 complete update has been performed. The global variable |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
658 updated_window is not available here. */ |
13434 | 659 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
660 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
661 w32_frame_up_to_date (struct frame *f) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
662 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
663 if (FRAME_W32_P (f)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
664 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
665 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
|
666 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
667 if (dpyinfo->mouse_face_deferred_gc |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
668 || f == dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
669 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
670 BLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
671 if (dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
672 note_mouse_highlight (dpyinfo->mouse_face_mouse_frame, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
673 dpyinfo->mouse_face_mouse_x, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
674 dpyinfo->mouse_face_mouse_y); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
675 dpyinfo->mouse_face_deferred_gc = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
676 UNBLOCK_INPUT; |
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 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
679 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
680 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
681 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
682 /* Draw truncation mark bitmaps, continuation mark bitmaps, overlay |
41125 | 683 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
|
684 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
|
685 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
|
686 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
|
687 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
|
688 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
689 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
690 x_after_update_window_line (struct glyph_row *desired_row) |
27402
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 struct window *w = updated_window; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
693 struct frame *f; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
694 int width, height; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
695 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
696 xassert (w); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
697 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
698 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
|
699 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
|
700 |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
701 /* 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
|
702 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
|
703 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
|
704 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
|
705 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
|
706 overhead is very small. */ |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
707 if (windows_or_buffers_changed |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
708 && desired_row->full_width_p |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
709 && (f = XFRAME (w->frame), |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
710 width = FRAME_INTERNAL_BORDER_WIDTH (f), |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
711 width != 0) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
712 && (height = desired_row->visible_height, |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
713 height > 0)) |
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 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
|
716 |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
717 BLOCK_INPUT; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
718 { |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
719 HDC hdc = get_frame_dc (f); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
720 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
|
721 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
|
722 y, width, height); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
723 release_frame_dc (f, hdc); |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
724 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
725 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
726 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
727 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
728 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
729 |
41125 | 730 /* 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
|
731 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
|
732 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
|
733 drawn. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
734 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
735 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
736 w32_draw_fringe_bitmap (struct window *w, struct glyph_row *row, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
737 struct draw_fringe_bitmap_params *p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
738 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
739 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
50096 | 740 HDC hdc; |
741 struct face *face = p->face; | |
742 | |
743 hdc = get_frame_dc (f); | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
744 |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
745 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
|
746 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
747 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
|
748 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
749 /* 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
|
750 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
|
751 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
|
752 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
|
753 && 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
|
754 || (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
|
755 && 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
|
756 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
757 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
|
758 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
759 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
|
760 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
761 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
|
762 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
|
763 * 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
|
764 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
765 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
|
766 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
767 /* 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
|
768 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
|
769 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
|
770 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
|
771 bx = left; |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
772 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
|
773 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
774 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
|
775 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
776 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
|
777 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
|
778 row->y)); |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
779 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
|
780 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
781 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
782 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
783 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
784 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
|
785 { |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
786 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
|
787 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
|
788 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
789 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
|
790 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
|
791 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
792 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
793 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
794 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
795 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
|
796 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
|
797 } |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
798 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
799 /* Must clip because of partially visible lines. */ |
109296
f6f0d450d542
Fix ghost buffer boundary indicators in fringes (Bug#5634, Bug#6325).
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
106815
diff
changeset
|
800 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
|
801 |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
802 if (p->which && p->which < max_fringe_bmp) |
50096 | 803 { |
804 HBITMAP pixmap = fringe_bmp[p->which]; | |
805 HDC compat_hdc; | |
806 HANDLE horig_obj; | |
807 | |
808 compat_hdc = CreateCompatibleDC (hdc); | |
53964
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
809 |
50096 | 810 SaveDC (hdc); |
811 | |
812 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
|
813 |
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
814 /* Paint overlays transparently. */ |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
815 if (p->overlay_p) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
816 { |
54126
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
817 HBRUSH h_brush, h_orig_brush; |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
818 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
819 SetTextColor (hdc, BLACK_PIX_DEFAULT (f)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
820 SetBkColor (hdc, WHITE_PIX_DEFAULT (f)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
821 h_brush = CreateSolidBrush (face->foreground); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
822 h_orig_brush = SelectObject (hdc, h_brush); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
823 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
824 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
|
825 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
826 DSTINVERT); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
827 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
|
828 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
829 0x2E064A); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
830 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
|
831 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
832 DSTINVERT); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
833 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
834 SelectObject (hdc, h_orig_brush); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
835 DeleteObject (h_brush); |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
836 } |
53964
7add5c20b6f7
(w32_draw_fringe_bitmap): Handle overlay fringe bitmaps.
Jason Rumney <jasonr@gnu.org>
parents:
53934
diff
changeset
|
837 else |
54126
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
838 { |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
839 SetTextColor (hdc, face->background); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
840 SetBkColor (hdc, (p->cursor_p |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
841 ? f->output_data.w32->cursor_pixel |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
842 : face->foreground)); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
843 |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
844 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
|
845 compat_hdc, 0, p->dh, |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
846 SRCCOPY); |
8d0f80667054
(w32_draw_fringe_bitmap): Draw overlaid bitmaps
Jason Rumney <jasonr@gnu.org>
parents:
53964
diff
changeset
|
847 } |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
848 |
50096 | 849 SelectObject (compat_hdc, horig_obj); |
850 DeleteDC (compat_hdc); | |
851 RestoreDC (hdc, -1); | |
852 } | |
853 | |
854 w32_set_clip_rectangle (hdc, NULL); | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
855 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
856 release_frame_dc (f, hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
857 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
858 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
859 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
860 w32_define_fringe_bitmap (int which, unsigned short *bits, int h, int wd) |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
861 { |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
862 if (which >= max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
863 { |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
864 int i = max_fringe_bmp; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
865 max_fringe_bmp = which + 20; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
866 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
|
867 while (i < max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
868 fringe_bmp[i++] = 0; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
869 } |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
870 |
53934
de8ab2bcee32
(w32_define_fringe_bitmap): Bitmaps are now 16 bits wide,
Kim F. Storm <storm@cua.dk>
parents:
53902
diff
changeset
|
871 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
|
872 } |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
873 |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
874 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
875 w32_destroy_fringe_bitmap (int which) |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
876 { |
57278
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
877 if (which >= max_fringe_bmp) |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
878 return; |
4cec0243673a
(fringe_bmp): Change to pointer.
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
879 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
880 if (fringe_bmp[which]) |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
881 DeleteObject (fringe_bmp[which]); |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
882 fringe_bmp[which] = 0; |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
883 } |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
884 |
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
885 |
13434 | 886 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
887 /* 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
|
888 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
|
889 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
|
890 rarely happens). */ |
13434 | 891 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
892 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
893 w32_set_terminal_modes (struct terminal *term) |
13434 | 894 { |
895 } | |
896 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
897 /* 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
|
898 the W32 windows go away, and suspending requires no action. */ |
13434 | 899 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
900 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
901 w32_reset_terminal_modes (struct terminal *term) |
13434 | 902 { |
903 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
904 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
905 |
13434 | 906 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
907 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
908 Display Iterator |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
909 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
910 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
911 /* Function prototypes of this page. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
912 |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
913 static void x_set_glyph_string_clipping (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
914 static void x_set_glyph_string_gc (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
915 static void x_draw_glyph_string_background (struct glyph_string *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
916 int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
917 static void x_draw_glyph_string_foreground (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
918 static void x_draw_composite_glyph_string_foreground (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
919 static void x_draw_glyph_string_box (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
920 static void x_draw_glyph_string (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
921 static void x_set_cursor_gc (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
922 static void x_set_mode_line_face_gc (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
923 static void x_set_mouse_face_gc (struct glyph_string *); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
924 static int w32_alloc_lighter_color (struct frame *, COLORREF *, double, int); |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
925 static void w32_setup_relief_color (struct frame *, struct relief *, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
926 double, int, COLORREF); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
927 static void x_setup_relief_colors (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
928 static void x_draw_image_glyph_string (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
929 static void x_draw_image_relief (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
930 static void x_draw_image_foreground (struct glyph_string *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
931 static void w32_draw_image_foreground_1 (struct glyph_string *, HBITMAP); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
932 static void x_clear_glyph_string_rect (struct glyph_string *, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
933 int, int, int); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
934 static void w32_draw_relief_rect (struct frame *, int, int, int, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
935 int, int, int, int, int, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
936 RECT *); |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
937 static void w32_draw_box_rect (struct glyph_string *, int, int, int, int, |
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
938 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
|
939 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
940 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
941 /* 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
|
942 face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
943 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
944 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
945 x_set_cursor_gc (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
946 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
947 if (s->font == FRAME_FONT (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
948 && s->face->background == FRAME_BACKGROUND_PIXEL (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
949 && s->face->foreground == FRAME_FOREGROUND_PIXEL (s->f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
950 && !s->cmp) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
951 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
|
952 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
953 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
954 /* Cursor on non-default face: must merge. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
955 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
956 unsigned long mask; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
957 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
958 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
|
959 xgcv.foreground = s->face->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
960 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
961 /* 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
|
962 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
963 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
964 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
965 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
|
966 if (xgcv.foreground == xgcv.background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
967 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
968 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
969 /* 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
|
970 if (xgcv.background == s->face->background |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
971 && xgcv.foreground == s->face->foreground) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
972 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
973 xgcv.background = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
974 xgcv.foreground = s->face->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
975 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
976 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
977 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
|
978 xgcv.font = s->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
979 mask = GCForeground | GCBackground | GCFont; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
980 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
981 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
|
982 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
|
983 mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
984 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
985 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
|
986 = XCreateGC (NULL, s->window, mask, &xgcv); |
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 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
|
989 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
990 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
991 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
992 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
993 /* 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
|
994 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
995 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
996 x_set_mouse_face_gc (struct glyph_string *s) |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
997 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
998 int face_id; |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
999 struct face *face; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1000 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
1001 /* 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
|
1002 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
|
1003 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
|
1004 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
|
1005 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
|
1006 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
1007 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
|
1008 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
|
1009 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
|
1010 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
|
1011 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
|
1012 PREPARE_FACE_FOR_DISPLAY (s->f, s->face); |
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 /* 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
|
1015 if (s->font == s->face->font) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1016 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1017 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1018 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1019 /* 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
|
1020 but font FONT. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1021 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1022 unsigned long mask; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1023 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1024 xgcv.background = s->face->background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1025 xgcv.foreground = s->face->foreground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1026 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
|
1027 xgcv.font = s->font; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1028 mask = GCForeground | GCBackground | GCFont; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1029 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1030 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
|
1031 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
|
1032 mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1033 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1034 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
|
1035 = 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
|
1036 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1037 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
|
1038 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1039 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1040 xassert (s->gc != 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1041 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1042 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1043 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1044 /* 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
|
1045 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
|
1046 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
|
1047 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1048 static INLINE void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1049 x_set_mode_line_face_gc (struct glyph_string *s) |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1050 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1051 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1052 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1053 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1054 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1055 /* 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
|
1056 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
|
1057 pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1058 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1059 static INLINE void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1060 x_set_glyph_string_gc (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1061 { |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
1062 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
|
1063 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1064 if (s->hl == DRAW_NORMAL_TEXT) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1065 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1066 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1067 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1068 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1069 else if (s->hl == DRAW_INVERSE_VIDEO) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1070 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1071 x_set_mode_line_face_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1072 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1073 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1074 else if (s->hl == DRAW_CURSOR) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1075 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1076 x_set_cursor_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1077 s->stippled_p = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1078 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1079 else if (s->hl == DRAW_MOUSE_FACE) |
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 x_set_mouse_face_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1082 s->stippled_p = s->face->stipple != 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 else if (s->hl == DRAW_IMAGE_RAISED |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1085 || s->hl == DRAW_IMAGE_SUNKEN) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1086 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1087 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1088 s->stippled_p = s->face->stipple != 0; |
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1091 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1092 s->gc = s->face->gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1093 s->stippled_p = s->face->stipple != 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1094 } |
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 /* GC must have been set. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1097 xassert (s->gc != 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1098 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1099 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1100 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1101 /* 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
|
1102 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
|
1103 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1104 static INLINE void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1105 x_set_glyph_string_clipping (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1106 { |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1107 RECT *r = s->clip; |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1108 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
|
1109 |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1110 if (n == 1) |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1111 w32_set_clip_rectangle (s->hdc, r); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1112 else if (n > 1) |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1113 { |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1114 HRGN full_clip, clip1, clip2; |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1115 clip1 = CreateRectRgnIndirect (r); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1116 clip2 = CreateRectRgnIndirect (r + 1); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1117 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
|
1118 { |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1119 SelectClipRgn (s->hdc, full_clip); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1120 } |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1121 DeleteObject (clip1); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1122 DeleteObject (clip2); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1123 DeleteObject (full_clip); |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1124 } |
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
1125 s->num_clips = n; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1126 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1127 |
90834 | 1128 /* Set SRC's clipping for output of glyph string DST. This is called |
1129 when we are drawing DST's left_overhang or right_overhang only in | |
1130 the area of SRC. */ | |
1131 | |
1132 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1133 x_set_glyph_string_clipping_exactly (struct glyph_string *src, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1134 struct glyph_string *dst) |
90834 | 1135 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1136 RECT r; |
90834 | 1137 |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1138 r.left = src->x; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1139 r.right = r.left + src->width; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1140 r.top = src->y; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1141 r.bottom = r.top + src->height; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1142 dst->clip[0] = r; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1143 dst->num_clips = 1; |
90834 | 1144 w32_set_clip_rectangle (dst->hdc, &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1145 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1146 |
50154
10038ae9db85
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50096
diff
changeset
|
1147 /* RIF: |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1148 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
|
1149 |
50154
10038ae9db85
Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50096
diff
changeset
|
1150 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1151 w32_compute_glyph_string_overhangs (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1152 { |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1153 if (s->cmp == NULL |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1154 && s->first_glyph->type == CHAR_GLYPH |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1155 && !s->font_not_found_p) |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1156 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1157 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
|
1158 struct font *font = s->font; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1159 struct font_metrics metrics; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1160 int i; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1161 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1162 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
|
1163 code[i] = s->char2b[i]; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1164 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
|
1165 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
|
1166 ? metrics.rbearing - metrics.width : 0); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1167 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
|
1168 } |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1169 else if (s->cmp) |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1170 { |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1171 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
|
1172 s->left_overhang = -s->cmp->lbearing; |
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
1173 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1174 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1175 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1176 /* 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
|
1177 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1178 static INLINE void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1179 x_clear_glyph_string_rect (struct glyph_string *s, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1180 int x, int y, int w, int h) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1181 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1182 int real_x = x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1183 int real_y = y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1184 int real_w = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1185 int real_h = h; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1186 #if 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1187 /* Take clipping into account. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1188 if (s->gc->clip_mask == Rect) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1189 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1190 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
|
1191 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
|
1192 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
|
1193 - s->gc->clip_rectangle.left); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1194 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
|
1195 - s->gc->clip_rectangle.top); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1196 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1197 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1198 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
|
1199 real_w, real_h); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1200 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1201 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1202 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1203 /* 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
|
1204 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
|
1205 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
|
1206 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
|
1207 contains the first component of a composition. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1208 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1209 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1210 x_draw_glyph_string_background (struct glyph_string *s, int force_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1211 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1212 /* 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
|
1213 shouldn't be drawn in the first place. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1214 if (!s->background_filled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1215 { |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1216 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
|
1217 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1218 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1219 if (s->stippled_p) |
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 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1222 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1223 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
|
1224 s->y + box_line_width, |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1225 s->background_width, |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1226 s->height - 2 * box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1227 XSetFillStyle (s->display, s->gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1228 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1229 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1230 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1231 #endif |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1232 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
|
1233 || s->font_not_found_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1234 || s->extends_to_end_of_line_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1235 || force_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1236 { |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1237 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
|
1238 s->background_width, |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1239 s->height - 2 * box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1240 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1241 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1242 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1245 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1246 /* Draw the foreground of glyph string S. */ |
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 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1249 x_draw_glyph_string_foreground (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1250 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1251 int i, x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1252 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1253 /* 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
|
1254 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
|
1255 if (s->face->box != FACE_NO_BOX |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1256 && s->first_glyph->left_box_line_p) |
85258 | 1257 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
|
1258 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1259 x = s->x; |
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 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1262 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1263 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1264 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1265 /* 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
|
1266 loaded. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1267 if (s->font_not_found_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1268 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1269 for (i = 0; i < s->nchars; ++i) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1270 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1271 struct glyph *g = s->first_glyph + i; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1272 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1273 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
|
1274 s->height - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1275 x += g->pixel_width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1276 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1277 } |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
1278 else |
90834 | 1279 { |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1280 struct font *font = s->font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1281 int boff = font->baseline_offset; |
90834 | 1282 int y; |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1283 HFONT old_font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1284 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1285 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
|
1286 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1287 if (font->vertical_centering) |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1288 boff = VCENTER_BASELINE_OFFSET (font, s->f) - boff; |
90834 | 1289 |
1290 y = s->ybase - boff; | |
1291 if (s->for_overlaps | |
1292 || (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
|
1293 font->driver->draw (s, 0, s->nchars, x, y, 0); |
90834 | 1294 else |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1295 font->driver->draw (s, 0, s->nchars, x, y, 1); |
90834 | 1296 if (s->face->overstrike) |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1297 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
|
1298 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1299 SelectObject (s->hdc, old_font); |
90834 | 1300 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1301 } |
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 /* Draw the foreground of composite glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1304 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1305 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1306 x_draw_composite_glyph_string_foreground (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1307 { |
90834 | 1308 int i, j, x; |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1309 struct font *font = s->font; |
27402
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 /* 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
|
1312 of S to the right of that box line. */ |
90834 | 1313 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
|
1314 && s->first_glyph->left_box_line_p) |
85258 | 1315 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
|
1316 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1317 x = s->x; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1318 |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1319 /* 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
|
1320 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
|
1321 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
|
1322 this composition. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1323 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1324 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1325 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1326 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1327 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1328 /* 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
|
1329 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
|
1330 if (s->font_not_found_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1331 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1332 if (s->cmp_from == 0) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1333 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
|
1334 s->height - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1335 } |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1336 else if (! s->first_glyph->u.cmp.automatic) |
90834 | 1337 { |
1338 int y = s->ybase; | |
1339 int width = 0; | |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1340 HFONT old_font; |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1341 |
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1342 old_font = SelectObject (s->hdc, FONT_HANDLE (font)); |
90834 | 1343 |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1344 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
|
1345 if (COMPOSITION_GLYPH (s->cmp, j) != '\t') |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1346 { |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1347 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
|
1348 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
|
1349 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1350 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
|
1351 if (s->face->overstrike) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1352 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
|
1353 } |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1354 SelectObject (s->hdc, old_font); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1355 } |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1356 else |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1357 { |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1358 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
|
1359 Lisp_Object glyph; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1360 int y = s->ybase; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1361 int width = 0; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1362 HFONT old_font; |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1363 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1364 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
|
1365 |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1366 for (i = j = s->cmp_from; i < s->cmp_to; i++) |
90834 | 1367 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1368 glyph = LGSTRING_GLYPH (gstring, i); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1369 if (NILP (LGLYPH_ADJUSTMENT (glyph))) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1370 width += LGLYPH_WIDTH (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1371 else |
90834 | 1372 { |
1373 int xoff, yoff, wadjust; | |
1374 | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1375 if (j < i) |
90834 | 1376 { |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1377 font->driver->draw (s, j, i, x, y, 0); |
90834 | 1378 x += width; |
1379 } | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1380 xoff = LGLYPH_XOFF (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1381 yoff = LGLYPH_YOFF (glyph); |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1382 wadjust = LGLYPH_WADJUST (glyph); |
90834 | 1383 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
|
1384 x += wadjust; |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1385 j = i + 1; |
90834 | 1386 width = 0; |
1387 } | |
1388 } | |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1389 if (j < i) |
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
1390 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
|
1391 |
96343
5c8f2b7d28ae
* w32font.h (FONT_HANDLE, FONT_TEXTMETRIC): New macros.
Jason Rumney <jasonr@gnu.org>
parents:
96327
diff
changeset
|
1392 SelectObject (s->hdc, old_font); |
90834 | 1393 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1394 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1395 |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1396 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1397 /* 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
|
1398 boosted. |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1399 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1400 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
|
1401 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
|
1402 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
|
1403 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
|
1404 use an additional additive factor. |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1405 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1406 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
|
1407 (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
|
1408 #define HIGHLIGHT_COLOR_DARK_BOOST_LIMIT 187 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1409 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1410 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1411 /* 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
|
1412 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
|
1413 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
|
1414 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
|
1415 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
|
1416 Value is non-zero if successful. */ |
13434 | 1417 |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
1418 static int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1419 w32_alloc_lighter_color (struct frame *f, COLORREF *color, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1420 double factor, int delta) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1421 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1422 COLORREF new; |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1423 long bright; |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1424 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1425 /* 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
|
1426 delta /= 256; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1427 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1428 /* Change RGB values by specified FACTOR. Avoid overflow! */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1429 xassert (factor >= 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1430 new = PALETTERGB (min (0xff, factor * GetRValue (*color)), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1431 min (0xff, factor * GetGValue (*color)), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1432 min (0xff, factor * GetBValue (*color))); |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1433 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1434 /* Calculate brightness of COLOR. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1435 bright = (2 * GetRValue (*color) + 3 * GetGValue (*color) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1436 + GetBValue (*color)) / 6; |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1437 |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1438 /* 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
|
1439 HIGHLIGHT_COLOR_DARK_BOOST_LIMIT. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1440 if (bright < HIGHLIGHT_COLOR_DARK_BOOST_LIMIT) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1441 /* 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
|
1442 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
|
1443 { |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1444 /* 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
|
1445 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
|
1446 /* The additive adjustment. */ |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1447 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
|
1448 |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1449 if (factor < 1) |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1450 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
|
1451 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
|
1452 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
|
1453 else |
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1454 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
|
1455 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
|
1456 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
|
1457 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1458 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1459 if (new == *color) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1460 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
|
1461 max (0, min (0xff, delta + GetGValue (*color))), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1462 max (0, min (0xff, delta + GetBValue (*color)))); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1463 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1464 /* 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
|
1465 /* TODO: Free colors (if using palette)? */ |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
1466 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1467 if (new == *color) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1468 return 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1469 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1470 *color = new; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1471 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1472 return 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1473 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1474 |
100845
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1475 /* On frame F, translate pixel colors to RGB values for the NCOLORS |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1476 colors in COLORS. On W32, we no longer try to map colors to |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1477 a palette. */ |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1478 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1479 x_query_colors (struct frame *f, XColor *colors, int ncolors) |
100845
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1480 { |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1481 int i; |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1482 |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1483 for (i = 0; i < ncolors; i++) |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1484 { |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1485 DWORD pixel = colors[i].pixel; |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1486 /* Convert to a 16 bit value in range 0 - 0xffff. */ |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1487 colors[i].red = GetRValue (pixel) * 257; |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1488 colors[i].green = GetGValue (pixel) * 257; |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1489 colors[i].blue = GetBValue (pixel) * 257; |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1490 } |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1491 } |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1492 |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1493 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1494 x_query_color (struct frame *f, XColor *color) |
100845
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1495 { |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1496 x_query_colors (f, color, 1); |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1497 } |
58017ff34d94
* w32term.c (x_query_colors, x_query_color): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
100805
diff
changeset
|
1498 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1499 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1500 /* 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
|
1501 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
|
1502 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
|
1503 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
|
1504 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
|
1505 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
|
1506 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1507 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1508 w32_setup_relief_color (struct frame *f, struct relief *relief, double factor, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1509 int delta, COLORREF default_pixel) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1510 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1511 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1512 struct w32_output *di = f->output_data.w32; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1513 unsigned long mask = GCForeground; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1514 COLORREF pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1515 COLORREF background = di->relief_background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1516 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
|
1517 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1518 /* TODO: Free colors (if using palette)? */ |
28369
3fb90cd81d3b
(w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents:
27937
diff
changeset
|
1519 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1520 /* Allocate new color. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1521 xgcv.foreground = default_pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1522 pixel = background; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1523 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
|
1524 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1525 relief->allocated_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1526 xgcv.foreground = relief->pixel = pixel; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1527 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1528 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1529 if (relief->gc == 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1530 { |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1531 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1532 xgcv.stipple = dpyinfo->gray; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1533 mask |= GCStipple; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1534 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1535 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
|
1536 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1537 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1538 XChangeGC (NULL, relief->gc, mask, &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1539 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1540 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1541 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1542 /* 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
|
1543 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1544 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1545 x_setup_relief_colors (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1546 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1547 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
|
1548 COLORREF color; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1549 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1550 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
|
1551 color = s->face->box_color; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
1552 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
|
1553 && s->img->pixmap |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
1554 && !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
|
1555 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
|
1556 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1557 color = s->gc->background; |
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 if (di->white_relief.gc == 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1560 || color != di->relief_background) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1561 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1562 di->relief_background = color; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1563 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
|
1564 WHITE_PIX_DEFAULT (s->f)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1565 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
|
1566 BLACK_PIX_DEFAULT (s->f)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1567 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1568 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1569 |
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 /* 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
|
1572 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
|
1573 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
|
1574 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
|
1575 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
|
1576 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
|
1577 when drawing. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1578 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1579 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1580 w32_draw_relief_rect (struct frame *f, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1581 int left_x, int top_y, int right_x, int bottom_y, int width, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1582 int raised_p, int top_p, int bot_p, int left_p, int right_p, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1583 RECT *clip_rect) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1584 { |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
1585 int i; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1586 XGCValues gc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1587 HDC hdc = get_frame_dc (f); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1588 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1589 if (raised_p) |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1590 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
|
1591 else |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1592 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
|
1593 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1594 w32_set_clip_rectangle (hdc, clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1595 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1596 /* Top. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1597 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
|
1598 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
|
1599 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
|
1600 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
|
1601 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
|
1602 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1603 /* Left. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1604 if (left_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1605 for (i = 0; i < width; ++i) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1606 w32_fill_area (f, hdc, gc.foreground, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1607 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
|
1608 bottom_y - top_y - 2 * i + 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1609 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1610 if (raised_p) |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1611 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
|
1612 else |
33524
cf8e03cd4985
(HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents:
33386
diff
changeset
|
1613 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
|
1614 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1615 /* Bottom. */ |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1616 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
|
1617 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
|
1618 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
|
1619 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
|
1620 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
|
1621 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1622 /* Right. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1623 if (right_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1624 for (i = 0; i < width; ++i) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1625 w32_fill_area (f, hdc, gc.foreground, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1626 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
|
1627 bottom_y - top_y - 2 * i - 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1628 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1629 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
|
1630 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1631 release_frame_dc (f, hdc); |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1634 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1635 /* 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
|
1636 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
|
1637 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
|
1638 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
|
1639 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
|
1640 rectangle to use when drawing. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1641 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1642 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1643 w32_draw_box_rect (struct glyph_string *s, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1644 int left_x, int top_y, int right_x, int bottom_y, int width, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1645 int left_p, int right_p, RECT *clip_rect) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1646 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1647 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
|
1648 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1649 /* Top. */ |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1650 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
|
1651 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
|
1652 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1653 /* Left. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1654 if (left_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1655 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1656 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
|
1657 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
|
1658 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1659 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1660 /* Bottom. */ |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1661 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
|
1662 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
|
1663 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1664 /* Right. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1665 if (right_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1666 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1667 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
|
1668 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
|
1669 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1670 |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
1671 w32_set_clip_rectangle (s->hdc, NULL); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1672 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1673 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1674 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1675 /* Draw a box around glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1676 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1677 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1678 x_draw_glyph_string_box (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1679 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1680 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
|
1681 int left_p, right_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1682 struct glyph *last_glyph; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1683 RECT clip_rect; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1684 |
59655
369714ad80ed
(x_draw_glyph_string_box): Fix last_x for full width rows.
Kim F. Storm <storm@cua.dk>
parents:
59332
diff
changeset
|
1685 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
|
1686 ? 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
|
1687 : 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
|
1688 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1689 /* 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
|
1690 last_glyph = (s->cmp || s->img |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1691 ? s->first_glyph |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1692 : s->first_glyph + s->nchars - 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1693 |
85258 | 1694 width = eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1695 raised_p = s->face->box == FACE_RAISED_BOX; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1696 left_x = s->x; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
1697 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
|
1698 ? last_x - 1 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1699 : 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
|
1700 top_y = s->y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1701 bottom_y = top_y + s->height - 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1702 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1703 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
|
1704 || (s->hl == DRAW_MOUSE_FACE |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1705 && (s->prev == NULL |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1706 || s->prev->hl != s->hl))); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1707 right_p = (last_glyph->right_box_line_p |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1708 || (s->hl == DRAW_MOUSE_FACE |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1709 && (s->next == NULL |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1710 || 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
|
1711 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
1712 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
|
1713 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1714 if (s->face->box == FACE_SIMPLE_BOX) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1715 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
|
1716 left_p, right_p, &clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1717 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1718 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1719 x_setup_relief_colors (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1720 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
|
1721 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
|
1722 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1723 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1724 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1725 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1726 /* Draw foreground of image glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1727 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1728 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1729 x_draw_image_foreground (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1730 { |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1731 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
|
1732 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
|
1733 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1734 /* 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
|
1735 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1736 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
|
1737 && 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
|
1738 && s->slice.x == 0) |
85258 | 1739 x += eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1740 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1741 /* 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
|
1742 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
|
1743 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
|
1744 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
|
1745 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
|
1746 y += s->img->vmargin; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1747 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1748 SaveDC (s->hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1749 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1750 if (s->img->pixmap) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1751 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1752 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
|
1753 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
|
1754 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
|
1755 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
|
1756 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
|
1757 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
|
1758 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
|
1759 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1760 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1761 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1762 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
|
1763 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
|
1764 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1765 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
|
1766 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
|
1767 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1768 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
|
1769 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
|
1770 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
|
1771 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
|
1772 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
|
1773 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
|
1774 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1775 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
|
1776 DeleteDC (mask_dc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1777 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1778 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1779 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1780 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
|
1781 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
|
1782 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1783 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
|
1784 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
|
1785 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1786 /* 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
|
1787 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
|
1788 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
|
1789 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
|
1790 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
|
1791 nothing here for mouse-face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1792 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
|
1793 { |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1794 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
|
1795 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
|
1796 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
|
1797 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
|
1798 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
|
1799 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1800 } |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1801 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1802 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
|
1803 SelectObject (s->hdc, orig_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1804 DeleteObject (fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1805 SelectObject (compat_hdc, orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1806 DeleteDC (compat_hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1807 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1808 else |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1809 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
|
1810 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
|
1811 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1812 RestoreDC (s->hdc ,-1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1813 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1814 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1815 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1816 /* 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
|
1817 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1818 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1819 x_draw_image_relief (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1820 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1821 int x0, y0, x1, y1, thick, raised_p; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1822 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
|
1823 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
|
1824 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
|
1825 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1826 /* 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
|
1827 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1828 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
|
1829 && 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
|
1830 && s->slice.x == 0) |
85258 | 1831 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
|
1832 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1833 /* 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
|
1834 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
|
1835 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
|
1836 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
|
1837 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
|
1838 y += s->img->vmargin; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1839 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1840 if (s->hl == DRAW_IMAGE_SUNKEN |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1841 || s->hl == DRAW_IMAGE_RAISED) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1842 { |
42538
2b4179d13ed7
(x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents:
42206
diff
changeset
|
1843 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
|
1844 raised_p = s->hl == DRAW_IMAGE_RAISED; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1845 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1846 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1847 { |
85258 | 1848 thick = eabs (s->img->relief); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1849 raised_p = s->img->relief > 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1850 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1851 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1852 x0 = x - thick; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1853 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
|
1854 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
|
1855 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
|
1856 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1857 x_setup_relief_colors (s); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
1858 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
|
1859 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
|
1860 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
|
1861 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
|
1862 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
|
1863 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
|
1864 &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1865 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1866 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1867 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1868 /* 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
|
1869 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1870 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1871 w32_draw_image_foreground_1 (struct glyph_string *s, HBITMAP pixmap) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1872 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1873 HDC hdc = CreateCompatibleDC (s->hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1874 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
|
1875 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
|
1876 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
|
1877 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1878 /* 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
|
1879 right of that line. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1880 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
|
1881 && 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
|
1882 && s->slice.x == 0) |
85258 | 1883 x += eabs (s->face->box_line_width); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1884 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1885 /* 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
|
1886 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
|
1887 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
|
1888 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
|
1889 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
|
1890 y += s->img->vmargin; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1891 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1892 if (s->img->pixmap) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1893 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1894 HDC compat_hdc = CreateCompatibleDC (hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1895 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
|
1896 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
|
1897 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
|
1898 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1899 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1900 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1901 HDC mask_dc = CreateCompatibleDC (hdc); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1902 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
|
1903 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1904 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
|
1905 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
|
1906 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
|
1907 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
|
1908 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
|
1909 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
|
1910 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
|
1911 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
|
1912 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1913 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
|
1914 DeleteDC (mask_dc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1915 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1916 else |
13434 | 1917 { |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1918 SetTextColor (hdc, s->gc->foreground); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1919 SetBkColor (hdc, s->gc->background); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1920 |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1921 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
|
1922 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
|
1923 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1924 /* 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
|
1925 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
|
1926 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
|
1927 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
|
1928 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
|
1929 nothing here for mouse-face. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1930 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
|
1931 { |
fb8359237a78
(x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents:
44641
diff
changeset
|
1932 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
|
1933 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
|
1934 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
|
1935 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
|
1936 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
|
1937 } |
13434 | 1938 } |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1939 |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1940 SelectObject (hdc, orig_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1941 DeleteObject (fg_brush); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1942 SelectObject (compat_hdc, orig_obj); |
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
1943 DeleteDC (compat_hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1944 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1945 else |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
1946 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
|
1947 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
|
1948 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1949 SelectObject (hdc, orig_hdc_obj); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1950 DeleteDC (hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1951 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1952 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1953 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1954 /* 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
|
1955 give the rectangle to draw. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1956 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1957 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1958 x_draw_glyph_string_bg_rect (struct glyph_string *s, int x, int y, int w, int h) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1959 { |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
1960 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1961 if (s->stippled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1962 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1963 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1964 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1965 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
|
1966 XSetFillStyle (s->display, s->gc, FillSolid); |
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1969 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1970 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
|
1971 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1972 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1973 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
1974 /* Draw image glyph string S. |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1975 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1976 s->y |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1977 s->x +------------------------- |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1978 | s->face->box |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1979 | |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1980 | +------------------------- |
35287
28e0cac22fbd
(x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
35000
diff
changeset
|
1981 | | s->img->vmargin |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1982 | | |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1983 | | +------------------- |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1984 | | | the image |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1985 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1986 */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1987 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1988 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
1989 x_draw_image_glyph_string (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1990 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1991 int x, y; |
85258 | 1992 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
|
1993 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
|
1994 int height; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1995 HBITMAP pixmap = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1996 |
36045
8be6a1c85409
(x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents:
36002
diff
changeset
|
1997 height = s->height - 2 * box_line_vwidth; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1998 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
1999 /* 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
|
2000 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
|
2001 flickering. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2002 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
|
2003 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
|
2004 || s->img->hmargin |
35287
28e0cac22fbd
(x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
35000
diff
changeset
|
2005 || s->img->vmargin |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2006 || s->img->mask |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2007 || s->img->pixmap == 0 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2008 || s->width != s->background_width) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2009 { |
55026
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2010 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
|
2011 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
|
2012 && 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
|
2013 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
|
2014 |
08e4e7c06ffc
(w32_draw_relief_rect): Add top_p and bot_p args.
Kim F. Storm <storm@cua.dk>
parents:
54731
diff
changeset
|
2015 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
|
2016 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
|
2017 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
|
2018 |
48345
44c0f878e8b9
(x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents:
48218
diff
changeset
|
2019 #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
|
2020 if (s->img->mask) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2021 { |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
2022 /* 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
|
2023 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
|
2024 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
|
2025 Screen *screen = FRAME_X_SCREEN (s->f); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2026 int depth = DefaultDepthOfScreen (screen); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2027 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2028 /* 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
|
2029 pixmap = XCreatePixmap (s->display, s->window, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2030 s->background_width, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2031 s->height, depth); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2032 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2033 /* 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
|
2034 pixmap. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2035 XSetClipMask (s->display, s->gc, None); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2036 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2037 /* Fill the pixmap with the background color/stipple. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2038 if (s->stippled_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2039 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2040 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2041 XSetFillStyle (s->display, s->gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2042 XFillRectangle (s->display, pixmap, s->gc, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2043 0, 0, s->background_width, s->height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2044 XSetFillStyle (s->display, s->gc, FillSolid); |
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2047 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2048 XGCValues xgcv; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2049 XGetGCValues (s->display, s->gc, GCForeground | GCBackground, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2050 &xgcv); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2051 XSetForeground (s->display, s->gc, xgcv.background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2052 XFillRectangle (s->display, pixmap, s->gc, |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2053 0, 0, s->background_width, s->height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2054 XSetForeground (s->display, s->gc, xgcv.foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2055 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2056 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2057 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2058 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2059 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
|
2060 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2061 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2062 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2063 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2064 /* Draw the foreground. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2065 if (pixmap != 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2066 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2067 w32_draw_image_foreground_1 (s, pixmap); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2068 x_set_glyph_string_clipping (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2069 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2070 HDC compat_hdc = CreateCompatibleDC (s->hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2071 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2072 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2073 HGDIOBJ orig_obj = SelectObject (compat_hdc, pixmap); |
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 SetTextColor (s->hdc, s->gc->foreground); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2076 SetBkColor (s->hdc, s->gc->background); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2077 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
|
2078 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
|
2079 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2080 SelectObject (s->hdc, orig_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2081 DeleteObject (fg_brush); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2082 SelectObject (compat_hdc, orig_obj); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2083 DeleteDC (compat_hdc); |
13434 | 2084 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2085 DeleteObject (pixmap); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2086 pixmap = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2087 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2088 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2089 x_draw_image_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2090 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2091 /* 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
|
2092 if (s->img->relief |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2093 || s->hl == DRAW_IMAGE_RAISED |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2094 || s->hl == DRAW_IMAGE_SUNKEN) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2095 x_draw_image_relief (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2096 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2097 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2098 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2099 /* Draw stretch glyph string S. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2100 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2101 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2102 x_draw_stretch_glyph_string (struct glyph_string *s) |
27402
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 xassert (s->first_glyph->type == STRETCH_GLYPH); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2105 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2106 if (s->hl == DRAW_CURSOR |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2107 && !x_stretch_cursor_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2108 { |
109780
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2109 /* If `x-stretch-cursor' is nil, don't draw a block cursor as |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2110 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
|
2111 int width, background_width = s->background_width; |
109780
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2112 int x = s->x; |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2113 |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2114 if (!s->row->reversed_p) |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2115 { |
109780
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2116 int left_x = window_box_left_offset (s->w, TEXT_AREA); |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2117 |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2118 if (x < left_x) |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2119 { |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2120 background_width -= left_x - x; |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2121 x = left_x; |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2122 } |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2123 } |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2124 else |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2125 { |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2126 /* In R2L rows, draw the cursor on the right edge of the |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2127 stretch glyph. */ |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2128 int right_x = window_box_right_offset (s->w, TEXT_AREA); |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2129 |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2130 if (x + background_width > right_x) |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2131 background_width -= x - right_x; |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2132 x += background_width; |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2133 } |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2134 width = min (FRAME_COLUMN_WIDTH (s->f), background_width); |
109780
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2135 if (s->row->reversed_p) |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2136 x -= width; |
27402
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 /* Draw cursor. */ |
71021
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2139 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
|
2140 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2141 /* 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
|
2142 if (width < background_width) |
27402
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 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
|
2145 int y = s->y; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2146 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
|
2147 RECT r; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2148 HDC hdc = s->hdc; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2149 |
109780
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2150 if (!s->row->reversed_p) |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2151 x += width; |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2152 else |
300a489dd304
Fix cursor drawing on stretch glyphs in R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
109516
diff
changeset
|
2153 x = s->x; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2154 if (s->row->mouse_face_p |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2155 && cursor_in_mouse_face_p (s->w)) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2156 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2157 x_set_mouse_face_gc (s); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2158 gc = s->gc; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2159 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2160 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2161 gc = s->face->gc; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2162 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2163 get_glyph_string_clip_rect (s, &r); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2164 w32_set_clip_rectangle (hdc, &r); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2165 |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
2166 #if 0 /* TODO: stipple */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2167 if (s->face->stipple) |
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 /* Fill background with a stipple pattern. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2170 XSetFillStyle (s->display, gc, FillOpaqueStippled); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2171 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
|
2172 XSetFillStyle (s->display, gc, FillSolid); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2173 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2174 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2175 #endif |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2176 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2177 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
|
2178 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2179 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2180 } |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2181 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
|
2182 { |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2183 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
|
2184 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
|
2185 |
72470
3b82c004bf25
(x_draw_stretch_glyph_string): It is ok to draw a
Kim F. Storm <storm@cua.dk>
parents:
72008
diff
changeset
|
2186 /* 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
|
2187 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
|
2188 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
|
2189 { |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2190 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
|
2191 x = left_x; |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2192 } |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2193 if (background_width > 0) |
a86a3503e350
(x_draw_stretch_glyph_string): Fix problems with invisible
Kim F. Storm <storm@cua.dk>
parents:
70234
diff
changeset
|
2194 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
|
2195 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2196 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2197 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2198 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2199 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2200 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2201 /* Draw glyph string S. */ |
13434 | 2202 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2203 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2204 x_draw_glyph_string (struct glyph_string *s) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2205 { |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2206 int relief_drawn_p = 0; |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2207 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2208 /* 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
|
2209 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
|
2210 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
|
2211 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
|
2212 { |
90834 | 2213 int width; |
2214 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
|
2215 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
|
2216 next && width < s->right_overhang; |
90834 | 2217 width += next->width, next = next->next) |
2218 if (next->first_glyph->type != IMAGE_GLYPH) | |
2219 { | |
2220 x_set_glyph_string_gc (next); | |
2221 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
|
2222 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
|
2223 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
|
2224 else |
3ff54631d8b3
(x_draw_glyph_string): For stretch glyphs, don't call
Chong Yidong <cyd@stupidchicken.com>
parents:
99557
diff
changeset
|
2225 x_draw_glyph_string_background (next, 1); |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2226 next->num_clips = 0; |
90834 | 2227 } |
27402
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2230 /* 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
|
2231 x_set_glyph_string_gc (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2232 |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2233 /* 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
|
2234 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
|
2235 if (!s->for_overlaps |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2236 && s->face->box != FACE_NO_BOX |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2237 && (s->first_glyph->type == CHAR_GLYPH |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2238 || s->first_glyph->type == COMPOSITE_GLYPH)) |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2239 |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2240 { |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2241 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2242 x_draw_glyph_string_background (s, 1); |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2243 x_draw_glyph_string_box (s); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2244 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2245 relief_drawn_p = 1; |
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2246 } |
95364
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2247 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
|
2248 && !s->clip_tail |
03298b3ef01c
(x_draw_glyph_string): Use clipmask if specified.
Jason Rumney <jasonr@gnu.org>
parents:
95296
diff
changeset
|
2249 && ((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
|
2250 || (s->next && s->next->hl != s->hl && s->right_overhang))) |
90834 | 2251 /* We must clip just this glyph. left_overhang part has already |
2252 drawn when s->prev was drawn, and right_overhang part will be | |
2253 drawn later when s->next is drawn. */ | |
2254 x_set_glyph_string_clipping_exactly (s, s); | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2255 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
2256 x_set_glyph_string_clipping (s); |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2257 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2258 switch (s->first_glyph->type) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2259 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2260 case IMAGE_GLYPH: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2261 x_draw_image_glyph_string (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2262 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2263 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2264 case STRETCH_GLYPH: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2265 x_draw_stretch_glyph_string (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2266 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2267 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2268 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
|
2269 if (s->for_overlaps) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2270 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2271 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2272 x_draw_glyph_string_background (s, 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2273 x_draw_glyph_string_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2274 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2275 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2276 case COMPOSITE_GLYPH: |
97831
cdeb60ce9393
(x_draw_composite_glyph_string_foreground): Adjusted
Kenichi Handa <handa@m17n.org>
parents:
97141
diff
changeset
|
2277 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
|
2278 && ! s->first_glyph->u.cmp.automatic)) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2279 s->background_filled_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2280 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2281 x_draw_glyph_string_background (s, 1); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2282 x_draw_composite_glyph_string_foreground (s); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2283 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2284 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2285 default: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2286 abort (); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2287 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2288 |
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
|
2289 if (!s->for_overlaps) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2290 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2291 /* Draw underline. */ |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2292 if (s->face->underline_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2293 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2294 unsigned long thickness, position; |
90867
129b35b0274f
(w32_native_per_char_metric): Swap width and rbearing
Jason Rumney <jasonr@gnu.org>
parents:
90834
diff
changeset
|
2295 int y; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2296 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2297 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
|
2298 { |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2299 /* 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
|
2300 thickness = s->prev->underline_thickness; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2301 position = s->prev->underline_position; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2302 } |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2303 else |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
2304 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2305 /* 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
|
2306 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
|
2307 thickness = s->font->underline_thickness; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2308 else |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2309 thickness = 1; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2310 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
|
2311 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
|
2312 else |
90834 | 2313 { |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2314 /* 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
|
2315 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
|
2316 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
|
2317 specs, and its default is |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2318 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2319 ROUND ((maximum_descent) / 2), with |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2320 ROUND (x) = floor (x + 0.5) */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2321 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2322 if (x_use_underline_position_properties |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2323 && 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
|
2324 position = s->font->underline_position; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2325 else if (s->font) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2326 position = (s->font->descent + 1) / 2; |
90834 | 2327 } |
95792
953225ddde83
* xdisp.c (underline_minimum_offset): Rename from xterm.c's
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95733
diff
changeset
|
2328 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
|
2329 } |
95247
32b09637961a
(x_draw_glyph_string): Be sure to draw underline within the current
Kenichi Handa <handa@m17n.org>
parents:
95240
diff
changeset
|
2330 /* 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
|
2331 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
|
2332 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
|
2333 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
|
2334 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
|
2335 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
|
2336 s->underline_thickness = thickness; |
b4799755ba3d
(x_draw_glyph_string): Be sure to update
Kenichi Handa <handa@m17n.org>
parents:
95170
diff
changeset
|
2337 s->underline_position =position; |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
2338 y = s->ybase + position; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2339 if (s->face->underline_defaulted_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2340 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2341 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x, |
103509
9c0aa5262fc9
* w32term.c (x_draw_glyph_string): Use the glyph string's width
Chong Yidong <cyd@stupidchicken.com>
parents:
103505
diff
changeset
|
2342 y, s->width, 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2343 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2344 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2345 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2346 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x, |
103509
9c0aa5262fc9
* w32term.c (x_draw_glyph_string): Use the glyph string's width
Chong Yidong <cyd@stupidchicken.com>
parents:
103505
diff
changeset
|
2347 y, s->width, 1); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2348 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2349 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2350 /* Draw overline. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2351 if (s->face->overline_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2352 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2353 unsigned long dy = 0, h = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2354 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2355 if (s->face->overline_color_defaulted_p) |
90834 | 2356 { |
2357 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x, | |
103509
9c0aa5262fc9
* w32term.c (x_draw_glyph_string): Use the glyph string's width
Chong Yidong <cyd@stupidchicken.com>
parents:
103505
diff
changeset
|
2358 s->y + dy, s->width, h); |
90834 | 2359 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2360 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2361 { |
57626
d208db2b5db2
(x_draw_glyph_string): Use overline_color for overlines.
Jason Rumney <jasonr@gnu.org>
parents:
57560
diff
changeset
|
2362 w32_fill_area (s->f, s->hdc, s->face->overline_color, s->x, |
103509
9c0aa5262fc9
* w32term.c (x_draw_glyph_string): Use the glyph string's width
Chong Yidong <cyd@stupidchicken.com>
parents:
103505
diff
changeset
|
2363 s->y + dy, s->width, h); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2364 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2365 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2366 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2367 /* Draw strike-through. */ |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2368 if (s->face->strike_through_p |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
2369 && !FONT_TEXTMETRIC (s->font).tmStruckOut) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2370 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2371 unsigned long h = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2372 unsigned long dy = (s->height - h) / 2; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2373 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2374 if (s->face->strike_through_color_defaulted_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2375 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2376 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
|
2377 s->width, h); |
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 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2380 { |
78858
266d9baa6dec
(x_draw_glyph_string): Use strike_through_color, not underline_color,
Juanma Barranquero <lekktu@gmail.com>
parents:
78501
diff
changeset
|
2381 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
|
2382 s->y + dy, s->width, h); |
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 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2385 |
90834 | 2386 /* Draw relief if not yet drawn. */ |
38807
a59ac9807c9d
Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents:
38570
diff
changeset
|
2387 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
|
2388 x_draw_glyph_string_box (s); |
90834 | 2389 |
2390 if (s->prev) | |
2391 { | |
2392 struct glyph_string *prev; | |
2393 | |
2394 for (prev = s->prev; prev; prev = prev->prev) | |
2395 if (prev->hl != s->hl | |
2396 && prev->x + prev->width + prev->right_overhang > s->x) | |
2397 { | |
2398 /* As prev was drawn while clipped to its own area, we | |
2399 must draw the right_overhang part using s->hl now. */ | |
2400 enum draw_glyphs_face save = prev->hl; | |
2401 | |
2402 prev->hl = s->hl; | |
2403 x_set_glyph_string_gc (prev); | |
2404 x_set_glyph_string_clipping_exactly (s, prev); | |
2405 if (prev->first_glyph->type == CHAR_GLYPH) | |
2406 x_draw_glyph_string_foreground (prev); | |
2407 else | |
2408 x_draw_composite_glyph_string_foreground (prev); | |
2409 w32_set_clip_rectangle (prev->hdc, NULL); | |
2410 prev->hl = save; | |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2411 prev->num_clips = 0; |
90834 | 2412 } |
2413 } | |
2414 | |
2415 if (s->next) | |
2416 { | |
2417 struct glyph_string *next; | |
2418 | |
2419 for (next = s->next; next; next = next->next) | |
2420 if (next->hl != s->hl | |
2421 && next->x - next->left_overhang < s->x + s->width) | |
2422 { | |
2423 /* As next will be drawn while clipped to its own area, | |
2424 we must draw the left_overhang part using s->hl now. */ | |
2425 enum draw_glyphs_face save = next->hl; | |
2426 | |
2427 next->hl = s->hl; | |
2428 x_set_glyph_string_gc (next); | |
2429 x_set_glyph_string_clipping_exactly (s, next); | |
2430 if (next->first_glyph->type == CHAR_GLYPH) | |
2431 x_draw_glyph_string_foreground (next); | |
2432 else | |
2433 x_draw_composite_glyph_string_foreground (next); | |
2434 w32_set_clip_rectangle (next->hdc, NULL); | |
2435 next->hl = save; | |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2436 next->num_clips = 0; |
90834 | 2437 } |
2438 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2439 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2440 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2441 /* Reset clipping. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2442 w32_set_clip_rectangle (s->hdc, NULL); |
91028
d41ffb650865
(x_set_glyph_string_clipping): Use
Jason Rumney <jasonr@gnu.org>
parents:
91005
diff
changeset
|
2443 s->num_clips = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2444 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2445 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2446 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2447 /* 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
|
2448 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2449 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2450 w32_shift_glyphs_for_insert (struct frame *f, int x, int y, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2451 int width, int height, int shift_by) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2452 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2453 HDC hdc; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2454 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2455 hdc = get_frame_dc (f); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2456 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
|
2457 hdc, x, y, SRCCOPY); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
2458 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2459 release_frame_dc (f, hdc); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2460 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2461 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2462 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2463 /* 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
|
2464 for X frames. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2465 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2466 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2467 x_delete_glyphs (struct frame *f, register int n) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2468 { |
35000 | 2469 if (! FRAME_W32_P (f)) |
2470 return; | |
2471 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2472 abort (); |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2476 /* 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
|
2477 frame. Otherwise clear the selected frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2478 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2479 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2480 x_clear_frame (struct frame *f) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2481 { |
35000 | 2482 if (! FRAME_W32_P (f)) |
2483 return; | |
2484 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2485 /* 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
|
2486 longer visible. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2487 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
|
2488 output_cursor.hpos = output_cursor.vpos = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2489 output_cursor.x = -1; |
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 /* 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
|
2492 follow an explicit cursor_to. */ |
13434 | 2493 BLOCK_INPUT; |
2494 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2495 w32_clear_window (f); |
13434 | 2496 |
2497 /* We have to clear the scroll bars, too. If we have changed | |
2498 colors or something like that, then they should be notified. */ | |
2499 x_scroll_bar_clear (f); | |
2500 | |
2501 UNBLOCK_INPUT; | |
2502 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2503 |
13434 | 2504 |
2505 /* Make audible bell. */ | |
2506 | |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2507 static void |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2508 w32_ring_bell (struct frame *f) |
13434 | 2509 { |
2510 BLOCK_INPUT; | |
2511 | |
35449
98d65e364070
(w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents:
35384
diff
changeset
|
2512 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
|
2513 { |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2514 int i; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2515 HWND hwnd = FRAME_W32_WINDOW (f); |
22059
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2516 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2517 for (i = 0; i < 5; i++) |
22059
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2518 { |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2519 FlashWindow (hwnd, TRUE); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2520 Sleep (10); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2521 } |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2522 FlashWindow (hwnd, FALSE); |
23fda104cd36
(w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21885
diff
changeset
|
2523 } |
13434 | 2524 else |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
2525 w32_sys_ring_bell (f); |
13434 | 2526 |
2527 UNBLOCK_INPUT; | |
2528 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2529 |
13434 | 2530 |
2531 /* Specify how many text lines, from the top of the window, | |
2532 should be affected by insert-lines and delete-lines operations. | |
2533 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
|
2534 that is bounded by calls to x_update_begin and x_update_end. */ |
13434 | 2535 |
21831
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2536 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2537 w32_set_terminal_window (struct frame *f, int n) |
13434 | 2538 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2539 /* This function intentionally left blank. */ |
13434 | 2540 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2541 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2542 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2543 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2544 Line Dance |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2545 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2546 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2547 /* 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
|
2548 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
|
2549 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2550 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2551 x_ins_del_lines (struct frame *f, int vpos, int n) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2552 { |
35000 | 2553 if (! FRAME_W32_P (f)) |
2554 return; | |
2555 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2556 abort (); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2557 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2558 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2559 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2560 /* 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
|
2561 |
6b659713b90b
Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21740
diff
changeset
|
2562 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2563 x_scroll_run (struct window *w, struct run *run) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2564 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2565 struct frame *f = XFRAME (w->frame); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2566 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
|
2567 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
|
2568 HRGN expect_dirty; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2569 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2570 /* Get frame-relative bounding box of the text display area of W, |
41125 | 2571 without mode lines. Include in this box the left and right |
2572 fringes of W. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2573 window_box (w, -1, &x, &y, &width, &height); |
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 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
|
2576 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
|
2577 bottom_y = y + height; |
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 if (to_y < from_y) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2580 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2581 /* 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
|
2582 line at the bottom. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2583 if (from_y + run->height > bottom_y) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2584 height = bottom_y - from_y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2585 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2586 height = run->height; |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2587 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
|
2588 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2589 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2590 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2591 /* 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
|
2592 at the bottom. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2593 if (to_y + run->height > bottom_y) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2594 height = bottom_y - to_y; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2595 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2596 height = run->height; |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2597 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
|
2598 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2599 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2600 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2601 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2602 /* 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
|
2603 updated_window = w; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2604 x_clear_cursor (w); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2605 |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2606 { |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2607 RECT from; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2608 RECT to; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2609 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
|
2610 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
|
2611 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2612 from.left = to.left = x; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2613 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
|
2614 from.top = from_y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2615 from.bottom = from_y + height; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2616 to.top = y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2617 to.bottom = bottom_y; |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2618 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2619 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
|
2620 NULL, SW_INVALIDATE); |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2621 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2622 /* 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
|
2623 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
|
2624 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
|
2625 |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2626 /* 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
|
2627 if (!EqualRgn (combined, expect_dirty)) |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2628 SET_FRAME_GARBAGED (f); |
57837
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2629 |
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2630 DeleteObject (dirty); |
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2631 DeleteObject (combined); |
42934
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2632 } |
b3ee5e92548a
(x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents:
42919
diff
changeset
|
2633 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2634 UNBLOCK_INPUT; |
57837
d2354c6afd6d
Delete region objects after use.
Jason Rumney <jasonr@gnu.org>
parents:
57626
diff
changeset
|
2635 DeleteObject (expect_dirty); |
27402
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 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2638 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2639 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2640 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2641 Exposure Events |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2642 ***********************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2643 |
13434 | 2644 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2645 frame_highlight (struct frame *f) |
13434 | 2646 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2647 x_update_cursor (f, 1); |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
2648 x_set_frame_alpha (f); |
13434 | 2649 } |
2650 | |
2651 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2652 frame_unhighlight (struct frame *f) |
13434 | 2653 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2654 x_update_cursor (f, 1); |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
2655 x_set_frame_alpha (f); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2656 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
2657 |
13434 | 2658 /* The focus has changed. Update the frames as necessary to reflect |
2659 the new situation. Note that we can't change the selected frame | |
2660 here, because the Lisp code we are interrupting might become confused. | |
2661 Each event gets marked with the frame in which it occurred, so the | |
2662 Lisp code can tell when the switch took place by examining the events. */ | |
2663 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2664 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2665 x_new_focus_frame (struct w32_display_info *dpyinfo, struct frame *frame) |
13434 | 2666 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2667 struct frame *old_focus = dpyinfo->w32_focus_frame; |
13434 | 2668 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2669 if (frame != dpyinfo->w32_focus_frame) |
13434 | 2670 { |
2671 /* 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
|
2672 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
|
2673 dpyinfo->w32_focus_frame = frame; |
13434 | 2674 |
2675 if (old_focus && old_focus->auto_lower) | |
2676 x_lower_frame (old_focus); | |
2677 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2678 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
|
2679 pending_autoraise_frame = dpyinfo->w32_focus_frame; |
13434 | 2680 else |
2681 pending_autoraise_frame = 0; | |
2682 } | |
2683 | |
2684 x_frame_rehighlight (dpyinfo); | |
2685 } | |
2686 | |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2687 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2688 /* 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
|
2689 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
|
2690 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
|
2691 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2692 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2693 x_focus_changed (int type, int state, struct w32_display_info *dpyinfo, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2694 struct frame *frame, struct input_event *bufp) |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2695 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2696 if (type == WM_SETFOCUS) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2697 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2698 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
|
2699 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2700 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
|
2701 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
|
2702 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2703 /* 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
|
2704 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
|
2705 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
|
2706 && CONSP (Vframe_list) |
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
2707 && !NILP (XCDR (Vframe_list))) |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2708 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2709 bufp->kind = FOCUS_IN_EVENT; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2710 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
|
2711 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2712 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2713 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2714 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
|
2715 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2716 /* TODO: IME focus? */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2717 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2718 else if (type == WM_KILLFOCUS) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2719 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2720 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
|
2721 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2722 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
|
2723 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2724 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
|
2725 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
|
2726 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2727 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2728 /* TODO: IME focus? */ |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2729 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2730 } |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2731 |
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 /* 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
|
2734 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
|
2735 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2736 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
|
2737 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2738 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2739 w32_detect_focus_change (struct w32_display_info *dpyinfo, W32Msg *event, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2740 struct input_event *bufp) |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2741 { |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2742 struct frame *frame; |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2743 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2744 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
|
2745 if (! frame) |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2746 return; |
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 /* 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
|
2749 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
|
2750 (event->msg.message == WM_KILLFOCUS ? |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2751 FOCUS_IMPLICIT : FOCUS_EXPLICIT), |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2752 dpyinfo, frame, bufp); |
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 |
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
2755 |
13434 | 2756 /* Handle an event saying the mouse has moved out of an Emacs frame. */ |
2757 | |
2758 void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2759 x_mouse_leave (struct w32_display_info *dpyinfo) |
13434 | 2760 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2761 x_new_focus_frame (dpyinfo, dpyinfo->w32_focus_event_frame); |
13434 | 2762 } |
2763 | |
2764 /* The focus has changed, or we have redirected a frame's focus to | |
2765 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
|
2766 mini-buffer frame). Shift the highlight as appropriate. |
13434 | 2767 |
2768 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
|
2769 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
|
2770 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
|
2771 |
13434 | 2772 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2773 w32_frame_rehighlight (struct frame *frame) |
13434 | 2774 { |
35000 | 2775 if (! FRAME_W32_P (frame)) |
2776 return; | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2777 x_frame_rehighlight (FRAME_W32_DISPLAY_INFO (frame)); |
13434 | 2778 } |
2779 | |
2780 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2781 x_frame_rehighlight (struct w32_display_info *dpyinfo) |
13434 | 2782 { |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2783 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
|
2784 |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2785 if (dpyinfo->w32_focus_frame) |
13434 | 2786 { |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2787 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
|
2788 = ((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
|
2789 ? 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
|
2790 : 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
|
2791 if (! FRAME_LIVE_P (dpyinfo->x_highlight_frame)) |
13434 | 2792 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2793 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
|
2794 dpyinfo->x_highlight_frame = dpyinfo->w32_focus_frame; |
13434 | 2795 } |
2796 } | |
2797 else | |
47148
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2798 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
|
2799 |
be0335657440
Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents:
47143
diff
changeset
|
2800 if (dpyinfo->x_highlight_frame != old_highlight) |
13434 | 2801 { |
2802 if (old_highlight) | |
2803 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
|
2804 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
|
2805 frame_highlight (dpyinfo->x_highlight_frame); |
13434 | 2806 } |
2807 } | |
2808 | |
2809 /* Keyboard processing - modifier keys, etc. */ | |
2810 | |
2811 /* Convert a keysym to its name. */ | |
2812 | |
2813 char * | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2814 x_get_keysym_name (int keysym) |
13434 | 2815 { |
2816 /* Make static so we can always return it */ | |
2817 static char value[100]; | |
2818 | |
2819 BLOCK_INPUT; | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
2820 GetKeyNameText (keysym, value, 100); |
13434 | 2821 UNBLOCK_INPUT; |
2822 | |
2823 return value; | |
2824 } | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2825 |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2826 static int |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2827 codepage_for_locale (LCID locale) |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2828 { |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2829 char cp[20]; |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2830 |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2831 if (GetLocaleInfo (locale, LOCALE_IDEFAULTANSICODEPAGE, cp, 20) > 0) |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2832 return atoi (cp); |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2833 else |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2834 return CP_ACP; |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
2835 } |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
2836 |
13434 | 2837 |
2838 /* Mouse clicks and mouse movement. Rah. */ | |
2839 | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2840 /* 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
|
2841 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
|
2842 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
|
2843 BOOL |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2844 parse_button (int message, int xbutton, int * pbutton, int * pup) |
13434 | 2845 { |
2846 int button = 0; | |
2847 int up = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2848 |
13434 | 2849 switch (message) |
2850 { | |
2851 case WM_LBUTTONDOWN: | |
2852 button = 0; | |
2853 up = 0; | |
2854 break; | |
2855 case WM_LBUTTONUP: | |
2856 button = 0; | |
2857 up = 1; | |
2858 break; | |
2859 case WM_MBUTTONDOWN: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2860 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2861 button = 1; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2862 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2863 button = 2; |
13434 | 2864 up = 0; |
2865 break; | |
2866 case WM_MBUTTONUP: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2867 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2868 button = 1; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2869 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2870 button = 2; |
13434 | 2871 up = 1; |
2872 break; | |
2873 case WM_RBUTTONDOWN: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2874 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2875 button = 2; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2876 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2877 button = 1; |
13434 | 2878 up = 0; |
2879 break; | |
2880 case WM_RBUTTONUP: | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
2881 if (NILP (Vw32_swap_mouse_buttons)) |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2882 button = 2; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2883 else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
2884 button = 1; |
13434 | 2885 up = 1; |
2886 break; | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2887 case WM_XBUTTONDOWN: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2888 button = xbutton + 2; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2889 up = 0; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2890 break; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2891 case WM_XBUTTONUP: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2892 button = xbutton + 2; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2893 up = 1; |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2894 break; |
13434 | 2895 default: |
2896 return (FALSE); | |
2897 } | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2898 |
13434 | 2899 if (pup) *pup = up; |
2900 if (pbutton) *pbutton = button; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
2901 |
13434 | 2902 return (TRUE); |
2903 } | |
2904 | |
2905 | |
2906 /* Prepare a mouse-event in *RESULT for placement in the input queue. | |
2907 | |
2908 If the event is a button press, then note that we have grabbed | |
2909 the mouse. */ | |
2910 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2911 static Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2912 construct_mouse_click (struct input_event *result, W32Msg *msg, struct frame *f) |
13434 | 2913 { |
2914 int button; | |
2915 int up; | |
2916 | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
2917 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
|
2918 &button, &up); |
13434 | 2919 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
2920 /* Make the event type NO_EVENT; we'll change that when we decide |
13434 | 2921 otherwise. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
2922 result->kind = MOUSE_CLICK_EVENT; |
13434 | 2923 result->code = button; |
2924 result->timestamp = msg->msg.time; | |
2925 result->modifiers = (msg->dwModifiers | |
2926 | (up | |
2927 ? up_modifier | |
2928 : down_modifier)); | |
2929 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2930 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
|
2931 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
|
2932 XSETFRAME (result->frame_or_window, f); |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2933 result->arg = Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2934 return Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2935 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2936 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2937 static Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2938 construct_mouse_wheel (struct input_event *result, W32Msg *msg, struct frame *f) |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2939 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2940 POINT p; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2941 int delta; |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2942 |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
2943 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
|
2944 : WHEEL_EVENT; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2945 result->code = 0; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2946 result->timestamp = msg->msg.time; |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2947 |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2948 /* 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
|
2949 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
|
2950 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
|
2951 delta = GET_WHEEL_DELTA_WPARAM (msg->msg.wParam); |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2952 |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2953 /* 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
|
2954 down based on WHEEL_DELTA value. */ |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2955 result->modifiers = (msg->dwModifiers |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2956 | ((delta < 0 ) ? down_modifier : up_modifier)); |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
2957 |
70234
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
2958 /* With multiple monitors, we can legitimately get negative |
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
2959 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
|
2960 p.x = (short) LOWORD (msg->msg.lParam); |
4282b2a1849b
(construct_mouse_wheel): Handle negative coordinates.
Jason Rumney <jasonr@gnu.org>
parents:
69662
diff
changeset
|
2961 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
|
2962 ScreenToClient (msg->msg.hwnd, &p); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2963 XSETINT (result->x, p.x); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2964 XSETINT (result->y, p.y); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
2965 XSETFRAME (result->frame_or_window, f); |
30199
298f10cd4ba5
(construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents:
30179
diff
changeset
|
2966 result->arg = Qnil; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2967 return Qnil; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2968 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2969 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
2970 static Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
2971 construct_drag_n_drop (struct input_event *result, W32Msg *msg, struct frame *f) |
21885 | 2972 { |
2973 Lisp_Object files; | |
2974 Lisp_Object frame; | |
2975 HDROP hdrop; | |
2976 POINT p; | |
2977 WORD num_files; | |
2978 char *name; | |
2979 int i, len; | |
2980 | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
2981 result->kind = DRAG_N_DROP_EVENT; |
21885 | 2982 result->code = 0; |
2983 result->timestamp = msg->msg.time; | |
2984 result->modifiers = msg->dwModifiers; | |
2985 | |
24265
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
2986 hdrop = (HDROP) msg->msg.wParam; |
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
2987 DragQueryPoint (hdrop, &p); |
c5f1a1deffbb
(construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents:
24146
diff
changeset
|
2988 |
24674 | 2989 #if 0 |
21885 | 2990 p.x = LOWORD (msg->msg.lParam); |
2991 p.y = HIWORD (msg->msg.lParam); | |
2992 ScreenToClient (msg->msg.hwnd, &p); | |
24674 | 2993 #endif |
2994 | |
21885 | 2995 XSETINT (result->x, p.x); |
2996 XSETINT (result->y, p.y); | |
2997 | |
2998 num_files = DragQueryFile (hdrop, 0xFFFFFFFF, NULL, 0); | |
2999 files = Qnil; | |
3000 | |
3001 for (i = 0; i < num_files; i++) | |
3002 { | |
3003 len = DragQueryFile (hdrop, i, NULL, 0); | |
3004 if (len <= 0) | |
3005 continue; | |
3006 name = alloca (len + 1); | |
3007 DragQueryFile (hdrop, i, name, len + 1); | |
44641
3afb0684cbc2
(construct_drag_n_drop): Likewise.
Jason Rumney <jasonr@gnu.org>
parents:
44359
diff
changeset
|
3008 files = Fcons (DECODE_FILE (build_string (name)), files); |
21885 | 3009 } |
3010 | |
3011 DragFinish (hdrop); | |
3012 | |
3013 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
|
3014 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
|
3015 result->arg = files; |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3016 return Qnil; |
21885 | 3017 } |
3018 | |
13434 | 3019 |
3020 /* Function to report a mouse movement to the mainstream Emacs code. | |
3021 The input handler calls this. | |
3022 | |
3023 We have received a mouse movement event, which is given in *event. | |
3024 If the mouse is over a different glyph than it was last time, tell | |
3025 the mainstream emacs code by setting mouse_moved. If not, ask for | |
3026 another motion event, so we can check again the next time it moves. */ | |
3027 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3028 static MSG last_mouse_motion_event; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3029 static Lisp_Object last_mouse_motion_frame; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3030 |
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
|
3031 static int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3032 note_mouse_movement (FRAME_PTR frame, MSG *msg) |
13434 | 3033 { |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3034 int mouse_x = LOWORD (msg->lParam); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3035 int mouse_y = HIWORD (msg->lParam); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3036 |
13434 | 3037 last_mouse_movement_time = msg->time; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3038 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
|
3039 XSETFRAME (last_mouse_motion_frame, frame); |
13434 | 3040 |
90834 | 3041 if (!FRAME_X_OUTPUT (frame)) |
3042 return 0; | |
3043 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3044 if (msg->hwnd != FRAME_W32_WINDOW (frame)) |
13434 | 3045 { |
3046 frame->mouse_moved = 1; | |
3047 last_mouse_scroll_bar = Qnil; | |
3048 note_mouse_highlight (frame, -1, -1); | |
69441
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3049 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
|
3050 return 1; |
13434 | 3051 } |
3052 | |
3053 /* 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
|
3054 if (frame != last_mouse_glyph_frame |
eb7a171cafae
Sync 2005-10-24 xterm.c changes.
Jason Rumney <jasonr@gnu.org>
parents:
69401
diff
changeset
|
3055 || 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
|
3056 || 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
|
3057 || 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
|
3058 || mouse_y >= last_mouse_glyph.bottom) |
13434 | 3059 { |
3060 frame->mouse_moved = 1; | |
3061 last_mouse_scroll_bar = Qnil; | |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3062 note_mouse_highlight (frame, mouse_x, mouse_y); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3063 /* 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
|
3064 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
|
3065 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
|
3066 other times. */ |
66034
d1a8711a8c3a
(note_mouse_movement): Fix last_mouse_glyph check.
Kim F. Storm <storm@cua.dk>
parents:
65892
diff
changeset
|
3067 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
|
3068 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
|
3069 return 1; |
13434 | 3070 } |
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
|
3071 |
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
|
3072 return 0; |
13434 | 3073 } |
3074 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3075 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3076 /************************************************************************ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3077 Mouse Face |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3078 ************************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3079 |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3080 static struct scroll_bar *x_window_to_scroll_bar (Window); |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3081 static void x_scroll_bar_report_motion (FRAME_PTR *, Lisp_Object *, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3082 enum scroll_bar_part *, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3083 Lisp_Object *, Lisp_Object *, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3084 unsigned long *); |
109100
2bc9a0c04c87
Remove __P and P_ from .c and .m files and definition of P_
Jan D <jan.h.d@swipnet.se>
parents:
107991
diff
changeset
|
3085 static void x_check_fullscreen (struct frame *); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3086 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3087 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3088 redo_mouse_highlight (void) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3089 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3090 if (!NILP (last_mouse_motion_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3091 && FRAME_LIVE_P (XFRAME (last_mouse_motion_frame))) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3092 note_mouse_highlight (XFRAME (last_mouse_motion_frame), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3093 LOWORD (last_mouse_motion_event.lParam), |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3094 HIWORD (last_mouse_motion_event.lParam)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3095 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3096 |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
3097 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3098 w32_define_cursor (Window window, Cursor cursor) |
49371
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3099 { |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
3100 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
|
3101 } |
13434 | 3102 /* Return the current position of the mouse. |
3103 *fp should be a frame which indicates which display to ask about. | |
3104 | |
3105 If the mouse movement started in a scroll bar, set *fp, *bar_window, | |
3106 and *part to the frame, window, and scroll bar part that the mouse | |
3107 is over. Set *x and *y to the portion and whole of the mouse's | |
3108 position on the scroll bar. | |
3109 | |
3110 If the mouse movement started elsewhere, set *fp to the frame the | |
3111 mouse is on, *bar_window to nil, and *x and *y to the character cell | |
3112 the mouse is over. | |
3113 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3114 Set *time to the server time-stamp for the time at which the mouse |
13434 | 3115 was at this position. |
3116 | |
3117 Don't store anything if we don't have a valid set of values to report. | |
3118 | |
3119 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
|
3120 movement. */ |
13434 | 3121 |
3122 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3123 w32_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3124 enum scroll_bar_part *part, Lisp_Object *x, Lisp_Object *y, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3125 unsigned long *time) |
13434 | 3126 { |
3127 FRAME_PTR f1; | |
3128 | |
3129 BLOCK_INPUT; | |
3130 | |
20179
b4fe0e8ac819
(w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19713
diff
changeset
|
3131 if (! NILP (last_mouse_scroll_bar) && insist == 0) |
13434 | 3132 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time); |
3133 else | |
3134 { | |
3135 POINT pt; | |
3136 | |
3137 Lisp_Object frame, tail; | |
3138 | |
3139 /* Clear the mouse-moved flag for every frame on this display. */ | |
3140 FOR_EACH_FRAME (tail, frame) | |
3141 XFRAME (frame)->mouse_moved = 0; | |
3142 | |
3143 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
|
3144 |
13434 | 3145 GetCursorPos (&pt); |
3146 | |
3147 /* Now we have a position on the root; find the innermost window | |
3148 containing the pointer. */ | |
3149 { | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3150 if (FRAME_W32_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame |
13434 | 3151 && FRAME_LIVE_P (last_mouse_frame)) |
3152 { | |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
3153 /* 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
|
3154 even if the mouse is now outside it. */ |
13434 | 3155 f1 = last_mouse_frame; |
3156 } | |
3157 else | |
3158 { | |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
3159 /* Is window under mouse one of our frames? */ |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3160 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
|
3161 WindowFromPoint (pt)); |
13434 | 3162 } |
3163 | |
3164 /* If not, is it one of our scroll bars? */ | |
3165 if (! f1) | |
3166 { | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3167 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
|
3168 = x_window_to_scroll_bar (WindowFromPoint (pt)); |
13434 | 3169 |
3170 if (bar) | |
3171 { | |
3172 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); | |
3173 } | |
3174 } | |
3175 | |
20179
b4fe0e8ac819
(w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents:
19713
diff
changeset
|
3176 if (f1 == 0 && insist > 0) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3177 f1 = SELECTED_FRAME (); |
13434 | 3178 |
3179 if (f1) | |
3180 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3181 /* 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
|
3182 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
|
3183 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
|
3184 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
|
3185 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
|
3186 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
|
3187 the frame are divided into. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3188 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3189 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
|
3190 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
|
3191 last_mouse_glyph_frame = f1; |
13434 | 3192 |
3193 *bar_window = Qnil; | |
3194 *part = 0; | |
3195 *fp = f1; | |
3196 XSETINT (*x, pt.x); | |
3197 XSETINT (*y, pt.y); | |
3198 *time = last_mouse_movement_time; | |
3199 } | |
3200 } | |
3201 } | |
3202 | |
3203 UNBLOCK_INPUT; | |
3204 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3205 |
13434 | 3206 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3207 /*********************************************************************** |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3208 Tool-bars |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3209 ***********************************************************************/ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3210 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3211 /* 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
|
3212 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
|
3213 or ButtonRelase. */ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3214 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3215 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3216 w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event) |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3217 { |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3218 int x = XFASTINT (button_event->x); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3219 int y = XFASTINT (button_event->y); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3220 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3221 if (button_event->modifiers & down_modifier) |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3222 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
|
3223 else |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3224 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
|
3225 button_event->modifiers & ~up_modifier); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3226 } |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3227 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3228 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3229 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3230 /*********************************************************************** |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3231 Scroll bars |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3232 ***********************************************************************/ |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
3233 |
13434 | 3234 /* Scroll bar support. */ |
3235 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
3236 /* Given a window ID, find the struct scroll_bar which manages it. |
13434 | 3237 This can be called in GC, so we have to make sure to strip off mark |
3238 bits. */ | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3239 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3240 static struct scroll_bar * |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3241 x_window_to_scroll_bar (Window window_id) |
13434 | 3242 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3243 Lisp_Object tail; |
13434 | 3244 |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3245 for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail)) |
13434 | 3246 { |
3247 Lisp_Object frame, bar, condemned; | |
3248 | |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25236
diff
changeset
|
3249 frame = XCAR (tail); |
13434 | 3250 /* 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
|
3251 if (! FRAMEP (frame)) |
13434 | 3252 abort (); |
3253 | |
3254 /* Scan this frame's scroll bar list for a scroll bar with the | |
3255 right window ID. */ | |
3256 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame)); | |
3257 for (bar = FRAME_SCROLL_BARS (XFRAME (frame)); | |
3258 /* This trick allows us to search both the ordinary and | |
3259 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
|
3260 ! NILP (bar) || (bar = condemned, |
13434 | 3261 condemned = Qnil, |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3262 ! NILP (bar)); |
13434 | 3263 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
|
3264 if (SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar)) == window_id) |
13434 | 3265 return XSCROLL_BAR (bar); |
3266 } | |
3267 | |
3268 return 0; | |
3269 } | |
3270 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3271 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3272 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3273 /* 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
|
3274 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
|
3275 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3276 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3277 w32_set_scroll_bar_thumb (struct scroll_bar *bar, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3278 int portion, int position, int whole) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3279 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3280 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
|
3281 /* 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
|
3282 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
|
3283 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
|
3284 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
|
3285 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3286 int sb_page, sb_pos; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3287 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
|
3288 SCROLLINFO si; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3289 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3290 /* 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
|
3291 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
|
3292 while dragging downwards). |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3293 |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3294 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
|
3295 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
|
3296 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
|
3297 |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3298 if (draggingp) |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3299 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3300 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
|
3301 BLOCK_INPUT; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3302 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
|
3303 si.fMask = SIF_POS | SIF_PAGE; |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
3304 GetScrollInfo (w, SB_CTL, &si); |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3305 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
|
3306 UNBLOCK_INPUT; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3307 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
|
3308 return; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3309 } |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3310 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3311 if (whole) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3312 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3313 /* 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
|
3314 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
|
3315 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
|
3316 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
|
3317 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3318 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
|
3319 sb_pos = range; |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3320 } |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3321 else |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3322 { |
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3323 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
|
3324 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
|
3325 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3326 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3327 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3328 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3329 sb_page = range; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3330 sb_pos = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3331 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3332 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3333 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
|
3334 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3335 BLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3336 |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3337 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
|
3338 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
|
3339 si.nPage = sb_page; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3340 si.nPos = sb_pos; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3341 |
76022
e892213b9815
(w32_set_scroll_bar_thumb): Don't resize scroll-bar
Kim F. Storm <storm@cua.dk>
parents:
76019
diff
changeset
|
3342 SetScrollInfo (w, SB_CTL, &si, TRUE); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3343 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3344 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3345 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3346 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3347 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3348 /************************************************************************ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3349 Scroll bars, general |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3350 ************************************************************************/ |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3351 |
85309
3224d6c172a6
(w32_font_is_double_byte, my_create_scrollbar): Make static.
Juanma Barranquero <lekktu@gmail.com>
parents:
85258
diff
changeset
|
3352 static HWND |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3353 my_create_scrollbar (struct frame * f, struct scroll_bar * bar) |
13434 | 3354 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3355 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
|
3356 WM_EMACS_CREATESCROLLBAR, (WPARAM) f, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3357 (LPARAM) bar); |
13434 | 3358 } |
3359 | |
42919
2a546583564f
(x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents:
42864
diff
changeset
|
3360 /*#define ATTACH_THREADS*/ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3361 |
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
|
3362 static BOOL |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3363 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
|
3364 { |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3365 #ifndef ATTACH_THREADS |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3366 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
|
3367 (WPARAM) hwnd, (LPARAM) how); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3368 #else |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3369 return ShowWindow (hwnd, how); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3370 #endif |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3371 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3372 |
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
|
3373 static void |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3374 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
|
3375 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
|
3376 { |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3377 #ifndef ATTACH_THREADS |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3378 WINDOWPOS pos; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3379 pos.hwndInsertAfter = hwndAfter; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3380 pos.x = x; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3381 pos.y = y; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3382 pos.cx = cx; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3383 pos.cy = cy; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3384 pos.flags = flags; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3385 SendMessage (hwnd, WM_EMACS_SETWINDOWPOS, (WPARAM) &pos, 0); |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3386 #else |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3387 SetWindowPos (hwnd, hwndAfter, x, y, cx, cy, flags); |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3388 #endif |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3389 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3390 |
109495
2899bda31dbe
* w32term.c (my_set_focus): #ifdef away; currently not used.
Juanma Barranquero <lekktu@gmail.com>
parents:
109480
diff
changeset
|
3391 #if 0 |
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
|
3392 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3393 my_set_focus (struct frame * f, HWND hwnd) |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3394 { |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3395 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
|
3396 (WPARAM) hwnd, 0); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3397 } |
109495
2899bda31dbe
* w32term.c (my_set_focus): #ifdef away; currently not used.
Juanma Barranquero <lekktu@gmail.com>
parents:
109480
diff
changeset
|
3398 #endif |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3399 |
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
|
3400 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3401 my_set_foreground_window (HWND hwnd) |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3402 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3403 SendMessage (hwnd, WM_EMACS_SETFOREGROUND, (WPARAM) hwnd, 0); |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3404 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3405 |
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
|
3406 |
75130ff74ad2
(my_show_window, my_set_window_pos, my_set_focus, my_set_foreground_window,
Juanma Barranquero <lekktu@gmail.com>
parents:
64084
diff
changeset
|
3407 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3408 my_destroy_window (struct frame * f, HWND hwnd) |
13434 | 3409 { |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3410 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_DESTROYWINDOW, |
13434 | 3411 (WPARAM) hwnd, 0); |
3412 } | |
3413 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3414 /* 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
|
3415 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
|
3416 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
|
3417 scroll bar. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3418 |
13434 | 3419 static struct scroll_bar * |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3420 x_scroll_bar_create (struct window *w, int top, int left, int width, int height) |
13434 | 3421 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3422 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3423 HWND hwnd; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3424 SCROLLINFO si; |
13434 | 3425 struct scroll_bar *bar |
3426 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil)); | |
3427 | |
3428 BLOCK_INPUT; | |
3429 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3430 XSETWINDOW (bar->window, w); |
13434 | 3431 XSETINT (bar->top, top); |
3432 XSETINT (bar->left, left); | |
3433 XSETINT (bar->width, width); | |
3434 XSETINT (bar->height, height); | |
3435 XSETINT (bar->start, 0); | |
3436 XSETINT (bar->end, 0); | |
3437 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
|
3438 bar->fringe_extended_p = Qnil; |
13434 | 3439 |
3440 /* Requires geometry to be set before call to create the real window */ | |
3441 | |
3442 hwnd = my_create_scrollbar (f, bar); | |
3443 | |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3444 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3445 si.fMask = SIF_ALL; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3446 si.nMin = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3447 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
|
3448 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3449 si.nPage = si.nMax; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3450 si.nPos = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3451 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3452 SetScrollInfo (hwnd, SB_CTL, &si, FALSE); |
13434 | 3453 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3454 SET_SCROLL_BAR_W32_WINDOW (bar, hwnd); |
13434 | 3455 |
3456 /* Add bar to its frame's list of scroll bars. */ | |
3457 bar->next = FRAME_SCROLL_BARS (f); | |
3458 bar->prev = Qnil; | |
3459 XSETVECTOR (FRAME_SCROLL_BARS (f), bar); | |
3460 if (! NILP (bar->next)) | |
3461 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); | |
3462 | |
3463 UNBLOCK_INPUT; | |
3464 | |
3465 return bar; | |
3466 } | |
3467 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3468 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3469 /* 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
|
3470 nil. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3471 |
13434 | 3472 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3473 x_scroll_bar_remove (struct scroll_bar *bar) |
13434 | 3474 { |
3475 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); | |
3476 | |
3477 BLOCK_INPUT; | |
3478 | |
3479 /* Destroy the window. */ | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3480 my_destroy_window (f, SCROLL_BAR_W32_WINDOW (bar)); |
13434 | 3481 |
3482 /* Disassociate this scroll bar from its window. */ | |
3483 XWINDOW (bar->window)->vertical_scroll_bar = Qnil; | |
3484 | |
3485 UNBLOCK_INPUT; | |
3486 } | |
3487 | |
3488 /* Set the handle of the vertical scroll bar for WINDOW to indicate | |
3489 that we are displaying PORTION characters out of a total of WHOLE | |
3490 characters, starting at POSITION. If WINDOW has no scroll bar, | |
3491 create one. */ | |
3492 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3493 w32_set_vertical_scroll_bar (struct window *w, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3494 int portion, int whole, int position) |
13434 | 3495 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3496 struct frame *f = XFRAME (w->frame); |
13434 | 3497 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
|
3498 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
|
3499 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
|
3500 int fringe_extended_p; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3501 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3502 /* Get window dimensions. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3503 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
|
3504 top = window_y; |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
3505 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
|
3506 height = window_height; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3507 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3508 /* 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
|
3509 left = WINDOW_SCROLL_BAR_AREA_X (w); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3510 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3511 /* 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
|
3512 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
|
3513 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
|
3514 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
|
3515 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3516 sb_width = width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3517 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3518 /* 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
|
3519 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
|
3520 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
|
3521 else |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3522 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
|
3523 |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3524 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
|
3525 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
|
3526 && 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
|
3527 && (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
|
3528 || 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
|
3529 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3530 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
|
3531 && 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
|
3532 && (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
|
3533 || WINDOW_RIGHT_MARGIN_COLS (w) == 0)); |
13434 | 3534 |
3535 /* Does the scroll bar exist yet? */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3536 if (NILP (w->vertical_scroll_bar)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3537 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3538 HDC hdc; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3539 BLOCK_INPUT; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
3540 if (width > 0 && height > 0) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3541 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3542 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
|
3543 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
|
3544 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
|
3545 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3546 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
|
3547 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3548 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3549 UNBLOCK_INPUT; |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3550 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3551 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
|
3552 } |
13434 | 3553 else |
3554 { | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3555 /* 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
|
3556 HWND hwnd; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3557 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3558 bar = XSCROLL_BAR (w->vertical_scroll_bar); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3559 hwnd = SCROLL_BAR_W32_WINDOW (bar); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3560 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3561 /* If already correctly positioned, do nothing. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3562 if ( XINT (bar->left) == sb_left |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3563 && XINT (bar->top) == top |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3564 && 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
|
3565 && 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
|
3566 && !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
|
3567 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3568 /* Redraw after clear_frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3569 if (!my_show_window (f, hwnd, SW_NORMAL)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3570 InvalidateRect (hwnd, NULL, FALSE); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3571 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3572 else |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3573 { |
27406
fb36ccd8457c
(w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents:
27402
diff
changeset
|
3574 HDC hdc; |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3575 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3576 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3577 BLOCK_INPUT; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3578 if (width && height) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3579 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3580 hdc = get_frame_dc (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3581 /* 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
|
3582 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
|
3583 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
|
3584 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
|
3585 else |
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3586 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
|
3587 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3588 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3589 /* 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
|
3590 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
|
3591 my_show_window (f, hwnd, SW_HIDE); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3592 MoveWindow (hwnd, sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3593 top, sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3594 max (height, 1), TRUE); |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3595 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3596 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3597 si.fMask = SIF_RANGE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3598 si.nMin = 0; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3599 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
|
3600 + VERTICAL_SCROLL_BAR_MIN_HANDLE; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3601 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3602 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
|
3603 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3604 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
|
3605 /* InvalidateRect (w, NULL, FALSE); */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3606 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3607 /* Remember new settings. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3608 XSETINT (bar->left, sb_left); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3609 XSETINT (bar->top, top); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3610 XSETINT (bar->width, sb_width); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3611 XSETINT (bar->height, height); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3612 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3613 UNBLOCK_INPUT; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3614 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3615 } |
82170
e0ebebf01b6d
(w32_draw_fringe_bitmap): Extend fringe background to
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
82140
diff
changeset
|
3616 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
|
3617 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3618 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
|
3619 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3620 XSETVECTOR (w->vertical_scroll_bar, bar); |
13434 | 3621 } |
3622 | |
3623 | |
3624 /* The following three hooks are used when we're doing a thorough | |
3625 redisplay of the frame. We don't explicitly know which scroll bars | |
3626 are going to be deleted, because keeping track of when windows go | |
3627 away is a real pain - "Can you say set-window-configuration, boys | |
3628 and girls?" Instead, we just assert at the beginning of redisplay | |
3629 that *all* scroll bars are to be removed, and then save a scroll bar | |
3630 from the fiery pit when we actually redisplay its window. */ | |
3631 | |
3632 /* Arrange for all scroll bars on FRAME to be removed at the next call | |
3633 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
|
3634 `*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
|
3635 |
13434 | 3636 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3637 w32_condemn_scroll_bars (FRAME_PTR frame) |
13434 | 3638 { |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3639 /* 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
|
3640 while (! NILP (FRAME_SCROLL_BARS (frame))) |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3641 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3642 Lisp_Object bar; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3643 bar = FRAME_SCROLL_BARS (frame); |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3644 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3645 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
|
3646 XSCROLL_BAR (bar)->prev = Qnil; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3647 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame))) |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3648 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
|
3649 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
3650 } |
13434 | 3651 } |
3652 | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3653 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3654 /* Un-mark WINDOW's scroll bar for deletion in this judgment cycle. |
13434 | 3655 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
|
3656 |
13434 | 3657 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3658 w32_redeem_scroll_bar (struct window *window) |
13434 | 3659 { |
3660 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
|
3661 struct frame *f; |
13434 | 3662 |
3663 /* We can't redeem this window's scroll bar if it doesn't have one. */ | |
3664 if (NILP (window->vertical_scroll_bar)) | |
3665 abort (); | |
3666 | |
3667 bar = XSCROLL_BAR (window->vertical_scroll_bar); | |
3668 | |
3669 /* 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
|
3670 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
|
3671 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
|
3672 { |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3673 /* 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
|
3674 the lists. */ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3675 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
|
3676 /* 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
|
3677 return; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3678 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
|
3679 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
|
3680 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
|
3681 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3682 /* 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
|
3683 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
|
3684 abort (); |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3685 } |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3686 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3687 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
|
3688 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3689 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
|
3690 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
|
3691 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
3692 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
|
3693 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
|
3694 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
|
3695 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
|
3696 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar); |
13434 | 3697 } |
3698 | |
3699 /* Remove all scroll bars on FRAME that haven't been saved since the | |
3700 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
|
3701 |
13434 | 3702 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3703 w32_judge_scroll_bars (FRAME_PTR f) |
13434 | 3704 { |
3705 Lisp_Object bar, next; | |
3706 | |
3707 bar = FRAME_CONDEMNED_SCROLL_BARS (f); | |
3708 | |
3709 /* Clear out the condemned list now so we won't try to process any | |
3710 more events on the hapless scroll bars. */ | |
3711 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil; | |
3712 | |
3713 for (; ! NILP (bar); bar = next) | |
3714 { | |
3715 struct scroll_bar *b = XSCROLL_BAR (bar); | |
3716 | |
3717 x_scroll_bar_remove (b); | |
3718 | |
3719 next = b->next; | |
3720 b->next = b->prev = Qnil; | |
3721 } | |
3722 | |
3723 /* Now there should be no references to the condemned scroll bars, | |
3724 and they should get garbage-collected. */ | |
3725 } | |
3726 | |
3727 /* 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
|
3728 is set to something other than NO_EVENT, it is enqueued. |
13434 | 3729 |
3730 This may be called from a signal handler, so we have to ignore GC | |
3731 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
|
3732 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3733 static int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3734 w32_scroll_bar_handle_click (struct scroll_bar *bar, W32Msg *msg, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3735 struct input_event *emacs_event) |
13434 | 3736 { |
90970
3371fc48749b
Replace uses of GC_* macros with the non-GC_ versions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
90923
diff
changeset
|
3737 if (! WINDOWP (bar->window)) |
13434 | 3738 abort (); |
3739 | |
85983
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
3740 emacs_event->kind = SCROLL_BAR_CLICK_EVENT; |
13434 | 3741 emacs_event->code = 0; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3742 /* not really meaningful to distinguish up/down */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3743 emacs_event->modifiers = msg->dwModifiers; |
13434 | 3744 emacs_event->frame_or_window = bar->window; |
30199
298f10cd4ba5
(construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents:
30179
diff
changeset
|
3745 emacs_event->arg = Qnil; |
13434 | 3746 emacs_event->timestamp = msg->msg.time; |
3747 | |
3748 { | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3749 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
|
3750 int y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3751 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
|
3752 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3753 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3754 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3755 si.fMask = SIF_POS; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3756 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3757 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
|
3758 y = si.nPos; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3759 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3760 bar->dragging = Qnil; |
13434 | 3761 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3762 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3763 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
|
3764 |
13434 | 3765 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
|
3766 { |
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3767 case SB_LINEDOWN: |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3768 emacs_event->part = scroll_bar_down_arrow; |
13434 | 3769 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3770 case SB_LINEUP: |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3771 emacs_event->part = scroll_bar_up_arrow; |
13434 | 3772 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3773 case SB_PAGEUP: |
13434 | 3774 emacs_event->part = scroll_bar_above_handle; |
3775 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3776 case SB_PAGEDOWN: |
13434 | 3777 emacs_event->part = scroll_bar_below_handle; |
3778 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3779 case SB_TOP: |
13434 | 3780 emacs_event->part = scroll_bar_handle; |
3781 y = 0; | |
3782 break; | |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3783 case SB_BOTTOM: |
13434 | 3784 emacs_event->part = scroll_bar_handle; |
3785 y = top_range; | |
3786 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3787 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
|
3788 case SB_THUMBPOSITION: |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3789 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
|
3790 y = HIWORD (msg->msg.wParam); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3791 bar->dragging = Qt; |
13434 | 3792 emacs_event->part = scroll_bar_handle; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3793 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3794 /* "Silently" update current position. */ |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3795 { |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3796 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3797 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3798 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3799 si.fMask = SIF_POS; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3800 si.nPos = y; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3801 /* 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
|
3802 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
|
3803 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
|
3804 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3805 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
|
3806 } |
13434 | 3807 break; |
15216
f639c5d732a3
(x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents:
15204
diff
changeset
|
3808 case SB_ENDSCROLL: |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3809 /* 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
|
3810 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
|
3811 nothing. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3812 if (dragging) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3813 { |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3814 SCROLLINFO si; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3815 int start = XINT (bar->start); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3816 int end = XINT (bar->end); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3817 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3818 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3819 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
|
3820 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
|
3821 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
|
3822 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
|
3823 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3824 /* 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
|
3825 default: |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45507
diff
changeset
|
3826 emacs_event->kind = NO_EVENT; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3827 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
|
3828 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3829 |
13434 | 3830 XSETINT (emacs_event->x, y); |
3831 XSETINT (emacs_event->y, top_range); | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3832 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3833 return TRUE; |
13434 | 3834 } |
3835 } | |
3836 | |
3837 /* Return information to the user about the current position of the mouse | |
3838 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
|
3839 |
13434 | 3840 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3841 x_scroll_bar_report_motion (FRAME_PTR *fp, Lisp_Object *bar_window, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3842 enum scroll_bar_part *part, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3843 Lisp_Object *x, Lisp_Object *y, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3844 unsigned long *time) |
13434 | 3845 { |
3846 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
|
3847 Window w = SCROLL_BAR_W32_WINDOW (bar); |
13434 | 3848 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window))); |
3849 int pos; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3850 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
|
3851 SCROLLINFO si; |
13434 | 3852 |
3853 BLOCK_INPUT; | |
3854 | |
3855 *fp = f; | |
3856 *bar_window = bar->window; | |
3857 | |
71236
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3858 si.cbSize = sizeof (si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3859 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
|
3860 |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3861 GetScrollInfo (w, SB_CTL, &si); |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3862 pos = si.nPos; |
4a38eb2f741d
(w32_set_scroll_bar_thumb, x_scroll_bar_create)
Jason Rumney <jasonr@gnu.org>
parents:
71074
diff
changeset
|
3863 top_range = si.nMax - si.nPage + 1; |
13434 | 3864 |
3865 switch (LOWORD (last_mouse_scroll_bar_pos)) | |
3866 { | |
3867 case SB_THUMBPOSITION: | |
3868 case SB_THUMBTRACK: | |
3869 *part = scroll_bar_handle; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3870 if (VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) <= 0xffff) |
13434 | 3871 pos = HIWORD (last_mouse_scroll_bar_pos); |
3872 break; | |
3873 case SB_LINEDOWN: | |
3874 *part = scroll_bar_handle; | |
3875 pos++; | |
3876 break; | |
3877 default: | |
3878 *part = scroll_bar_handle; | |
3879 break; | |
3880 } | |
3881 | |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3882 XSETINT (*x, pos); |
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
3883 XSETINT (*y, top_range); |
13434 | 3884 |
3885 f->mouse_moved = 0; | |
3886 last_mouse_scroll_bar = Qnil; | |
3887 | |
3888 *time = last_mouse_movement_time; | |
3889 | |
3890 UNBLOCK_INPUT; | |
3891 } | |
3892 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3893 |
13434 | 3894 /* The screen has been cleared so we may have changed foreground or |
3895 background colors, and the scroll bars may need to be redrawn. | |
3896 Clear out the scroll bars, and ask for expose events, so we can | |
3897 redraw them. */ | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3898 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
3899 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3900 x_scroll_bar_clear (FRAME_PTR f) |
13434 | 3901 { |
3902 Lisp_Object bar; | |
3903 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3904 /* 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
|
3905 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
|
3906 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
|
3907 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
|
3908 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
|
3909 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
|
3910 { |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3911 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
|
3912 HDC hdc = GetDC (window); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3913 RECT rect; |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3914 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3915 /* 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
|
3916 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
|
3917 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
|
3918 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3919 GetClientRect (window, &rect); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3920 select_palette (f, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3921 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
|
3922 deselect_palette (f, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3923 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3924 ReleaseDC (window, hdc); |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3925 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3926 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3927 |
13434 | 3928 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3929 /* The main W32 event-reading loop - w32_read_socket. */ |
13434 | 3930 |
3931 /* Record the last 100 characters stored | |
3932 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
|
3933 |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3934 static int temp_index; |
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
3935 static short temp_buffer[100]; |
13434 | 3936 |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
3937 /* 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
|
3938 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
|
3939 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3940 /* Read events coming from the W32 shell. |
13434 | 3941 This routine is called by the SIGIO handler. |
3942 We return as soon as there are no more events to be read. | |
3943 | |
3944 We return the number of characters stored into the buffer, | |
3945 thus pretending to be `read'. | |
3946 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3947 EXPECTED is nonzero if the caller knows input is available. |
13434 | 3948 |
3949 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
|
3950 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
|
3951 the data nor can we guarantee the state we are in. So if we dispatch them |
13434 | 3952 we will get into an infinite loop. To prevent this from ever happening we |
3953 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
|
3954 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
|
3955 recursively with different messages by the system. |
13434 | 3956 */ |
3957 | |
3958 int | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3959 w32_read_socket (struct terminal *terminal, int expected, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
3960 struct input_event *hold_quit) |
13434 | 3961 { |
3962 int count = 0; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
3963 int check_visibility = 0; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3964 W32Msg msg; |
13434 | 3965 struct frame *f; |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
3966 struct w32_display_info *dpyinfo = &one_w32_display_info; |
13434 | 3967 |
3968 if (interrupt_input_blocked) | |
3969 { | |
3970 interrupt_input_pending = 1; | |
3971 return -1; | |
3972 } | |
3973 | |
3974 interrupt_input_pending = 0; | |
3975 BLOCK_INPUT; | |
3976 | |
3977 /* So people can tell when we have read the available input. */ | |
3978 input_signal_count++; | |
3979 | |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
3980 /* TODO: ghostscript integration. */ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
3981 while (get_next_msg (&msg, FALSE)) |
13434 | 3982 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3983 struct input_event inev; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3984 int do_help = 0; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3985 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3986 EVENT_INIT (inev); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3987 inev.kind = NO_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3988 inev.arg = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
3989 |
13434 | 3990 switch (msg.msg.message) |
3991 { | |
102584
5cd33b0be96f
* w32term.h (WM_EMACS_PAINT): New message.
Jason Rumney <jasonr@gnu.org>
parents:
101977
diff
changeset
|
3992 case WM_EMACS_PAINT: |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3993 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3994 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
3995 if (f) |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3996 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3997 if (msg.rect.right == msg.rect.left || |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3998 msg.rect.bottom == msg.rect.top) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
3999 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4000 /* We may get paint messages even though the client |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4001 area is clipped - these are not expose events. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4002 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
|
4003 SDATA (f->name))); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4004 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4005 else if (f->async_visible != 1) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4006 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4007 /* Definitely not obscured, so mark as visible. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4008 f->async_visible = 1; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4009 f->async_iconified = 0; |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4010 SET_FRAME_GARBAGED (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4011 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
|
4012 SDATA (f->name))); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4013 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4014 /* WM_PAINT serves as MapNotify as well, so report |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4015 visibility changes properly. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4016 if (f->iconified) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4017 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4018 inev.kind = DEICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4019 XSETFRAME (inev.frame_or_window, f); |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4020 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4021 else if (! NILP (Vframe_list) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4022 && ! NILP (XCDR (Vframe_list))) |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4023 /* Force a redisplay sooner or later to update the |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4024 frame titles in case this is the second frame. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4025 record_asynch_buffer_change (); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4026 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4027 else |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4028 { |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4029 HDC hdc = get_frame_dc (f); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4030 |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4031 /* Erase background again for safety. */ |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4032 w32_clear_rect (f, hdc, &msg.rect); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4033 release_frame_dc (f, hdc); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4034 expose_frame (f, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4035 msg.rect.left, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4036 msg.rect.top, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4037 msg.rect.right - msg.rect.left, |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4038 msg.rect.bottom - msg.rect.top); |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4039 } |
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
4040 } |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4041 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4042 |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4043 case WM_INPUTLANGCHANGE: |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4044 /* Generate a language change event. */ |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4045 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
|
4046 |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4047 /* lParam contains the input lang ID. Use it to update our |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4048 record of the keyboard codepage. */ |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4049 keyboard_codepage = codepage_for_locale ((LCID)(msg.msg.lParam |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4050 & 0xffff)); |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4051 |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4052 if (f) |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4053 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4054 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
|
4055 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
|
4056 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
|
4057 inev.modifiers = msg.msg.lParam & 0xffff; |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4058 } |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4059 break; |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4060 |
13434 | 4061 case WM_KEYDOWN: |
4062 case WM_SYSKEYDOWN: | |
4063 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
|
4064 |
13434 | 4065 if (f && !f->iconified) |
4066 { | |
69662
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4067 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
|
4068 && !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
|
4069 { |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4070 clear_mouse_face (dpyinfo); |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4071 dpyinfo->mouse_face_hidden = 1; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4072 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4073 |
13434 | 4074 if (temp_index == sizeof temp_buffer / sizeof (short)) |
4075 temp_index = 0; | |
4076 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
|
4077 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
|
4078 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
|
4079 inev.modifiers = msg.dwModifiers; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4080 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
|
4081 inev.timestamp = msg.msg.time; |
13434 | 4082 } |
4083 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4084 |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4085 case WM_UNICHAR: |
13434 | 4086 case WM_SYSCHAR: |
4087 case WM_CHAR: | |
4088 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
|
4089 |
13434 | 4090 if (f && !f->iconified) |
4091 { | |
69662
646410df27a7
(w32_read_socket): Don't let key-press clear mouse face
Kim F. Storm <storm@cua.dk>
parents:
69441
diff
changeset
|
4092 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
|
4093 && !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
|
4094 { |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4095 clear_mouse_face (dpyinfo); |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4096 dpyinfo->mouse_face_hidden = 1; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4097 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4098 |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4099 if (temp_index == sizeof temp_buffer / sizeof (short)) |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4100 temp_index = 0; |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4101 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
|
4102 |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4103 inev.modifiers = msg.dwModifiers; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4104 XSETFRAME (inev.frame_or_window, f); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4105 inev.timestamp = msg.msg.time; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4106 |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4107 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
|
4108 { |
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4109 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
|
4110 } |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4111 else if (msg.msg.wParam < 256) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4112 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4113 wchar_t code; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4114 char dbcs[2]; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4115 dbcs[0] = 0; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4116 dbcs[1] = (char) msg.msg.wParam; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4117 |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4118 if (dbcs_lead) |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4119 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4120 dbcs[0] = dbcs_lead; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4121 dbcs_lead = 0; |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4122 if (!MultiByteToWideChar (keyboard_codepage, 0, |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4123 dbcs, 2, &code, 1)) |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4124 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4125 /* Garbage */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4126 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
|
4127 dbcs[0], dbcs[1])); |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4128 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4129 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4130 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4131 } |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4132 else if (IsDBCSLeadByteEx (keyboard_codepage, |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4133 (BYTE) msg.msg.wParam)) |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4134 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4135 dbcs_lead = (char) msg.msg.wParam; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4136 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4137 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4138 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4139 else |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4140 { |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4141 if (!MultiByteToWideChar (keyboard_codepage, 0, |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
4142 &dbcs[1], 1, &code, 1)) |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4143 { |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4144 /* What to do with garbage? */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4145 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
|
4146 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4147 break; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4148 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4149 } |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4150 inev.code = code; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4151 } |
91098
bbf4813494da
(w32_read_socket) [WM_UNICHAR]: Handle as MULTIBYTE_CHAR_KEYSTROKE_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
91085
diff
changeset
|
4152 else |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4153 { |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4154 /* 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
|
4155 in non-Unicode message handlers. */ |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4156 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
|
4157 inev.kind = NO_EVENT; |
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4158 break; |
79565
bfdbb60ac756
(w32_read_socket): Use MULTIBYTE_CHAR_KEYSTROKE_EVENT for characters above 127.
Jason Rumney <jasonr@gnu.org>
parents:
79301
diff
changeset
|
4159 } |
91369
4c4c06eecf22
(w32_read_socket) <WM_CHAR>: Decode non-Unicode
Jason Rumney <jasonr@gnu.org>
parents:
91327
diff
changeset
|
4160 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
|
4161 : MULTIBYTE_CHAR_KEYSTROKE_EVENT; |
13434 | 4162 } |
4163 break; | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4164 |
85983
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4165 case WM_APPCOMMAND: |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4166 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
|
4167 |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4168 if (f && !f->iconified) |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4169 { |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4170 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
|
4171 && !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
|
4172 { |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4173 clear_mouse_face (dpyinfo); |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4174 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
|
4175 } |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4176 |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4177 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
|
4178 temp_index = 0; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4179 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
|
4180 inev.kind = MULTIMEDIA_KEY_EVENT; |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
4181 inev.code = GET_APPCOMMAND_LPARAM (msg.msg.lParam); |
85983
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4182 inev.modifiers = msg.dwModifiers; |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4183 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
|
4184 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
|
4185 } |
fbeab07144ff
(w32_scroll_bar_handle_click): Use SCROLL_BAR_CLICK_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
85850
diff
changeset
|
4186 break; |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
4187 |
13434 | 4188 case WM_MOUSEMOVE: |
48819
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4189 /* Ignore non-movement. */ |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4190 { |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4191 int x = LOWORD (msg.msg.lParam); |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4192 int y = HIWORD (msg.msg.lParam); |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4193 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
|
4194 break; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4195 last_mousemove_x = x; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4196 last_mousemove_y = y; |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4197 } |
c7fb53597300
(last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
48360
diff
changeset
|
4198 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4199 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
|
4200 help_echo_string = Qnil; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4201 |
13434 | 4202 if (dpyinfo->grabbed && last_mouse_frame |
4203 && FRAME_LIVE_P (last_mouse_frame)) | |
4204 f = last_mouse_frame; | |
4205 else | |
4206 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
|
4207 |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4208 if (dpyinfo->mouse_face_hidden) |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4209 { |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4210 dpyinfo->mouse_face_hidden = 0; |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4211 clear_mouse_face (dpyinfo); |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4212 } |
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
4213 |
13434 | 4214 if (f) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4215 { |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4216 /* Generate SELECT_WINDOW_EVENTs when needed. */ |
72736
f6b18b9949d1
* xdisp.c (mouse_autoselect_window): Removed.
Chong Yidong <cyd@stupidchicken.com>
parents:
72505
diff
changeset
|
4217 if (!NILP (Vmouse_autoselect_window)) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4218 { |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4219 Lisp_Object window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4220 int x = LOWORD (msg.msg.lParam); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4221 int y = HIWORD (msg.msg.lParam); |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4222 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4223 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
|
4224 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4225 /* 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
|
4226 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
|
4227 not in it. Minibuffer window will be selected |
78501 | 4228 only when it is active. */ |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
4229 if (WINDOWP (window) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4230 && !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
|
4231 && !EQ (window, selected_window) |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4232 /* 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
|
4233 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
|
4234 selected frame. */ |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4235 && (focus_follows_mouse |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4236 || (EQ (XWINDOW (window)->frame, |
737206364a6e
(w32_read_socket): When focus_follows_mouse is nil make
Martin Rudalics <rudalics@gmx.at>
parents:
78858
diff
changeset
|
4237 XWINDOW (selected_window)->frame)))) |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4238 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4239 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
|
4240 inev.frame_or_window = window; |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4241 } |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4242 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4243 last_window=window; |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4244 } |
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
|
4245 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
|
4246 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
|
4247 } |
13434 | 4248 else |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4249 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4250 /* 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
|
4251 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
|
4252 clear_mouse_face (dpyinfo); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4253 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4254 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4255 /* 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
|
4256 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
|
4257 #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
|
4258 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
|
4259 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
|
4260 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
|
4261 (!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
|
4262 #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
|
4263 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
|
4264 || !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
|
4265 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
|
4266 #endif |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4267 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4268 |
13434 | 4269 case WM_LBUTTONDOWN: |
4270 case WM_LBUTTONUP: | |
4271 case WM_MBUTTONDOWN: | |
4272 case WM_MBUTTONUP: | |
4273 case WM_RBUTTONDOWN: | |
4274 case WM_RBUTTONUP: | |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4275 case WM_XBUTTONDOWN: |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4276 case WM_XBUTTONUP: |
13434 | 4277 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4278 /* 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
|
4279 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
|
4280 int tool_bar_p = 0; |
13434 | 4281 int button; |
4282 int up; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4283 |
13434 | 4284 if (dpyinfo->grabbed && last_mouse_frame |
4285 && FRAME_LIVE_P (last_mouse_frame)) | |
4286 f = last_mouse_frame; | |
4287 else | |
4288 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
|
4289 |
13434 | 4290 if (f) |
4291 { | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4292 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
|
4293 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4294 /* Is this in the tool-bar? */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4295 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
|
4296 && 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
|
4297 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4298 Lisp_Object window; |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4299 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
|
4300 int y = XFASTINT (inev.y); |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4301 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4302 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
|
4303 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4304 if (EQ (window, f->tool_bar_window)) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4305 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4306 w32_handle_tool_bar_click (f, &inev); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4307 tool_bar_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4308 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4309 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4310 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4311 if (tool_bar_p |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4312 || (dpyinfo->w32_focus_frame |
54225
61ba665b1e90
(w32_read_socket): Fix last change to ButtonPress handling.
Jason Rumney <jasonr@gnu.org>
parents:
54171
diff
changeset
|
4313 && 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
|
4314 inev.kind = NO_EVENT; |
13434 | 4315 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4316 |
42720
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4317 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
|
4318 &button, &up); |
1217a83a82e4
(parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
42675
diff
changeset
|
4319 |
13434 | 4320 if (up) |
4321 { | |
4322 dpyinfo->grabbed &= ~ (1 << button); | |
4323 } | |
4324 else | |
4325 { | |
4326 dpyinfo->grabbed |= (1 << button); | |
4327 last_mouse_frame = f; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4328 /* Ignore any mouse motion that happened |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4329 before this event; any subsequent mouse-movement |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4330 Emacs events should reflect only motion after |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4331 the ButtonPress. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4332 if (f != 0) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4333 f->mouse_moved = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4334 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4335 if (!tool_bar_p) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4336 last_tool_bar_item = -1; |
13434 | 4337 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4338 break; |
13434 | 4339 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4340 |
51258
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4341 case WM_MOUSEWHEEL: |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
4342 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
|
4343 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4344 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
|
4345 && 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
|
4346 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
|
4347 else |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4348 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
|
4349 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4350 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
|
4351 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4352 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4353 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
|
4354 || 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
|
4355 { |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4356 /* 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
|
4357 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
|
4358 } |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4359 /* Ignore any mouse motion that happened before this |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4360 event; any subsequent mouse-movement Emacs events |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4361 should reflect only motion after the |
74145 | 4362 ButtonPress. */ |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4363 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
|
4364 } |
51382
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4365 last_mouse_frame = f; |
e099ac71bd76
(construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents:
51270
diff
changeset
|
4366 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
|
4367 } |
13434 | 4368 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4369 |
21885 | 4370 case WM_DROPFILES: |
4371 f = x_window_to_frame (dpyinfo, msg.msg.hwnd); | |
4372 | |
4373 if (f) | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4374 construct_drag_n_drop (&inev, &msg, f); |
21885 | 4375 break; |
4376 | |
13434 | 4377 case WM_VSCROLL: |
4378 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4379 struct scroll_bar *bar = |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4380 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
|
4381 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4382 if (bar) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4383 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
|
4384 break; |
13434 | 4385 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4386 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4387 case WM_WINDOWPOSCHANGED: |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4388 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
|
4389 if (f) |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4390 { |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4391 if (f->want_fullscreen & FULLSCREEN_WAIT) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4392 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
|
4393 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4394 check_visibility = 1; |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4395 break; |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4396 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4397 case WM_ACTIVATE: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4398 case WM_ACTIVATEAPP: |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4399 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
|
4400 if (f) |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
4401 x_check_fullscreen (f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4402 check_visibility = 1; |
13434 | 4403 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4404 |
13434 | 4405 case WM_MOVE: |
4406 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
|
4407 |
13434 | 4408 if (f && !f->async_iconified) |
4409 { | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4410 int x, y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4411 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4412 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
|
4413 f->left_pos = x; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4414 f->top_pos = y; |
13434 | 4415 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4416 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4417 check_visibility = 1; |
13434 | 4418 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4419 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4420 case WM_SHOWWINDOW: |
41447
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4421 /* 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
|
4422 about to be hidden. */ |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4423 /* 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
|
4424 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
|
4425 { |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4426 tip_window = NULL; |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4427 redo_mouse_highlight (); |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4428 } |
783d21cc62b9
(x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
41249
diff
changeset
|
4429 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4430 /* 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
|
4431 being maximised or minimised/restored, then recheck |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4432 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
|
4433 windows get handled by WM_SIZE. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4434 #if 0 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4435 if (msg.msg.lParam != 0) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4436 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4437 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4438 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4439 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
|
4440 f->async_visible = msg.msg.wParam; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4441 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4442 #endif |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4443 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4444 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4445 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4446 |
13434 | 4447 case WM_SIZE: |
4448 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
|
4449 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4450 /* 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
|
4451 if (f) |
13434 | 4452 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4453 switch (msg.msg.wParam) |
13434 | 4454 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4455 case SIZE_MINIMIZED: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4456 f->async_visible = 0; |
13434 | 4457 f->async_iconified = 1; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4458 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4459 inev.kind = ICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4460 XSETFRAME (inev.frame_or_window, f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4461 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4462 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4463 case SIZE_MAXIMIZED: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4464 case SIZE_RESTORED: |
13434 | 4465 f->async_visible = 1; |
4466 f->async_iconified = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4467 |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
55646
diff
changeset
|
4468 /* wait_reading_process_output will notice this and update |
13434 | 4469 the frame's display structures. */ |
4470 SET_FRAME_GARBAGED (f); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4471 |
13434 | 4472 if (f->iconified) |
4473 { | |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4474 int x, y; |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4475 |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4476 /* 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
|
4477 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
|
4478 BEFORE telling us the Window is minimized |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4479 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
|
4480 as the co-ords. */ |
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4481 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
|
4482 f->left_pos = x; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4483 f->top_pos = y; |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4484 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4485 inev.kind = DEICONIFY_EVENT; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4486 XSETFRAME (inev.frame_or_window, f); |
13434 | 4487 } |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4488 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
|
4489 && ! NILP (XCDR (Vframe_list))) |
13434 | 4490 /* Force a redisplay sooner or later |
4491 to update the frame titles | |
4492 in case this is the second frame. */ | |
4493 record_asynch_buffer_change (); | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4494 break; |
13434 | 4495 } |
4496 } | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4497 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4498 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
|
4499 { |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4500 RECT rect; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4501 int rows; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4502 int columns; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4503 int width; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4504 int height; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4505 |
32022
1f26caa05cd7
(w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents:
31624
diff
changeset
|
4506 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
|
4507 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4508 height = rect.bottom - rect.top; |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4509 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
|
4510 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4511 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
|
4512 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
|
4513 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4514 /* 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
|
4515 |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4516 /* 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
|
4517 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
|
4518 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
|
4519 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4520 if (columns != FRAME_COLS (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4521 || rows != FRAME_LINES (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4522 || width != FRAME_PIXEL_WIDTH (f) |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4523 || height != FRAME_PIXEL_HEIGHT (f)) |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4524 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4525 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
|
4526 SET_FRAME_GARBAGED (f); |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
4527 cancel_mouse_face (f); |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4528 FRAME_PIXEL_WIDTH (f) = width; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4529 FRAME_PIXEL_HEIGHT (f) = height; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
4530 f->win_gravity = NorthWestGravity; |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4531 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4532 } |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
4533 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4534 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4535 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4536 |
41731
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4537 case WM_MOUSELEAVE: |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4538 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
|
4539 if (f) |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4540 { |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4541 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
|
4542 { |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4543 /* 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
|
4544 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
|
4545 clear_mouse_face (dpyinfo); |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4546 dpyinfo->mouse_face_mouse_frame = 0; |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4547 } |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4548 |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4549 /* 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
|
4550 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
|
4551 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
|
4552 the mouse leaves the frame. */ |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4553 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
|
4554 do_help = -1; |
41731
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4555 } |
33ba14e9c09a
(w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents:
41727
diff
changeset
|
4556 break; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4557 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4558 case WM_SETFOCUS: |
60948
03a8b8b9ebef
(x_focus_changed, w32_detect_focus_change): New functions.
Jason Rumney <jasonr@gnu.org>
parents:
59748
diff
changeset
|
4559 w32_detect_focus_change (dpyinfo, &msg, &inev); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4560 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4561 dpyinfo->grabbed = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4562 check_visibility = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4563 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4564 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4565 case WM_KILLFOCUS: |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4566 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
|
4567 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4568 if (f) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4569 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4570 if (f == dpyinfo->w32_focus_event_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4571 dpyinfo->w32_focus_event_frame = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4572 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4573 if (f == dpyinfo->w32_focus_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4574 x_new_focus_frame (dpyinfo, 0); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4575 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4576 if (f == dpyinfo->mouse_face_mouse_frame) |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4577 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4578 /* 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
|
4579 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
|
4580 clear_mouse_face (dpyinfo); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4581 dpyinfo->mouse_face_mouse_frame = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4582 } |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4583 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4584 /* 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
|
4585 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
|
4586 Otherwise, the startup message is cleared when |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4587 the mouse leaves the frame. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4588 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
|
4589 do_help = -1; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4590 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4591 |
24752
80c46fd667da
(w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents:
24733
diff
changeset
|
4592 dpyinfo->grabbed = 0; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4593 check_visibility = 1; |
13434 | 4594 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4595 |
13434 | 4596 case WM_CLOSE: |
4597 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
|
4598 |
13434 | 4599 if (f) |
4600 { | |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4601 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
|
4602 XSETFRAME (inev.frame_or_window, f); |
13434 | 4603 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4604 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4605 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4606 case WM_INITMENU: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4607 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
|
4608 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4609 if (f) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4610 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4611 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
|
4612 XSETFRAME (inev.frame_or_window, f); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4613 } |
13434 | 4614 break; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4615 |
13434 | 4616 case WM_COMMAND: |
4617 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
|
4618 |
13434 | 4619 if (f) |
4620 { | |
23677
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4621 extern void menubar_selection_callback |
70999481c915
(convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23639
diff
changeset
|
4622 (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
|
4623 menubar_selection_callback (f, (void *)msg.msg.wParam); |
13434 | 4624 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4625 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4626 check_visibility = 1; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4627 break; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4628 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4629 case WM_DISPLAYCHANGE: |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4630 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
|
4631 |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4632 if (f) |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4633 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4634 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
|
4635 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
|
4636 (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
|
4637 (short) HIWORD (msg.msg.lParam))); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4638 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
4639 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4640 check_visibility = 1; |
13434 | 4641 break; |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4642 |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4643 default: |
51270
827c306f0515
Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents:
51269
diff
changeset
|
4644 /* Check for messages registered at runtime. */ |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4645 if (msg.msg.message == msh_mousewheel) |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4646 { |
51270
827c306f0515
Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents:
51269
diff
changeset
|
4647 /* Forward MSH_MOUSEWHEEL as WM_MOUSEWHEEL. */ |
52349
c631ebcc0df9
(w32_read_socket): Fix WM_MOUSEWHEEL assignment.
Jason Rumney <jasonr@gnu.org>
parents:
51382
diff
changeset
|
4648 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
|
4649 prepend_msg (&msg); |
21875
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4650 } |
16414f4d07e7
(msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21831
diff
changeset
|
4651 break; |
13434 | 4652 } |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4653 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4654 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
|
4655 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4656 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
|
4657 count++; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4658 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4659 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4660 if (do_help |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4661 && !(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
|
4662 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4663 Lisp_Object frame; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4664 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4665 if (f) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4666 XSETFRAME (frame, f); |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4667 else |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4668 frame = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4669 |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4670 if (do_help > 0) |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4671 { |
55646
358a5c0b4571
(w32_num_mouse_buttons): Rename from Vw32_num_mouse_buttons and make
Jason Rumney <jasonr@gnu.org>
parents:
55286
diff
changeset
|
4672 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
|
4673 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4674 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
|
4675 help_echo_pos = -1; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4676 } |
54731
4031909001d5
(w32_read_socket): Set mouse_face_hidden after clearing highlight.
Kim F. Storm <storm@cua.dk>
parents:
54225
diff
changeset
|
4677 |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4678 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
|
4679 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
|
4680 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
|
4681 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4682 else |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4683 { |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4684 help_echo_string = Qnil; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4685 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
|
4686 } |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4687 count++; |
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4688 } |
13434 | 4689 } |
4690 | |
4691 /* If the focus was just given to an autoraising frame, | |
4692 raise it now. */ | |
4693 /* ??? This ought to be able to handle more than one such frame. */ | |
4694 if (pending_autoraise_frame) | |
4695 { | |
4696 x_raise_frame (pending_autoraise_frame); | |
4697 pending_autoraise_frame = 0; | |
4698 } | |
4699 | |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4700 /* 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
|
4701 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
|
4702 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
|
4703 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
|
4704 changed (at least, not in all cases). */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4705 if (count > 0 || check_visibility) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4706 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4707 Lisp_Object tail, frame; |
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 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
|
4710 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4711 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
|
4712 /* 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
|
4713 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
|
4714 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
|
4715 continue; |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4716 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4717 /* 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
|
4718 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
|
4719 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
|
4720 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
|
4721 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4722 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
|
4723 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
|
4724 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4725 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
|
4726 /* 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
|
4727 (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
|
4728 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
|
4729 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
|
4730 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
|
4731 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
|
4732 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
|
4733 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
|
4734 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
|
4735 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
|
4736 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4737 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
|
4738 || 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
|
4739 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4740 /* 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
|
4741 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
|
4742 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
|
4743 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
|
4744 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
|
4745 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4746 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
|
4747 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4748 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
|
4749 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
|
4750 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4751 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4752 else |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4753 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4754 /* 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
|
4755 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
|
4756 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4757 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
|
4758 { |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4759 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
|
4760 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
|
4761 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
|
4762 |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4763 /* 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
|
4764 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
|
4765 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4766 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4767 } |
a35e5665c742
(construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents:
51204
diff
changeset
|
4768 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4769 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
4770 |
13434 | 4771 UNBLOCK_INPUT; |
4772 return count; | |
4773 } | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4774 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
4775 |
13434 | 4776 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4777 /*********************************************************************** |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4778 Text Cursor |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4779 ***********************************************************************/ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4780 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4781 /* 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
|
4782 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
|
4783 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4784 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
|
4785 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
|
4786 mode lines must be clipped to the whole window. */ |
13434 | 4787 |
4788 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4789 w32_clip_to_row (struct window *w, struct glyph_row *row, int area, HDC hdc) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4790 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4791 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4792 RECT clip_rect; |
58402
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4793 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
|
4794 |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4795 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
|
4796 |
d1d4d5846215
(w32_clip_to_row): Add area arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents:
57837
diff
changeset
|
4797 clip_rect.left = window_x; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4798 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
|
4799 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
|
4800 clip_rect.right = clip_rect.left + window_width; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4801 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
|
4802 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4803 w32_set_clip_rectangle (hdc, &clip_rect); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4804 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4805 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4806 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4807 /* 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
|
4808 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4809 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4810 x_draw_hollow_cursor (struct window *w, struct glyph_row *row) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4811 { |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4812 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
|
4813 HDC hdc; |
13434 | 4814 RECT rect; |
71074
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4815 int left, top, h; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4816 struct glyph *cursor_glyph; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4817 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
|
4818 |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4819 /* 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
|
4820 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
|
4821 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
|
4822 if (cursor_glyph == NULL) |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4823 return; |
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4824 |
59748
1df465faf1df
(x_draw_hollow_cursor): Use get_phys_cursor_geometry.
Kim F. Storm <storm@cua.dk>
parents:
59655
diff
changeset
|
4825 /* 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
|
4826 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
|
4827 rect.left = left; |
67dc3a0454b2
(x_draw_hollow_cursor): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
71073
diff
changeset
|
4828 rect.top = top; |
55286
b4bf3dd67827
(x_draw_hollow_cursor): Sync with xterm.c
Jason Rumney <jasonr@gnu.org>
parents:
55026
diff
changeset
|
4829 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
|
4830 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
|
4831 |
34779
94c3431a7fe2
(x_draw_hollow_cursor): Delay obtaining the frame's DC to avoid
Jason Rumney <jasonr@gnu.org>
parents:
34545
diff
changeset
|
4832 hdc = get_frame_dc (f); |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4833 /* 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
|
4834 w32_clip_to_row (w, row, TEXT_AREA, hdc); |
13434 | 4835 FrameRect (hdc, &rect, hb); |
4836 DeleteObject (hb); | |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4837 w32_set_clip_rectangle (hdc, NULL); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
4838 release_frame_dc (f, hdc); |
13434 | 4839 } |
4840 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4841 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4842 /* 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
|
4843 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4844 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
|
4845 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
|
4846 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
|
4847 --gerd. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4848 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4849 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4850 x_draw_bar_cursor (struct window *w, struct glyph_row *row, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4851 int width, enum text_cursor_kinds kind) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4852 { |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4853 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
|
4854 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
|
4855 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4856 /* 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
|
4857 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
|
4858 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
|
4859 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
|
4860 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
|
4861 return; |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4862 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4863 /* 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
|
4864 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
|
4865 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
|
4866 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
|
4867 { |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4868 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
|
4869 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
|
4870 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
|
4871 } |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4872 else |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4873 { |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4874 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
|
4875 struct face *face = FACE_FROM_ID (f, cursor_glyph->face_id); |
103023
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4876 int x; |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4877 HDC hdc; |
41249
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4878 |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4879 /* 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
|
4880 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
|
4881 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
|
4882 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
|
4883 that the glyph is legible. */ |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4884 if (face->background == cursor_color) |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4885 cursor_color = face->foreground; |
2043af2d023f
(note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents:
41125
diff
changeset
|
4886 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4887 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
|
4888 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
4889 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
|
4890 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
|
4891 |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4892 if (kind == BAR_CURSOR) |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4893 { |
103023
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4894 if (width < 0) |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4895 width = FRAME_CURSOR_WIDTH (f); |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4896 width = min (cursor_glyph->pixel_width, width); |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4897 |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4898 w->phys_cursor_width = width; |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4899 |
109843
1ada063020ba
Fix display of bar cursor on right-to-left text.
Eli Zaretskii <eliz@gnu.org>
parents:
109780
diff
changeset
|
4900 /* If the character under cursor is R2L, draw the bar cursor |
1ada063020ba
Fix display of bar cursor on right-to-left text.
Eli Zaretskii <eliz@gnu.org>
parents:
109780
diff
changeset
|
4901 on the right of its glyph, rather than on the left. */ |
1ada063020ba
Fix display of bar cursor on right-to-left text.
Eli Zaretskii <eliz@gnu.org>
parents:
109780
diff
changeset
|
4902 if ((cursor_glyph->resolved_level & 1) != 0) |
1ada063020ba
Fix display of bar cursor on right-to-left text.
Eli Zaretskii <eliz@gnu.org>
parents:
109780
diff
changeset
|
4903 x += cursor_glyph->pixel_width - width; |
1ada063020ba
Fix display of bar cursor on right-to-left text.
Eli Zaretskii <eliz@gnu.org>
parents:
109780
diff
changeset
|
4904 |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4905 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
|
4906 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
|
4907 width, row->height); |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4908 } |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4909 else |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4910 { |
103023
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4911 int dummy_x, dummy_y, dummy_h; |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4912 |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4913 if (width < 0) |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4914 width = row->height; |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4915 |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4916 width = min (row->height, width); |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4917 |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4918 get_phys_cursor_geometry (w, row, cursor_glyph, &dummy_x, |
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4919 &dummy_y, &dummy_h); |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4920 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
|
4921 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
|
4922 row->height - width), |
103023
30ed0fca4cdd
The following changes fix Bug#3005 for wide glyphs on each platform,
Jason Rumney <jasonr@gnu.org>
parents:
102688
diff
changeset
|
4923 w->phys_cursor_width, width); |
45467
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
4924 } |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4925 |
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
4926 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
|
4927 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4928 } |
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 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4931 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4932 /* RIF: Define cursor CURSOR on frame F. */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4933 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4934 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4935 w32_define_frame_cursor (struct frame *f, Cursor cursor) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4936 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4937 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
|
4938 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4939 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4940 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4941 /* RIF: Clear area on frame F. */ |
13434 | 4942 |
4943 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4944 w32_clear_frame_area (struct frame *f, int x, int y, int width, int height) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4945 { |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4946 HDC hdc; |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4947 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4948 hdc = get_frame_dc (f); |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4949 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
|
4950 release_frame_dc (f, hdc); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4951 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4952 |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4953 /* 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
|
4954 |
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
4955 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4956 w32_draw_window_cursor (struct window *w, struct glyph_row *glyph_row, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4957 int x, int y, int cursor_type, int cursor_width, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
4958 int on_p, int active_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4959 { |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
4960 if (on_p) |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4961 { |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4962 /* 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
|
4963 cursor remains invisible. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4964 if (w32_use_visible_system_caret) |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4965 { |
54171
f6909a416c3f
(w32_read_socket): Remove bufp_r and numcharsp args.
Kim F. Storm <storm@cua.dk>
parents:
54126
diff
changeset
|
4966 /* 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
|
4967 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
|
4968 overwritten before this function was called. */ |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4969 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
|
4970 erase_phys_cursor (w); |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4971 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
4972 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
|
4973 w->phys_cursor_width = -1; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4974 } |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4975 else |
43621
7755c5d1d8b4
(x_display_and_set_cursor): Blink box cursor using
Kim F. Storm <storm@cua.dk>
parents:
43478
diff
changeset
|
4976 { |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
4977 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
|
4978 } |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4979 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4980 w->phys_cursor_on_p = 1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
4981 |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
4982 /* 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
|
4983 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
|
4984 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
|
4985 if (active_p) |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
4986 { |
50280
1a5341fe785b
(w32_draw_window_cursor): Fix last change.
Kim F. Storm <storm@cua.dk>
parents:
50247
diff
changeset
|
4987 struct frame *f = XFRAME (WINDOW_FRAME (w)); |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4988 HWND hwnd = FRAME_W32_WINDOW (f); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4989 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4990 w32_system_caret_x |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4991 = 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
|
4992 w32_system_caret_y |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4993 = (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
|
4994 + glyph_row->ascent - w->phys_cursor_ascent); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4995 |
104030
91b945d54645
* w32fns.c (w32_wnd_proc) [WM_IME_STARTCOMPOSITION]: Position
Jason Rumney <jasonr@gnu.org>
parents:
103716
diff
changeset
|
4996 PostMessage (hwnd, WM_IME_STARTCOMPOSITION, 0, 0); |
91b945d54645
* w32fns.c (w32_wnd_proc) [WM_IME_STARTCOMPOSITION]: Position
Jason Rumney <jasonr@gnu.org>
parents:
103716
diff
changeset
|
4997 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
4998 /* 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
|
4999 system caret. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5000 if (w32_system_caret_hwnd |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5001 && (w32_system_caret_height != w->phys_cursor_height)) |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5002 PostMessage (hwnd, WM_EMACS_DESTROY_CARET, 0, 0); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5003 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5004 w32_system_caret_height = w->phys_cursor_height; |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5005 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5006 /* Move the system caret. */ |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
5007 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
|
5008 } |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
5009 |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5010 if (glyph_row->exact_window_width_line_p |
107991
74557d25410e
Implement cursor on the left fringe for R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
107737
diff
changeset
|
5011 && (glyph_row->reversed_p |
74557d25410e
Implement cursor on the left fringe for R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
107737
diff
changeset
|
5012 ? (w->phys_cursor.hpos < 0) |
74557d25410e
Implement cursor on the left fringe for R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
107737
diff
changeset
|
5013 : (w->phys_cursor.hpos >= glyph_row->used[TEXT_AREA]))) |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5014 { |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5015 glyph_row->cursor_in_fringe_p = 1; |
107991
74557d25410e
Implement cursor on the left fringe for R2L lines.
Eli Zaretskii <eliz@gnu.org>
parents:
107737
diff
changeset
|
5016 draw_fringe_bitmap (w, glyph_row, glyph_row->reversed_p); |
53607
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5017 return; |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5018 } |
4262a032b45b
(x_update_window_end): Call draw_window_fringes.
Kim F. Storm <storm@cua.dk>
parents:
53469
diff
changeset
|
5019 |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5020 switch (cursor_type) |
13434 | 5021 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5022 case HOLLOW_BOX_CURSOR: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5023 x_draw_hollow_cursor (w, glyph_row); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5024 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5025 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5026 case FILLED_BOX_CURSOR: |
50231
c8ea5e4b2129
* w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents:
50163
diff
changeset
|
5027 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
|
5028 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5029 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5030 case BAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5031 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
|
5032 break; |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
5033 |
583ed47de245
(x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents:
45196
diff
changeset
|
5034 case HBAR_CURSOR: |
50243
3fb54e5a7201
(struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents:
50231
diff
changeset
|
5035 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
|
5036 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5037 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5038 case NO_CURSOR: |
49393
85246e86a2cd
* w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents:
49371
diff
changeset
|
5039 w->phys_cursor_width = 0; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5040 break; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5041 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5042 default: |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5043 abort (); |
13434 | 5044 } |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5045 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5046 } |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5047 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5048 |
13434 | 5049 |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5050 /* Icons. */ |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5051 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5052 int |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5053 x_bitmap_icon (struct frame *f, Lisp_Object icon) |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5054 { |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5055 HANDLE main_icon; |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5056 HANDLE small_icon = NULL; |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5057 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5058 if (FRAME_W32_WINDOW (f) == 0) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5059 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5060 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5061 if (NILP (icon)) |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5062 main_icon = LoadIcon (hinst, EMACS_CLASS); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5063 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
|
5064 { |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5065 /* 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
|
5066 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
|
5067 LR_DEFAULTSIZE | LR_LOADFROMFILE); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5068 /* 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
|
5069 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
|
5070 GetSystemMetrics (SM_CXSMICON), |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5071 GetSystemMetrics (SM_CYSMICON), |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5072 LR_LOADFROMFILE); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5073 } |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5074 else if (SYMBOLP (icon)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5075 { |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5076 LPCTSTR name; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5077 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5078 if (EQ (icon, intern ("application"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5079 name = (LPCTSTR) IDI_APPLICATION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5080 else if (EQ (icon, intern ("hand"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5081 name = (LPCTSTR) IDI_HAND; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5082 else if (EQ (icon, intern ("question"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5083 name = (LPCTSTR) IDI_QUESTION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5084 else if (EQ (icon, intern ("exclamation"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5085 name = (LPCTSTR) IDI_EXCLAMATION; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5086 else if (EQ (icon, intern ("asterisk"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5087 name = (LPCTSTR) IDI_ASTERISK; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5088 else if (EQ (icon, intern ("winlogo"))) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5089 name = (LPCTSTR) IDI_WINLOGO; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5090 else |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5091 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5092 |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5093 main_icon = LoadIcon (NULL, name); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5094 } |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5095 else |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5096 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5097 |
65444
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5098 if (main_icon == NULL) |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5099 return 1; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5100 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5101 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
|
5102 (LPARAM) main_icon); |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5103 |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5104 /* 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
|
5105 if (small_icon) |
14dd537e7ba9
2005-09-11 Chris Prince <cprince@gmail.com> (tiny change)
Jason Rumney <jasonr@gnu.org>
parents:
64770
diff
changeset
|
5106 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
|
5107 (LPARAM) small_icon); |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5108 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5109 return 0; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5110 } |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5111 |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5112 |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5113 /************************************************************************ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5114 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
|
5115 ************************************************************************/ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5116 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5117 /* 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
|
5118 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
|
5119 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5120 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
|
5121 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
|
5122 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
|
5123 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
|
5124 x_fully_uncatch_errors () |
259ab035a718
Add x_fully_uncatch_errors and x_catching_errors to
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
5125 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
|
5126 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
|
5127 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
|
5128 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
|
5129 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
|
5130 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
|
5131 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
|
5132 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
|
5133 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
|
5134 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
|
5135 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5136 */ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5137 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5138 |
13434 | 5139 /* Changing the font of the frame. */ |
5140 | |
90834 | 5141 Lisp_Object |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5142 x_new_font (struct frame *f, Lisp_Object font_object, int fontset) |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5143 { |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5144 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
|
5145 |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5146 if (fontset < 0) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5147 fontset = fontset_from_font (font_object); |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5148 FRAME_FONTSET (f) = fontset; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5149 if (FRAME_FONT (f) == font) |
90834 | 5150 /* This font is already set in frame F. There's nothing more to |
5151 do. */ | |
100805
20169cf90421
(x_new_font): Return font object, not fontset. (Bug#119)
Jason Rumney <jasonr@gnu.org>
parents:
100666
diff
changeset
|
5152 return font_object; |
90834 | 5153 |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5154 FRAME_FONT (f) = font; |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5155 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
|
5156 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
|
5157 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
|
5158 FRAME_LINE_HEIGHT (f) = font->height; |
90834 | 5159 |
5160 compute_fringe_widths (f, 1); | |
5161 | |
5162 /* Compute the scroll bar width in character columns. */ | |
5163 if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0) | |
5164 { | |
5165 int wid = FRAME_COLUMN_WIDTH (f); | |
5166 FRAME_CONFIG_SCROLL_BAR_COLS (f) | |
5167 = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid - 1) / wid; | |
5168 } | |
5169 else | |
5170 { | |
5171 int wid = FRAME_COLUMN_WIDTH (f); | |
5172 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid; | |
5173 } | |
5174 | |
5175 /* Now make the frame display the given font. */ | |
5176 if (FRAME_X_WINDOW (f) != 0) | |
5177 { | |
5178 /* Don't change the size of a tip frame; there's no point in | |
5179 doing it because it's done in Fx_show_tip, and it leads to | |
5180 problems because the tip frame has no widget. */ | |
5181 if (NILP (tip_frame) || XFRAME (tip_frame) != f) | |
5182 x_set_window_size (f, 0, FRAME_COLS (f), FRAME_LINES (f)); | |
5183 } | |
5184 | |
100805
20169cf90421
(x_new_font): Return font object, not fontset. (Bug#119)
Jason Rumney <jasonr@gnu.org>
parents:
100666
diff
changeset
|
5185 /* X version sets font of input methods here also. */ |
20169cf90421
(x_new_font): Return font object, not fontset. (Bug#119)
Jason Rumney <jasonr@gnu.org>
parents:
100666
diff
changeset
|
5186 |
20169cf90421
(x_new_font): Return font object, not fontset. (Bug#119)
Jason Rumney <jasonr@gnu.org>
parents:
100666
diff
changeset
|
5187 return font_object; |
90834 | 5188 } |
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 /*********************************************************************** |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5192 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
|
5193 ***********************************************************************/ |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5194 /* 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
|
5195 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5196 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
|
5197 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
|
5198 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
|
5199 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
|
5200 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
|
5201 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
|
5202 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5203 */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5204 |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
5205 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5206 /* Calculate the absolute position in frame F |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5207 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
|
5208 |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
5209 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5210 x_calc_absolute_position (struct frame *f) |
13434 | 5211 { |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5212 int flags = f->size_hint_flags; |
13434 | 5213 |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5214 /* 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
|
5215 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
|
5216 pixels) drawn by Windows. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5217 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
|
5218 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5219 /* 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
|
5220 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
|
5221 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
|
5222 entire window. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5223 WINDOWPLACEMENT wp = { 0 }; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5224 RECT client_rect = { 0 }; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5225 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5226 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
|
5227 && 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
|
5228 { |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5229 left_right_borders_width = |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5230 (wp.rcNormalPosition.right - wp.rcNormalPosition.left) - |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5231 (client_rect.right - client_rect.left); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5232 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5233 top_bottom_borders_height = |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5234 (wp.rcNormalPosition.bottom - wp.rcNormalPosition.top) - |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5235 (client_rect.bottom - client_rect.top); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5236 } |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5237 else |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5238 { |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5239 /* Use sensible default values. */ |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5240 left_right_borders_width = 8; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5241 top_bottom_borders_height = 32; |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5242 } |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5243 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5244 /* Treat negative positions as relative to the rightmost bottommost |
13434 | 5245 position that fits on the screen. */ |
5246 if (flags & XNegative) | |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
5247 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
|
5248 - FRAME_PIXEL_WIDTH (f) |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5249 + f->left_pos |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5250 - (left_right_borders_width - 1)); |
30988
a69a2ac4345b
(help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
30730
diff
changeset
|
5251 |
13434 | 5252 if (flags & YNegative) |
98227
166909ca8be2
(x_display_pixel_height, x_display_pixel_width): New functions.
Chong Yidong <cyd@stupidchicken.com>
parents:
97831
diff
changeset
|
5253 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
|
5254 - FRAME_PIXEL_HEIGHT (f) |
72008
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5255 + f->top_pos |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5256 - (top_bottom_borders_height - 1)); |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5257 |
99cff808ae1e
(x_calc_absolute_position): Fix frame positioning
Kim F. Storm <storm@cua.dk>
parents:
71546
diff
changeset
|
5258 /* 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
|
5259 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
|
5260 f->size_hint_flags &= ~ (XNegative | YNegative); |
13434 | 5261 } |
5262 | |
5263 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position, | |
5264 to really change the position, and 0 when calling from | |
5265 x_make_frame_visible (in that case, XOFF and YOFF are the current | |
5266 position values). It is -1 when calling from x_set_frame_parameters, | |
5267 which means, do adjust for borders but don't change the gravity. */ | |
5268 | |
29321
8e2be36bb1c6
Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
28369
diff
changeset
|
5269 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5270 x_set_offset (struct frame *f, register int xoff, register int yoff, |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5271 int change_gravity) |
13434 | 5272 { |
5273 int modified_top, modified_left; | |
5274 | |
5275 if (change_gravity > 0) | |
5276 { | |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5277 f->top_pos = yoff; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5278 f->left_pos = xoff; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5279 f->size_hint_flags &= ~ (XNegative | YNegative); |
13434 | 5280 if (xoff < 0) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5281 f->size_hint_flags |= XNegative; |
13434 | 5282 if (yoff < 0) |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5283 f->size_hint_flags |= YNegative; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5284 f->win_gravity = NorthWestGravity; |
13434 | 5285 } |
5286 x_calc_absolute_position (f); | |
5287 | |
5288 BLOCK_INPUT; | |
5289 x_wm_set_size_hint (f, (long) 0, 0); | |
5290 | |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5291 modified_left = f->left_pos; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5292 modified_top = f->top_pos; |
13434 | 5293 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5294 my_set_window_pos (FRAME_W32_WINDOW (f), |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5295 NULL, |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5296 modified_left, modified_top, |
23507
8a448630a9b5
Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents:
22059
diff
changeset
|
5297 0, 0, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5298 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE); |
13434 | 5299 UNBLOCK_INPUT; |
5300 } | |
5301 | |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5302 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5303 /* 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
|
5304 If so needed, resize the frame. */ |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5305 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5306 x_check_fullscreen (struct frame *f) |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5307 { |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5308 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
|
5309 { |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5310 int width, height, ign; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5311 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5312 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
|
5313 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5314 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
|
5315 |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5316 /* 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
|
5317 when setting WM manager hints. */ |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5318 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
|
5319 { |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5320 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
|
5321 SET_FRAME_GARBAGED (f); |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5322 cancel_mouse_face (f); |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5323 |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5324 /* 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
|
5325 f->want_fullscreen |= FULLSCREEN_WAIT; |
43396
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5326 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5327 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5328 } |
9b50c09298f6
* w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents:
43373
diff
changeset
|
5329 |
13434 | 5330 /* Call this to change the size of frame F's x-window. |
5331 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity | |
5332 for this size change and subsequent size changes. | |
5333 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
|
5334 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5335 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5336 x_set_window_size (struct frame *f, int change_gravity, int cols, int rows) |
13434 | 5337 { |
5338 int pixelwidth, pixelheight; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5339 |
13434 | 5340 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5341 |
13434 | 5342 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
|
5343 f->scroll_bar_actual_width |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5344 = 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
|
5345 |
50096 | 5346 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
|
5347 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5348 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
|
5349 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
|
5350 |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5351 f->win_gravity = NorthWestGravity; |
13434 | 5352 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
|
5353 |
13434 | 5354 { |
5355 RECT rect; | |
5356 | |
5357 rect.left = rect.top = 0; | |
5358 rect.right = pixelwidth; | |
5359 rect.bottom = pixelheight; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5360 |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
5361 AdjustWindowRect (&rect, f->output_data.w32->dwStyle, |
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
5362 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
|
5363 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5364 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
|
5365 NULL, |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5366 0, 0, |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5367 rect.right - rect.left, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5368 rect.bottom - rect.top, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5369 SWP_NOZORDER | SWP_NOMOVE | SWP_NOACTIVATE); |
13434 | 5370 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5371 |
79023
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5372 #if 0 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5373 /* 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
|
5374 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
|
5375 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
|
5376 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
|
5377 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
|
5378 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
|
5379 of the minibuffer. |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5380 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5381 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
|
5382 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
|
5383 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
|
5384 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5385 ----------------------------------------------------------------- |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5386 |
a1576b4ab168
(x_set_window_size): Disable code that attempts to tell
Jason Rumney <jasonr@gnu.org>
parents:
78988
diff
changeset
|
5387 Now, strictly speaking, we can't be sure that this is accurate, |
13434 | 5388 but the window manager will get around to dealing with the size |
5389 change request eventually, and we'll hear how it went when the | |
5390 ConfigureNotify event gets here. | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5391 |
13434 | 5392 We could just not bother storing any of this information here, |
5393 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
|
5394 might be kind of confusing to the Lisp code, since size changes |
13434 | 5395 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
|
5396 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
|
5397 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5398 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
|
5399 a BLOCK_INPUT. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5400 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
|
5401 FRAME_PIXEL_WIDTH (f) = pixelwidth; |
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5402 FRAME_PIXEL_HEIGHT (f) = pixelheight; |
13434 | 5403 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5404 /* 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
|
5405 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
|
5406 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
|
5407 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
|
5408 SET_FRAME_GARBAGED (f); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5409 |
13434 | 5410 /* 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
|
5411 mark_window_cursors_off (XWINDOW (f->root_window)); |
13434 | 5412 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5413 /* 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
|
5414 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
|
5415 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
|
5416 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
|
5417 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
|
5418 #endif |
24827
487fdbc8de0f
(cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents:
24752
diff
changeset
|
5419 |
13434 | 5420 UNBLOCK_INPUT; |
5421 } | |
5422 | |
5423 /* Mouse warping. */ | |
5424 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5425 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
|
5426 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5427 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5428 x_set_mouse_position (struct frame *f, int x, int y) |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5429 { |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5430 int pix_x, pix_y; |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5431 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5432 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
|
5433 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
|
5434 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5435 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
|
5436 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
|
5437 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5438 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
|
5439 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
|
5440 |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5441 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
|
5442 } |
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5443 |
13434 | 5444 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5445 x_set_mouse_pixel_position (struct frame *f, int pix_x, int pix_y) |
15616
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5446 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5447 RECT rect; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5448 POINT pt; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5449 |
15616
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5450 BLOCK_INPUT; |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5451 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5452 GetClientRect (FRAME_W32_WINDOW (f), &rect); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5453 pt.x = rect.left + pix_x; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5454 pt.y = rect.top + pix_y; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5455 ClientToScreen (FRAME_W32_WINDOW (f), &pt); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5456 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5457 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
|
5458 |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5459 UNBLOCK_INPUT; |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5460 } |
a73836346910
(x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents:
15435
diff
changeset
|
5461 |
13434 | 5462 |
5463 /* focus shifting, raising and lowering. */ | |
5464 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5465 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5466 x_focus_on_frame (struct frame *f) |
13434 | 5467 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5468 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
|
5469 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5470 /* Give input focus to frame. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5471 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5472 #if 0 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5473 /* 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
|
5474 if (x_window_to_frame (dpyinfo, GetForegroundWindow ())) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5475 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
|
5476 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5477 #endif |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
5478 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
|
5479 UNBLOCK_INPUT; |
13434 | 5480 } |
5481 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5482 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5483 x_unfocus_frame (struct frame *f) |
13434 | 5484 { |
5485 } | |
5486 | |
5487 /* Raise frame F. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5488 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5489 x_raise_frame (struct frame *f) |
13434 | 5490 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5491 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5492 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5493 /* 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
|
5494 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
|
5495 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
|
5496 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
|
5497 click-to-focus. |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5498 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5499 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
|
5500 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
|
5501 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
|
5502 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
|
5503 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
|
5504 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
|
5505 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
|
5506 completely obscured) with input focus. |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5507 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5508 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
|
5509 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
|
5510 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
|
5511 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5512 if (NILP (Vw32_grab_focus_on_raise)) |
13434 | 5513 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5514 /* 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
|
5515 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
|
5516 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
|
5517 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
|
5518 more cumbersome method. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5519 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5520 HDWP handle = BeginDeferWindowPos (2); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5521 if (handle) |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5522 { |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5523 DeferWindowPos (handle, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5524 FRAME_W32_WINDOW (f), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5525 HWND_TOP, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5526 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5527 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5528 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5529 DeferWindowPos (handle, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5530 GetForegroundWindow (), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5531 FRAME_W32_WINDOW (f), |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5532 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5533 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5534 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5535 EndDeferWindowPos (handle); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5536 } |
13434 | 5537 } |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5538 else |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5539 { |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
5540 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
|
5541 } |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5542 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5543 UNBLOCK_INPUT; |
13434 | 5544 } |
5545 | |
5546 /* Lower frame F. */ | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5547 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5548 x_lower_frame (struct frame *f) |
13434 | 5549 { |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5550 BLOCK_INPUT; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5551 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
|
5552 HWND_BOTTOM, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5553 0, 0, 0, 0, |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5554 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5555 UNBLOCK_INPUT; |
13434 | 5556 } |
5557 | |
5558 static void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5559 w32_frame_raise_lower (FRAME_PTR f, int raise_flag) |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5560 { |
35000 | 5561 if (! FRAME_W32_P (f)) |
5562 return; | |
5563 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5564 if (raise_flag) |
13434 | 5565 x_raise_frame (f); |
5566 else | |
5567 x_lower_frame (f); | |
5568 } | |
5569 | |
5570 /* Change of visibility. */ | |
5571 | |
5572 /* This tries to wait until the frame is really visible. | |
5573 However, if the window manager asks the user where to position | |
5574 the frame, this will return before the user finishes doing that. | |
5575 The frame will not actually be visible at that time, | |
5576 but it will become visible later when the window manager | |
5577 finishes with it. */ | |
5578 | |
30240
2c2a7ebd2c15
(help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents:
30199
diff
changeset
|
5579 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5580 x_make_frame_visible (struct frame *f) |
13434 | 5581 { |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5582 Lisp_Object type; |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5583 |
13434 | 5584 BLOCK_INPUT; |
5585 | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5586 type = x_icon_type (f); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5587 if (!NILP (type)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5588 x_bitmap_icon (f, type); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5589 |
13434 | 5590 if (! FRAME_VISIBLE_P (f)) |
5591 { | |
5592 /* We test FRAME_GARBAGED_P here to make sure we don't | |
5593 call x_set_offset a second time | |
5594 if we get to x_make_frame_visible a second time | |
5595 before the window gets really visible. */ | |
5596 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
|
5597 && ! 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
|
5598 { |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5599 RECT workarea_rect; |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5600 RECT window_rect; |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5601 |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5602 /* 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
|
5603 covered by a task bar placed at the bottom of the desktop. */ |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
5604 SystemParametersInfo (SPI_GETWORKAREA, 0, &workarea_rect, 0); |
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
5605 GetWindowRect (FRAME_W32_WINDOW(f), &window_rect); |
71546
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5606 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
|
5607 && 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
|
5608 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
|
5609 - 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
|
5610 workarea_rect.top); |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5611 |
d1eb48dbd3e6
(x_make_frame_visible): Use SystemParametersInfo with SPI_GETWORKAREA to find
Eli Zaretskii <eliz@gnu.org>
parents:
71236
diff
changeset
|
5612 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
|
5613 } |
13434 | 5614 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5615 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
|
5616 |
95733
0554ef53fccd
(x_make_frame_visible): Use alternate restore flags.
Jason Rumney <jasonr@gnu.org>
parents:
95364
diff
changeset
|
5617 /* 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
|
5618 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
|
5619 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
|
5620 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
|
5621 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
|
5622 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
|
5623 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
|
5624 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
|
5625 /* my_show_window (f, FRAME_W32_WINDOW (f), SW_SHOWNORMAL); */ |
13434 | 5626 } |
5627 | |
5628 /* Synchronize to ensure Emacs knows the frame is visible | |
5629 before we do anything else. We do this loop with input not blocked | |
5630 so that incoming events are handled. */ | |
5631 { | |
5632 Lisp_Object frame; | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5633 int count; |
13434 | 5634 |
5635 /* This must come after we set COUNT. */ | |
5636 UNBLOCK_INPUT; | |
5637 | |
5638 XSETFRAME (frame, f); | |
5639 | |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5640 /* 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
|
5641 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
|
5642 MapNotify at all.. */ |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5643 for (count = input_signal_count + 10; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5644 input_signal_count < count && !FRAME_VISIBLE_P (f);) |
13434 | 5645 { |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5646 /* Force processing of queued events. */ |
33097
84590a646acc
(x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents:
33037
diff
changeset
|
5647 /* TODO: x_sync equivalent? */ |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5648 |
13434 | 5649 /* Machines that do polling rather than SIGIO have been observed |
5650 to go into a busy-wait here. So we'll fake an alarm signal | |
5651 to let the handler know that there's something to be read. | |
5652 We used to raise a real alarm, but it seems that the handler | |
5653 isn't always enabled here. This is probably a bug. */ | |
5654 if (input_polling_used ()) | |
5655 { | |
5656 /* It could be confusing if a real alarm arrives while processing | |
5657 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
|
5658 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
|
5659 poll_suppress_count = 1; |
5fe002cf4b37
(x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents:
27514
diff
changeset
|
5660 poll_for_input_1 (); |
5fe002cf4b37
(x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents:
27514
diff
changeset
|
5661 poll_suppress_count = old_poll_suppress_count; |
13434 | 5662 } |
5663 } | |
5664 FRAME_SAMPLE_VISIBILITY (f); | |
5665 } | |
5666 } | |
5667 | |
5668 /* Change from mapped state to withdrawn state. */ | |
5669 | |
5670 /* Make the frame visible (mapped and not iconified). */ | |
5671 | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5672 void |
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5673 x_make_frame_invisible (struct frame *f) |
13434 | 5674 { |
5675 /* 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
|
5676 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
|
5677 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
|
5678 |
13434 | 5679 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5680 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5681 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
|
5682 |
13434 | 5683 /* We can't distinguish this from iconification |
5684 just by the event that we get from the server. | |
5685 So we can't win using the usual strategy of letting | |
5686 FRAME_SAMPLE_VISIBILITY set this. So do it by hand, | |
5687 and synchronize with the server to make sure we agree. */ | |
5688 f->visible = 0; | |
5689 FRAME_ICONIFIED_P (f) = 0; | |
5690 f->async_visible = 0; | |
5691 f->async_iconified = 0; | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5692 |
13434 | 5693 UNBLOCK_INPUT; |
5694 } | |
5695 | |
5696 /* Change window state from mapped to iconified. */ | |
5697 | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
5698 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5699 x_iconify_frame (struct frame *f) |
13434 | 5700 { |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5701 Lisp_Object type; |
13434 | 5702 |
5703 /* 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
|
5704 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
|
5705 FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame = 0; |
13434 | 5706 |
5707 if (f->async_iconified) | |
5708 return; | |
5709 | |
5710 BLOCK_INPUT; | |
5711 | |
25236
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5712 type = x_icon_type (f); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5713 if (!NILP (type)) |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5714 x_bitmap_icon (f, type); |
ea748fe6dee4
(x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents:
24863
diff
changeset
|
5715 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
5716 /* 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
|
5717 SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_MINIMIZE, 0); |
13434 | 5718 |
5719 UNBLOCK_INPUT; | |
5720 } | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5721 |
13434 | 5722 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5723 /* 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
|
5724 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5725 void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109302
diff
changeset
|
5726 x_free_frame_resources (struct frame *f) |
13434 | 5727 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5728 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f); |
13434 | 5729 |
5730 BLOCK_INPUT; | |
5731 | |
94912
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5732 /* 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
|
5733 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
|
5734 face. */ |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5735 if (FRAME_FACE_CACHE (f)) |
5b153bea483d
: Throughout the file, delete all USE_FONT_BACKEND
Kenichi Handa <handa@m17n.org>
parents:
93913
diff
changeset
|
5736 free_frame_faces (f); |
90834 | 5737 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5738 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
|
5739 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
|
5740 |
13434 | 5741 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
|
5742 |
83505 | 5743 unload_color (f, FRAME_FOREGROUND_PIXEL (f)); |
5744 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
|
5745 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
|
5746 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
|
5747 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
|
5748 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
|
5749 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
|
5750 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
|
5751 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
|
5752 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
|
5753 |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5754 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
|
5755 free_frame_faces (f); |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
5756 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5757 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
|
5758 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
|
5759 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5760 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
|
5761 dpyinfo->w32_focus_frame = 0; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5762 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
|
5763 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
|
5764 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
|
5765 dpyinfo->x_highlight_frame = 0; |
13434 | 5766 |
5767 if (f == dpyinfo->mouse_face_mouse_frame) | |
5768 { | |
5769 dpyinfo->mouse_face_beg_row | |
5770 = dpyinfo->mouse_face_beg_col = -1; | |
5771 dpyinfo->mouse_face_end_row | |
5772 = dpyinfo->mouse_face_end_col = -1; | |
5773 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
|
5774 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
|
5775 dpyinfo->mouse_face_mouse_frame = 0; |
13434 | 5776 } |
5777 | |
5778 UNBLOCK_INPUT; | |
5779 } | |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5780 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5781 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5782 /* 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
|
5783 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5784 x_destroy_window (struct frame *f) |
34545
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5785 { |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5786 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
|
5787 |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5788 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
|
5789 dpyinfo->reference_count--; |
0322014fcf27
(clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents:
34229
diff
changeset
|
5790 } |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5791 |
13434 | 5792 |
5793 /* Setting window manager hints. */ | |
5794 | |
5795 /* Set the normal size hints for the window manager, for frame F. | |
5796 FLAGS is the flags word to use--or 0 meaning preserve the flags | |
5797 that the window now has. | |
5798 If USER_POSITION is nonzero, we set the USPosition | |
5799 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
|
5800 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5801 x_wm_set_size_hint (struct frame *f, long flags, int user_position) |
13434 | 5802 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5803 Window window = FRAME_W32_WINDOW (f); |
13434 | 5804 |
14351
fb2ce4ebc871
ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents:
14248
diff
changeset
|
5805 enter_crit (); |
13434 | 5806 |
51204
082b768216a0
Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
50441
diff
changeset
|
5807 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
|
5808 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
|
5809 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
|
5810 SetWindowLong (window, WND_SCROLLBAR_INDEX, f->scroll_bar_actual_width); |
13434 | 5811 |
14351
fb2ce4ebc871
ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents:
14248
diff
changeset
|
5812 leave_crit (); |
13434 | 5813 } |
5814 | |
5815 /* 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
|
5816 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5817 x_wm_set_icon_position (struct frame *f, int icon_x, int icon_y) |
13434 | 5818 { |
5819 #if 0 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5820 Window window = FRAME_W32_WINDOW (f); |
13434 | 5821 |
5822 f->display.x->wm_hints.flags |= IconPositionHint; | |
5823 f->display.x->wm_hints.icon_x = icon_x; | |
5824 f->display.x->wm_hints.icon_y = icon_y; | |
5825 | |
5826 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->display.x->wm_hints); | |
5827 #endif | |
5828 } | |
5829 | |
35384
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5830 |
e50a7f9ce65e
(x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents:
35287
diff
changeset
|
5831 /*********************************************************************** |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5832 Initialization |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
5833 ***********************************************************************/ |
13434 | 5834 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5835 static int w32_initialized = 0; |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
5836 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5837 void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5838 w32_initialize_display_info (Lisp_Object display_name) |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5839 { |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5840 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
|
5841 |
109165
750db9f3e6d8
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents:
109160
diff
changeset
|
5842 memset (dpyinfo, 0, sizeof (*dpyinfo)); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5843 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5844 /* 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
|
5845 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
|
5846 w32_display_name_list); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5847 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
|
5848 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5849 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
|
5850 = (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
|
5851 + SCHARS (Vsystem_name) |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5852 + 2); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5853 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
|
5854 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
|
5855 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5856 /* 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
|
5857 with values obtained from system metrics. */ |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5858 dpyinfo->resx = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5859 dpyinfo->resy = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5860 dpyinfo->n_planes = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5861 dpyinfo->n_cbits = 4; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5862 dpyinfo->n_fonts = 0; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5863 dpyinfo->smallest_font_height = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5864 dpyinfo->smallest_char_width = 1; |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5865 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5866 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
|
5867 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
|
5868 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
|
5869 dpyinfo->mouse_face_window = Qnil; |
40137
5f0d7d58283b
(remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents:
40078
diff
changeset
|
5870 dpyinfo->mouse_face_overlay = Qnil; |
43373
44e2e2c9154f
(disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents:
43146
diff
changeset
|
5871 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
|
5872 |
c73ce11bb264
2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents:
48888
diff
changeset
|
5873 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
|
5874 /* TODO: dpyinfo->gray */ |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5875 |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5876 } |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
5877 |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5878 /* 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
|
5879 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
|
5880 \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
|
5881 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5882 [ *]option[ *]:[ *]value... |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5883 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5884 becomes |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5885 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5886 option:value... |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5887 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5888 but any whitespace following value is not removed. */ |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5889 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5890 static char * |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
5891 w32_make_rdb (char *xrm_option) |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5892 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5893 char *buffer = xmalloc (strlen (xrm_option) + 2); |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5894 char *current = buffer; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5895 char ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5896 int in_option = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5897 int before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5898 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5899 do { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5900 ch = *xrm_option++; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5901 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5902 if (ch == '\n') |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5903 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5904 *current++ = '\0'; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5905 in_option = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5906 before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5907 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5908 else if (ch != ' ') |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5909 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5910 *current++ = ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5911 if (in_option && (ch == ':')) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5912 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5913 in_option = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5914 before_value = 1; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5915 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5916 else if (before_value) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5917 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5918 before_value = 0; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5919 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5920 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5921 else if (!(in_option || before_value)) |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5922 { |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5923 *current++ = ch; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5924 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5925 } while (ch); |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5926 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5927 *current = '\0'; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5928 |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5929 return buffer; |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5930 } |
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
5931 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5932 void |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5933 x_flush (struct frame * f) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5934 { /* Nothing to do */ } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5935 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5936 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5937 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
|
5938 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5939 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
|
5940 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5941 w32_frame_parm_handlers, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5942 x_produce_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5943 x_write_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5944 x_insert_glyphs, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5945 x_clear_end_of_line, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5946 x_scroll_run, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5947 x_after_update_window_line, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5948 x_update_window_begin, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5949 x_update_window_end, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5950 x_cursor_to, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5951 x_flush, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5952 0, /* flush_display_optional */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5953 x_clear_window_mouse_face, |
94970
2905831ea99f
(w32_get_glyph_overhangs): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
94963
diff
changeset
|
5954 x_get_glyph_overhangs, |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5955 x_fix_overlapping_area, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5956 w32_draw_fringe_bitmap, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5957 w32_define_fringe_bitmap, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5958 w32_destroy_fringe_bitmap, |
93913
7e2e9d86af3b
(w32_compute_glyph_string_overhangs): Compute overhangs
Jason Rumney <jasonr@gnu.org>
parents:
92433
diff
changeset
|
5959 w32_compute_glyph_string_overhangs, |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5960 x_draw_glyph_string, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5961 w32_define_frame_cursor, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5962 w32_clear_frame_area, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5963 w32_draw_window_cursor, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5964 w32_draw_vertical_window_border, |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5965 w32_shift_glyphs_for_insert |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5966 }; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5967 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5968 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
|
5969 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5970 static struct terminal * |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5971 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
|
5972 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5973 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
|
5974 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5975 terminal = create_terminal (); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5976 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5977 terminal->type = output_w32; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5978 terminal->display_info.w32 = dpyinfo; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5979 dpyinfo->terminal = terminal; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5980 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5981 /* 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
|
5982 so we must explicitly cast them. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5983 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
|
5984 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
|
5985 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
|
5986 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
|
5987 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
|
5988 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
|
5989 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
|
5990 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
|
5991 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
|
5992 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
|
5993 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
|
5994 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
|
5995 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
|
5996 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
|
5997 // terminal->fullscreen_hook = XTfullscreen_hook; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
5998 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
|
5999 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
|
6000 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
|
6001 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
|
6002 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6003 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
|
6004 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
|
6005 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6006 terminal->rif = &w32_redisplay_interface; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6007 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
|
6008 terminal->char_ins_del_ok = 1; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6009 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
|
6010 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
|
6011 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
|
6012 off the bottom. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6013 |
83876
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6014 /* 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
|
6015 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
|
6016 terminal like X does. */ |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6017 terminal->kboard = (KBOARD *) xmalloc (sizeof (KBOARD)); |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6018 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
|
6019 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
|
6020 terminal->kboard->next_kboard = all_kboards; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6021 all_kboards = terminal->kboard; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6022 /* 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
|
6023 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
|
6024 prompt in the mini-buffer. */ |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6025 if (current_kboard == initial_kboard) |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6026 current_kboard = terminal->kboard; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6027 terminal->kboard->reference_count++; |
37f582a71062
Support for horizontal scroll wheels on some mice:
Jason Rumney <jasonr@gnu.org>
parents:
83652
diff
changeset
|
6028 |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6029 return terminal; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6030 } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6031 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6032 static void |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6033 x_delete_terminal (struct terminal *terminal) |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6034 { |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6035 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
|
6036 int i; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6037 |
100666
dab9cf44bf3f
In comments, write delete_frame instead of Fdelete_frame.
Martin Rudalics <rudalics@gmx.at>
parents:
100400
diff
changeset
|
6038 /* Protect against recursive calls. delete_frame in |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6039 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
|
6040 if (!terminal->name) |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6041 return; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6042 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6043 BLOCK_INPUT; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6044 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6045 x_delete_display (dpyinfo); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6046 UNBLOCK_INPUT; |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6047 } |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6048 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6049 struct w32_display_info * |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
6050 w32_term_init (Lisp_Object display_name, char *xrm_option, char *resource_name) |
13434 | 6051 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6052 struct w32_display_info *dpyinfo; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6053 struct terminal *terminal; |
13434 | 6054 HDC hdc; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6055 |
13434 | 6056 BLOCK_INPUT; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6057 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6058 if (!w32_initialized) |
13434 | 6059 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6060 w32_initialize (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6061 w32_initialized = 1; |
13434 | 6062 } |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6063 |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6064 w32_initialize_display_info (display_name); |
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6065 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6066 dpyinfo = &one_w32_display_info; |
83569
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6067 terminal = w32_create_terminal (dpyinfo); |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6068 |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6069 /* Set the name of the terminal. */ |
86395c339701
(w32_set_terminal_modes, w32_reset_terminal_modes):
Jason Rumney <jasonr@gnu.org>
parents:
83556
diff
changeset
|
6070 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
|
6071 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
|
6072 terminal->name[SBYTES (display_name)] = 0; |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6073 |
50038
8054c23b6726
(w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
49393
diff
changeset
|
6074 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
|
6075 |
38570
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6076 /* Put this display on the chain. */ |
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6077 dpyinfo->next = x_display_list; |
9606b955465e
(x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents:
36315
diff
changeset
|
6078 x_display_list = dpyinfo; |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6079 |
101977
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
6080 hdc = GetDC (NULL); |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6081 |
13434 | 6082 dpyinfo->root_window = GetDesktopWindow (); |
6083 dpyinfo->n_planes = GetDeviceCaps (hdc, PLANES); | |
6084 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
|
6085 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
|
6086 dpyinfo->resy = GetDeviceCaps (hdc, LOGPIXELSY); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6087 dpyinfo->has_palette = GetDeviceCaps (hdc, RASTERCAPS) & RC_PALETTE; |
101977
9a5d93661ee4
(x_display_pixel_height, x_display_pixel_width):
Jason Rumney <jasonr@gnu.org>
parents:
101682
diff
changeset
|
6088 ReleaseDC (NULL, hdc); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6089 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6090 /* initialise palette with white and black */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6091 { |
47981
74b52651467d
(w32_term_init): Pass XColor to w32_define_color, not COLORREF.
Juanma Barranquero <lekktu@gmail.com>
parents:
47148
diff
changeset
|
6092 XColor color; |
27514
9625ad0c0f52
(w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents:
27406
diff
changeset
|
6093 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
|
6094 w32_defined_color (0, "black", &color, 1); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6095 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6096 |
83609
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6097 /* Add the default keyboard. */ |
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6098 add_keyboard_wait_descriptor (0); |
91cab9b5f774
(w32_term_init): Call add_keyboard_wait_descriptor.
Jason Rumney <jasonr@gnu.org>
parents:
83569
diff
changeset
|
6099 |
50096 | 6100 /* Create Fringe Bitmaps and store them for later use. |
6101 | |
6102 On W32, bitmaps are all unsigned short, as Windows requires | |
6103 bitmap data to be Word aligned. For some reason they are | |
6104 horizontally reflected compared to how they appear on X, so we | |
6105 need to bitswap and convert to unsigned shorts before creating | |
6106 the bitmaps. */ | |
84543
c7b52c80ffa2
(w32_term_init): Pass rif to w32_init_fringe.
Jason Rumney <jasonr@gnu.org>
parents:
83876
diff
changeset
|
6107 w32_init_fringe (terminal->rif); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6108 |
13434 | 6109 #ifdef F_SETOWN |
6110 fcntl (connection, F_SETOWN, getpid ()); | |
6111 #endif /* ! defined (F_SETOWN) */ | |
6112 | |
6113 #ifdef SIGIO | |
6114 if (interrupt_input) | |
6115 init_sigio (connection); | |
6116 #endif /* ! defined (SIGIO) */ | |
6117 | |
6118 UNBLOCK_INPUT; | |
6119 | |
6120 return dpyinfo; | |
6121 } | |
6122 | |
6123 /* Get rid of display DPYINFO, assuming all frames are already gone. */ | |
6124 void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
6125 x_delete_display (struct w32_display_info *dpyinfo) |
13434 | 6126 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6127 /* Discard this display from w32_display_name_list and w32_display_list. |
13434 | 6128 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
|
6129 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
|
6130 && 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
|
6131 w32_display_name_list = XCDR (w32_display_name_list); |
13434 | 6132 else |
6133 { | |
6134 Lisp_Object tail; | |
6135 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6136 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
|
6137 while (CONSP (tail) && CONSP (XCDR (tail))) |
13434 | 6138 { |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6139 if (EQ (XCAR (XCDR (tail)), dpyinfo->name_list_element)) |
13434 | 6140 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39697
diff
changeset
|
6141 XSETCDR (tail, XCDR (XCDR (tail))); |
13434 | 6142 break; |
6143 } | |
25646
9154af188477
Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents:
25236
diff
changeset
|
6144 tail = XCDR (tail); |
13434 | 6145 } |
6146 } | |
6147 | |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6148 /* free palette table */ |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6149 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6150 struct w32_palette_entry * plist; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6151 |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6152 plist = dpyinfo->color_list; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6153 while (plist) |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6154 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6155 struct w32_palette_entry * pentry = plist; |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6156 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
|
6157 xfree (pentry); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6158 } |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6159 dpyinfo->color_list = NULL; |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6160 if (dpyinfo->palette) |
109160
f8660b83cdbf
Fix whitespace to follow coding guidelines.
Juanma Barranquero <lekktu@gmail.com>
parents:
109152
diff
changeset
|
6161 DeleteObject (dpyinfo->palette); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6162 } |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6163 xfree (dpyinfo->w32_id_name); |
27889
51d0b4b8fc6a
(w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents:
27631
diff
changeset
|
6164 |
53886
e1b1c388f74d
(w32_draw_fringe_bitmap): Copy unadapted code from
Kim F. Storm <storm@cua.dk>
parents:
53607
diff
changeset
|
6165 w32_reset_fringes (); |
13434 | 6166 } |
6167 | |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6168 /* Set up use of W32. */ |
13434 | 6169 |
74220
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6170 DWORD WINAPI w32_msg_worker (void * arg); |
13434 | 6171 |
81493
e7dfb7cb2088
(w32_delete_display): Remove leftover declaration.
Juanma Barranquero <lekktu@gmail.com>
parents:
76022
diff
changeset
|
6172 static void |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
6173 w32_initialize (void) |
13434 | 6174 { |
103641
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6175 HANDLE shell; |
103716
7bad97f82eb6
* w32term.c (w32_initialize): Use standard types.
Jason Rumney <jasonr@gnu.org>
parents:
103641
diff
changeset
|
6176 HRESULT (WINAPI * set_user_model) (wchar_t * id); |
103641
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6177 |
13434 | 6178 baud_rate = 19200; |
6179 | |
40384
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6180 w32_system_caret_hwnd = NULL; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6181 w32_system_caret_height = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6182 w32_system_caret_x = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6183 w32_system_caret_y = 0; |
25e6d4bb5f7f
(w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents:
40245
diff
changeset
|
6184 |
103641
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6185 /* On Windows 7 and later, we need to set the user model ID |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6186 to associate emacsclient launched files with Emacs frames |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6187 in the UI. */ |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6188 shell = GetModuleHandle ("shell32.dll"); |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6189 if (shell) |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6190 { |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6191 set_user_model |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6192 = (void *) GetProcAddress (shell, |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6193 "SetCurrentProcessExplicitAppUserModelID"); |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6194 |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6195 /* If the function is defined, then we are running on Windows 7 |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6196 or newer, and the UI uses this to group related windows |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6197 together. Since emacs, runemacs, emacsclient are related, we |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6198 want them grouped even though the executables are different, |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6199 so we need to set a consistent ID between them. */ |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6200 if (set_user_model) |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6201 set_user_model (L"GNU.Emacs"); |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6202 } |
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6203 |
63904
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6204 /* 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
|
6205 reader is in use. */ |
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6206 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
|
6207 &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
|
6208 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
|
6209 |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6210 last_tool_bar_item = -1; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6211 any_help_event_p = 0; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6212 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6213 /* 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
|
6214 8 bit character input, standard quit char. */ |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6215 Fset_input_mode (Qnil, Qnil, make_number (2), Qnil); |
13434 | 6216 |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
6217 { |
103505
b1792516bf99
(w32_initialize): Add necessary casts to last change.
Jason Rumney <jasonr@gnu.org>
parents:
103500
diff
changeset
|
6218 DWORD input_locale_id = (DWORD) GetKeyboardLayout (0); |
b1792516bf99
(w32_initialize): Add necessary casts to last change.
Jason Rumney <jasonr@gnu.org>
parents:
103500
diff
changeset
|
6219 keyboard_codepage = codepage_for_locale ((LCID) (input_locale_id & 0xffff)); |
103500
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
6220 } |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
6221 |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
6222 /* Create the window thread - it will terminate itself when the app |
d0e3ea40717c
(keyboard_codepage): New static variable.
Jason Rumney <jasonr@gnu.org>
parents:
103023
diff
changeset
|
6223 terminates */ |
13434 | 6224 init_crit (); |
6225 | |
6226 dwMainThreadId = GetCurrentThreadId (); | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6227 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (), |
13434 | 6228 GetCurrentProcess (), &hMainThread, 0, TRUE, DUPLICATE_SAME_ACCESS); |
6229 | |
6230 /* Wait for thread to start */ | |
6231 { | |
6232 MSG msg; | |
6233 | |
6234 PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE); | |
6235 | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6236 hWindowsThread = CreateThread (NULL, 0, |
74220
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6237 w32_msg_worker, |
ae3e88b9ef1b
(w32_msg_worker): Declare correctly.
Jason Rumney <jasonr@gnu.org>
parents:
74145
diff
changeset
|
6238 0, 0, &dwWindowsThreadId); |
13434 | 6239 |
6240 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE); | |
6241 } | |
48218
01e253345507
(w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents:
48025
diff
changeset
|
6242 |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6243 /* 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
|
6244 focus window and active window as windowsThread. Unfortunately, the |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6245 following call to AttachThreadInput, which should do precisely what |
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6246 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
|
6247 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
|
6248 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
|
6249 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
|
6250 window state.) */ |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6251 #ifdef ATTACH_THREADS |
16884
36babc489b0c
Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents:
16588
diff
changeset
|
6252 AttachThreadInput (dwMainThreadId, dwWindowsThreadId, TRUE); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6253 #endif |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6254 |
90436
6194dc57516d
(w32_initialize) Manually sync 2006-06-05 change from HEAD.
Jason Rumney <jasonr@gnu.org>
parents:
90428
diff
changeset
|
6255 /* Dynamically link to optional system components. */ |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6256 { |
103641
48d529d3a5a4
bug#1849 - Windows 7 Taskbar Support
Jason Rumney <jasonr@gnu.org>
parents:
103509
diff
changeset
|
6257 HMODULE user_lib = GetModuleHandle ("user32.dll"); |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6258 |
89595
804abd486fd1
(GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents:
89588
diff
changeset
|
6259 #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
|
6260 |
96403
4b6d1b55f59c
* w32term.c (pfnGetFontUnicodeRanges): Remove unused function pointer.
Jason Rumney <jasonr@gnu.org>
parents:
96376
diff
changeset
|
6261 LOAD_PROC (user_lib, SetLayeredWindowAttributes); |
95170
194ed5c5c97e
Fix typo in comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
94970
diff
changeset
|
6262 |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6263 #undef LOAD_PROC |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6264 |
90436
6194dc57516d
(w32_initialize) Manually sync 2006-06-05 change from HEAD.
Jason Rumney <jasonr@gnu.org>
parents:
90428
diff
changeset
|
6265 /* 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
|
6266 vertical_scroll_bar_min_handle = 5; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6267 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6268 /* 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
|
6269 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
|
6270 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
|
6271 = GetSystemMetrics (SM_CYVSCROLL); |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6272 } |
13434 | 6273 } |
6274 | |
6275 void | |
109152
e27859da5624
src/w32*.c: Convert function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109100
diff
changeset
|
6276 syms_of_w32term (void) |
13434 | 6277 { |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6278 staticpro (&w32_display_name_list); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6279 w32_display_name_list = Qnil; |
13434 | 6280 |
6281 staticpro (&last_mouse_scroll_bar); | |
6282 last_mouse_scroll_bar = Qnil; | |
6283 | |
90923
4a877f897bd8
(syms_of_w32term): Use DEFSYM macro.
Jason Rumney <jasonr@gnu.org>
parents:
90905
diff
changeset
|
6284 DEFSYM (Qvendor_specific_keysyms, "vendor-specific-keysyms"); |
15151
ed6ddfc0d954
(Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents:
15035
diff
changeset
|
6285 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6286 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
|
6287 &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
|
6288 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
|
6289 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
|
6290 |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16326
diff
changeset
|
6291 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
|
6292 &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
|
6293 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
|
6294 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
|
6295 Vw32_swap_mouse_buttons = Qnil; |
19713
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6296 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6297 DEFVAR_LISP ("w32-grab-focus-on-raise", |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6298 &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
|
6299 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
|
6300 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
|
6301 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
|
6302 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
|
6303 Vw32_grab_focus_on_raise = Qt; |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6304 |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6305 DEFVAR_LISP ("w32-capslock-is-shiftlock", |
043ccce224fb
(SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents:
18877
diff
changeset
|
6306 &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
|
6307 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
|
6308 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
|
6309 Vw32_capslock_is_shiftlock = Qnil; |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6310 |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6311 DEFVAR_LISP ("w32-recognize-altgr", |
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6312 &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
|
6313 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
|
6314 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
|
6315 interpreted normally. */); |
21614
2624d8dcc73f
(Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
21456
diff
changeset
|
6316 Vw32_recognize_altgr = Qt; |
23638
e6fb9ffee4f4
(dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23510
diff
changeset
|
6317 |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6318 DEFVAR_BOOL ("w32-use-visible-system-caret", |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6319 &w32_use_visible_system_caret, |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6320 doc: /* Flag to make the system caret visible. |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6321 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
|
6322 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
|
6323 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
|
6324 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
|
6325 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
|
6326 software is running as it starts up. |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6327 |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6328 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
|
6329 the cursor have no effect. */); |
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6330 |
63904
72c5011362ef
* w32term.c (cleartype_active): New flag for enabling sub-pixel
Jason Rumney <jasonr@gnu.org>
parents:
63376
diff
changeset
|
6331 w32_use_visible_system_caret = 0; |
42864
c1af6a7f3dd4
(w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents:
42844
diff
changeset
|
6332 |
63376
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6333 /* 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
|
6334 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
|
6335 DEFVAR_BOOL ("x-use-underline-position-properties", |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6336 &x_use_underline_position_properties, |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6337 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
|
6338 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
|
6339 UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
102688
f3f931ecb8d4
(x-use-underline-position-properties): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents:
102584
diff
changeset
|
6340 to 4.1, set this to nil. */); |
63376
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6341 x_use_underline_position_properties = 0; |
2a6bb16cad69
(x_use_underline_position_properties): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
60948
diff
changeset
|
6342 |
72505
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6343 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
|
6344 &x_underline_at_descent_line, |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6345 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
|
6346 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
|
6347 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
|
6348 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
|
6349 x_underline_at_descent_line = 0; |
759e19ea81e5
(x_underline_at_descent_line): New variable.
Kim F. Storm <storm@cua.dk>
parents:
72470
diff
changeset
|
6350 |
34869
1d671133e618
(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents:
34823
diff
changeset
|
6351 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
|
6352 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
|
6353 Vx_toolkit_scroll_bars = Qt; |
27402
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6354 |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6355 staticpro (&last_mouse_motion_frame); |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6356 last_mouse_motion_frame = Qnil; |
044fe520ab6e
Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents:
26088
diff
changeset
|
6357 } |
52401 | 6358 |
6359 /* arch-tag: 5fa70624-ab86-499c-8a85-473958ee4646 | |
6360 (do not change this comment) */ |