annotate src/w32term.c @ 89686:9bfefb13fe83

(Qinsufficient_source, Qinconsistent_eol) (Qinvalid_source, Qinterrupted, Qinsufficient_memory): New variables. (Vlast_code_conversion_error): New variables. (syms_of_coding): DEFSYM or DEFVAR_LISP them. (ONE_MORE_BYTE): Record error if any instead of signaling an error. If non-ASCII multibyte char is found, return the negative value of the code. All callers changed to check it. (ONE_MORE_BYTE_NO_CHECK): Likewise. (record_conversion_result): New function. All codes setting coding->result are changed to call this function. (detect_coding_utf_8): Don't use the local variable incomplete. (decode_coding_utf_8): Likewise. (emacs_mule_char): Change the second arg to `const'. (detect_coding_emacs_mule): Don't use the local variable incomplete. (detect_coding_sjis): Likewise. (detect_coding_big5): Likewise. (decode_coding): Fix of flushing out unprocessed data. (make_conversion_work_buffer): Fix making of a work buffer. (decode_coding_object): Return coding->dst_object;
author Kenichi Handa <handa@m17n.org>
date Mon, 29 Dec 2003 07:52:49 +0000
parents 804abd486fd1
children b66b529d5f33
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
1 /* Implementation of GUI terminal on the Microsoft W32 API.
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2 Copyright (C) 1989, 93, 94, 95, 96, 1997, 1998, 1999, 2000, 2001
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3 Free Software Foundation, Inc.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5 This file is part of GNU Emacs.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
10 any later version.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
11
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
15 GNU General Public License for more details.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
16
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
15742
80562f089595 Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 15723
diff changeset
20 Boston, MA 02111-1307, USA. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
21
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25646
diff changeset
22 #include <config.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
23 #include <signal.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
24 #include <stdio.h>
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
25 #include <stdlib.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
26 #include "lisp.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
29
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
30 #include "systty.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
31 #include "systime.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
32
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
33 #include <ctype.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
34 #include <errno.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
35 #include <setjmp.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
36 #include <sys/stat.h>
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
42 #include "frame.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
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
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
45 #include "termhooks.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
46 #include "termopts.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
47 #include "termchar.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
48 #include "gnu.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
49 #include "disptab.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
50 #include "buffer.h"
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
51 #include "window.h"
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
52 #include "keyboard.h"
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
53 #include "intervals.h"
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
54 #include "process.h"
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
55 #include "atimer.h"
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
56 #include "keymap.h"
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
57
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
58 #include "w32heap.h"
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
59 #include "w32bdf.h"
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
60 #include <shellapi.h>
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
61
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
62 #define abs(x) ((x) < 0 ? -(x) : (x))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
63
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
64
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
65 /* Fringe bitmaps. */
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
66
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
67 static HBITMAP fringe_bmp[MAX_FRINGE_BITMAPS];
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
68
34869
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
69 /* 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
70
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
71 Lisp_Object Vx_toolkit_scroll_bars;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
72
48819
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
73 /* Temporary variables for w32_read_socket. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
74
48819
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
75 static int last_mousemove_x = 0;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
76 static int last_mousemove_y = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
77
51269
0e4f36767c58 (GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents: 51258
diff changeset
78 /* 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
79 #ifndef GET_WHEEL_DELTA_WPARAM
0e4f36767c58 (GET_WHEEL_DELTA_WPARAM): New macro.
Jason Rumney <jasonr@gnu.org>
parents: 51258
diff changeset
80 #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
81 #endif
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
82
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
83 /* 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
84 start. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
85
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
86 static int any_help_event_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
87
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
88 /* 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
89 static Lisp_Object last_window;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
90
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
91 extern unsigned int msh_mousewheel;
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
92
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
93 extern void free_frame_menubar ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
94
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
95 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
96 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
97
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
98 extern glyph_metric *w32_BDF_TextMetric(bdffont *fontp,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
99 unsigned char *text, int dim);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
100 extern Lisp_Object Vwindow_system;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
101
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
102 #define x_any_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
103 #define x_top_window_to_frame x_window_to_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
104
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
105
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
106 /* 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
107 struct w32_display_info one_w32_display_info;
38570
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
108 struct w32_display_info *x_display_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
109
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
110 /* 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
111 one for each element of w32_display_list and in the same order.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
112 NAME is the name of the frame.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
113 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
114 Lisp_Object w32_display_name_list;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
115
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
116
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
117 #ifndef GLYPHSET
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
118 /* 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
119 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
120
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
121 typedef struct tagWCRANGE
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
122 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
123 WCHAR wcLow;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
124 USHORT cGlyphs;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
125 } WCRANGE;
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 typedef struct tagGLYPHSET
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
128 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
129 DWORD cbThis;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
130 DWORD flAccel;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
131 DWORD cGlyphsSupported;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
132 DWORD cRanges;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
133 WCRANGE ranges[1];
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
134 } GLYPHSET;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
135
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
136 #endif
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
137
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
138 /* Dynamic linking to GetFontUnicodeRanges (not available on 95, 98, ME). */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
139 DWORD (PASCAL *pfnGetFontUnicodeRanges) (HDC device, GLYPHSET *ranges);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
140
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
141 /* Frame being updated by update_frame. This is declared in term.c.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
142 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
143 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
144 In that case, the w32 functions assume that `SELECTED_FRAME ()'
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
145 is the frame to apply to. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
146 extern struct frame *updating_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
147
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
148 /* This is a frame waiting to be autoraised, within w32_read_socket. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
149 struct frame *pending_autoraise_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
150
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
151 /* 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
152 HWND w32_system_caret_hwnd;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
153 int w32_system_caret_height;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
154 int w32_system_caret_x;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
155 int w32_system_caret_y;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
156 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
157
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
158 /* Flag to enable Unicode output in case users wish to use programs
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
159 like Twinbridge on '95 rather than installed system level support
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
160 for Far East languages. */
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
161 int w32_enable_unicode_output;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
162
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
163 DWORD dwWindowsThreadId = 0;
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
164 HANDLE hWindowsThread = NULL;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
165 DWORD dwMainThreadId = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
166 HANDLE hMainThread = NULL;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
167
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
168 #ifndef SIF_ALL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
169 /* These definitions are new with Windows 95. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
170 #define SIF_RANGE 0x0001
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
171 #define SIF_PAGE 0x0002
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
172 #define SIF_POS 0x0004
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
173 #define SIF_DISABLENOSCROLL 0x0008
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
174 #define SIF_TRACKPOS 0x0010
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
175 #define SIF_ALL (SIF_RANGE | SIF_PAGE | SIF_POS | SIF_TRACKPOS)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
176
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
177 typedef struct tagSCROLLINFO
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
178 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
179 UINT cbSize;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
180 UINT fMask;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
181 int nMin;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
182 int nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
183 UINT nPage;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
184 int nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
185 int nTrackPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
186 } SCROLLINFO, FAR *LPSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
187 typedef SCROLLINFO CONST FAR *LPCSCROLLINFO;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
188 #endif /* SIF_ALL */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
189
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
190 /* Dynamic linking to new proportional scroll bar functions. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
191 int (PASCAL *pfnSetScrollInfo) (HWND hwnd, int fnBar, LPSCROLLINFO lpsi, BOOL fRedraw);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
192 BOOL (PASCAL *pfnGetScrollInfo) (HWND hwnd, int fnBar, LPSCROLLINFO lpsi);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
193
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
194 int vertical_scroll_bar_min_handle;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
195 int vertical_scroll_bar_top_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
196 int vertical_scroll_bar_bottom_border;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
197
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
198 int last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
199
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
200 /* Mouse movement. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
201
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
202 /* Where the mouse was last time we reported a mouse event. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
203
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
204 static RECT last_mouse_glyph;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
205 static Lisp_Object last_mouse_press_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
206
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
207 Lisp_Object Vw32_num_mouse_buttons;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
208
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
209 Lisp_Object Vw32_swap_mouse_buttons;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
210
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
211 /* 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
212 Lisp_Object Vw32_grab_focus_on_raise;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
213
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
214 /* 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
215 Lisp_Object Vw32_capslock_is_shiftlock;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
216
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
217 /* 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
218 Lisp_Object Vw32_recognize_altgr;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
219
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
220 /* The scroll bar in which the last motion event occurred.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
221
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
222 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
223 so w32_mouse_position can know whether to report a scroll bar motion or
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
224 an ordinary motion.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
225
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
226 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
227 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
228 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
229 static int last_mouse_scroll_bar_pos;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
230
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
231 /* This is a hack. We would really prefer that w32_mouse_position would
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
232 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
233 doesn't seem to be any way to wrest the time-stamp from the server
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
234 along with the position query. So, we just keep track of the time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
235 of the last movement we received, and return that in hopes that
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
236 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
237
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
238 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
239
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
240 /* 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
241 events. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
242
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
243 #ifdef __STDC__
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
244 static int volatile input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
245 #else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
246 static int input_signal_count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
247 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
248
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
249 extern Lisp_Object Vcommand_line_args, Vsystem_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
250
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
251 extern Lisp_Object Qface, Qmouse_face;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
252
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
253 #ifndef USE_CRT_DLL
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
254 extern int errno;
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
255 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
256
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
257 /* A mask of extra modifier bits to put into every keyboard char. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
258
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
259 extern EMACS_INT extra_keyboard_modifiers;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
260
31116
bbd7763673b6 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 31010
diff changeset
261 static void x_update_window_end P_ ((struct window *, int, int));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
262 void w32_delete_display P_ ((struct w32_display_info *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
263 static void w32_handle_tool_bar_click P_ ((struct frame *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
264 struct input_event *));
49371
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
265 void w32_define_cursor P_ ((Window, Cursor));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
266
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
267 void x_lower_frame P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
268 void x_scroll_bar_clear P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
269 void x_wm_set_size_hint P_ ((struct frame *, long, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
270 void x_raise_frame P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
271 void x_set_window_size P_ ((struct frame *, int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
272 void x_wm_set_window_state P_ ((struct frame *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
273 void x_wm_set_icon_pixmap P_ ((struct frame *, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
274 void w32_initialize P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
275 static void x_font_min_bounds P_ ((XFontStruct *, int *, int *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
276 int x_compute_min_glyph_bounds P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
277 static void x_update_end P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
278 static void w32_frame_up_to_date P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
279 static void w32_set_terminal_modes P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
280 static void w32_reset_terminal_modes P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
281 static void x_clear_frame P_ ((void));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
282 static void frame_highlight P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
283 static void frame_unhighlight P_ ((struct frame *));
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
284 static void x_new_focus_frame P_ ((struct w32_display_info *,
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
285 struct frame *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
286 static void w32_frame_rehighlight P_ ((struct frame *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
287 static void x_frame_rehighlight P_ ((struct w32_display_info *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
288 static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *));
45507
b69bbd1285d1 (x_draw_bar_cursor): Update parameter list in declaration.
Jason Rumney <jasonr@gnu.org>
parents: 45467
diff changeset
289 static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int,
b69bbd1285d1 (x_draw_bar_cursor): Update parameter list in declaration.
Jason Rumney <jasonr@gnu.org>
parents: 45467
diff changeset
290 enum text_cursor_kinds));
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
291 static void w32_clip_to_row P_ ((struct window *, struct glyph_row *, HDC));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
292
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
293 static Lisp_Object Qvendor_specific_keysyms;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
294
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
295
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
296 /***********************************************************************
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
297 Debugging
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
298 ***********************************************************************/
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
299
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
300 #if 0
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
301
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
302 /* 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
303 the sequence of occurrences in this file. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
304
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
305 struct record
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
306 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
307 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
308 int type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
309 };
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
310
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
311 struct record event_record[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
312
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
313 int event_record_index;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
314
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
315 record_event (locus, type)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
316 char *locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
317 int type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
318 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
319 if (event_record_index == sizeof (event_record) / sizeof (struct record))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
320 event_record_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
321
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
322 event_record[event_record_index].locus = locus;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
323 event_record[event_record_index].type = type;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
324 event_record_index++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
325 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
326
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
327 #endif /* 0 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
328
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
329
50441
37738feb0204 Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents: 50376
diff changeset
330 void
37738feb0204 Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents: 50376
diff changeset
331 XChangeGC (void * ignore, XGCValues* gc, unsigned long mask,
37738feb0204 Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents: 50376
diff changeset
332 XGCValues *xgcv)
27402
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 if (mask & GCForeground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
335 gc->foreground = xgcv->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
336 if (mask & GCBackground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
337 gc->background = xgcv->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
338 if (mask & GCFont)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
339 gc->font = xgcv->font;
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 XGCValues *XCreateGC (void * ignore, Window window, unsigned long mask,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
343 XGCValues *xgcv)
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 XGCValues *gc = (XGCValues *) xmalloc (sizeof (XGCValues));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
346 bzero (gc, sizeof (XGCValues));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
347
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
348 XChangeGC (ignore, gc, mask, xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
349
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
350 return gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
351 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
352
50441
37738feb0204 Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents: 50376
diff changeset
353 void
37738feb0204 Break the line after the return type in function definition.
Richard M. Stallman <rms@gnu.org>
parents: 50376
diff changeset
354 XGetGCValues (void* ignore, XGCValues *gc,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
355 unsigned long mask, XGCValues *xgcv)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
356 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
357 XChangeGC (ignore, xgcv, mask, gc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
358 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
359
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
360 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
361 w32_set_clip_rectangle (HDC hdc, RECT *rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
362 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
363 if (rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
364 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
365 HRGN clip_region = CreateRectRgnIndirect (rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
366 SelectClipRgn (hdc, clip_region);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
367 DeleteObject (clip_region);
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
370 SelectClipRgn (hdc, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
371 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
372
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
373
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
374 /* Draw a hollow rectangle at the specified position. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
375 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
376 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
377 int width, int height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
378 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
379 HBRUSH hb, oldhb;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
380 HPEN hp, oldhp;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
381
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
382 hb = CreateSolidBrush (gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
383 hp = CreatePen (PS_SOLID, 0, gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
384 oldhb = SelectObject (hdc, hb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
385 oldhp = SelectObject (hdc, hp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
386
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
387 Rectangle (hdc, x, y, x + width, y + height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
388
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
389 SelectObject (hdc, oldhb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
390 SelectObject (hdc, oldhp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
391 DeleteObject (hb);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
392 DeleteObject (hp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
393 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
394
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
395 /* 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
396 void
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
397 w32_fill_rect (f, hdc, pix, lprect)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
398 FRAME_PTR f;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
399 HDC hdc;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
400 COLORREF pix;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
401 RECT * lprect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
402 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
403 HBRUSH hb;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
404
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
405 hb = CreateSolidBrush (pix);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
406 FillRect (hdc, lprect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
407 DeleteObject (hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
408 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
409
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
410 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
411 w32_clear_window (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
412 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
413 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
414 RECT rect;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
415 HDC hdc = get_frame_dc (f);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
416
34093
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
417 /* 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
418 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
419 of 0 indicates this. */
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
420 if (hdc)
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
421 {
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
422 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
423 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
424 }
d554a3ac3039 (x_draw_vertical_border): Fix call to w32_fill_rect.
Jason Rumney <jasonr@gnu.org>
parents: 33766
diff changeset
425
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
426 release_frame_dc (f, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
427 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
428
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
429
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
430 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
431 Starting and ending an update
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
432 ***********************************************************************/
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
433
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
434 /* 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
435 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
436 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
437 each window being updated. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
438
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
439 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
440 x_update_begin (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
441 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
442 {
34784
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
443 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
444
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
445 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
446 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
447
34784
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
448 /* 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
449 colors has changed. */
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
450 if (display_info->regen_palette)
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
451 {
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
452 w32_regenerate_palette (f);
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
453 display_info->regen_palette = FALSE;
d140f5fb3307 (x_update_begin): Regenerate the palette here, rather
Andrew Innes <andrewi@gnu.org>
parents: 34779
diff changeset
454 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
455 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
456
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
457
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
458 /* 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
459 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
460 position of W. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
461
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
462 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
463 x_update_window_begin (w)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
464 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
465 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
466 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
467 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
468
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
469 /* 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
470 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
471 {
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
472 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
473 }
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
474
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
475 updated_window = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
476 set_output_cursor (&w->cursor);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
477
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
478 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
479
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
480 if (f == display_info->mouse_face_mouse_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
481 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
482 /* 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
483 display_info->mouse_face_defer = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
484
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
485 /* 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
486 highlighting. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
487 if (FRAME_GARBAGED_P (f))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
488 display_info->mouse_face_window = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
489
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
490 #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
491 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
492 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
493 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
494 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
495 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
496
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
497 /* 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
498 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
499 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
500 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
501 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
502 if (!NILP (display_info->mouse_face_window)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
503 && w == XWINDOW (display_info->mouse_face_window))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
504 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
505 int i;
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 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
508 if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
509 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
510
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
511 if (i < w->desired_matrix->nrows)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
512 clear_mouse_face (display_info);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
513 }
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
514 #endif /* 0 */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
515 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
516
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
517 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
518 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
519
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
520 /* 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
521
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
522 static void
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
523 w32_draw_vertical_window_border (w, x, y0, y1)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
524 struct window *w;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
525 int x, y0, y1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
526 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
527 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
528 RECT r;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
529 HDC hdc;
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
530
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
531 r.left = x;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
532 r.right = x + 1;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
533 r.top = y0;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
534 r.bottom = y1;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
535
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
536 hdc = get_frame_dc (f);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
537 w32_fill_rect (f, hdc, FRAME_FOREGROUND_PIXEL (f), &r);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
538 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
539 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
540
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
541
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
542 /* 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
543
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
544 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
545 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
546
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
547 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
548 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
549 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
550
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
551 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
552 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
553 here. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
554
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
555 static void
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
556 x_update_window_end (w, cursor_on_p, mouse_face_overwritten_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
557 struct window *w;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
558 int cursor_on_p, mouse_face_overwritten_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
559 {
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
560 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
561
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
562 if (!w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
563 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
564 BLOCK_INPUT;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
565
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
566 if (cursor_on_p)
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
567 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
568 output_cursor.vpos,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
569 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
570
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
571 x_draw_vertical_border (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
572 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
573 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
574
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
575 /* 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
576 XTframe_up_to_date to redisplay the mouse highlight. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
577 if (mouse_face_overwritten_p)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
578 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
579 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
580 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
581 dpyinfo->mouse_face_window = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
582 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
583
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
584 /* 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
585 was visible before the corresponding call to HideCaret in
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
586 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
587 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
588 {
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
589 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
590 }
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
591
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
592 updated_window = NULL;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
593 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
594
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
595
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
596 /* 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
597 update_end. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
598
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
599 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
600 x_update_end (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
601 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
602 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
603 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
604 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
605
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
606 /* Mouse highlight may be displayed again. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
607 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
608 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
609
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
610
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
611 /* 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
612 complete update has been performed. The global variable
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
613 updated_window is not available here. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
614
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
615 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
616 w32_frame_up_to_date (f)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
617 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
618 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
619 if (FRAME_W32_P (f))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
620 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
621 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
622
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
623 if (dpyinfo->mouse_face_deferred_gc
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
624 || f == dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
625 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
626 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
627 if (dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
628 note_mouse_highlight (dpyinfo->mouse_face_mouse_frame,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
629 dpyinfo->mouse_face_mouse_x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
630 dpyinfo->mouse_face_mouse_y);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
631 dpyinfo->mouse_face_deferred_gc = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
632 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
633 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
634 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
635 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
636
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
637
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
638 /* Draw truncation mark bitmaps, continuation mark bitmaps, overlay
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
639 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
640 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
641 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
642 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
643 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
644
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
645 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
646 x_after_update_window_line (desired_row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
647 struct glyph_row *desired_row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
648 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
649 struct window *w = updated_window;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
650 struct frame *f;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
651 int width, height;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
652
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
653 xassert (w);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
654
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
655 if (!desired_row->mode_line_p && !w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
656 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
657 BLOCK_INPUT;
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
658 draw_row_fringe_bitmaps (w, desired_row);
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
659 UNBLOCK_INPUT;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
660 }
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
661
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
662 /* 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
663 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
664 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
665 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
666 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
667 overhead is very small. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
668 if (windows_or_buffers_changed
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
669 && desired_row->full_width_p
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
670 && (f = XFRAME (w->frame),
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
671 width = FRAME_INTERNAL_BORDER_WIDTH (f),
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
672 width != 0)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
673 && (height = desired_row->visible_height,
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
674 height > 0))
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
675 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
676 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
677
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
678 /* Internal border is drawn below the tool bar. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
679 if (WINDOWP (f->tool_bar_window)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
680 && w == XWINDOW (f->tool_bar_window))
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
681 y -= width;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
682
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
683 BLOCK_INPUT;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
684 {
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
685 HDC hdc = get_frame_dc (f);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
686 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
687 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
688 y, width, height);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
689 release_frame_dc (f, hdc);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
690 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
691 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
692 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
693 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
694
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
695
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
696 /* 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
697 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
698 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
699 drawn. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
700
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
701 static void
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
702 w32_draw_fringe_bitmap (w, row, p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
703 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
704 struct glyph_row *row;
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
705 struct draw_fringe_bitmap_params *p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
706 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
707 struct frame *f = XFRAME (WINDOW_FRAME (w));
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
708 HDC hdc;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
709 struct face *face = p->face;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
710
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
711 hdc = get_frame_dc (f);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
712
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
713 /* Must clip because of partially visible lines. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
714 w32_clip_to_row (w, row, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
715
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
716 if (p->bx >= 0)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
717 {
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
718 w32_fill_area (f, hdc, face->background,
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
719 p->bx, p->by, p->nx, p->ny);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
720 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
721
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
722 if (p->which != NO_FRINGE_BITMAP)
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
723 {
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
724 HBITMAP pixmap = fringe_bmp[p->which];
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
725 HDC compat_hdc;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
726 HANDLE horig_obj;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
727
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
728 compat_hdc = CreateCompatibleDC (hdc);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
729 SaveDC (hdc);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
730
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
731 horig_obj = SelectObject (compat_hdc, pixmap);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
732 SetTextColor (hdc, face->background);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
733 SetBkColor (hdc, face->foreground);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
734
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
735 BitBlt (hdc, p->x, p->y, p->wd, p->h,
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
736 compat_hdc, 0, p->dh,
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
737 SRCCOPY);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
738
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
739 SelectObject (compat_hdc, horig_obj);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
740 DeleteDC (compat_hdc);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
741 RestoreDC (hdc, -1);
41727
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
742 }
d5baaa7df054 Merged fringe width related changes from xterm.c.
Kim F. Storm <storm@cua.dk>
parents: 41639
diff changeset
743
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
744 w32_set_clip_rectangle (hdc, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
745
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
746 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
747 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
748
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
749
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
750 /* 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
751 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
752 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
753 rarely happens). */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
754
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
755 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
756 w32_set_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
757 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
758 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
759
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
760 /* 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
761 the W32 windows go away, and suspending requires no action. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
762
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
763 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
764 w32_reset_terminal_modes (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
765 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
766 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
767
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
768
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
769
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
770 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
771 Display Iterator
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
772 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
773
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
774 /* Function prototypes of this page. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
775
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
776 static XCharStruct *w32_per_char_metric P_ ((XFontStruct *,
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
777 wchar_t *, int));
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
778 static int w32_encode_char P_ ((int, wchar_t *, struct font_info *,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
779 struct charset *, int *));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
780
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
781
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
782 /* Get metrics of character CHAR2B in FONT. Value is always non-null.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
783 If CHAR2B is not contained in FONT, the font's default character
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
784 metric is returned. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
785
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
786 static int
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
787 w32_bdf_per_char_metric (font, char2b, dim, pcm)
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
788 XFontStruct *font;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
789 wchar_t *char2b;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
790 int dim;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
791 XCharStruct * pcm;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
792 {
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
793 glyph_metric * bdf_metric;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
794 char buf[2];
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
795
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
796 if (dim == 1)
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
797 buf[0] = (char)(*char2b);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
798 else
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
799 {
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
800 buf[0] = XCHAR2B_BYTE1 (char2b);
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
801 buf[1] = XCHAR2B_BYTE2 (char2b);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
802 }
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
803
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
804 bdf_metric = w32_BDF_TextMetric (font->bdf, buf, dim);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
805
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
806 if (bdf_metric)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
807 {
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
808 pcm->width = bdf_metric->dwidth;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
809 pcm->lbearing = bdf_metric->bbox;
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
810 pcm->rbearing = bdf_metric->dwidth
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
811 - (bdf_metric->bbox + bdf_metric->bbw);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
812 pcm->ascent = bdf_metric->bboy + bdf_metric->bbh;
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
813 pcm->descent = -bdf_metric->bboy;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
814
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
815 return 1;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
816 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
817 return 0;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
818 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
819
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
820
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
821 static int
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
822 w32_native_per_char_metric (font, char2b, font_type, pcm)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
823 XFontStruct *font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
824 wchar_t *char2b;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
825 enum w32_char_font_type font_type;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
826 XCharStruct * pcm;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
827 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
828 HDC hdc = GetDC (NULL);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
829 HFONT old_font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
830 BOOL retval = FALSE;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
831
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
832 xassert (font && char2b);
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
833 xassert (font->hfont);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
834 xassert (font_type == UNICODE_FONT || font_type == ANSI_FONT);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
835
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
836 old_font = SelectObject (hdc, font->hfont);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
837
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
838 if ((font->tm.tmPitchAndFamily & TMPF_TRUETYPE) != 0)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
839 {
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
840 ABC char_widths;
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
841
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
842 if (font_type == UNICODE_FONT)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
843 retval = GetCharABCWidthsW (hdc, *char2b, *char2b, &char_widths);
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
844 else
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
845 retval = GetCharABCWidthsA (hdc, *char2b, *char2b, &char_widths);
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
846
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
847 if (retval)
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
848 {
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
849 #if 0
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
850 /* Disabled until we can find a way to get the right results
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
851 on all versions of Windows. */
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
852
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
853 /* Don't trust the ABC widths. For synthesized fonts they are
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
854 wrong, and so is the result of GetCharWidth()! */
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
855 int real_width;
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
856 GetCharWidth (hdc, *char2b, *char2b, &real_width);
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
857 #endif
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
858 pcm->width = char_widths.abcA + char_widths.abcB + char_widths.abcC;
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
859 #if 0
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
860 /* As far as I can tell, this is the best way to determine what
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
861 ExtTextOut will do with the broken font. */
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
862 if (pcm->width != real_width)
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
863 pcm->width = (pcm->width + real_width) / 2;
43146
49ffe8f5efb6 (w32_native_per_char_metric): Disable 2002-01-20 change.
Jason Rumney <jasonr@gnu.org>
parents: 42934
diff changeset
864 #endif
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
865 pcm->lbearing = char_widths.abcA;
42844
38ae31587c80 (w32_native_per_char_metric): Don't trust the metrics
Jason Rumney <jasonr@gnu.org>
parents: 42794
diff changeset
866 pcm->rbearing = char_widths.abcA + char_widths.abcB;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
867 pcm->ascent = FONT_BASE (font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
868 pcm->descent = FONT_DESCENT (font);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
869 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
870 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
871
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
872 if (!retval)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
873 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
874 /* Either font is not a True-type font, or GetCharABCWidthsW
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
875 failed (it is not supported on Windows 9x for instance), so we
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
876 can't determine the full info we would like. All is not lost
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
877 though - we can call GetTextExtentPoint32 to get rbearing and
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
878 deduce width based on the font's per-string overhang. lbearing
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
879 is assumed to be zero. */
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
880
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
881 /* TODO: Some Thai characters (and other composites if Windows
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
882 supports them) do have lbearing, and report their total width
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
883 as zero. Need some way of handling them when
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
884 GetCharABCWidthsW fails. */
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
885 SIZE sz;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
886
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
887 if (font_type == UNICODE_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
888 retval = GetTextExtentPoint32W (hdc, char2b, 1, &sz);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
889 else
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
890 retval = GetTextExtentPoint32A (hdc, (char*)char2b, 1, &sz);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
891
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
892 if (retval)
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
893 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
894 pcm->width = sz.cx - font->tm.tmOverhang;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
895 pcm->rbearing = sz.cx;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
896 pcm->lbearing = 0;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
897 pcm->ascent = FONT_BASE (font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
898 pcm->descent = FONT_DESCENT (font);
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
899 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
900 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
901
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
902
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
903 if (pcm->width == 0 && (pcm->rbearing - pcm->lbearing) == 0)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
904 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
905 retval = FALSE;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
906 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
907
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
908 SelectObject (hdc, old_font);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
909 ReleaseDC (NULL, hdc);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
910
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
911 return retval;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
912 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
913
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
914
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
915 static XCharStruct *
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
916 w32_per_char_metric (font, char2b, font_type)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
917 XFontStruct *font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
918 wchar_t *char2b;
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
919 int /* enum w32_char_font_type */ font_type;
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
920 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
921 /* The result metric information. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
922 XCharStruct *pcm;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
923 BOOL retval;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
924
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
925 xassert (font && char2b);
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
926
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
927 /* TODO: This function is currently called through the RIF, and in
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
928 some cases font_type is UNKNOWN_FONT. We currently allow the
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
929 cached metrics to be used, which seems to work, but in cases
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
930 where font_type is UNKNOWN_FONT, we probably haven't encoded
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
931 char2b appropriately. All callers need checking to see what they
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
932 are passing. This is most likely to affect variable width fonts
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
933 outside the Latin-1 range, particularly in languages like Thai
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
934 that rely on rbearing and lbearing to provide composition. I
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
935 don't think that is working currently anyway, but we don't seem
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
936 to have anyone testing such languages on Windows. */
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
937
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
938 /* Handle the common cases quickly. */
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
939 if (!font->bdf && font->per_char == NULL)
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
940 /* TODO: determine whether char2b exists in font? */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
941 return &font->max_bounds;
34112
adfe753a8c4e (w32_bdf_per_char_metric): Dereference pointer correctly for single
Jason Rumney <jasonr@gnu.org>
parents: 34093
diff changeset
942 else if (!font->bdf && *char2b < 128)
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
943 return &font->per_char[*char2b];
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
944
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
945 xassert (font_type != UNKNOWN_FONT);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
946
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
947 pcm = &font->scratch;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
948
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
949 if (font_type == BDF_1D_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
950 retval = w32_bdf_per_char_metric (font, char2b, 1, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
951 else if (font_type == BDF_2D_FONT)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
952 retval = w32_bdf_per_char_metric (font, char2b, 2, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
953 else
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
954 retval = w32_native_per_char_metric (font, char2b, font_type, pcm);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
955
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
956 if (retval)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
957 return pcm;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
958
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
959 return NULL;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
960 }
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
961
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
962 void
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
963 w32_cache_char_metrics (font)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
964 XFontStruct *font;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
965 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
966 wchar_t char2b = L'x';
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
967
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
968 /* Cache char metrics for the common cases. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
969 if (font->bdf)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
970 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
971 /* TODO: determine whether font is fixed-pitch. */
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
972 if (!w32_bdf_per_char_metric (font, &char2b, 1, &font->max_bounds))
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
973 {
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
974 /* Use the font width and height as max bounds, as not all BDF
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
975 fonts contain the letter 'x'. */
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
976 font->max_bounds.width = FONT_MAX_WIDTH (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
977 font->max_bounds.lbearing = -font->bdf->llx;
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
978 font->max_bounds.rbearing = FONT_MAX_WIDTH (font) - font->bdf->urx;
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
979 font->max_bounds.ascent = FONT_BASE (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
980 font->max_bounds.descent = FONT_DESCENT (font);
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
981 }
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
982 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
983 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
984 {
32727
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
985 if (((font->tm.tmPitchAndFamily & TMPF_FIXED_PITCH) != 0)
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
986 /* Some fonts (eg DBCS fonts) are marked as fixed width even
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
987 though they contain characters of different widths. */
3ecb42f00b85 (w32_cache_char_metrics): Double check that font is
Jason Rumney <jasonr@gnu.org>
parents: 32720
diff changeset
988 || (font->tm.tmMaxCharWidth != font->tm.tmAveCharWidth))
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
989 {
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
990 /* Font is not fixed pitch, so cache per_char info for the
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
991 ASCII characters. It would be much more work, and probably
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
992 not worth it, to cache other chars, since we may change
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
993 between using Unicode and ANSI text drawing functions at
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
994 run-time. */
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
995 int i;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
996
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
997 font->per_char = xmalloc (128 * sizeof(XCharStruct));
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
998 for (i = 0; i < 128; i++)
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
999 {
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1000 char2b = i;
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1001 w32_native_per_char_metric (font, &char2b, ANSI_FONT,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1002 &font->per_char[i]);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1003 }
31624
417b6743c5fa (w32_per_char_metric): Handle non-TrueType fonts.
Andrew Innes <andrewi@gnu.org>
parents: 31116
diff changeset
1004 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1005 else
32720
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1006 w32_native_per_char_metric (font, &char2b, ANSI_FONT,
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1007 &font->max_bounds);
8530cd0a7455 (w32_per_char_metric): Remove HDC argument. Use
Andrew Innes <andrewi@gnu.org>
parents: 32670
diff changeset
1008 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1009 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1010
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1011
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1012 /* Determine if a font is double byte. */
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1013 int w32_font_is_double_byte (XFontStruct *font)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1014 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1015 return font->double_byte_p;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1016 }
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1017
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1018
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1019 static BOOL
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1020 w32_use_unicode_for_codepage (codepage)
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1021 int codepage;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1022 {
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1023 /* If the current codepage is supported, use Unicode for output. */
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1024 return (w32_enable_unicode_output
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1025 && codepage != CP_8BIT
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1026 && (codepage == CP_UNICODE || IsValidCodePage (codepage)));
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1027 }
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
1028
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1029 /* Encode CHAR2B using encoding information from FONT_INFO. CHAR2B is
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1030 the two-byte form of C. Encoding is returned in *CHAR2B. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1031
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1032 static int /* enum w32_char_font_type */
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1033 w32_encode_char (c, char2b, font_info, charset, two_byte_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1034 int c;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1035 wchar_t *char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1036 struct font_info *font_info;
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1037 struct charset *charset;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1038 int * two_byte_p;
27402
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 int codepage;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1041 int unicode_p = 0;
50163
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1042 int internal_two_byte_p = 0;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1043
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1044 XFontStruct *font = font_info->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1045
50163
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1046 internal_two_byte_p = w32_font_is_double_byte (font);
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1047 codepage = font_info->codepage;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1048
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1049 /* If font can output unicode, use the original unicode character. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1050 if ( font && !font->bdf && w32_use_unicode_for_codepage (codepage)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1051 && c >= 0x100)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1052 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1053 *char2b = c;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1054 unicode_p = 1;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1055 internal_two_byte_p = 1;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1056 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1057
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1058 /* FONT_INFO may define a scheme by which to encode byte1 and byte2.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1059 This may be either a program in a special encoder language or a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1060 fixed encoding. */
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1061 else if (font_info->font_encoder)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1062 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1063 /* It's a program. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1064 struct ccl_program *ccl = font_info->font_encoder;
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 if (CHARSET_DIMENSION (charset) == 1)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1067 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1068 ccl->reg[0] = CHARSET_ID (charset);
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1069 ccl->reg[1] = XCHAR2B_BYTE2 (char2b);
49371
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
1070 ccl->reg[2] = -1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1071 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1072 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1073 {
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1074 ccl->reg[0] = CHARSET_ID (charset);
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1075 ccl->reg[1] = XCHAR2B_BYTE1 (char2b);
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1076 ccl->reg[2] = XCHAR2B_BYTE2 (char2b);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1077 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1078
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1079 ccl_driver (ccl, NULL, NULL, 0, 0, Qnil);
27402
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 /* We assume that MSBs are appropriately set/reset by CCL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1082 program. */
50163
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1083 if (!internal_two_byte_p) /* 1-byte font */
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1084 STORE_XCHAR2B (char2b, 0, ccl->reg[1]);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1085 else
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1086 STORE_XCHAR2B (char2b, ccl->reg[1], ccl->reg[2]);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1087 }
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1088 else if (font_info->encoding_type)
27402
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 /* Fixed encoding scheme. See fontset.h for the meaning of the
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1091 encoding numbers. */
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1092 unsigned char enc = font_info->encoding_type;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1093
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1094 if ((enc == 1 || enc == 2)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1095 && CHARSET_DIMENSION (charset) == 2)
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1096 STORE_XCHAR2B (char2b, XCHAR2B_BYTE1 (char2b) | 0x80, XCHAR2B_BYTE2 (char2b));
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1097
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1098 if (enc == 1 || enc == 3 || (enc == 4 && CHARSET_DIMENSION (charset) == 1))
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1099 STORE_XCHAR2B (char2b, XCHAR2B_BYTE1 (char2b), XCHAR2B_BYTE2 (char2b) | 0x80);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1100 else if (enc == 4)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1101 {
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1102 int code = (int) (*char2b);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1103
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1104 JIS_TO_SJIS (code);
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89378
diff changeset
1105 STORE_XCHAR2B (char2b, (code >> 8), (code & 0xFF));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1106 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1107 }
50163
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1108
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1109 if (two_byte_p)
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1110 *two_byte_p = internal_two_byte_p;
6f30f0db5f30 (w32_encode_char): Prevent double-byte chars from crashing Emacs.
Jason Rumney <jasonr@gnu.org>
parents: 50154
diff changeset
1111
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1112 if (!font)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1113 return UNKNOWN_FONT;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1114 else if (font->bdf && CHARSET_DIMENSION (charset) == 1)
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1115 return BDF_1D_FONT;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1116 else if (font->bdf)
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1117 return BDF_2D_FONT;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1118 else if (unicode_p)
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1119 return UNICODE_FONT;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1120 else
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1121 return ANSI_FONT;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1122 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1123
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1124
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1125 /* Return a char-table whose elements are t if the font FONT_INFO
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1126 contains a glyph for the corresponding character, and nil if not.
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1127
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1128 Fixme: For the moment, this function works only for fonts whose
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1129 glyph encoding is the same as Unicode (e.g. ISO10646-1 fonts). */
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1130
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1131 Lisp_Object
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1132 x_get_font_repertory (f, font_info)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1133 FRAME_PTR f;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1134 struct font_info *font_info;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1135 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1136 XFontStruct *font = (XFontStruct *) font_info->font;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1137 Lisp_Object table;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1138 int min_byte1, max_byte1, min_byte2, max_byte2;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1139
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1140 table = Fmake_char_table (Qnil, Qnil);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1141
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1142 if (!font->bdf && pfnGetFontUnicodeRanges)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1143 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1144 GLYPHSET *glyphset;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1145 DWORD glyphset_size;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1146 HDC display = get_frame_dc (f);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1147 HFONT prev_font;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1148 int i;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1149
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1150 prev_font = SelectObject (display, font->hfont);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1151
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1152 /* First call GetFontUnicodeRanges to find out how big a structure
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1153 we need. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1154 glyphset_size = pfnGetFontUnicodeRanges (display, NULL);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1155 if (glyphset_size)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1156 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1157 glyphset = (GLYPHSET *) alloca (glyphset_size);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1158 glyphset->cbThis = glyphset_size;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1159
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1160 /* Now call it again to get the ranges. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1161 glyphset_size = pfnGetFontUnicodeRanges (display, glyphset);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1162
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1163 if (glyphset_size)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1164 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1165 /* Store the ranges in TABLE. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1166 for (i = 0; i < glyphset->cRanges; i++)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1167 {
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1168 int from = glyphset->ranges[i].wcLow;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1169 int to = from + glyphset->ranges[i].cGlyphs - 1;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1170 char_table_set_range (table, from, to, Qt);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1171 }
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1172 }
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1173 }
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1174
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1175 SelectObject (display, prev_font);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1176 release_frame_dc (f, display);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1177
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1178 /* If we got the information we wanted above, then return it. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1179 if (glyphset_size)
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1180 return table;
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1181 }
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1182
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1183 #if 0 /* TODO: Convert to work on Windows so BDF and older platforms work. */
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1184 /* When GetFontUnicodeRanges is not available or does not work,
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1185 work it out manually. */
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1186 min_byte1 = font->min_byte1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1187 max_byte1 = font->max_byte1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1188 min_byte2 = font->min_char_or_byte2;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1189 max_byte2 = font->max_char_or_byte2;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1190 if (min_byte1 == 0 && max_byte1 == 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1191 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1192 if (! font->per_char || font->all_chars_exist == True)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1193 char_table_set_range (table, min_byte2, max_byte2, Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1194 else
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1195 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1196 XCharStruct *pcm = font->per_char;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1197 int from = -1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1198 int i;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1199
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1200 for (i = min_byte2; i <= max_byte2; i++, pcm++)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1201 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1202 if (pcm->width == 0 && pcm->rbearing == pcm->lbearing)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1203 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1204 if (from >= 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1205 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1206 char_table_set_range (table, from, i - 1, Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1207 from = -1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1208 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1209 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1210 else if (from < 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1211 from = i;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1212 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1213 if (from >= 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1214 char_table_set_range (table, from, i - 1, Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1215 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1216 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1217 else
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1218 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1219 if (! font->per_char || font->all_chars_exist == True)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1220 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1221 int i;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1222
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1223 for (i = min_byte1; i <= max_byte1; i++)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1224 char_table_set_range (table,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1225 (i << 8) | min_byte2, (i << 8) | max_byte2,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1226 Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1227 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1228 else
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1229 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1230 XCharStruct *pcm = font->per_char;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1231 int i;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1232
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1233 for (i = min_byte1; i <= max_byte1; i++)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1234 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1235 int from = -1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1236 int j;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1237
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1238 for (j = min_byte2; j <= max_byte2; j++, pcm++)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1239 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1240 if (pcm->width == 0 && pcm->rbearing == pcm->lbearing)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1241 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1242 if (from >= 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1243 {
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1244 char_table_set_range (table, (i << 8) | from,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1245 (i << 8) | (j - 1), Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1246 from = -1;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1247 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1248 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1249 else if (from < 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1250 from = j;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1251 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1252 if (from >= 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1253 char_table_set_range (table, (i << 8) | from,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1254 (i << 8) | (j - 1), Qt);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1255 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1256 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1257 }
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
1258 #endif
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1259 return table;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1260 }
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
1261
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1262
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1263 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1264 Glyph display
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1265 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1266
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1267
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1268 /* Encapsulate the different ways of displaying text under W32. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1269
43470
842910bb2fc0 (w32_text_out): Renamed from W32_TEXTOUT.
Jason Rumney <jasonr@gnu.org>
parents: 43408
diff changeset
1270 static void
842910bb2fc0 (w32_text_out): Renamed from W32_TEXTOUT.
Jason Rumney <jasonr@gnu.org>
parents: 43408
diff changeset
1271 w32_text_out (s, x, y,chars,nchars)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1272 struct glyph_string * s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1273 int x, y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1274 wchar_t * chars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1275 int nchars;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1276 {
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1277 int charset_dim = w32_font_is_double_byte (s->gc->font) ? 2 : 1;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1278 if (s->gc->font->bdf)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1279 w32_BDF_TextOut (s->gc->font->bdf, s->hdc,
33037
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1280 x, y, (char *) chars, charset_dim,
365605845e33 (w32_bdf_per_char_metric): Negate descent.
Jason Rumney <jasonr@gnu.org>
parents: 32988
diff changeset
1281 nchars * charset_dim, 0);
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1282 else if (s->first_glyph->font_type == UNICODE_FONT)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1283 ExtTextOutW (s->hdc, x, y, 0, NULL, chars, nchars, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1284 else
43470
842910bb2fc0 (w32_text_out): Renamed from W32_TEXTOUT.
Jason Rumney <jasonr@gnu.org>
parents: 43408
diff changeset
1285 ExtTextOutA (s->hdc, x, y, 0, NULL, (char *) chars,
842910bb2fc0 (w32_text_out): Renamed from W32_TEXTOUT.
Jason Rumney <jasonr@gnu.org>
parents: 43408
diff changeset
1286 nchars * charset_dim, NULL);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1287 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1288
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1289
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1290
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1291 static void x_set_glyph_string_clipping P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1292 static void x_set_glyph_string_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1293 static void x_draw_glyph_string_background P_ ((struct glyph_string *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1294 int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1295 static void x_draw_glyph_string_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1296 static void x_draw_composite_glyph_string_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1297 static void x_draw_glyph_string_box P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1298 static void x_draw_glyph_string P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1299 static void x_set_cursor_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1300 static void x_set_mode_line_face_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1301 static void x_set_mouse_face_gc P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1302 static int w32_alloc_lighter_color (struct frame *, COLORREF *, double, int);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1303 static void w32_setup_relief_color P_ ((struct frame *, struct relief *,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1304 double, int, COLORREF));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1305 static void x_setup_relief_colors P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1306 static void x_draw_image_glyph_string P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1307 static void x_draw_image_relief P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1308 static void x_draw_image_foreground P_ ((struct glyph_string *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1309 static void w32_draw_image_foreground_1 P_ ((struct glyph_string *, HBITMAP));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1310 static void x_clear_glyph_string_rect P_ ((struct glyph_string *, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1311 int, int, int));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1312 static void w32_draw_relief_rect P_ ((struct frame *, int, int, int, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1313 int, int, int, int, RECT *));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1314 static void w32_draw_box_rect P_ ((struct glyph_string *, int, int, int, int,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1315 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
1316
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1317 #if GLYPH_DEBUG
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1318 static void x_check_font P_ ((struct frame *, XFontStruct *));
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1319 #endif
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1320
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1321
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1322 /* 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
1323 face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1324
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1325 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1326 x_set_cursor_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1327 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1328 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1329 if (s->font == FRAME_FONT (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1330 && s->face->background == FRAME_BACKGROUND_PIXEL (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1331 && s->face->foreground == FRAME_FOREGROUND_PIXEL (s->f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1332 && !s->cmp)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1333 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
1334 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1335 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1336 /* Cursor on non-default face: must merge. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1337 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1338 unsigned long mask;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1339
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1340 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
1341 xgcv.foreground = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1342
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1343 /* 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
1344 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1345 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1346 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1347 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
1348 if (xgcv.foreground == xgcv.background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1349 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1350
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1351 /* 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
1352 if (xgcv.background == s->face->background
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1353 && xgcv.foreground == s->face->foreground)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1354 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1355 xgcv.background = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1356 xgcv.foreground = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1357 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1358
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1359 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
1360 xgcv.font = s->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1361 mask = GCForeground | GCBackground | GCFont;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1362
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1363 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
1364 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
1365 mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1366 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1367 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
1368 = XCreateGC (NULL, s->window, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1369
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1370 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
1371 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1372 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1373
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1374
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1375 /* 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
1376
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1377 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1378 x_set_mouse_face_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1379 struct glyph_string *s;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1380 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1381 int face_id;
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1382 struct face *face;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1383
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1384 /* 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
1385 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
1386 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
1387 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
1388 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
1389
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1390 if (s->first_glyph->type == CHAR_GLYPH)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1391 face_id = FACE_FOR_CHAR (s->f, face, s->first_glyph->u.ch);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1392 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
1393 face_id = FACE_FOR_CHAR (s->f, face, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1394 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
1395 PREPARE_FACE_FOR_DISPLAY (s->f, s->face);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1396
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1397 /* 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
1398 if (s->font == s->face->font)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1399 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1400 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1401 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1402 /* 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
1403 but font FONT. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1404 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1405 unsigned long mask;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1406
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1407 xgcv.background = s->face->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1408 xgcv.foreground = s->face->foreground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1409 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
1410 xgcv.font = s->font;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1411 mask = GCForeground | GCBackground | GCFont;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1412
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1413 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
1414 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
1415 mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1416 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1417 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
1418 = 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
1419
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1420 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
1421 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1422
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1423 xassert (s->gc != 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1424 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1425
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1426
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1427 /* 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
1428 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
1429 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
1430
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1431 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1432 x_set_mode_line_face_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1433 struct glyph_string *s;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1434 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1435 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1436 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1437
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1438
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1439 /* 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
1440 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
1441 pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1442
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1443 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1444 x_set_glyph_string_gc (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1445 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1446 {
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
1447 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
1448
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1449 if (s->hl == DRAW_NORMAL_TEXT)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1450 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1451 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1452 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1453 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1454 else if (s->hl == DRAW_INVERSE_VIDEO)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1455 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1456 x_set_mode_line_face_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1457 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1458 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1459 else if (s->hl == DRAW_CURSOR)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1460 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1461 x_set_cursor_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1462 s->stippled_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1463 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1464 else if (s->hl == DRAW_MOUSE_FACE)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1465 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1466 x_set_mouse_face_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1467 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1468 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1469 else if (s->hl == DRAW_IMAGE_RAISED
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1470 || s->hl == DRAW_IMAGE_SUNKEN)
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 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1473 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1474 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1475 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1476 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1477 s->gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1478 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1479 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1480
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1481 /* GC must have been set. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1482 xassert (s->gc != 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1483 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1484
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1485
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1486 /* 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
1487 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
1488
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1489 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1490 x_set_glyph_string_clipping (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1491 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1492 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1493 RECT r;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
1494 get_glyph_string_clip_rect (s, &r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1495 w32_set_clip_rectangle (s->hdc, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1496 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1497
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1498
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1499 /* RIF:
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1500 Compute left and right overhang of glyph string S. If S is a glyph
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1501 string for a composition, assume overhangs don't exist. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1502
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1503 static void
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1504 w32_compute_glyph_string_overhangs (s)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1505 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1506 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1507 /* TODO: Windows does not appear to have a method for
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
1508 getting this info without getting the ABC widths for each
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
1509 individual character and working it out manually. */
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1512
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1513 static void
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1514 w32_get_glyph_overhangs (glyph, f, left, right)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1515 struct glyph *glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1516 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1517 int *left, *right;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1518 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1519 HDC hdc = get_frame_dc (f);
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
1520 /* Convert to unicode! */
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1521 x_get_glyph_overhangs (glyph, f, left, right);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1522 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1523 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1524
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1525
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1526 /* 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
1527
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1528 static INLINE void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1529 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
1530 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1531 int x, y, w, h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1532 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1533 int real_x = x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1534 int real_y = y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1535 int real_w = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1536 int real_h = h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1537 #if 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1538 /* Take clipping into account. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1539 if (s->gc->clip_mask == Rect)
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 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
1542 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
1543 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
1544 - s->gc->clip_rectangle.left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1545 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
1546 - s->gc->clip_rectangle.top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1547 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1548 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1549 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
1550 real_w, real_h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1551 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1552
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1553
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1554 /* 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
1555 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
1556 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
1557 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
1558 contains the first component of a composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1559
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1560 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1561 x_draw_glyph_string_background (s, force_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1562 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1563 int force_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1564 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1565 /* 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
1566 shouldn't be drawn in the first place. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1567 if (!s->background_filled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1568 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1569 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
1570
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1571 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1572 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1573 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1574 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1575 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1576 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
1577 s->y + box_line_width,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1578 s->background_width,
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1579 s->height - 2 * box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1580 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1581 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1582 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1583 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1584 #endif
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1585 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
1586 || s->font_not_found_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1587 || s->extends_to_end_of_line_p
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
1588 || s->font->bdf
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1589 || force_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1590 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1591 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
1592 s->background_width,
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1593 s->height - 2 * box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1594 s->background_filled_p = 1;
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 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1597 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1598
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1599
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1600 /* Draw the foreground of glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1601
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1602 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1603 x_draw_glyph_string_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1604 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1605 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1606 int i, x;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1607 HFONT old_font;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1608
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1609 /* 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
1610 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
1611 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1612 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1613 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1614 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1615 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1616
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1617 if (s->for_overlaps_p || (s->background_filled_p && s->hl != DRAW_CURSOR))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1618 SetBkMode (s->hdc, TRANSPARENT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1619 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1620 SetBkMode (s->hdc, OPAQUE);
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 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1623 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1624 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1625
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1626 if (s->font && s->font->hfont)
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1627 old_font = SelectObject (s->hdc, s->font->hfont);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1628
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1629 /* 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
1630 loaded. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1631 if (s->font_not_found_p)
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 for (i = 0; i < s->nchars; ++i)
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 struct glyph *g = s->first_glyph + i;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1636
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1637 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
1638 s->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1639 x += g->pixel_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1640 }
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1643 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1644 char *char1b = (char *) s->char2b;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1645 int boff = s->font_info->baseline_offset;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1646
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1647 if (s->font_info->vertical_centering)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1648 boff = VCENTER_BASELINE_OFFSET (s->font, s->f) - boff;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1649
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1650 /* If we can use 8-bit functions, condense S->char2b. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1651 if (!s->two_byte_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1652 for (i = 0; i < s->nchars; ++i)
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
1653 char1b[i] = XCHAR2B_BYTE2 (&s->char2b[i]);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1654
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1655 /* Draw text with TextOut and friends. */
43470
842910bb2fc0 (w32_text_out): Renamed from W32_TEXTOUT.
Jason Rumney <jasonr@gnu.org>
parents: 43408
diff changeset
1656 w32_text_out (s, x, s->ybase - boff, s->char2b, s->nchars);
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1657
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1658 if (s->face->overstrike)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1659 {
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1660 /* For overstriking (to simulate bold-face), draw the
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1661 characters again shifted to the right by one pixel. */
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1662 w32_text_out (s, x + 1, s->ybase - boff, s->char2b, s->nchars);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1663 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1664 }
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1665 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1666 SelectObject (s->hdc, old_font);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1667 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1668
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1669 /* Draw the foreground of composite glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1670
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1671 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1672 x_draw_composite_glyph_string_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1673 struct glyph_string *s;
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 int i, x;
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1676 HFONT old_font;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1677
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1678 /* 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
1679 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
1680 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1681 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
1682 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1683 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1684 x = s->x;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1685
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1686 /* S is a glyph string for a composition. S->gidx is the index of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1687 the first character drawn for glyphs of this composition.
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1688 S->gidx == 0 means we are drawing the very first character of
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1689 this composition. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1690
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1691 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1692 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1693 SetBkMode (s->hdc, TRANSPARENT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1694 SetTextAlign (s->hdc, TA_BASELINE | TA_LEFT);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1695
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1696 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1697 old_font = SelectObject (s->hdc, s->font->hfont);
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1698
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1699 /* 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
1700 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
1701 if (s->font_not_found_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1702 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1703 if (s->gidx == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1704 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
1705 s->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1706 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1707 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1708 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1709 for (i = 0; i < s->nchars; i++, ++s->gidx)
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1710 {
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1711 w32_text_out (s, x + s->cmp->offsets[s->gidx * 2],
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1712 s->ybase - s->cmp->offsets[s->gidx * 2 + 1],
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1713 s->char2b + i, 1);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1714 if (s->face->overstrike)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1715 w32_text_out (s, x + s->cmp->offsets[s->gidx * 2] + 1,
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1716 s->ybase - s->cmp->offsets[s->gidx * 2 + 1],
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1717 s->char2b + i, 1);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1718 }
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1719 }
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
1720
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1721 if (s->font && s->font->hfont)
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1722 SelectObject (s->hdc, old_font);
27402
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
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1725
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1726 /* 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
1727 boosted.
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1728
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1729 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
1730 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
1731 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
1732 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
1733 use an additional additive factor.
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1734
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1735 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
1736 (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
1737 #define HIGHLIGHT_COLOR_DARK_BOOST_LIMIT 187
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1738
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1739
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1740 /* 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
1741 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
1742 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
1743 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
1744 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
1745 Value is non-zero if successful. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1746
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1747 static int
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1748 w32_alloc_lighter_color (f, color, factor, delta)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1749 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1750 COLORREF *color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1751 double factor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1752 int delta;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1753 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1754 COLORREF new;
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1755 long bright;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1756
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1757 /* 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
1758 delta /= 256;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1759
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1760 /* Change RGB values by specified FACTOR. Avoid overflow! */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1761 xassert (factor >= 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1762 new = PALETTERGB (min (0xff, factor * GetRValue (*color)),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1763 min (0xff, factor * GetGValue (*color)),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1764 min (0xff, factor * GetBValue (*color)));
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1765
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1766 /* Calculate brightness of COLOR. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1767 bright = (2 * GetRValue (*color) + 3 * GetGValue (*color)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1768 + GetBValue (*color)) / 6;
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1769
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1770 /* 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
1771 HIGHLIGHT_COLOR_DARK_BOOST_LIMIT. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1772 if (bright < HIGHLIGHT_COLOR_DARK_BOOST_LIMIT)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1773 /* 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
1774 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
1775 {
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1776 /* 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
1777 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
1778 /* The additive adjustment. */
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1779 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
1780
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1781 if (factor < 1)
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1782 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
1783 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
1784 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
1785 else
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1786 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
1787 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
1788 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
1789 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1790
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1791 if (new == *color)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1792 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
1793 max (0, min (0xff, delta + GetGValue (*color))),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1794 max (0, min (0xff, delta + GetBValue (*color))));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1795
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1796 /* 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
1797 /* TODO: Free colors (if using palette)? */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1798
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1799 if (new == *color)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1800 return 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1801
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1802 *color = new;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1803
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1804 return 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1805 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1806
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 /* 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
1809 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
1810 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
1811 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
1812 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
1813 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
1814
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1815 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1816 w32_setup_relief_color (f, relief, factor, delta, default_pixel)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
1817 struct frame *f;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1818 struct relief *relief;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1819 double factor;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1820 int delta;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1821 COLORREF default_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1822 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1823 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1824 struct w32_output *di = f->output_data.w32;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1825 unsigned long mask = GCForeground;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1826 COLORREF pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1827 COLORREF background = di->relief_background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1828 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
1829
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1830 /* TODO: Free colors (if using palette)? */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
1831
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1832 /* Allocate new color. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1833 xgcv.foreground = default_pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1834 pixel = background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1835 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
1836 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1837 relief->allocated_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1838 xgcv.foreground = relief->pixel = pixel;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1839 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1840
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1841 if (relief->gc == 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1842 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
1843 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1844 xgcv.stipple = dpyinfo->gray;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1845 mask |= GCStipple;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1846 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1847 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
1848 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1849 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1850 XChangeGC (NULL, relief->gc, mask, &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1851 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1852
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1853
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1854 /* 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
1855
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1856 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1857 x_setup_relief_colors (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1858 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1859 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1860 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
1861 COLORREF color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1862
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1863 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
1864 color = s->face->box_color;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
1865 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
1866 && s->img->pixmap
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
1867 && !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
1868 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
1869 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1870 color = s->gc->background;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1871
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1872 if (di->white_relief.gc == 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1873 || color != di->relief_background)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1874 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1875 di->relief_background = color;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1876 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
1877 WHITE_PIX_DEFAULT (s->f));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1878 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
1879 BLACK_PIX_DEFAULT (s->f));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1880 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1881 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1882
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1883
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1884 /* 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
1885 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
1886 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
1887 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
1888 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
1889 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
1890 when drawing. */
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 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1893 w32_draw_relief_rect (f, left_x, top_y, right_x, bottom_y, width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1894 raised_p, left_p, right_p, clip_rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1895 struct frame *f;
49371
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
1896 int left_x, top_y, right_x, bottom_y, width, left_p, right_p, raised_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1897 RECT *clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1898 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
1899 int i;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1900 XGCValues gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1901 HDC hdc = get_frame_dc (f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1902
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1903 if (raised_p)
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1904 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
1905 else
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1906 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
1907
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1908 w32_set_clip_rectangle (hdc, clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1909
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1910 /* Top. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1911 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1912 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1913 left_x + i * left_p, top_y + i,
44238
ed87203c48f5 (w32_draw_relief_rect): Fix calculations of line lengths.
Jason Rumney <jasonr@gnu.org>
parents: 44108
diff changeset
1914 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
1915
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1916 /* Left. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1917 if (left_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1918 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1919 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1920 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
1921 bottom_y - top_y - 2 * i + 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1922
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1923 if (raised_p)
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1924 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
1925 else
33524
cf8e03cd4985 (HIGHLIGHT_COLOR_DARK_BOOST_LIMIT): New constant.
Jason Rumney <jasonr@gnu.org>
parents: 33386
diff changeset
1926 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
1927
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1928 /* Bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1929 for (i = 0; i < width; ++i)
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1930 w32_fill_area (f, hdc, gc.foreground,
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1931 left_x + i * left_p, bottom_y - i,
44238
ed87203c48f5 (w32_draw_relief_rect): Fix calculations of line lengths.
Jason Rumney <jasonr@gnu.org>
parents: 44108
diff changeset
1932 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
1933
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1934 /* Right. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1935 if (right_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1936 for (i = 0; i < width; ++i)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1937 w32_fill_area (f, hdc, gc.foreground,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
1938 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
1939 bottom_y - top_y - 2 * i - 1);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1940
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1941 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
1942
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1943 release_frame_dc (f, hdc);
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1946
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1947 /* 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
1948 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
1949 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
1950 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
1951 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
1952 rectangle to use when drawing. */
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 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1955 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
1956 left_p, right_p, clip_rect)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1957 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1958 int left_x, top_y, right_x, bottom_y, width, left_p, right_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1959 RECT *clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1960 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1961 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
1962
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1963 /* Top. */
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1964 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
1965 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
1966
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1967 /* Left. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1968 if (left_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1969 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1970 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
1971 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
1972 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
1973
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1974 /* Bottom. */
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1975 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
1976 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
1977
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1978 /* Right. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1979 if (right_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1980 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1981 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
1982 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
1983 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1984
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
1985 w32_set_clip_rectangle (s->hdc, NULL);
27402
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1989 /* Draw a box around glyph string S. */
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 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1992 x_draw_glyph_string_box (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1993 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1994 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1995 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
1996 int left_p, right_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1997 struct glyph *last_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1998 RECT clip_rect;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
1999
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2000 last_x = window_box_right (s->w, s->area);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2001 if (s->row->full_width_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2002 && !s->w->pseudo_window_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2003 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
2004 last_x += WINDOW_RIGHT_SCROLL_BAR_AREA_WIDTH (s->w);
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
2005 if (s->area != RIGHT_MARGIN_AREA
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
2006 || WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (s->w))
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
2007 last_x += WINDOW_RIGHT_FRINGE_WIDTH (s->w);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2008 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2009
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2010 /* 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
2011 last_glyph = (s->cmp || s->img
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2012 ? s->first_glyph
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2013 : s->first_glyph + s->nchars - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2014
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2015 width = abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2016 raised_p = s->face->box == FACE_RAISED_BOX;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2017 left_x = s->x;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2018 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
2019 ? last_x - 1
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2020 : 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
2021 top_y = s->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2022 bottom_y = top_y + s->height - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2023
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2024 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
2025 || (s->hl == DRAW_MOUSE_FACE
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2026 && (s->prev == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2027 || s->prev->hl != s->hl)));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2028 right_p = (last_glyph->right_box_line_p
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2029 || (s->hl == DRAW_MOUSE_FACE
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2030 && (s->next == NULL
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2031 || 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
2032
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2033 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
2034
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2035 if (s->face->box == FACE_SIMPLE_BOX)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2036 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
2037 left_p, right_p, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2038 else
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 x_setup_relief_colors (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2041 w32_draw_relief_rect (s->f, left_x, top_y, right_x, bottom_y,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2042 width, raised_p, left_p, right_p, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2043 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2044 }
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2047 /* Draw foreground of image glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2048
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2049 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2050 x_draw_image_foreground (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2051 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2052 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2053 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2054 int y = s->ybase - image_ascent (s->img, s->face);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2055
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2056 /* 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
2057 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2058 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2059 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2060 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2061 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2062 x = s->x;
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 /* 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
2065 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2066 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2067 y += s->img->vmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2068
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2069 SaveDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2070
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2071 if (s->img->pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2072 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2073 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
2074 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
2075 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
2076 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
2077 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
2078 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
2079 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
2080
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2081 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2082 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2083 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
2084 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
2085
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2086 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
2087 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
2088
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2089 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
48352
9fde360ca455 (x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 48345
diff changeset
2090 compat_hdc, 0, 0, SRCINVERT);
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2091 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2092 mask_dc, 0, 0, SRCAND);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2093 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
48352
9fde360ca455 (x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 48345
diff changeset
2094 compat_hdc, 0, 0, SRCINVERT);
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2095
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2096 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
2097 DeleteDC (mask_dc);
27402
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2100 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2101 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
2102 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
2103
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2104 BitBlt (s->hdc, x, y, s->img->width, s->img->height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2105 compat_hdc, 0, 0, SRCCOPY);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2106
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2107 /* 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
2108 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
2109 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
2110 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
2111 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
2112 nothing here for mouse-face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2113 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
2114 {
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2115 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
2116 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
2117 w32_draw_rectangle (s->hdc, s->gc, x - r, y - r ,
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2118 s->img->width + r*2 - 1, s->img->height + r*2 - 1);
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2119 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2120 }
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2121
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2122 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
2123 SelectObject (s->hdc, orig_brush);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2124 DeleteObject (fg_brush);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2125 SelectObject (compat_hdc, orig_obj);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2126 DeleteDC (compat_hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2127 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2128 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2129 w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width -1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2130 s->img->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2131
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2132 RestoreDC (s->hdc ,-1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2133 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2134
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2135
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2136
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2137 /* 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
2138
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2139 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2140 x_draw_image_relief (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2141 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2142 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2143 int x0, y0, x1, y1, thick, raised_p;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2144 RECT r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2145 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2146 int y = s->ybase - image_ascent (s->img, s->face);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2147
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2148 /* 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
2149 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2150 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2151 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2152 x = s->x + abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2153 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2154 x = s->x;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2155
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2156 /* 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
2157 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2158 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2159 y += s->img->vmargin;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2160
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2161 if (s->hl == DRAW_IMAGE_SUNKEN
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2162 || s->hl == DRAW_IMAGE_RAISED)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2163 {
42538
2b4179d13ed7 (x_setup_relief_colors): Don't compute an image's
Jason Rumney <jasonr@gnu.org>
parents: 42206
diff changeset
2164 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
2165 raised_p = s->hl == DRAW_IMAGE_RAISED;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2166 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2167 else
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 thick = abs (s->img->relief);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2170 raised_p = s->img->relief > 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2171 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2172
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2173 x0 = x - thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2174 y0 = y - thick;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2175 x1 = x + s->img->width + thick - 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2176 y1 = y + s->img->height + thick - 1;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2177
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2178 x_setup_relief_colors (s);
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2179 get_glyph_string_clip_rect (s, &r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2180 w32_draw_relief_rect (s->f, x0, y0, x1, y1, thick, raised_p, 1, 1, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2181 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2182
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2183
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2184 /* 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
2185
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2186 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2187 w32_draw_image_foreground_1 (s, pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2188 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2189 HBITMAP pixmap;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2190 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2191 HDC hdc = CreateCompatibleDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2192 HGDIOBJ orig_hdc_obj = SelectObject (hdc, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2193 int x;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2194 int y = s->ybase - s->y - image_ascent (s->img, s->face);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2195
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2196 /* 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
2197 right of that line. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2198 if (s->face->box != FACE_NO_BOX
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2199 && s->first_glyph->left_box_line_p)
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2200 x = abs (s->face->box_line_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2201 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2202 x = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2203
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2204 /* 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
2205 by that margin. */
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2206 x += s->img->hmargin;
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2207 y += s->img->vmargin;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2208
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2209 if (s->img->pixmap)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2210 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2211 HDC compat_hdc = CreateCompatibleDC (hdc);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2212 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
2213 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
2214 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
2215
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2216 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2217 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2218 HDC mask_dc = CreateCompatibleDC (hdc);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2219 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
2220
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2221 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
2222 SetBkColor (hdc, RGB (255, 255, 255));
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2223 BitBlt (hdc, x, y, s->img->width, s->img->height,
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2224 compat_hdc, 0, 0, SRCINVERT);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2225 BitBlt (hdc, x, y, s->img->width, s->img->height,
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2226 mask_dc, 0, 0, SRCAND);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2227 BitBlt (hdc, x, y, s->img->width, s->img->height,
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2228 compat_hdc, 0, 0, SRCINVERT);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2229
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2230 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
2231 DeleteDC (mask_dc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2232 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2233 else
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2234 {
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2235 SetTextColor (hdc, s->gc->foreground);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2236 SetBkColor (hdc, s->gc->background);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2237
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2238 BitBlt (hdc, x, y, s->img->width, s->img->height,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2239 compat_hdc, 0, 0, SRCCOPY);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2240
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2241 /* 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
2242 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
2243 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
2244 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
2245 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
2246 nothing here for mouse-face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2247 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
2248 {
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2249 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
2250 if (r < 0) r = -r;
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2251 w32_draw_rectangle (hdc, s->gc, x - r, y - r ,
45196
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2252 s->img->width + r*2 - 1, s->img->height + r*2 - 1);
fb8359237a78 (x_draw_image_foreground, w32_draw_image_foreground_1):
Kim F. Storm <storm@cua.dk>
parents: 44641
diff changeset
2253 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2254 }
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2255
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2256 SelectObject (hdc, orig_brush);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2257 DeleteObject (fg_brush);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2258 SelectObject (compat_hdc, orig_obj);
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2259 DeleteDC (compat_hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2260 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2261 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2262 w32_draw_rectangle (hdc, s->gc, x, y, s->img->width - 1,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2263 s->img->height - 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2264
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2265 SelectObject (hdc, orig_hdc_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2266 DeleteDC (hdc);
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2269
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2270 /* 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
2271 give the rectangle to draw. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2272
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2273 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2274 x_draw_glyph_string_bg_rect (s, x, y, w, h)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2275 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2276 int x, y, w, h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2277 {
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2278 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2279 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2280 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2281 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2282 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2283 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
2284 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2285 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2286 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2287 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2288 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
2289 }
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
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2292 /* Draw image glyph string S.
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2293
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2294 s->y
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2295 s->x +-------------------------
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2296 | s->face->box
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2297 |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2298 | +-------------------------
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2299 | | s->img->vmargin
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2300 | |
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2301 | | +-------------------
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2302 | | | the image
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2303
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2304 */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2305
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2306 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2307 x_draw_image_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2308 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2309 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2310 int x, y;
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2311 int box_line_hwidth = abs (s->face->box_line_width);
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2312 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
2313 int height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2314 HBITMAP pixmap = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2315
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2316 height = s->height - 2 * box_line_vwidth;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2317
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2318 /* 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
2319 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
2320 flickering. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2321 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2322 if (height > s->img->height
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2323 || s->img->hmargin
35287
28e0cac22fbd (x_produce_image_glyph, x_draw_image_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 35000
diff changeset
2324 || s->img->vmargin
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2325 || s->img->mask
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2326 || s->img->pixmap == 0
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2327 || s->width != s->background_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2328 {
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2329 if (box_line_hwidth && s->first_glyph->left_box_line_p)
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2330 x = s->x + box_line_hwidth;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2331 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2332 x = s->x;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2333
36045
8be6a1c85409 (x_produce_image_glyph): Pay attention to the case that
Andrew Innes <andrewi@gnu.org>
parents: 36002
diff changeset
2334 y = s->y + box_line_vwidth;
48345
44c0f878e8b9 (x_draw_image_foreground, x_draw_image_glyph_string)
Jason Rumney <jasonr@gnu.org>
parents: 48218
diff changeset
2335 #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
2336 if (s->img->mask)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2337 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
2338 /* 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
2339 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
2340 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
2341 Screen *screen = FRAME_X_SCREEN (s->f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2342 int depth = DefaultDepthOfScreen (screen);
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 /* 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
2345 pixmap = XCreatePixmap (s->display, s->window,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2346 s->background_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2347 s->height, depth);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2348
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2349 /* 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
2350 pixmap. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2351 XSetClipMask (s->display, s->gc, None);
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 /* Fill the pixmap with the background color/stipple. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2354 if (s->stippled_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2355 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2356 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2357 XSetFillStyle (s->display, s->gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2358 XFillRectangle (s->display, pixmap, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2359 0, 0, s->background_width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2360 XSetFillStyle (s->display, s->gc, FillSolid);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2361 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2362 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2363 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2364 XGCValues xgcv;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2365 XGetGCValues (s->display, s->gc, GCForeground | GCBackground,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2366 &xgcv);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2367 XSetForeground (s->display, s->gc, xgcv.background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2368 XFillRectangle (s->display, pixmap, s->gc,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2369 0, 0, s->background_width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2370 XSetForeground (s->display, s->gc, xgcv.foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2371 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2372 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2373 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2374 #endif
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2375 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
2376
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2377 s->background_filled_p = 1;
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2380 /* Draw the foreground. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2381 if (pixmap != 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2382 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2383 w32_draw_image_foreground_1 (s, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2384 x_set_glyph_string_clipping (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2385 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2386 HDC compat_hdc = CreateCompatibleDC (s->hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2387 HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2388 HBRUSH orig_brush = SelectObject (s->hdc, fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2389 HGDIOBJ orig_obj = SelectObject (compat_hdc, pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2390
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2391 SetTextColor (s->hdc, s->gc->foreground);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2392 SetBkColor (s->hdc, s->gc->background);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2393 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
2394 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
2395
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2396 SelectObject (s->hdc, orig_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2397 DeleteObject (fg_brush);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2398 SelectObject (compat_hdc, orig_obj);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2399 DeleteDC (compat_hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2400 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2401 DeleteObject (pixmap);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2402 pixmap = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2403 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2404 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2405 x_draw_image_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2406
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2407 /* 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
2408 if (s->img->relief
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2409 || s->hl == DRAW_IMAGE_RAISED
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2410 || s->hl == DRAW_IMAGE_SUNKEN)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2411 x_draw_image_relief (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2412 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2413
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2414
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2415 /* Draw stretch glyph string S. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2416
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2417 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2418 x_draw_stretch_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2419 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2420 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2421 xassert (s->first_glyph->type == STRETCH_GLYPH);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2422 s->stippled_p = s->face->stipple != 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2423
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2424 if (s->hl == DRAW_CURSOR
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2425 && !x_stretch_cursor_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2426 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2427 /* If `x-stretch-block-cursor' is nil, don't draw a block cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2428 as wide as the stretch glyph. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
2429 int width = min (FRAME_COLUMN_WIDTH (s->f), s->background_width);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2430
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2431 /* Draw cursor. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2432 x_draw_glyph_string_bg_rect (s, s->x, s->y, width, s->height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2433
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2434 /* Clear rest using the GC of the original non-cursor face. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2435 if (width < s->background_width)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2436 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2437 XGCValues *gc = s->face->gc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2438 int x = s->x + width, y = s->y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2439 int w = s->background_width - width, h = s->height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2440 RECT r;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2441 HDC hdc = s->hdc;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2442
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2443 if (s->row->mouse_face_p
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2444 && cursor_in_mouse_face_p (s->w))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2445 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2446 x_set_mouse_face_gc (s);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2447 gc = s->gc;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2448 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2449 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2450 gc = s->face->gc;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2451
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2452 get_glyph_string_clip_rect (s, &r);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2453 w32_set_clip_rectangle (hdc, &r);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2454
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
2455 #if 0 /* TODO: stipple */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2456 if (s->face->stipple)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2457 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2458 /* Fill background with a stipple pattern. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2459 XSetFillStyle (s->display, gc, FillOpaqueStippled);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2460 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
2461 XSetFillStyle (s->display, gc, FillSolid);
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2464 #endif
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 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
2467 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2468 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2469 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2470 else if (!s->background_filled_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2471 x_draw_glyph_string_bg_rect (s, s->x, s->y, s->background_width,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2472 s->height);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2473
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2474 s->background_filled_p = 1;
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
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2477
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2478 /* Draw glyph string S. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2479
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
2480 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2481 x_draw_glyph_string (s)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2482 struct glyph_string *s;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2483 {
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2484 int relief_drawn_p = 0;
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2485
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2486 /* 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
2487 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
2488 This makes S->next use XDrawString instead of XDrawImageString. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2489 if (s->next && s->right_overhang && !s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2490 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2491 xassert (s->next->img == NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2492 x_set_glyph_string_gc (s->next);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2493 x_set_glyph_string_clipping (s->next);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2494 x_draw_glyph_string_background (s->next, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2495 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2496
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2497 /* 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
2498 x_set_glyph_string_gc (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2499
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2500 /* 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
2501 glyph string can be drawn over it. */
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2502 if (!s->for_overlaps_p
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2503 && s->face->box != FACE_NO_BOX
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2504 && (s->first_glyph->type == CHAR_GLYPH
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2505 || s->first_glyph->type == COMPOSITE_GLYPH))
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2506
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2507 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2508 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2509 x_draw_glyph_string_background (s, 1);
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2510 x_draw_glyph_string_box (s);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2511 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2512 relief_drawn_p = 1;
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2513 }
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2514 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2515 x_set_glyph_string_clipping (s);
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2516
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2517 switch (s->first_glyph->type)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2518 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2519 case IMAGE_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2520 x_draw_image_glyph_string (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2521 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2522
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2523 case STRETCH_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2524 x_draw_stretch_glyph_string (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2525 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2526
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2527 case CHAR_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2528 if (s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2529 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2530 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2531 x_draw_glyph_string_background (s, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2532 x_draw_glyph_string_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2533 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2534
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2535 case COMPOSITE_GLYPH:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2536 if (s->for_overlaps_p || s->gidx > 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2537 s->background_filled_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2538 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2539 x_draw_glyph_string_background (s, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2540 x_draw_composite_glyph_string_foreground (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2541 break;
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 default:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2544 abort ();
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 if (!s->for_overlaps_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2548 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2549 /* Draw underline. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2550 if (s->face->underline_p
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2551 && (s->font->bdf || !s->font->tm.tmUnderlined))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2552 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2553 unsigned long h = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2554 unsigned long dy = s->height - h;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2555
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2556 /* TODO: Use font information for positioning and thickness
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
2557 of underline. See OUTLINETEXTMETRIC, and xterm.c. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2558 if (s->face->underline_defaulted_p)
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 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2561 s->y + dy, s->width, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2562 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2563 else
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 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2566 s->y + dy, s->width, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2567 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2568 }
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 /* Draw overline. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2571 if (s->face->overline_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2572 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2573 unsigned long dy = 0, h = 1;
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 if (s->face->overline_color_defaulted_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2576 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2577 w32_fill_area (s->f, s->hdc, s->gc->foreground, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2578 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2579 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2580 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2581 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2582 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2583 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2584 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2585 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2586
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2587 /* Draw strike-through. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2588 if (s->face->strike_through_p
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2589 && (s->font->bdf || !s->font->tm.tmStruckOut))
27402
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 unsigned long h = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2592 unsigned long dy = (s->height - h) / 2;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2593
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2594 if (s->face->strike_through_color_defaulted_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2595 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2596 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
2597 s->width, h);
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2600 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2601 w32_fill_area (s->f, s->hdc, s->face->underline_color, s->x,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2602 s->y + dy, s->width, h);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2603 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2604 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2605
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2606 /* Draw relief. */
38807
a59ac9807c9d Draw relief (if any) before
Andrew Innes <andrewi@gnu.org>
parents: 38570
diff changeset
2607 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
2608 x_draw_glyph_string_box (s);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2609 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2610
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2611 /* Reset clipping. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2612 w32_set_clip_rectangle (s->hdc, NULL);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2613 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2614
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2615
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2616 /* 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
2617
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2618 void
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2619 w32_shift_glyphs_for_insert (f, x, y, width, height, shift_by)
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2620 struct frame *f;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2621 int x, y, width, height, shift_by;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2622 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2623 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2624
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2625 hdc = get_frame_dc (f);
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2626 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
2627 hdc, x, y, SRCCOPY);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2628
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2629 release_frame_dc (f, hdc);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2630 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2631
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2632
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2633 /* 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
2634 for X frames. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2635
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2636 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2637 x_delete_glyphs (n)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2638 register int n;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2639 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2640 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2641
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2642 if (updating_frame)
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2643 f = updating_frame;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2644 else
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2645 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2646
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2647 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2648 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2649
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2650 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2651 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2652
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2653
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2654 /* 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
2655 frame. Otherwise clear the selected frame. */
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 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2658 x_clear_frame ()
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2659 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2660 struct frame *f;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2661
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2662 if (updating_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2663 f = updating_frame;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2664 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2665 f = SELECTED_FRAME ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2666
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2667 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2668 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2669
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2670 /* 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
2671 longer visible. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2672 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
2673 output_cursor.hpos = output_cursor.vpos = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2674 output_cursor.x = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2675
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2676 /* 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
2677 follow an explicit cursor_to. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2678 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2679
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2680 w32_clear_window (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2681
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2682 /* We have to clear the scroll bars, too. If we have changed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2683 colors or something like that, then they should be notified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2684 x_scroll_bar_clear (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2685
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2686 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2687 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2688
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2689
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2690 /* Make audible bell. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2691
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
2692 static void
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
2693 w32_ring_bell (void)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2694 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2695 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2696
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2697 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2698
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2699 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2700
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
2701 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
2702 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2703 int i;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2704 HWND hwnd = FRAME_W32_WINDOW (SELECTED_FRAME ());
22059
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2705
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2706 for (i = 0; i < 5; i++)
22059
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2707 {
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2708 FlashWindow (hwnd, TRUE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2709 Sleep (10);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2710 }
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2711 FlashWindow (hwnd, FALSE);
23fda104cd36 (w32_ring_bell): Flash window correctly.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21885
diff changeset
2712 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2713 else
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2714 w32_sys_ring_bell ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2715
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2716 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2717 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2718
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2719
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2720 /* Specify how many text lines, from the top of the window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2721 should be affected by insert-lines and delete-lines operations.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2722 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
2723 that is bounded by calls to x_update_begin and x_update_end. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2724
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
2725 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2726 w32_set_terminal_window (n)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2727 register int n;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2728 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2729 /* This function intentionally left blank. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2730 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2731
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2732
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2733 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2734 Line Dance
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2735 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2736
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2737 /* 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
2738 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
2739
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2740 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2741 x_ins_del_lines (vpos, n)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2742 int vpos, n;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2743 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2744 struct frame *f;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2745
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2746 if (updating_frame)
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2747 f = updating_frame;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2748 else
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2749 f = SELECTED_FRAME ();
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2750
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2751 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2752 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2753
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2754 abort ();
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2755 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2756
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2757
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2758 /* 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
2759
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
2760 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2761 x_scroll_run (w, run)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2762 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2763 struct run *run;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2764 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2765 struct frame *f = XFRAME (w->frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2766 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
2767 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
2768 HRGN expect_dirty;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2769
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2770 /* Get frame-relative bounding box of the text display area of W,
41125
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
2771 without mode lines. Include in this box the left and right
9a179e92e3ba Fringe cleanup.
Kim F. Storm <storm@cua.dk>
parents: 40962
diff changeset
2772 fringes of W. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2773 window_box (w, -1, &x, &y, &width, &height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2774
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2775 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
2776 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
2777 bottom_y = y + height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2778
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2779 if (to_y < from_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2780 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2781 /* 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
2782 line at the bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2783 if (from_y + run->height > bottom_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2784 height = bottom_y - from_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2785 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2786 height = run->height;
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2787 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
2788 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2789 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2790 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2791 /* 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
2792 at the bottom. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2793 if (to_y + run->height > bottom_y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2794 height = bottom_y - to_y;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2795 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2796 height = run->height;
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2797 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
2798 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2799
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2800 BLOCK_INPUT;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2801
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2802 /* 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
2803 updated_window = w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2804 x_clear_cursor (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2805
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2806 {
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2807 RECT from;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2808 RECT to;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2809 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
2810 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
2811
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2812 from.left = to.left = x;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2813 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
2814 from.top = from_y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2815 from.bottom = from_y + height;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2816 to.top = y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2817 to.bottom = bottom_y;
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2818
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2819 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
2820 NULL, SW_INVALIDATE);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2821
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2822 /* 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
2823 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
2824 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
2825
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2826 /* 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
2827 if (!EqualRgn (combined, expect_dirty))
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2828 SET_FRAME_GARBAGED (f);
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2829 }
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
2830
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2831 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2832 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2833
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2834
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2835
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2836 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2837 Exposure Events
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2838 ***********************************************************************/
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2839
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2840 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2841 frame_highlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2842 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2843 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2844 x_update_cursor (f, 1);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2845 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2846
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2847 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2848 frame_unhighlight (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2849 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2850 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2851 x_update_cursor (f, 1);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2852 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
2853
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2854 /* The focus has changed. Update the frames as necessary to reflect
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2855 the new situation. Note that we can't change the selected frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2856 here, because the Lisp code we are interrupting might become confused.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2857 Each event gets marked with the frame in which it occurred, so the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2858 Lisp code can tell when the switch took place by examining the events. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2859
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2860 static void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2861 x_new_focus_frame (dpyinfo, frame)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2862 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2863 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2864 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2865 struct frame *old_focus = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2866
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2867 if (frame != dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2868 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2869 /* 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
2870 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
2871 dpyinfo->w32_focus_frame = frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2872
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2873 if (old_focus && old_focus->auto_lower)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2874 x_lower_frame (old_focus);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2875
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2876
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2877
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2878
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2879
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2880
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2881
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2882
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
2883
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2884 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
2885 pending_autoraise_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2886 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2887 pending_autoraise_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2888 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2889
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2890 x_frame_rehighlight (dpyinfo);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2891 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2892
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2893 /* Handle an event saying the mouse has moved out of an Emacs frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2894
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2895 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2896 x_mouse_leave (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2897 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2898 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2899 x_new_focus_frame (dpyinfo, dpyinfo->w32_focus_event_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2900 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2901
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2902 /* The focus has changed, or we have redirected a frame's focus to
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2903 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
2904 mini-buffer frame). Shift the highlight as appropriate.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2905
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2906 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
2907 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
2908 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
2909
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2910 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2911 w32_frame_rehighlight (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2912 struct frame *frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2913 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2914 if (! FRAME_W32_P (frame))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
2915 return;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2916 x_frame_rehighlight (FRAME_W32_DISPLAY_INFO (frame));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2917 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2918
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2919 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2920 x_frame_rehighlight (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2921 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2922 {
47148
be0335657440 Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents: 47143
diff changeset
2923 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
2924
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2925 if (dpyinfo->w32_focus_frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2926 {
47148
be0335657440 Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents: 47143
diff changeset
2927 dpyinfo->x_highlight_frame
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2928 = ((GC_FRAMEP (FRAME_FOCUS_FRAME (dpyinfo->w32_focus_frame)))
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2929 ? 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
2930 : 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
2931 if (! FRAME_LIVE_P (dpyinfo->x_highlight_frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2932 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2933 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
2934 dpyinfo->x_highlight_frame = dpyinfo->w32_focus_frame;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2935 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2936 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2937 else
47148
be0335657440 Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents: 47143
diff changeset
2938 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
2939
be0335657440 Changed all occurrences of w32_highlight_frame with x_highlight_frame.
Kim F. Storm <storm@cua.dk>
parents: 47143
diff changeset
2940 if (dpyinfo->x_highlight_frame != old_highlight)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2941 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2942 if (old_highlight)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2943 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
2944 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
2945 frame_highlight (dpyinfo->x_highlight_frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2946 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2947 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2948
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2949 /* Keyboard processing - modifier keys, etc. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2950
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2951 /* Convert a keysym to its name. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2952
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2953 char *
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2954 x_get_keysym_name (keysym)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2955 int keysym;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2956 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2957 /* Make static so we can always return it */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2958 static char value[100];
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2959
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2960 BLOCK_INPUT;
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
2961 GetKeyNameText (keysym, value, 100);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2962 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2963
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2964 return value;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2965 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2966
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
2967
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2968
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2969 /* Mouse clicks and mouse movement. Rah. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2970
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
2971 /* 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
2972 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
2973 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
2974 BOOL
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
2975 parse_button (message, xbutton, pbutton, pup)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2976 int message;
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
2977 int xbutton;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2978 int * pbutton;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2979 int * pup;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2980 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2981 int button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2982 int up = 0;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
2983
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2984 switch (message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2985 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2986 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2987 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2988 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2989 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2990 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2991 button = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2992 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2993 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2994 case WM_MBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
2995 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2996 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2997 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
2998 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
2999 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3000 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3001 case WM_MBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3002 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3003 button = 1;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3004 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3005 button = 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3006 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3007 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3008 case WM_RBUTTONDOWN:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3009 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3010 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3011 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3012 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3013 up = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3014 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3015 case WM_RBUTTONUP:
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3016 if (NILP (Vw32_swap_mouse_buttons))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3017 button = 2;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3018 else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3019 button = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3020 up = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3021 break;
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3022 case WM_XBUTTONDOWN:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3023 button = xbutton + 2;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3024 up = 0;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3025 break;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3026 case WM_XBUTTONUP:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3027 button = xbutton + 2;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3028 up = 1;
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3029 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3030 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3031 return (FALSE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3032 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3033
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3034 if (pup) *pup = up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3035 if (pbutton) *pbutton = button;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3036
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3037 return (TRUE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3038 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3039
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3040
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3041 /* Prepare a mouse-event in *RESULT for placement in the input queue.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3042
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3043 If the event is a button press, then note that we have grabbed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3044 the mouse. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3045
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3046 static Lisp_Object
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3047 construct_mouse_click (result, msg, f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3048 struct input_event *result;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3049 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3050 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3051 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3052 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3053 int up;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3054
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
3055 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
3056 &button, &up);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3057
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
3058 /* Make the event type NO_EVENT; we'll change that when we decide
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3059 otherwise. */
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
3060 result->kind = MOUSE_CLICK_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3061 result->code = button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3062 result->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3063 result->modifiers = (msg->dwModifiers
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3064 | (up
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3065 ? up_modifier
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3066 : down_modifier));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3067
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3068 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
3069 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
3070 XSETFRAME (result->frame_or_window, f);
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3071 result->arg = Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3072 return Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3073 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3074
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3075 static Lisp_Object
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3076 construct_mouse_wheel (result, msg, f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3077 struct input_event *result;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3078 W32Msg *msg;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3079 struct frame *f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3080 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3081 POINT p;
51382
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3082 int delta;
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3083
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3084 result->kind = WHEEL_EVENT;
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3085 result->code = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3086 result->timestamp = msg->msg.time;
51382
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3087
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3088 /* 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
3089 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
3090 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
3091 delta = GET_WHEEL_DELTA_WPARAM (msg->msg.wParam);
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3092
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3093 /* 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
3094 down based on WHEEL_DELTA value. */
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3095 result->modifiers = (msg->dwModifiers
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3096 | ((delta < 0 ) ? down_modifier : up_modifier));
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
3097
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3098 p.x = LOWORD (msg->msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3099 p.y = HIWORD (msg->msg.lParam);
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
3100 ScreenToClient (msg->msg.hwnd, &p);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3101 XSETINT (result->x, p.x);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3102 XSETINT (result->y, p.y);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3103 XSETFRAME (result->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
3104 result->arg = Qnil;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3105 return Qnil;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3106 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3107
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3108 static Lisp_Object
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3109 construct_drag_n_drop (result, msg, f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3110 struct input_event *result;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3111 W32Msg *msg;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3112 struct frame *f;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3113 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3114 Lisp_Object files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3115 Lisp_Object frame;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3116 HDROP hdrop;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3117 POINT p;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3118 WORD num_files;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3119 char *name;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3120 int i, len;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3121
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
3122 result->kind = DRAG_N_DROP_EVENT;
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3123 result->code = 0;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3124 result->timestamp = msg->msg.time;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3125 result->modifiers = msg->dwModifiers;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3126
24265
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
3127 hdrop = (HDROP) msg->msg.wParam;
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
3128 DragQueryPoint (hdrop, &p);
c5f1a1deffbb (construct_drag_n_drop): Call DraqQueryPoint before
Andrew Innes <andrewi@gnu.org>
parents: 24146
diff changeset
3129
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
3130 #if 0
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3131 p.x = LOWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3132 p.y = HIWORD (msg->msg.lParam);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3133 ScreenToClient (msg->msg.hwnd, &p);
24674
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
3134 #endif
d0dee612f8e3 [andrewi]
Andrew Innes <andrewi@gnu.org>
parents: 24480
diff changeset
3135
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3136 XSETINT (result->x, p.x);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3137 XSETINT (result->y, p.y);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3138
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3139 num_files = DragQueryFile (hdrop, 0xFFFFFFFF, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3140 files = Qnil;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3141
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3142 for (i = 0; i < num_files; i++)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3143 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3144 len = DragQueryFile (hdrop, i, NULL, 0);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3145 if (len <= 0)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3146 continue;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3147 name = alloca (len + 1);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3148 DragQueryFile (hdrop, i, name, len + 1);
44641
3afb0684cbc2 (construct_drag_n_drop): Likewise.
Jason Rumney <jasonr@gnu.org>
parents: 44359
diff changeset
3149 files = Fcons (DECODE_FILE (build_string (name)), files);
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3150 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3151
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3152 DragFinish (hdrop);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3153
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3154 XSETFRAME (frame, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3155 result->frame_or_window = Fcons (frame, files);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
3156 result->arg = Qnil;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3157 return Qnil;
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3158 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
3159
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3160
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3161 /* Function to report a mouse movement to the mainstream Emacs code.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3162 The input handler calls this.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3163
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3164 We have received a mouse movement event, which is given in *event.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3165 If the mouse is over a different glyph than it was last time, tell
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3166 the mainstream emacs code by setting mouse_moved. If not, ask for
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3167 another motion event, so we can check again the next time it moves. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3168
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3169 static MSG last_mouse_motion_event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3170 static Lisp_Object last_mouse_motion_frame;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3171
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3172 static void remember_mouse_glyph P_ ((struct frame *, int, int));
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3173
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3174 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3175 note_mouse_movement (frame, msg)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3176 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3177 MSG *msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3178 {
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3179 int mouse_x = LOWORD (msg->lParam);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3180 int mouse_y = HIWORD (msg->lParam);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3181
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3182 last_mouse_movement_time = msg->time;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3183 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
3184 XSETFRAME (last_mouse_motion_frame, frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3185
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3186 if (msg->hwnd != FRAME_W32_WINDOW (frame))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3187 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3188 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3189 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3190 note_mouse_highlight (frame, -1, -1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3191 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3192
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3193 /* Has the mouse moved off the glyph it was on at the last sighting? */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3194 else if (mouse_x < last_mouse_glyph.left
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3195 || mouse_x > last_mouse_glyph.right
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3196 || mouse_y < last_mouse_glyph.top
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3197 || mouse_y > last_mouse_glyph.bottom)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3198 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3199 frame->mouse_moved = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3200 last_mouse_scroll_bar = Qnil;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3201 note_mouse_highlight (frame, mouse_x, mouse_y);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3202 /* 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
3203 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
3204 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
3205 other times. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3206 remember_mouse_glyph (frame, mouse_x, mouse_y);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3207 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3208 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3209
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3210
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3211 /************************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3212 Mouse Face
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3213 ************************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3214
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3215 static struct scroll_bar *x_window_to_scroll_bar ();
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3216 static void x_scroll_bar_report_motion ();
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3217 static void x_check_fullscreen P_ ((struct frame *));
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3218 static int glyph_rect P_ ((struct frame *f, int, int, RECT *));
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3219
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3220
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3221 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3222 redo_mouse_highlight ()
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3223 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3224 if (!NILP (last_mouse_motion_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3225 && FRAME_LIVE_P (XFRAME (last_mouse_motion_frame)))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3226 note_mouse_highlight (XFRAME (last_mouse_motion_frame),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3227 LOWORD (last_mouse_motion_event.lParam),
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3228 HIWORD (last_mouse_motion_event.lParam));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3229 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3230
49371
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
3231 void
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
3232 w32_define_cursor (window, cursor)
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
3233 Window window;
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
3234 Cursor cursor;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3235 {
49371
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
3236 PostMessage (window, WM_EMACS_SETCURSOR, (WPARAM) cursor, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3237 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3238
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3239 /* Try to determine frame pixel position and size of the glyph under
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3240 frame pixel coordinates X/Y on frame F . Return the position and
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3241 size in *RECT. Value is non-zero if we could compute these
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3242 values. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3243
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3244 static int
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3245 glyph_rect (f, x, y, rect)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3246 struct frame *f;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3247 int x, y;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3248 RECT *rect;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3249 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3250 Lisp_Object window;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3251
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3252 window = window_from_coordinates (f, x, y, 0, &x, &y, 0);
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3253
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3254 if (!NILP (window))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3255 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3256 struct window *w = XWINDOW (window);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3257 struct glyph_row *r = MATRIX_FIRST_TEXT_ROW (w->current_matrix);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3258 struct glyph_row *end = r + w->current_matrix->nrows - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3259
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3260 for (; r < end && r->enabled_p; ++r)
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3261 if (r->y <= y && r->y + r->height > y)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3262 {
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3263 /* Found the row at y. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3264 struct glyph *g = r->glyphs[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3265 struct glyph *end = g + r->used[TEXT_AREA];
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3266 int gx;
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3267
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3268 rect->top = WINDOW_TO_FRAME_PIXEL_Y (w, r->y);
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3269 rect->bottom = rect->top + r->height;
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3270
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3271 if (x < r->x)
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3272 {
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3273 /* x is to the left of the first glyph in the row. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3274 /* Shouldn't this be a pixel value?
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3275 WINDOW_LEFT_EDGE_X (w) seems to be the right value.
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3276 ++KFS */
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3277 rect->left = WINDOW_LEFT_EDGE_COL (w);
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3278 rect->right = WINDOW_TO_FRAME_PIXEL_X (w, r->x);
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3279 return 1;
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3280 }
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3281
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3282 for (gx = r->x; g < end; gx += g->pixel_width, ++g)
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3283 if (gx <= x && gx + g->pixel_width > x)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3284 {
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3285 /* x is on a glyph. */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3286 rect->left = WINDOW_TO_FRAME_PIXEL_X (w, gx);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3287 rect->right = rect->left + g->pixel_width;
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3288 return 1;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3289 }
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3290
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3291 /* x is to the right of the last glyph in the row. */
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3292 rect->left = WINDOW_TO_FRAME_PIXEL_X (w, gx);
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
3293 /* Shouldn't this be a pixel value?
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3294 WINDOW_RIGHT_EDGE_X (w) seems to be the right value.
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3295 ++KFS */
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3296 rect->right = WINDOW_RIGHT_EDGE_COL (w);
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3297 return 1;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3298 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3299 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3300
43408
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3301 /* The y is not on any row. */
5710b2d512a9 (glyph_rect): Determine the row and glyph more precisely.
Jason Rumney <jasonr@gnu.org>
parents: 43396
diff changeset
3302 return 0;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3303 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3304
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3305 /* Record the position of the mouse in last_mouse_glyph. */
40153
ccd2ee0384ff Fix formatting for new function.
Jason Rumney <jasonr@gnu.org>
parents: 40137
diff changeset
3306 static void
ccd2ee0384ff Fix formatting for new function.
Jason Rumney <jasonr@gnu.org>
parents: 40137
diff changeset
3307 remember_mouse_glyph (f1, gx, gy)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3308 struct frame * f1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3309 int gx, gy;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3310 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3311 if (!glyph_rect (f1, gx, gy, &last_mouse_glyph))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3312 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3313 int width = FRAME_SMALLEST_CHAR_WIDTH (f1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3314 int height = FRAME_SMALLEST_FONT_HEIGHT (f1);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3315
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3316 /* Arrange for the division in FRAME_PIXEL_X_TO_COL etc. to
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3317 round down even for negative values. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3318 if (gx < 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3319 gx -= width - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3320 if (gy < 0)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3321 gy -= height - 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3322 #if 0
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3323 /* This was the original code from XTmouse_position, but it seems
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3324 to give the position of the glyph diagonally next to the one
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3325 the mouse is over. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3326 gx = (gx + width - 1) / width * width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3327 gy = (gy + height - 1) / height * height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3328 #else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3329 gx = gx / width * width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3330 gy = gy / height * height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3331 #endif
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3332
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3333 last_mouse_glyph.left = gx;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3334 last_mouse_glyph.top = gy;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3335 last_mouse_glyph.right = gx + width;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3336 last_mouse_glyph.bottom = gy + height;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3337 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3338 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3339
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3340 /* Return the current position of the mouse.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3341 *fp should be a frame which indicates which display to ask about.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3342
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3343 If the mouse movement started in a scroll bar, set *fp, *bar_window,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3344 and *part to the frame, window, and scroll bar part that the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3345 is over. Set *x and *y to the portion and whole of the mouse's
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3346 position on the scroll bar.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3347
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3348 If the mouse movement started elsewhere, set *fp to the frame the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3349 mouse is on, *bar_window to nil, and *x and *y to the character cell
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3350 the mouse is over.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3351
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3352 Set *time to the server time-stamp for the time at which the mouse
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3353 was at this position.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3354
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3355 Don't store anything if we don't have a valid set of values to report.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3356
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3357 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
3358 movement. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3359
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3360 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3361 w32_mouse_position (fp, insist, bar_window, part, x, y, time)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3362 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3363 int insist;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3364 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3365 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3366 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3367 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3368 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3369 FRAME_PTR f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3370
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3371 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3372
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
3373 if (! NILP (last_mouse_scroll_bar) && insist == 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3374 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3375 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3376 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3377 POINT pt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3378
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3379 Lisp_Object frame, tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3380
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3381 /* Clear the mouse-moved flag for every frame on this display. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3382 FOR_EACH_FRAME (tail, frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3383 XFRAME (frame)->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3384
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3385 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
3386
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3387 GetCursorPos (&pt);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3388
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3389 /* Now we have a position on the root; find the innermost window
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3390 containing the pointer. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3391 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3392 if (FRAME_W32_DISPLAY_INFO (*fp)->grabbed && last_mouse_frame
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3393 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3394 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3395 /* 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
3396 even if the mouse is now outside it. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3397 f1 = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3398 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3399 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3400 {
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
3401 /* Is window under mouse one of our frames? */
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3402 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
3403 WindowFromPoint (pt));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3404 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3405
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3406 /* If not, is it one of our scroll bars? */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3407 if (! f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3408 {
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
3409 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
3410 = x_window_to_scroll_bar (WindowFromPoint (pt));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3411
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3412 if (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3413 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3414 f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3415 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3416 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3417
20179
b4fe0e8ac819 (w32_mouse_position): Handle INSIST < 0.
Karl Heuer <kwzh@gnu.org>
parents: 19713
diff changeset
3418 if (f1 == 0 && insist > 0)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3419 f1 = SELECTED_FRAME ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3420
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3421 if (f1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3422 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3423 /* 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
3424 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
3425 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
3426 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
3427 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
3428 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
3429 the frame are divided into. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3430
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3431 #if OLD_REDISPLAY_CODE
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3432 int ignore1, ignore2;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3433
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3434 ScreenToClient (FRAME_W32_WINDOW (f1), &pt);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3435
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3436 pixel_to_glyph_coords (f1, pt.x, pt.y, &ignore1, &ignore2,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3437 &last_mouse_glyph,
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3438 FRAME_W32_DISPLAY_INFO (f1)->grabbed
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3439 || insist);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3440 #else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3441 ScreenToClient (FRAME_W32_WINDOW (f1), &pt);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3442 remember_mouse_glyph (f1, pt.x, pt.y);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3443 #endif
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3444
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3445 *bar_window = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3446 *part = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3447 *fp = f1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3448 XSETINT (*x, pt.x);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3449 XSETINT (*y, pt.y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3450 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3451 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3452 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3453 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3454
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3455 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3456 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3457
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3458
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3459 /***********************************************************************
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3460 Tool-bars
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3461 ***********************************************************************/
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3462
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3463 /* 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
3464 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
3465 or ButtonRelase. */
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3466
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3467 static void
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3468 w32_handle_tool_bar_click (f, button_event)
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3469 struct frame *f;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3470 struct input_event *button_event;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3471 {
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3472 int x = XFASTINT (button_event->x);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3473 int y = XFASTINT (button_event->y);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3474
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3475 if (button_event->modifiers & down_modifier)
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3476 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
3477 else
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3478 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
3479 button_event->modifiers & ~up_modifier);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3480 }
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3481
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3482
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3483
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3484 /***********************************************************************
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3485 Scroll bars
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3486 ***********************************************************************/
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
3487
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3488 /* Scroll bar support. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3489
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3490 /* Given a window ID, find the struct scroll_bar which manages it.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3491 This can be called in GC, so we have to make sure to strip off mark
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3492 bits. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3493
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3494 static struct scroll_bar *
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3495 x_window_to_scroll_bar (window_id)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3496 Window window_id;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3497 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3498 Lisp_Object tail;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3499
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3500 for (tail = Vframe_list;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3501 XGCTYPE (tail) == Lisp_Cons;
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
3502 tail = XCDR (tail))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3503 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3504 Lisp_Object frame, bar, condemned;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3505
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
3506 frame = XCAR (tail);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3507 /* All elements of Vframe_list should be frames. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3508 if (! GC_FRAMEP (frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3509 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3510
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3511 /* Scan this frame's scroll bar list for a scroll bar with the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3512 right window ID. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3513 condemned = FRAME_CONDEMNED_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3514 for (bar = FRAME_SCROLL_BARS (XFRAME (frame));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3515 /* This trick allows us to search both the ordinary and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3516 condemned scroll bar lists with one loop. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3517 ! GC_NILP (bar) || (bar = condemned,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3518 condemned = Qnil,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3519 ! GC_NILP (bar));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3520 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
3521 if (SCROLL_BAR_W32_WINDOW (XSCROLL_BAR (bar)) == window_id)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3522 return XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3523 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3524
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3525 return 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3526 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3527
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3528
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3529
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3530 /* 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
3531 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
3532
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3533 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3534 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
3535 struct scroll_bar *bar;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3536 int portion, position, whole;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3537 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3538 Window w = SCROLL_BAR_W32_WINDOW (bar);
35984
0080b799e901 (w32_set_scroll_bar_thumb): Use `double' for `range' to avoid overflow.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 35678
diff changeset
3539 double range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3540 int sb_page, sb_pos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3541 BOOL draggingp = !NILP (bar->dragging) ? TRUE : FALSE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3542
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3543 if (whole)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3544 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3545 /* 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
3546 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
3547 to nothing if it is held at the bottom of the buffer. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3548 if (position + portion >= whole)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3549 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3550 sb_page = range * (whole - position) / whole
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3551 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3552 sb_pos = range;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3553 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3554
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3555 sb_page = portion * range / whole + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3556 sb_pos = position * range / whole;
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 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3559 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3560 sb_page = range;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3561 sb_pos = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3562 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3563
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3564 BLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3565
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3566 if (pfnSetScrollInfo)
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 SCROLLINFO si;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3569
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3570 si.cbSize = sizeof (si);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3571 /* Only update page size if currently dragging, to reduce
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3572 flicker effects. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3573 if (draggingp)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3574 si.fMask = SIF_PAGE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3575 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3576 si.fMask = SIF_PAGE | SIF_POS;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3577 si.nPage = sb_page;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3578 si.nPos = sb_pos;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3579
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3580 pfnSetScrollInfo (w, SB_CTL, &si, !draggingp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3581 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3582 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3583 SetScrollPos (w, SB_CTL, sb_pos, !draggingp);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3584
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3585 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3586 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3587
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3588
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3589 /************************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3590 Scroll bars, general
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3591 ************************************************************************/
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3592
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3593 HWND
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3594 my_create_scrollbar (f, bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3595 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3596 struct scroll_bar * bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3597 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3598 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
3599 WM_EMACS_CREATESCROLLBAR, (WPARAM) f,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3600 (LPARAM) bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3601 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3602
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
3603 /*#define ATTACH_THREADS*/
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3604
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3605 BOOL
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3606 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
3607 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3608 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3609 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
3610 (WPARAM) hwnd, (LPARAM) how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3611 #else
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3612 return ShowWindow (hwnd, how);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3613 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3614 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3615
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3616 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3617 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
3618 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
3619 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3620 #ifndef ATTACH_THREADS
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3621 WINDOWPOS pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3622 pos.hwndInsertAfter = hwndAfter;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3623 pos.x = x;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3624 pos.y = y;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3625 pos.cx = cx;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3626 pos.cy = cy;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3627 pos.flags = flags;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3628 SendMessage (hwnd, WM_EMACS_SETWINDOWPOS, (WPARAM) &pos, 0);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3629 #else
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3630 SetWindowPos (hwnd, hwndAfter, x, y, cx, cy, flags);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3631 #endif
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3632 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3633
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3634 void
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3635 my_set_focus (f, hwnd)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3636 struct frame * f;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3637 HWND hwnd;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3638 {
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3639 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
3640 (WPARAM) hwnd, 0);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3641 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3642
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
3643 void
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3644 my_set_foreground_window (hwnd)
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3645 HWND hwnd;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3646 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3647 SendMessage (hwnd, WM_EMACS_SETFOREGROUND, (WPARAM) hwnd, 0);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3648 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3649
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3650 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3651 my_destroy_window (f, hwnd)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3652 struct frame * f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3653 HWND hwnd;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3654 {
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3655 SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_DESTROYWINDOW,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3656 (WPARAM) hwnd, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3657 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3658
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3659 /* 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
3660 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
3661 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
3662 scroll bar. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3663
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3664 static struct scroll_bar *
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3665 x_scroll_bar_create (w, top, left, width, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3666 struct window *w;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3667 int top, left, width, height;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3668 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3669 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3670 HWND hwnd;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3671 struct scroll_bar *bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3672 = XSCROLL_BAR (Fmake_vector (make_number (SCROLL_BAR_VEC_SIZE), Qnil));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3673
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3674 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3675
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3676 XSETWINDOW (bar->window, w);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3677 XSETINT (bar->top, top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3678 XSETINT (bar->left, left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3679 XSETINT (bar->width, width);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3680 XSETINT (bar->height, height);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3681 XSETINT (bar->start, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3682 XSETINT (bar->end, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3683 bar->dragging = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3684
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3685 /* Requires geometry to be set before call to create the real window */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3686
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3687 hwnd = my_create_scrollbar (f, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3688
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3689 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3690 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3691 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3692
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3693 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3694 si.fMask = SIF_ALL;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3695 si.nMin = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3696 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3697 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3698 si.nPage = si.nMax;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3699 si.nPos = 0;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3700
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3701 pfnSetScrollInfo (hwnd, SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3702 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3703 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3704 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3705 SetScrollRange (hwnd, SB_CTL, 0,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3706 VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3707 SetScrollPos (hwnd, SB_CTL, 0, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
3708 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3709
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3710 SET_SCROLL_BAR_W32_WINDOW (bar, hwnd);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3711
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3712 /* Add bar to its frame's list of scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3713 bar->next = FRAME_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3714 bar->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3715 XSETVECTOR (FRAME_SCROLL_BARS (f), bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3716 if (! NILP (bar->next))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3717 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3718
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3719 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3720
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3721 return bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3722 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3723
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3724
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3725 /* 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
3726 nil. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3727
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3728 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3729 x_scroll_bar_remove (bar)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3730 struct scroll_bar *bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3731 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3732 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3733
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3734 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3735
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3736 /* Destroy the window. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3737 my_destroy_window (f, SCROLL_BAR_W32_WINDOW (bar));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3738
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3739 /* Disassociate this scroll bar from its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3740 XWINDOW (bar->window)->vertical_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3741
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3742 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3743 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3744
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3745 /* Set the handle of the vertical scroll bar for WINDOW to indicate
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3746 that we are displaying PORTION characters out of a total of WHOLE
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3747 characters, starting at POSITION. If WINDOW has no scroll bar,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3748 create one. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3749 static void
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3750 w32_set_vertical_scroll_bar (w, portion, whole, position)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3751 struct window *w;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3752 int portion, whole, position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3753 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3754 struct frame *f = XFRAME (w->frame);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3755 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
3756 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
3757 int window_y, window_height;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3758
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3759 /* Get window dimensions. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3760 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
3761 top = window_y;
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
3762 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
3763 height = window_height;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3764
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3765 /* 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
3766 left = WINDOW_SCROLL_BAR_AREA_X (w);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3767
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3768 /* 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
3769 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
3770 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
3771 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
3772 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3773 sb_width = width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3774
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3775 /* 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
3776 if (WINDOW_HAS_VERTICAL_SCROLL_BAR_ON_RIGHT (w))
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3777 sb_left = left + width - sb_width - (width - sb_width) / 2;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3778 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3779 sb_left = left + (width - sb_width) / 2;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3780
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3781 /* Does the scroll bar exist yet? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3782 if (NILP (w->vertical_scroll_bar))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3783 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3784 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3785 BLOCK_INPUT;
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
3786 if (width > 0 && height > 0)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3787 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3788 hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3789 w32_clear_area (f, hdc, left, top, width, height);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3790 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3791 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3792 UNBLOCK_INPUT;
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3793
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3794 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
3795 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3796 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3797 {
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
3798 /* 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
3799 HWND hwnd;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3800
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3801 bar = XSCROLL_BAR (w->vertical_scroll_bar);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3802 hwnd = SCROLL_BAR_W32_WINDOW (bar);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3803
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3804 /* If already correctly positioned, do nothing. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3805 if ( XINT (bar->left) == sb_left
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3806 && XINT (bar->top) == top
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3807 && XINT (bar->width) == sb_width
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3808 && XINT (bar->height) == height )
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3809 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3810 /* Redraw after clear_frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3811 if (!my_show_window (f, hwnd, SW_NORMAL))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3812 InvalidateRect (hwnd, NULL, FALSE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3813 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3814 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3815 {
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3816 HDC hdc;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3817 BLOCK_INPUT;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3818 if (width && height)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3819 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3820 hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3821 /* 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
3822 for them on the frame, we have to clear "under" them. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3823 w32_clear_area (f, hdc,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3824 left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3825 top,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3826 width,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3827 height);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3828 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3829 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3830 /* 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
3831 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
3832 my_show_window (f, hwnd, SW_HIDE);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3833 MoveWindow (hwnd, sb_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3834 top, sb_width - VERTICAL_SCROLL_BAR_WIDTH_TRIM * 2,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
3835 max (height, 1), TRUE);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3836 if (pfnSetScrollInfo)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3837 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3838 SCROLLINFO si;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3839
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3840 si.cbSize = sizeof (si);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3841 si.fMask = SIF_RANGE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3842 si.nMin = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3843 si.nMax = VERTICAL_SCROLL_BAR_TOP_RANGE (f, height)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3844 + VERTICAL_SCROLL_BAR_MIN_HANDLE;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3845
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3846 pfnSetScrollInfo (hwnd, SB_CTL, &si, FALSE);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3847 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3848 else
27406
fb36ccd8457c (w32_fill_rect): Do not try to deal with NULL hdc
Jason Rumney <jasonr@gnu.org>
parents: 27402
diff changeset
3849 SetScrollRange (hwnd, SB_CTL, 0,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3850 VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3851 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
3852 /* InvalidateRect (w, NULL, FALSE); */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3853
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3854 /* Remember new settings. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3855 XSETINT (bar->left, sb_left);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3856 XSETINT (bar->top, top);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3857 XSETINT (bar->width, sb_width);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3858 XSETINT (bar->height, height);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3859
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3860 UNBLOCK_INPUT;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3861 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3862 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3863 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
3864
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3865 XSETVECTOR (w->vertical_scroll_bar, bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3866 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3867
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3868
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3869 /* The following three hooks are used when we're doing a thorough
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3870 redisplay of the frame. We don't explicitly know which scroll bars
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3871 are going to be deleted, because keeping track of when windows go
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3872 away is a real pain - "Can you say set-window-configuration, boys
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3873 and girls?" Instead, we just assert at the beginning of redisplay
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3874 that *all* scroll bars are to be removed, and then save a scroll bar
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3875 from the fiery pit when we actually redisplay its window. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3876
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3877 /* Arrange for all scroll bars on FRAME to be removed at the next call
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3878 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
3879 `*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
3880
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3881 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3882 w32_condemn_scroll_bars (frame)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3883 FRAME_PTR frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3884 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3885 /* 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
3886 while (! NILP (FRAME_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3887 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3888 Lisp_Object bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3889 bar = FRAME_SCROLL_BARS (frame);
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3890 FRAME_SCROLL_BARS (frame) = XSCROLL_BAR (bar)->next;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3891 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
3892 XSCROLL_BAR (bar)->prev = Qnil;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3893 if (! NILP (FRAME_CONDEMNED_SCROLL_BARS (frame)))
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3894 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
3895 FRAME_CONDEMNED_SCROLL_BARS (frame) = bar;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
3896 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3897 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3898
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3899
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
3900 /* Un-mark WINDOW's scroll bar for deletion in this judgment cycle.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3901 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
3902
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3903 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3904 w32_redeem_scroll_bar (window)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3905 struct window *window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3906 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3907 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
3908 struct frame *f;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3909
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3910 /* We can't redeem this window's scroll bar if it doesn't have one. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3911 if (NILP (window->vertical_scroll_bar))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3912 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3913
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3914 bar = XSCROLL_BAR (window->vertical_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3915
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3916 /* 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
3917 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
3918 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
3919 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3920 /* 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
3921 the lists. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3922 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
3923 /* 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
3924 return;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3925 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
3926 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
3927 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
3928 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3929 /* 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
3930 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
3931 abort ();
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3932 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3933 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3934 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
3935
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3936 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
3937 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
3938
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3939 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
3940 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
3941 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
3942 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
3943 XSETVECTOR (XSCROLL_BAR (bar->next)->prev, bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3944 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3945
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3946 /* Remove all scroll bars on FRAME that haven't been saved since the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3947 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
3948
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3949 static void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3950 w32_judge_scroll_bars (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3951 FRAME_PTR f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3952 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3953 Lisp_Object bar, next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3954
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3955 bar = FRAME_CONDEMNED_SCROLL_BARS (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3956
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3957 /* Clear out the condemned list now so we won't try to process any
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3958 more events on the hapless scroll bars. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3959 FRAME_CONDEMNED_SCROLL_BARS (f) = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3960
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3961 for (; ! NILP (bar); bar = next)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3962 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3963 struct scroll_bar *b = XSCROLL_BAR (bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3964
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3965 x_scroll_bar_remove (b);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3966
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3967 next = b->next;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3968 b->next = b->prev = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3969 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3970
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3971 /* Now there should be no references to the condemned scroll bars,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3972 and they should get garbage-collected. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3973 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3974
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3975 /* 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
3976 is set to something other than NO_EVENT, it is enqueued.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3977
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3978 This may be called from a signal handler, so we have to ignore GC
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3979 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
3980
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3981 static int
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
3982 w32_scroll_bar_handle_click (bar, msg, emacs_event)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3983 struct scroll_bar *bar;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
3984 W32Msg *msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3985 struct input_event *emacs_event;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3986 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3987 if (! GC_WINDOWP (bar->window))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3988 abort ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3989
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
3990 emacs_event->kind = W32_SCROLL_BAR_CLICK_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3991 emacs_event->code = 0;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3992 /* not really meaningful to distinguish up/down */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
3993 emacs_event->modifiers = msg->dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3994 emacs_event->frame_or_window = bar->window;
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
3995 emacs_event->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3996 emacs_event->timestamp = msg->msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3997
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
3998 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
3999 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
4000 int y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4001 int dragging = !NILP (bar->dragging);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4002
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4003 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4004 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4005 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4006
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4007 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4008 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4009
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4010 pfnGetScrollInfo ((HWND) msg->msg.lParam, SB_CTL, &si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4011 y = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4012 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4013 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4014 y = GetScrollPos ((HWND) msg->msg.lParam, SB_CTL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4015
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4016 bar->dragging = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4017
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4018
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4019 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
4020
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4021 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
4022 {
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4023 case SB_LINEDOWN:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4024 emacs_event->part = scroll_bar_down_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4025 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4026 case SB_LINEUP:
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4027 emacs_event->part = scroll_bar_up_arrow;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4028 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4029 case SB_PAGEUP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4030 emacs_event->part = scroll_bar_above_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4031 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4032 case SB_PAGEDOWN:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4033 emacs_event->part = scroll_bar_below_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4034 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4035 case SB_TOP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4036 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4037 y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4038 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4039 case SB_BOTTOM:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4040 emacs_event->part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4041 y = top_range;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4042 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4043 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
4044 case SB_THUMBPOSITION:
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4045 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
4046 y = HIWORD (msg->msg.wParam);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4047 bar->dragging = Qt;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4048 emacs_event->part = scroll_bar_handle;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4049
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4050 /* "Silently" update current position. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4051 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4052 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4053 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4054
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4055 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4056 si.fMask = SIF_POS;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4057 si.nPos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4058 /* Remember apparent position (we actually lag behind the real
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4059 position, so don't set that directly. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4060 last_scroll_bar_drag_pos = y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4061
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4062 pfnSetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, FALSE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4063 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4064 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4065 SetScrollPos (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, y, FALSE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4066 break;
15216
f639c5d732a3 (x_scroll_bar_set_handle): Always use start in calling SetScrollPos.
Richard M. Stallman <rms@gnu.org>
parents: 15204
diff changeset
4067 case SB_ENDSCROLL:
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4068 /* 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
4069 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
4070 nothing. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4071 if (dragging)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4072 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4073 if (pfnSetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4074 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4075 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4076 int start = XINT (bar->start);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4077 int end = XINT (bar->end);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4078
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4079 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4080 si.fMask = SIF_PAGE | SIF_POS;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4081 si.nPage = end - start + VERTICAL_SCROLL_BAR_MIN_HANDLE;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4082 si.nPos = last_scroll_bar_drag_pos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4083 pfnSetScrollInfo (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, &si, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4084 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4085 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4086 SetScrollPos (SCROLL_BAR_W32_WINDOW (bar), SB_CTL, y, TRUE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4087 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4088 /* 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
4089 default:
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4090 emacs_event->kind = NO_EVENT;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4091 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
4092 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4093
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4094 XSETINT (emacs_event->x, y);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4095 XSETINT (emacs_event->y, top_range);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4096
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4097 return TRUE;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4098 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4099 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4100
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4101 /* Return information to the user about the current position of the mouse
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4102 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
4103
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4104 static void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4105 x_scroll_bar_report_motion (fp, bar_window, part, x, y, time)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4106 FRAME_PTR *fp;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4107 Lisp_Object *bar_window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4108 enum scroll_bar_part *part;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4109 Lisp_Object *x, *y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4110 unsigned long *time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4111 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4112 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
4113 Window w = SCROLL_BAR_W32_WINDOW (bar);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4114 FRAME_PTR f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4115 int pos;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4116 int top_range = VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4117
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4118 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4119
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4120 *fp = f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4121 *bar_window = bar->window;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4122
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4123 if (pfnGetScrollInfo)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4124 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4125 SCROLLINFO si;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4126
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4127 si.cbSize = sizeof (si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4128 si.fMask = SIF_POS | SIF_PAGE | SIF_RANGE;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4129
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4130 pfnGetScrollInfo (w, SB_CTL, &si);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4131 pos = si.nPos;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4132 top_range = si.nMax - si.nPage + 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4133 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4134 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4135 pos = GetScrollPos (w, SB_CTL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4136
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4137 switch (LOWORD (last_mouse_scroll_bar_pos))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4138 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4139 case SB_THUMBPOSITION:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4140 case SB_THUMBTRACK:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4141 *part = scroll_bar_handle;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4142 if (VERTICAL_SCROLL_BAR_TOP_RANGE (f, XINT (bar->height)) <= 0xffff)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4143 pos = HIWORD (last_mouse_scroll_bar_pos);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4144 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4145 case SB_LINEDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4146 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4147 pos++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4148 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4149 default:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4150 *part = scroll_bar_handle;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4151 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4152 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4153
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4154 XSETINT (*x, pos);
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4155 XSETINT (*y, top_range);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4156
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4157 f->mouse_moved = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4158 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4159
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4160 *time = last_mouse_movement_time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4161
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4162 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4163 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4164
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4165
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4166 /* The screen has been cleared so we may have changed foreground or
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4167 background colors, and the scroll bars may need to be redrawn.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4168 Clear out the scroll bars, and ask for expose events, so we can
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4169 redraw them. */
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4170
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4171 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4172 x_scroll_bar_clear (f)
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4173 FRAME_PTR f;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4174 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4175 Lisp_Object bar;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4176
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4177 /* 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
4178 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
4179 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
4180 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
4181 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
4182 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
4183 {
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4184 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
4185 HDC hdc = GetDC (window);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4186 RECT rect;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4187
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4188 /* 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
4189 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
4190 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
4191
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4192 GetClientRect (window, &rect);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4193 select_palette (f, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4194 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
4195 deselect_palette (f, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4196
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4197 ReleaseDC (window, hdc);
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4198 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4199 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4200
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4201
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4202 /* The main W32 event-reading loop - w32_read_socket. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4203
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4204 /* Record the last 100 characters stored
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4205 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
4206
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4207 static int temp_index;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4208 static short temp_buffer[100];
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4209
14462
599a3ae1e8ea (convert_to_key_event, is_dead_key): New functions.
Geoff Voelker <voelker@cs.washington.edu>
parents: 14351
diff changeset
4210
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4211 /* Read events coming from the W32 shell.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4212 This routine is called by the SIGIO handler.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4213 We return as soon as there are no more events to be read.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4214
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4215 Events representing keys are stored in buffer BUFP,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4216 which can hold up to NUMCHARS characters.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4217 We return the number of characters stored into the buffer,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4218 thus pretending to be `read'.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4219
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4220 EXPECTED is nonzero if the caller knows input is available.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4221
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4222 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
4223 system calls the windows proc directly in a context where we cannot return
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
4224 the data nor can we guarantee the state we are in. So if we dispatch them
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4225 we will get into an infinite loop. To prevent this from ever happening we
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4226 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
4227 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
4228 recursively with different messages by the system.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4229 */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4230
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4231 int
16326
a85909645f7a (w32_read_socket): Delete WAITP arg.
Richard M. Stallman <rms@gnu.org>
parents: 16258
diff changeset
4232 w32_read_socket (sd, bufp, numchars, expected)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4233 register int sd;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4234 /* register */ struct input_event *bufp;
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4235 /* register */ int numchars;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4236 int expected;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4237 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4238 int count = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4239 int check_visibility = 0;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4240 W32Msg msg;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4241 struct frame *f;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
4242 struct w32_display_info *dpyinfo = &one_w32_display_info;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4243
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4244 if (interrupt_input_blocked)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4245 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4246 interrupt_input_pending = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4247 return -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4248 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4249
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4250 interrupt_input_pending = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4251 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4252
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4253 /* So people can tell when we have read the available input. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4254 input_signal_count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4255
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4256 if (numchars <= 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4257 abort (); /* Don't think this happens. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4258
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4259 /* TODO: tool-bars, ghostscript integration, mouse
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4260 cursors. */
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4261 while (get_next_msg (&msg, FALSE))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4262 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4263 switch (msg.msg.message)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4264 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4265 case WM_PAINT:
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4266 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4267
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4268 if (f)
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4269 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4270 if (msg.rect.right == msg.rect.left ||
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4271 msg.rect.bottom == msg.rect.top)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4272 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4273 /* We may get paint messages even though the client
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4274 area is clipped - these are not expose events. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4275 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
4276 SDATA (f->name)));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4277 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4278 else if (f->async_visible != 1)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4279 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4280 /* Definitely not obscured, so mark as visible. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4281 f->async_visible = 1;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4282 f->async_iconified = 0;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4283 SET_FRAME_GARBAGED (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4284 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
4285 SDATA (f->name)));
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4286
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4287 /* WM_PAINT serves as MapNotify as well, so report
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4288 visibility changes properly. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4289 if (f->iconified)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4290 {
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4291 bufp->kind = DEICONIFY_EVENT;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4292 XSETFRAME (bufp->frame_or_window, f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4293 bufp->arg = Qnil;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4294 bufp++;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4295 count++;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4296 numchars--;
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4297 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4298 else if (! NILP (Vframe_list)
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4299 && ! NILP (XCDR (Vframe_list)))
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4300 /* Force a redisplay sooner or later to update the
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4301 frame titles in case this is the second frame. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4302 record_asynch_buffer_change ();
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4303 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4304 else
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4305 {
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4306 HDC hdc = get_frame_dc (f);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4307
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4308 /* Erase background again for safety. */
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4309 w32_clear_rect (f, hdc, &msg.rect);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4310 release_frame_dc (f, hdc);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4311 expose_frame (f,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4312 msg.rect.left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4313 msg.rect.top,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4314 msg.rect.right - msg.rect.left,
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4315 msg.rect.bottom - msg.rect.top);
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4316 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
4317 }
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4318 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4319
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4320 case WM_INPUTLANGCHANGE:
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4321 /* Generate a language change event. */
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4322 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
4323
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4324 if (f)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4325 {
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4326 if (numchars == 0)
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4327 abort ();
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4328
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4329 bufp->kind = LANGUAGE_CHANGE_EVENT;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4330 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4331 bufp->arg = Qnil;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4332 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4333 bufp->modifiers = msg.msg.lParam & 0xffff;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4334 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4335 count++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4336 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4337 }
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4338 break;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4339
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4340 case WM_KEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4341 case WM_SYSKEYDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4342 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
4343
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4344 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4345 {
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4346 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4347 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4348 dpyinfo->mouse_face_hidden = 1;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4349 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4350 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4351
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4352 if (temp_index == sizeof temp_buffer / sizeof (short))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4353 temp_index = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4354 temp_buffer[temp_index++] = msg.msg.wParam;
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4355 bufp->kind = NON_ASCII_KEYSTROKE_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4356 bufp->code = msg.msg.wParam;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4357 bufp->modifiers = msg.dwModifiers;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4358 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4359 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4360 bufp->timestamp = msg.msg.time;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4361 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4362 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4363 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4364 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4365 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4366
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4367 case WM_SYSCHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4368 case WM_CHAR:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4369 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
4370
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4371 if (f && !f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4372 {
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4373 if (!dpyinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight))
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4374 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4375 dpyinfo->mouse_face_hidden = 1;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4376 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4377 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4378
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4379 if (temp_index == sizeof temp_buffer / sizeof (short))
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4380 temp_index = 0;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4381 temp_buffer[temp_index++] = msg.msg.wParam;
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4382 bufp->kind = ASCII_KEYSTROKE_EVENT;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4383 bufp->code = msg.msg.wParam;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4384 bufp->modifiers = msg.dwModifiers;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4385 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4386 bufp->arg = Qnil;
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4387 bufp->timestamp = msg.msg.time;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4388 bufp++;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4389 numchars--;
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4390 count++;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4391 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4392 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4393
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4394 case WM_MOUSEMOVE:
48819
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4395 /* Ignore non-movement. */
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4396 {
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4397 int x = LOWORD (msg.msg.lParam);
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4398 int y = HIWORD (msg.msg.lParam);
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4399 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
4400 break;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4401 last_mousemove_x = x;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4402 last_mousemove_y = y;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4403 }
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4404
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4405 previous_help_echo_string = help_echo_string;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4406
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4407 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4408 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4409 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4410 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4411 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
4412
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4413 if (dpyinfo->mouse_face_hidden)
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4414 {
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4415 dpyinfo->mouse_face_hidden = 0;
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4416 clear_mouse_face (dpyinfo);
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4417 }
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
4418
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4419 if (f)
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4420 {
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4421 /* Generate SELECT_WINDOW_EVENTs when needed. */
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4422 if (mouse_autoselect_window)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4423 {
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4424 Lisp_Object window;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4425 int x = LOWORD (msg.msg.lParam);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4426 int y = HIWORD (msg.msg.lParam);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4427
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4428 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
4429
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4430 /* 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
4431 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
4432 not in it. Minibuffer window will be selected
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4433 iff it is active. */
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4434 if (WINDOWP(window)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4435 && !EQ (window, last_window)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4436 && !EQ (window, selected_window)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4437 && numchars > 0)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4438 {
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4439 bufp->kind = SELECT_WINDOW_EVENT;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4440 bufp->frame_or_window = window;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4441 bufp->arg = Qnil;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4442 ++bufp, ++count, --numchars;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4443 }
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4444
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4445 last_window=window;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4446 }
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4447 note_mouse_movement (f, &msg.msg);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4448 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4449 else
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4450 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4451 /* 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
4452 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
4453 clear_mouse_face (dpyinfo);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4454 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4455
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4456 /* 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
4457 has changed, generate a HELP_EVENT. */
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4458 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
4459 (!NILP (help_echo_string) && !STRINGP (help_echo_string) && f->mouse_moved))
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4460 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4461 Lisp_Object frame;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4462 int n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4463
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4464 if (help_echo_string == Qnil)
48819
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4465 {
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4466 help_echo_object = help_echo_window = Qnil;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4467 help_echo_pos = -1;
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4468 }
c7fb53597300 (last_mousemove_x, last_mousemove_y): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 48360
diff changeset
4469
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4470 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4471 XSETFRAME (frame, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4472 else
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4473 frame = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4474
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4475 any_help_event_p = 1;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4476 n = gen_help_event (bufp, numchars, help_echo_string, frame,
31010
040345be1d12 (w32_read_socket): Change calls to gen_help_event.
Gerd Moellmann <gerd@gnu.org>
parents: 30988
diff changeset
4477 help_echo_window, help_echo_object,
040345be1d12 (w32_read_socket): Change calls to gen_help_event.
Gerd Moellmann <gerd@gnu.org>
parents: 30988
diff changeset
4478 help_echo_pos);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4479 bufp += n, count += n, numchars -= n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4480 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4481 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4482
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4483 case WM_LBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4484 case WM_LBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4485 case WM_MBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4486 case WM_MBUTTONUP:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4487 case WM_RBUTTONDOWN:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4488 case WM_RBUTTONUP:
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
4489 case WM_XBUTTONDOWN:
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
4490 case WM_XBUTTONUP:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4491 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4492 /* 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
4493 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
4494 struct input_event emacs_event;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4495 int tool_bar_p = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4496 int button;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4497 int up;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4498
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4499 emacs_event.kind = NO_EVENT;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4500
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4501 if (dpyinfo->grabbed && last_mouse_frame
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4502 && FRAME_LIVE_P (last_mouse_frame))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4503 f = last_mouse_frame;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4504 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4505 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
4506
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4507 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4508 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4509 construct_mouse_click (&emacs_event, &msg, f);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4510
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4511 /* Is this in the tool-bar? */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4512 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
4513 && 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
4514 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4515 Lisp_Object window;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4516 int x = XFASTINT (emacs_event.x);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4517 int y = XFASTINT (emacs_event.y);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4518
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4519 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
4520
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4521 if (EQ (window, f->tool_bar_window))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4522 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4523 w32_handle_tool_bar_click (f, &emacs_event);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4524 tool_bar_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4525 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4526 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4527
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4528 if (!tool_bar_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4529 if (!dpyinfo->w32_focus_frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4530 || f == dpyinfo->w32_focus_frame
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4531 && (numchars >= 1))
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4532 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4533 construct_mouse_click (bufp, &msg, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4534 bufp++;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4535 count++;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4536 numchars--;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4537 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4538 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4539
42720
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
4540 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
4541 &button, &up);
1217a83a82e4 (parse_button): New parameter xbutton. Callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 42675
diff changeset
4542
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4543 if (up)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4544 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4545 dpyinfo->grabbed &= ~ (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4546 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4547 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4548 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4549 dpyinfo->grabbed |= (1 << button);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4550 last_mouse_frame = f;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4551 /* Ignore any mouse motion that happened
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4552 before this event; any subsequent mouse-movement
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4553 Emacs events should reflect only motion after
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4554 the ButtonPress. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4555 if (f != 0)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4556 f->mouse_moved = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4557
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4558 if (!tool_bar_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4559 last_tool_bar_item = -1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4560 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4561 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4562 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4563
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4564 case WM_MOUSEWHEEL:
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4565 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4566 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
4567 && 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
4568 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
4569 else
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4570 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
4571
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4572 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
4573 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4574
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4575 if ((!dpyinfo->w32_focus_frame
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4576 || f == dpyinfo->w32_focus_frame)
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4577 && (numchars >= 1))
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4578 {
51382
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4579 /* Emit an Emacs wheel-up/down event. */
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4580 construct_mouse_wheel (bufp, &msg, f);
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4581 bufp++;
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4582 count++;
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4583 numchars--;
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4584 }
51382
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4585 /* Ignore any mouse motion that happened before this
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4586 event; any subsequent mouse-movement Emacs events
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4587 should reflect only motion after the
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4588 ButtonPress. */
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4589 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
4590 }
51382
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4591 last_mouse_frame = f;
e099ac71bd76 (construct_mouse_wheel): Construct WHEEL_EVENT.
Jason Rumney <jasonr@gnu.org>
parents: 51270
diff changeset
4592 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
4593 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4594 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4595
21885
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4596 case WM_DROPFILES:
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4597 f = x_window_to_frame (dpyinfo, msg.msg.hwnd);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4598
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4599 if (f)
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4600 {
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4601 construct_drag_n_drop (bufp, &msg, f);
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4602 bufp++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4603 count++;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4604 numchars--;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4605 }
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4606 break;
40c97499e89a Include shellapi.h.
Richard M. Stallman <rms@gnu.org>
parents: 21875
diff changeset
4607
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4608 case WM_VSCROLL:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4609 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4610 struct scroll_bar *bar =
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4611 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
4612
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4613 if (bar && numchars >= 1)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4614 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4615 if (w32_scroll_bar_handle_click (bar, &msg, bufp))
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4616 {
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4617 bufp++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4618 count++;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4619 numchars--;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
4620 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4621 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4622 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4623 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4624
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4625 case WM_WINDOWPOSCHANGED:
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4626 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
4627 if (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4628 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4629 if (f->want_fullscreen & FULLSCREEN_WAIT)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4630 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
4631 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4632 check_visibility = 1;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4633 break;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4634
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4635 case WM_ACTIVATE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4636 case WM_ACTIVATEAPP:
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4637 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
4638 if (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
4639 x_check_fullscreen (f);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4640 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4641 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4642
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4643 case WM_MOVE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4644 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
4645
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4646 if (f && !f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4647 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4648 int x, y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4649
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4650 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
4651 f->left_pos = x;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4652 f->top_pos = y;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4653 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4654
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4655 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4656 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4657
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4658 case WM_SHOWWINDOW:
41447
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4659 /* 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
4660 about to be hidden. */
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4661 /* 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
4662 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
4663 {
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4664 tip_window = NULL;
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4665 redo_mouse_highlight ();
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4666 }
783d21cc62b9 (x_after_update_window_line): Doc fix.
Jason Rumney <jasonr@gnu.org>
parents: 41249
diff changeset
4667
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4668 /* 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
4669 being maximised or minimised/restored, then recheck
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4670 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
4671 windows get handled by WM_SIZE. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4672 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4673 if (msg.msg.lParam != 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4674 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4675 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4676 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4677 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
4678 f->async_visible = msg.msg.wParam;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4679 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4680 #endif
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4681
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4682 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4683 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4684
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4685 case WM_SIZE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4686 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
4687
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4688 /* 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
4689 if (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4690 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4691 switch (msg.msg.wParam)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4692 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4693 case SIZE_MINIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4694 f->async_visible = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4695 f->async_iconified = 1;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4696
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4697 bufp->kind = ICONIFY_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4698 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4699 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4700 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4701 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4702 numchars--;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4703 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4704
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4705 case SIZE_MAXIMIZED:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4706 case SIZE_RESTORED:
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4707 f->async_visible = 1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4708 f->async_iconified = 0;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4709
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4710 /* wait_reading_process_input will notice this and update
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4711 the frame's display structures. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4712 SET_FRAME_GARBAGED (f);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4713
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4714 if (f->iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4715 {
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4716 int x, y;
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4717
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4718 /* 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
4719 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
4720 BEFORE telling us the Window is minimized
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4721 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
4722 as the co-ords. */
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4723 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
4724 f->left_pos = x;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4725 f->top_pos = y;
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4726
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4727 bufp->kind = DEICONIFY_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4728 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4729 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4730 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4731 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4732 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4733 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4734 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
4735 && ! NILP (XCDR (Vframe_list)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4736 /* Force a redisplay sooner or later
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4737 to update the frame titles
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4738 in case this is the second frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4739 record_asynch_buffer_change ();
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4740 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4741 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4742 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4743
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4744 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
4745 {
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4746 RECT rect;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4747 int rows;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4748 int columns;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4749 int width;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4750 int height;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4751
32022
1f26caa05cd7 (w32_char_font_type, w32_encode_char, x_produce_glyphs): Distinguish
Jason Rumney <jasonr@gnu.org>
parents: 31624
diff changeset
4752 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
4753
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4754 height = rect.bottom - rect.top;
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4755 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
4756
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4757 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
4758 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
4759
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4760 /* 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
4761
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4762 /* 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
4763 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
4764 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
4765
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4766 if (columns != FRAME_COLS (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4767 || rows != FRAME_LINES (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4768 || width != FRAME_PIXEL_WIDTH (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4769 || height != FRAME_PIXEL_HEIGHT (f))
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4770 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4771 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
4772 SET_FRAME_GARBAGED (f);
24827
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
4773 cancel_mouse_face (f);
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4774 FRAME_PIXEL_WIDTH (f) = width;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4775 FRAME_PIXEL_HEIGHT (f) = height;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
4776 f->win_gravity = NorthWestGravity;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4777 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4778 }
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
4779
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4780 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4781 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4782
41731
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4783 case WM_MOUSELEAVE:
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4784 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
4785 if (f)
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4786 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4787 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
4788 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4789 /* 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
4790 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
4791 clear_mouse_face (dpyinfo);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4792 dpyinfo->mouse_face_mouse_frame = 0;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4793 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4794
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4795 /* 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
4796 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
4797 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
4798 the mouse leaves the frame. */
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4799 if (any_help_event_p)
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4800 {
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4801 Lisp_Object frame;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4802 int n;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4803
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4804 XSETFRAME (frame, f);
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4805 help_echo_string = Qnil;
41731
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4806 n = gen_help_event (bufp, numchars,
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4807 Qnil, frame, Qnil, Qnil, 0);
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4808 bufp += n, count += n, numchars -= n;
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4809 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4810 }
33ba14e9c09a (w32_read_socket) <WM_MOUSELEAVE>: Cancel help echo
Jason Rumney <jasonr@gnu.org>
parents: 41727
diff changeset
4811 break;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4812
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4813 case WM_SETFOCUS:
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4814 /* TODO: Port this change:
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4815 2002-06-28 Jan D. <jan.h.d@swipnet.se>
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4816 * xterm.h (struct x_output): Add focus_state.
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4817 * xterm.c (x_focus_changed): New function.
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4818 (x_detect_focus_change): New function.
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4819 (XTread_socket): Call x_detect_focus_change for FocusIn/FocusOut
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
4820 EnterNotify and LeaveNotify to track X focus changes.
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4821 */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4822 f = x_any_window_to_frame (dpyinfo, msg.msg.hwnd);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4823
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4824 dpyinfo->w32_focus_event_frame = f;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4825
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4826 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4827 x_new_focus_frame (dpyinfo, f);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4828
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4829
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4830 dpyinfo->grabbed = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4831 check_visibility = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4832 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4833
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4834 case WM_KILLFOCUS:
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
4835 /* TODO: some of this belongs in MOUSE_LEAVE */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4836 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
4837
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4838 if (f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4839 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4840 if (f == dpyinfo->w32_focus_event_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4841 dpyinfo->w32_focus_event_frame = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4842
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4843 if (f == dpyinfo->w32_focus_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4844 x_new_focus_frame (dpyinfo, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4845
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4846 if (f == dpyinfo->mouse_face_mouse_frame)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4847 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4848 /* 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
4849 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
4850 clear_mouse_face (dpyinfo);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4851 dpyinfo->mouse_face_mouse_frame = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4852 }
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
4853
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4854 /* 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
4855 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
4856 Otherwise, the startup message is cleared when
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4857 the mouse leaves the frame. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4858 if (any_help_event_p)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4859 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4860 Lisp_Object frame;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4861 int n;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4862
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4863 XSETFRAME (frame, f);
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
4864 help_echo_string = Qnil;
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4865 n = gen_help_event (bufp, numchars,
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
4866 Qnil, frame, Qnil, Qnil, 0);
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
4867 bufp += n, count += n, numchars -=n;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4868 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
4869 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4870
24752
80c46fd667da (w32_read_socket): Reset the grabbed flag when a frame gains or
Andrew Innes <andrewi@gnu.org>
parents: 24733
diff changeset
4871 dpyinfo->grabbed = 0;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4872 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4873 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4874
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4875 case WM_CLOSE:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4876 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
4877
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4878 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4879 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4880 if (numchars == 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4881 abort ();
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4882
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4883 bufp->kind = DELETE_WINDOW_EVENT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4884 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4885 bufp->arg = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4886 bufp++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4887 count++;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4888 numchars--;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4889 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4890 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4891
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4892 case WM_INITMENU:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4893 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
4894
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4895 if (f)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4896 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4897 if (numchars == 0)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4898 abort ();
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4899
45803
9484de301252 Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents: 45507
diff changeset
4900 bufp->kind = MENU_BAR_ACTIVATE_EVENT;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4901 XSETFRAME (bufp->frame_or_window, f);
30199
298f10cd4ba5 (construct_mouse_click, construct_mouse_wheel)
Gerd Moellmann <gerd@gnu.org>
parents: 30179
diff changeset
4902 bufp->arg = Qnil;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4903 bufp++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4904 count++;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4905 numchars--;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4906 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4907 break;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4908
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4909 case WM_COMMAND:
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4910 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
4911
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4912 if (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4913 {
23677
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4914 extern void menubar_selection_callback
70999481c915 (convert_to_key_event): Removed.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23639
diff changeset
4915 (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
4916 menubar_selection_callback (f, (void *)msg.msg.wParam);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4917 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4918
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4919 check_visibility = 1;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4920 break;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4921
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4922 case WM_DISPLAYCHANGE:
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4923 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
4924
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4925 if (f)
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4926 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4927 dpyinfo->width = (short) LOWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4928 dpyinfo->height = (short) HIWORD (msg.msg.lParam);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4929 dpyinfo->n_cbits = msg.msg.wParam;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4930 DebPrint (("display change: %d %d\n", dpyinfo->width,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4931 dpyinfo->height));
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4932 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
4933
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4934 check_visibility = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4935 break;
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4936
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4937 default:
51270
827c306f0515 Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents: 51269
diff changeset
4938 /* Check for messages registered at runtime. */
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4939 if (msg.msg.message == msh_mousewheel)
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4940 {
51270
827c306f0515 Add missing code from previous patch by David Ponce.
Juanma Barranquero <lekktu@gmail.com>
parents: 51269
diff changeset
4941 /* Forward MSH_MOUSEWHEEL as WM_MOUSEWHEEL. */
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
4942 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
4943 prepend_msg (&msg);
21875
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4944 }
16414f4d07e7 (msh_mousewheel): Declare.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21831
diff changeset
4945 break;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4946 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4947 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4948
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4949 /* If the focus was just given to an autoraising frame,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4950 raise it now. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4951 /* ??? This ought to be able to handle more than one such frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4952 if (pending_autoraise_frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4953 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4954 x_raise_frame (pending_autoraise_frame);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4955 pending_autoraise_frame = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4956 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
4957
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4958 /* 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
4959 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
4960 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
4961 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
4962 changed (at least, not in all cases). */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4963 if (count > 0 || check_visibility)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4964 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4965 Lisp_Object tail, frame;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4966
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
4967 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
4968 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4969 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
4970 /* 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
4971 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
4972 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
4973 continue;
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4974
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4975 /* 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
4976 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
4977 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
4978 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
4979 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4980 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
4981 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
4982
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4983 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
4984 /* 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
4985 (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
4986 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
4987 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
4988 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
4989 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
4990 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
4991 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
4992 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
4993 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
4994
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4995 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
4996 || 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
4997 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
4998 /* 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
4999 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
5000 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
5001 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
5002 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
5003
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5004 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
5005 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5006 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
5007 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
5008 }
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5009 }
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5010 else
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5011 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5012 /* 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
5013 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
5014
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5015 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
5016 {
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5017 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
5018 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
5019 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
5020
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5021 /* 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
5022 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
5023 }
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5024 }
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5025 }
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
5026 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5027 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5028
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5029 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5030 return count;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5031 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5032
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5033
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5034
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5035
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5036 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5037 Text Cursor
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5038 ***********************************************************************/
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5039
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5040 /* 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
5041 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
5042
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5043 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
5044 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
5045 mode lines must be clipped to the whole window. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5046
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5047 static void
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5048 w32_clip_to_row (w, row, hdc)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5049 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5050 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5051 HDC hdc;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5052 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5053 struct frame *f = XFRAME (WINDOW_FRAME (w));
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5054 RECT clip_rect;
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5055 int window_y, window_width;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5056
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5057 window_box (w, -1, 0, &window_y, &window_width, 0);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5058
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5059 clip_rect.left = WINDOW_TO_FRAME_PIXEL_X (w, 0);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5060 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
5061 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
5062 clip_rect.right = clip_rect.left + window_width;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5063 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
5064
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5065 w32_set_clip_rectangle (hdc, &clip_rect);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5066 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5067
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5068
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5069 /* 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
5070
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5071 static void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5072 x_draw_hollow_cursor (w, row)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5073 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5074 struct glyph_row *row;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5075 {
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5076 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
5077 HDC hdc;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5078 RECT rect;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5079 int wd;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5080 struct glyph *cursor_glyph;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5081 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
5082
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5083 /* Compute frame-relative coordinates from window-relative
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5084 coordinates. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5085 rect.left = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5086 rect.top = (WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5087 + row->ascent - w->phys_cursor_ascent);
43760
0d2e63aa9d91 (x_draw_hollow_cursor): Draw same size as block cursor.
Jason Rumney <jasonr@gnu.org>
parents: 43713
diff changeset
5088 rect.bottom = rect.top + row->height;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5089
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5090 /* Get the glyph the cursor is on. If we can't tell because
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5091 the current matrix is invalid or such, give up. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5092 cursor_glyph = get_phys_cursor_glyph (w);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5093 if (cursor_glyph == NULL)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5094 return;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5095
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5096 /* Compute the width of the rectangle to draw. If on a stretch
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5097 glyph, and `x-stretch-block-cursor' is nil, don't draw a
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5098 rectangle as wide as the glyph, but use a canonical character
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5099 width instead. */
43760
0d2e63aa9d91 (x_draw_hollow_cursor): Draw same size as block cursor.
Jason Rumney <jasonr@gnu.org>
parents: 43713
diff changeset
5100 wd = cursor_glyph->pixel_width;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5101 if (cursor_glyph->type == STRETCH_GLYPH
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5102 && !x_stretch_cursor_p)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5103 wd = min (FRAME_COLUMN_WIDTH (f), wd);
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5104 w->phys_cursor_width = wd;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5105
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5106 rect.right = rect.left + wd;
34779
94c3431a7fe2 (x_draw_hollow_cursor): Delay obtaining the frame's DC to avoid
Jason Rumney <jasonr@gnu.org>
parents: 34545
diff changeset
5107 hdc = get_frame_dc (f);
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5108 /* Set clipping, draw the rectangle, and reset clipping again. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5109 w32_clip_to_row (w, row, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5110 FrameRect (hdc, &rect, hb);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5111 DeleteObject (hb);
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5112 w32_set_clip_rectangle (hdc, NULL);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5113 release_frame_dc (f, hdc);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5114 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5115
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5116
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5117 /* 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
5118
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5119 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
5120 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
5121 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
5122 --gerd. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5123
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5124 static void
45467
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5125 x_draw_bar_cursor (w, row, width, kind)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5126 struct window *w;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5127 struct glyph_row *row;
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5128 int width;
45467
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5129 enum text_cursor_kinds kind;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5130 {
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5131 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
5132 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
5133 int x;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5134 HDC hdc;
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 /* 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
5137 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
5138 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
5139 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
5140 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
5141 return;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5142
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5143 /* 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
5144 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
5145 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
5146 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
5147 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5148 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
5149 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
5150 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
5151 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5152 else
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5153 {
41249
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5154 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
5155 struct face *face = FACE_FROM_ID (f, cursor_glyph->face_id);
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5156
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5157 /* 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
5158 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
5159 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
5160 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
5161 that the glyph is legible. */
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5162 if (face->background == cursor_color)
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5163 cursor_color = face->foreground;
2043af2d023f (note_mouse_highlight): Fix type of variable `ignore'.
Jason Rumney <jasonr@gnu.org>
parents: 41125
diff changeset
5164
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5165 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
5166
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5167 if (width < 0)
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5168 width = FRAME_CURSOR_WIDTH (f);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5169 width = min (cursor_glyph->pixel_width, width);
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5170
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5171 w->phys_cursor_width = width;
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5172
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5173
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5174 hdc = get_frame_dc (f);
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5175 w32_clip_to_row (w, row, hdc);
45467
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5176
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5177 if (kind == BAR_CURSOR)
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5178 {
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5179 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
5180 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
5181 width, row->height);
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5182 }
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5183 else
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5184 {
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5185 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
5186 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
5187 row->height - width),
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5188 cursor_glyph->pixel_width, width);
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5189 }
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5190
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5191 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
5192 release_frame_dc (f, hdc);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5193 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5194 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5195
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5196
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5197 /* RIF: Define cursor CURSOR on frame F. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5198
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5199 static void
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5200 w32_define_frame_cursor (f, cursor)
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5201 struct frame *f;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5202 Cursor cursor;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5203 {
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5204 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
5205 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5206
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5207
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5208 /* RIF: Clear area on frame F. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5209
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5210 static void
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5211 w32_clear_frame_area (f, x, y, width, height)
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5212 struct frame *f;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5213 int x, y, width, height;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5214 {
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5215 HDC hdc;
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5216
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5217 hdc = get_frame_dc (f);
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5218 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
5219 release_frame_dc (f, hdc);
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5220 }
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
5221
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5222 /* 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
5223
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5224 static void
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5225 w32_draw_window_cursor (w, glyph_row, x, y, cursor_type, cursor_width, on_p, active_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5226 struct window *w;
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5227 struct glyph_row *glyph_row;
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5228 int x, y;
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5229 int cursor_type, cursor_width;
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5230 int on_p, active_p;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5231 {
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5232 if (on_p)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5233 {
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5234 /* 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
5235 cursor remains invisible. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5236 if (w32_use_visible_system_caret)
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5237 {
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5238 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
5239 erase_phys_cursor (w);
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5240
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5241 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
5242 w->phys_cursor_width = -1;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5243 }
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5244 else
43621
7755c5d1d8b4 (x_display_and_set_cursor): Blink box cursor using
Kim F. Storm <storm@cua.dk>
parents: 43478
diff changeset
5245 {
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5246 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
5247 }
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5248
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5249 w->phys_cursor_on_p = 1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5250
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
5251 /* 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
5252 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
5253 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
5254 if (active_p)
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
5255 {
50280
1a5341fe785b (w32_draw_window_cursor): Fix last change.
Kim F. Storm <storm@cua.dk>
parents: 50247
diff changeset
5256 struct frame *f = XFRAME (WINDOW_FRAME (w));
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5257 HWND hwnd = FRAME_W32_WINDOW (f);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5258
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5259 w32_system_caret_x
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5260 = 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
5261 w32_system_caret_y
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5262 = (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
5263 + glyph_row->ascent - w->phys_cursor_ascent);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5264
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5265 /* 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
5266 system caret. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5267 if (w32_system_caret_hwnd
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5268 && (w32_system_caret_height != w->phys_cursor_height))
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5269 PostMessage (hwnd, WM_EMACS_DESTROY_CARET, 0, 0);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5270
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5271 w32_system_caret_height = w->phys_cursor_height;
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5272
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5273 /* Move the system caret. */
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
5274 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
5275 }
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
5276
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5277 switch (cursor_type)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5278 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5279 case HOLLOW_BOX_CURSOR:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5280 x_draw_hollow_cursor (w, glyph_row);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5281 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5282
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5283 case FILLED_BOX_CURSOR:
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
5284 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
5285 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5286
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5287 case BAR_CURSOR:
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5288 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
5289 break;
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5290
583ed47de245 (x_draw_bar_cursor): New argument KIND; callers changed.
Jason Rumney <jasonr@gnu.org>
parents: 45196
diff changeset
5291 case HBAR_CURSOR:
50243
3fb54e5a7201 (struct redisplay_interface): Add active_p argument to
Kim F. Storm <storm@cua.dk>
parents: 50231
diff changeset
5292 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
5293 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5294
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5295 case NO_CURSOR:
49393
85246e86a2cd * w32term.c (x_draw_glyph_string_foreground)
Jason Rumney <jasonr@gnu.org>
parents: 49371
diff changeset
5296 w->phys_cursor_width = 0;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5297 break;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5298
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5299 default:
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5300 abort ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5301 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5302 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5303 }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5304
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5305
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5306
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5307 /* Icons. */
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5308
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5309 int
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5310 x_bitmap_icon (f, icon)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5311 struct frame *f;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5312 Lisp_Object icon;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5313 {
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5314 HANDLE hicon;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5315
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5316 if (FRAME_W32_WINDOW (f) == 0)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5317 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5318
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5319 if (NILP (icon))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5320 hicon = LoadIcon (hinst, EMACS_CLASS);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5321 else if (STRINGP (icon))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 45803
diff changeset
5322 hicon = LoadImage (NULL, (LPCTSTR) SDATA (icon), IMAGE_ICON, 0, 0,
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5323 LR_DEFAULTSIZE | LR_LOADFROMFILE);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5324 else if (SYMBOLP (icon))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5325 {
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5326 LPCTSTR name;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5327
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5328 if (EQ (icon, intern ("application")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5329 name = (LPCTSTR) IDI_APPLICATION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5330 else if (EQ (icon, intern ("hand")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5331 name = (LPCTSTR) IDI_HAND;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5332 else if (EQ (icon, intern ("question")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5333 name = (LPCTSTR) IDI_QUESTION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5334 else if (EQ (icon, intern ("exclamation")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5335 name = (LPCTSTR) IDI_EXCLAMATION;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5336 else if (EQ (icon, intern ("asterisk")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5337 name = (LPCTSTR) IDI_ASTERISK;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5338 else if (EQ (icon, intern ("winlogo")))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5339 name = (LPCTSTR) IDI_WINLOGO;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5340 else
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5341 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5342
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5343 hicon = LoadIcon (NULL, name);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5344 }
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5345 else
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5346 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5347
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5348 if (hicon == NULL)
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5349 return 1;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5350
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5351 PostMessage (FRAME_W32_WINDOW (f), WM_SETICON, (WPARAM) ICON_BIG,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5352 (LPARAM) hicon);
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5353
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5354 return 0;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5355 }
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5356
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5357
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5358 /************************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5359 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
5360 ************************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5361
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5362 /* 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
5363 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
5364
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5365 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
5366 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
5367 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
5368 x_check_errors (dpy, format)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5369 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
5370 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
5371 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
5372 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
5373 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
5374 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
5375 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
5376 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
5377 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
5378
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5379 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5380
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5381
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5382 /* Changing the font of the frame. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5383
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5384 /* Give frame F the font named FONTNAME as its default font, and
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5385 return the full name of that font. FONTNAME may be a wildcard
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5386 pattern; in that case, we choose some font that fits the pattern.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5387 The return value shows which font we chose. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5388
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5389 Lisp_Object
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5390 x_new_font (f, fontname)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5391 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5392 register char *fontname;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5393 {
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5394 struct font_info *fontp
88392
884fb2871f30 (x_new_font): Adjusted for the change of FS_LOAD_FONT.
Kenichi Handa <handa@m17n.org>
parents: 43478
diff changeset
5395 = FS_LOAD_FONT (f, fontname);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5396
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5397 if (!fontp)
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5398 return Qnil;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5399
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5400 if (FRAME_FONT (f) == (XFontStruct *) (fontp->font))
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5401 /* This font is already set in frame F. There's nothing more to
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5402 do. */
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5403 return build_string (fontp->full_name);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5404
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5405 FRAME_FONT (f) = (XFontStruct *) (fontp->font);
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5406 FRAME_BASELINE_OFFSET (f) = fontp->baseline_offset;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5407 FRAME_FONTSET (f) = -1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5408
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5409 FRAME_COLUMN_WIDTH (f) = FONT_WIDTH (FRAME_FONT (f));
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5410 FRAME_LINE_HEIGHT (f) = FONT_HEIGHT (FRAME_FONT (f));
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5411
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5412 compute_fringe_widths (f, 1);
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5413
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5414 /* Compute the scroll bar width in character columns. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5415 if (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) > 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5416 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5417 int wid = FRAME_COLUMN_WIDTH (f);
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5418 FRAME_CONFIG_SCROLL_BAR_COLS (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5419 = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) + wid-1) / wid;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5420 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5421 else
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5422 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5423 int wid = FRAME_COLUMN_WIDTH (f);
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5424 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (14 + wid - 1) / wid;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5425 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5426
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5427 /* Now make the frame display the given font. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5428 if (FRAME_W32_WINDOW (f) != 0)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5429 {
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
5430 if (NILP (tip_frame) || XFRAME (tip_frame) != f)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5431 x_set_window_size (f, 0, FRAME_COLS (f), FRAME_LINES (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5432 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5433
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5434 return build_string (fontp->full_name);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5435 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5436
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5437 /* Give frame F the fontset named FONTSETNAME as its default fontset,
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5438 and return the full name of that fontset. FONTSETNAME may be a
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5439 wildcard pattern; in that case, we choose some fontset that fits
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5440 the pattern. FONTSETNAME may be a font name for ASCII characters;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5441 in that case, we create a fontset from that font name.
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5442
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5443 The return value shows which fontset we chose.
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5444 If FONTSETNAME specifies the default fontset, return Qt.
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5445 If an ASCII font in the specified fontset can't be loaded, return
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5446 Qnil. */
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5447
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5448 Lisp_Object
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5449 x_new_fontset (f, fontsetname)
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5450 struct frame *f;
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5451 Lisp_Object fontsetname;
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5452 {
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5453 int fontset = fs_query_fontset (fontsetname, 0);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5454 Lisp_Object result;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5455
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5456 if (fontset > 0 && FRAME_FONTSET(f) == fontset)
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5457 /* This fontset is already set in frame F. There's nothing more
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5458 to do. */
28369
3fb90cd81d3b (w32_read_socket): Handle WM_MENUSELECT message.
Jason Rumney <jasonr@gnu.org>
parents: 27937
diff changeset
5459 return fontset_name (fontset);
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5460 else if (fontset == 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5461 /* The default fontset can't be the default font. */
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5462 return Qt;
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5463
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5464 if (fontset > 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5465 result = x_new_font (f, (SDATA (fontset_ascii (fontset))));
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5466 else
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5467 result = x_new_font (f, SDATA (fontsetname));
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5468
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5469 if (!STRINGP (result))
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5470 /* Can't load ASCII font. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5471 return Qnil;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5472
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5473 if (fontset < 0)
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5474 fontset = new_fontset_from_font_name (result);
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5475
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5476 /* Since x_new_font doesn't update any fontset information, do it now. */
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5477 FRAME_FONTSET(f) = fontset;
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5478
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5479 return fontset_name (fontset);
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5480 }
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5481
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5482
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5483 /***********************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5484 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
5485 ***********************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5486 /* 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
5487
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5488 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
5489 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
5490 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
5491 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
5492 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
5493 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
5494
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5495 */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5496
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5497
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5498 /* Calculate the absolute position in frame F
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5499 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
5500
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5501 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5502 x_calc_absolute_position (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5503 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5504 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5505 POINT pt;
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5506 int flags = f->size_hint_flags;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5507
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5508 pt.x = pt.y = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5509
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5510 /* Find the position of the outside upper-left corner of
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5511 the inner window, with respect to the outer window.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5512 But do this only if we will need the results. */
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5513 if (f->output_data.w32->parent_desc != FRAME_W32_DISPLAY_INFO (f)->root_window)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5514 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5515 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5516 MapWindowPoints (FRAME_W32_WINDOW (f),
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5517 f->output_data.w32->parent_desc,
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5518 &pt, 1);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5519 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5520 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5521
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5522 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5523 RECT rt;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5524 rt.left = rt.right = rt.top = rt.bottom = 0;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5525
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5526 BLOCK_INPUT;
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5527 AdjustWindowRect(&rt, f->output_data.w32->dwStyle,
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
5528 FRAME_EXTERNAL_MENU_BAR (f));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5529 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5530
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5531 pt.x += (rt.right - rt.left);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5532 pt.y += (rt.bottom - rt.top);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5533 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5534
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5535 /* Treat negative positions as relative to the leftmost bottommost
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5536 position that fits on the screen. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5537 if (flags & XNegative)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5538 f->left_pos = (FRAME_W32_DISPLAY_INFO (f)->width
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5539 - 2 * f->border_width - pt.x
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5540 - FRAME_PIXEL_WIDTH (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5541 + f->left_pos);
30988
a69a2ac4345b (help_echo_window): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 30730
diff changeset
5542
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5543 if (flags & YNegative)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5544 f->top_pos = (FRAME_W32_DISPLAY_INFO (f)->height
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5545 - 2 * f->border_width - pt.y
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5546 - FRAME_PIXEL_HEIGHT (f)
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5547 + f->top_pos);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5548 /* The left_pos and top_pos
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5549 are now relative to the top and left screen edges,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5550 so the flags should correspond. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5551 f->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5552 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5553
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5554 /* CHANGE_GRAVITY is 1 when calling from Fset_frame_position,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5555 to really change the position, and 0 when calling from
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5556 x_make_frame_visible (in that case, XOFF and YOFF are the current
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5557 position values). It is -1 when calling from x_set_frame_parameters,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5558 which means, do adjust for borders but don't change the gravity. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5559
29321
8e2be36bb1c6 Format and doc changes to bring closer to xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 28369
diff changeset
5560 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5561 x_set_offset (f, xoff, yoff, change_gravity)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5562 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5563 register int xoff, yoff;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5564 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5565 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5566 int modified_top, modified_left;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5567
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5568 if (change_gravity > 0)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5569 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5570 f->top_pos = yoff;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5571 f->left_pos = xoff;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5572 f->size_hint_flags &= ~ (XNegative | YNegative);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5573 if (xoff < 0)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5574 f->size_hint_flags |= XNegative;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5575 if (yoff < 0)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5576 f->size_hint_flags |= YNegative;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5577 f->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5578 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5579 x_calc_absolute_position (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5580
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5581 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5582 x_wm_set_size_hint (f, (long) 0, 0);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5583
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5584 modified_left = f->left_pos;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5585 modified_top = f->top_pos;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5586
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5587 my_set_window_pos (FRAME_W32_WINDOW (f),
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5588 NULL,
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5589 modified_left, modified_top,
23507
8a448630a9b5 Include fontset.h. Define codepage macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 22059
diff changeset
5590 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5591 SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5592 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5593 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5594
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5595
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5596 /* 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
5597 If so needed, resize the frame. */
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5598 static void
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5599 x_check_fullscreen (f)
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5600 struct frame *f;
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5601 {
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5602 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
5603 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5604 int width, height, ign;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5605
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5606 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
5607
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5608 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
5609
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5610 /* We do not need to move the window, it shall be taken care of
89588
3a34407a4019 (w32_encode_char): New charset parameter. font_info.encoding becomes
Jason Rumney <jasonr@gnu.org>
parents: 89483
diff changeset
5611 when setting WM manager hints. */
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5612 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
5613 {
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5614 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
5615 SET_FRAME_GARBAGED (f);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5616 cancel_mouse_face (f);
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5617
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5618 /* 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
5619 f->want_fullscreen |= FULLSCREEN_WAIT;
43396
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5620 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5621 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5622 }
9b50c09298f6 * w32term.c (x_autoselect_window_p): New variable.
Jason Rumney <jasonr@gnu.org>
parents: 43373
diff changeset
5623
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5624 /* Call this to change the size of frame F's x-window.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5625 If CHANGE_GRAVITY is 1, we change to top-left-corner window gravity
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5626 for this size change and subsequent size changes.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5627 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
5628
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5629 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5630 x_set_window_size (f, change_gravity, cols, rows)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5631 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5632 int change_gravity;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5633 int cols, rows;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5634 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5635 int pixelwidth, pixelheight;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5636
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5637 BLOCK_INPUT;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5638
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5639 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
5640 f->scroll_bar_actual_width
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5641 = 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
5642
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
5643 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
5644
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5645 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
5646 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
5647
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5648 f->win_gravity = NorthWestGravity;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5649 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
5650
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5651 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5652 RECT rect;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5653
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5654 rect.left = rect.top = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5655 rect.right = pixelwidth;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5656 rect.bottom = pixelheight;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5657
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5658 AdjustWindowRect(&rect, f->output_data.w32->dwStyle,
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
5659 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
5660
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5661 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
5662 NULL,
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5663 0, 0,
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5664 rect.right - rect.left,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5665 rect.bottom - rect.top,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5666 SWP_NOZORDER | SWP_NOMOVE | SWP_NOACTIVATE);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5667 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5668
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5669 /* Now, strictly speaking, we can't be sure that this is accurate,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5670 but the window manager will get around to dealing with the size
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5671 change request eventually, and we'll hear how it went when the
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5672 ConfigureNotify event gets here.
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5673
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5674 We could just not bother storing any of this information here,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5675 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
5676 might be kind of confusing to the Lisp code, since size changes
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5677 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
5678 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
5679
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5680 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
5681 a BLOCK_INPUT. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5682 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
5683 FRAME_PIXEL_WIDTH (f) = pixelwidth;
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5684 FRAME_PIXEL_HEIGHT (f) = pixelheight;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5685
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5686 /* 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
5687 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
5688 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
5689 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
5690 SET_FRAME_GARBAGED (f);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5691
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5692 /* 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
5693 mark_window_cursors_off (XWINDOW (f->root_window));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5694
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5695 /* 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
5696 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
5697 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
5698 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
5699 cancel_mouse_face (f);
487fdbc8de0f (cancel_mouse_face): new function. See equiv
Karl Heuer <kwzh@gnu.org>
parents: 24752
diff changeset
5700
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5701 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5702 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5703
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5704 /* Mouse warping. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5705
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5706 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
5707
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5708 void
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5709 x_set_mouse_position (f, x, y)
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5710 struct frame *f;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5711 int x, y;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5712 {
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5713 int pix_x, pix_y;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5714
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5715 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
5716 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
5717
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5718 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
5719 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
5720
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5721 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
5722 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
5723
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5724 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
5725 }
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5726
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5727 void
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5728 x_set_mouse_pixel_position (f, pix_x, pix_y)
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5729 struct frame *f;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5730 int pix_x, pix_y;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5731 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5732 RECT rect;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5733 POINT pt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5734
15616
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5735 BLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5736
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5737 GetClientRect (FRAME_W32_WINDOW (f), &rect);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5738 pt.x = rect.left + pix_x;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5739 pt.y = rect.top + pix_y;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5740 ClientToScreen (FRAME_W32_WINDOW (f), &pt);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5741
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5742 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
5743
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5744 UNBLOCK_INPUT;
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5745 }
a73836346910 (x_set_mouse_pixel_position): Adjust coords by frame position.
Miles Bader <miles@gnu.org>
parents: 15435
diff changeset
5746
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5747
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5748 /* focus shifting, raising and lowering. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5749
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5750 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5751 x_focus_on_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5752 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5753 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5754 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
5755
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5756 /* Give input focus to frame. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5757 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5758 #if 0
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5759 /* 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
5760 if (x_window_to_frame (dpyinfo, GetForegroundWindow ()))
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5761 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
5762 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5763 #endif
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5764 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
5765 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5766 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5767
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5768 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5769 x_unfocus_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5770 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5771 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5772 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5773
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5774 /* Raise frame F. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5775 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5776 x_raise_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5777 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5778 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5779 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5780
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5781 /* Strictly speaking, raise-frame should only change the frame's Z
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5782 order, leaving input focus unchanged. This is reasonable behaviour
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5783 on X where the usual policy is point-to-focus. However, this
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5784 behaviour would be very odd on Windows where the usual policy is
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5785 click-to-focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5786
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5787 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
5788 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
5789 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
5790 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
5791 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
5792 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
5793 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
5794 completely obscured) with input focus.
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5795
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5796 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
5797 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
5798 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
5799
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5800 if (NILP (Vw32_grab_focus_on_raise))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5801 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5802 /* 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
5803 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
5804 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
5805 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
5806 more cumbersome method. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5807
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5808 HDWP handle = BeginDeferWindowPos (2);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5809 if (handle)
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5810 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5811 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5812 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5813 HWND_TOP,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5814 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5815 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5816
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5817 DeferWindowPos (handle,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5818 GetForegroundWindow (),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5819 FRAME_W32_WINDOW (f),
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5820 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5821 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5822
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5823 EndDeferWindowPos (handle);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5824 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5825 }
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5826 else
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5827 {
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
5828 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
5829 }
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5830
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5831 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5832 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5833
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5834 /* Lower frame F. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5835 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5836 x_lower_frame (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5837 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5838 {
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5839 BLOCK_INPUT;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5840 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
5841 HWND_BOTTOM,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5842 0, 0, 0, 0,
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5843 SWP_NOSIZE | SWP_NOMOVE | SWP_NOACTIVATE);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5844 UNBLOCK_INPUT;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5845 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5846
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5847 static void
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5848 w32_frame_raise_lower (f, raise_flag)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5849 FRAME_PTR f;
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5850 int raise_flag;
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5851 {
35000
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5852 if (! FRAME_W32_P (f))
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5853 return;
c048304a388f (x_update_begin):
Andrew Innes <andrewi@gnu.org>
parents: 34869
diff changeset
5854
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5855 if (raise_flag)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5856 x_raise_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5857 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5858 x_lower_frame (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5859 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5860
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5861 /* Change of visibility. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5862
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5863 /* This tries to wait until the frame is really visible.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5864 However, if the window manager asks the user where to position
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5865 the frame, this will return before the user finishes doing that.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5866 The frame will not actually be visible at that time,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5867 but it will become visible later when the window manager
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5868 finishes with it. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5869
30240
2c2a7ebd2c15 (help_echo_object, help_echo_pos): New variables.
Jason Rumney <jasonr@gnu.org>
parents: 30199
diff changeset
5870 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5871 x_make_frame_visible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5872 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5873 {
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5874 Lisp_Object type;
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5875
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5876 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5877
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5878 type = x_icon_type (f);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5879 if (!NILP (type))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5880 x_bitmap_icon (f, type);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5881
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5882 if (! FRAME_VISIBLE_P (f))
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5883 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5884 /* We test FRAME_GARBAGED_P here to make sure we don't
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5885 call x_set_offset a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5886 if we get to x_make_frame_visible a second time
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5887 before the window gets really visible. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5888 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
5889 && ! f->output_data.w32->asked_for_visible)
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
5890 x_set_offset (f, f->left_pos, f->top_pos, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5891
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
5892 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
5893
42934
b3ee5e92548a (x_scroll_run): Use ScrollWindowEx in place of BitBlt.
Jason Rumney <jasonr@gnu.org>
parents: 42919
diff changeset
5894 /* my_show_window (f, FRAME_W32_WINDOW (f), f->async_iconified ? SW_RESTORE : SW_SHOW); */
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5895 my_show_window (f, FRAME_W32_WINDOW (f), SW_SHOWNORMAL);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5896 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5897
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5898 /* Synchronize to ensure Emacs knows the frame is visible
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5899 before we do anything else. We do this loop with input not blocked
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5900 so that incoming events are handled. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5901 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5902 Lisp_Object frame;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5903 int count;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5904
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5905 /* This must come after we set COUNT. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5906 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5907
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5908 XSETFRAME (frame, f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5909
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5910 /* 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
5911 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
5912 MapNotify at all.. */
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5913 for (count = input_signal_count + 10;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5914 input_signal_count < count && !FRAME_VISIBLE_P (f);)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5915 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5916 /* Force processing of queued events. */
33097
84590a646acc (x_produce_glyphs): Handle composite characters.
Jason Rumney <jasonr@gnu.org>
parents: 33037
diff changeset
5917 /* TODO: x_sync equivalent? */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
5918
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5919 /* Machines that do polling rather than SIGIO have been observed
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5920 to go into a busy-wait here. So we'll fake an alarm signal
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5921 to let the handler know that there's something to be read.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5922 We used to raise a real alarm, but it seems that the handler
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5923 isn't always enabled here. This is probably a bug. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5924 if (input_polling_used ())
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5925 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5926 /* It could be confusing if a real alarm arrives while processing
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5927 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
5928 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
5929 poll_suppress_count = 1;
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
5930 poll_for_input_1 ();
5fe002cf4b37 (x_make_frame_visible): Replace call to
Andrew Innes <andrewi@gnu.org>
parents: 27514
diff changeset
5931 poll_suppress_count = old_poll_suppress_count;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5932 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5933 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5934 FRAME_SAMPLE_VISIBILITY (f);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5935 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5936 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5937
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5938 /* Change from mapped state to withdrawn state. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5939
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5940 /* Make the frame visible (mapped and not iconified). */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5941
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5942 x_make_frame_invisible (f)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5943 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5944 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5945 /* 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
5946 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
5947 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
5948
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5949 BLOCK_INPUT;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5950
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5951 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
5952
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5953 /* We can't distinguish this from iconification
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5954 just by the event that we get from the server.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5955 So we can't win using the usual strategy of letting
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5956 FRAME_SAMPLE_VISIBILITY set this. So do it by hand,
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5957 and synchronize with the server to make sure we agree. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5958 f->visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5959 FRAME_ICONIFIED_P (f) = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5960 f->async_visible = 0;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5961 f->async_iconified = 0;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
5962
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5963 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5964 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5965
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5966 /* Change window state from mapped to iconified. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5967
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5968 void
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
5969 x_iconify_frame (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5970 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5971 {
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5972 Lisp_Object type;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5973
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5974 /* 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
5975 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
5976 FRAME_W32_DISPLAY_INFO (f)->x_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5977
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5978 if (f->async_iconified)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5979 return;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5980
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5981 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5982
25236
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5983 type = x_icon_type (f);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5984 if (!NILP (type))
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5985 x_bitmap_icon (f, type);
ea748fe6dee4 (x_bitmap_icon): New function.
Geoff Voelker <voelker@cs.washington.edu>
parents: 24863
diff changeset
5986
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
5987 /* 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
5988 SendMessage (FRAME_W32_WINDOW (f), WM_SYSCOMMAND, SC_MINIMIZE, 0);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5989
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5990 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5991 }
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
5992
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5993
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
5994 /* 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
5995
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
5996 void
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
5997 x_free_frame_resources (f)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5998 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
5999 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6000 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6001
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6002 BLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6003
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6004 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
6005 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
6006
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6007 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
6008
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6009 unload_color (f, f->output_data.x->foreground_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6010 unload_color (f, f->output_data.x->background_pixel);
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6011 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
6012 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
6013 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
6014 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
6015 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
6016 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
6017 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
6018 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
6019
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6020 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
6021 free_frame_faces (f);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6022
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6023 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
6024 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
6025
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6026 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
6027 dpyinfo->w32_focus_frame = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6028 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
6029 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
6030 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
6031 dpyinfo->x_highlight_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6032
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6033 if (f == dpyinfo->mouse_face_mouse_frame)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6034 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6035 dpyinfo->mouse_face_beg_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6036 = dpyinfo->mouse_face_beg_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6037 dpyinfo->mouse_face_end_row
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6038 = dpyinfo->mouse_face_end_col = -1;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6039 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
6040 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
6041 dpyinfo->mouse_face_mouse_frame = 0;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6042 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6043
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6044 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6045 }
34545
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6046
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6047
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6048 /* Destroy the window of frame F. */
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6049
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6050 x_destroy_window (f)
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6051 struct frame *f;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6052 {
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6053 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
6054
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6055 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
6056
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6057 dpyinfo->reference_count--;
0322014fcf27 (clear_mouse_face): Treat tip_frame as a Lisp_Object.
Andrew Innes <andrewi@gnu.org>
parents: 34229
diff changeset
6058 }
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6059
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6060
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6061 /* Setting window manager hints. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6062
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6063 /* Set the normal size hints for the window manager, for frame F.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6064 FLAGS is the flags word to use--or 0 meaning preserve the flags
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6065 that the window now has.
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6066 If USER_POSITION is nonzero, we set the USPosition
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6067 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
6068 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6069 x_wm_set_size_hint (f, flags, user_position)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6070 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6071 long flags;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6072 int user_position;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6073 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6074 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6075
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
6076 enter_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6077
51204
082b768216a0 Make (several) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents: 50441
diff changeset
6078 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
6079 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
6080 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
6081 SetWindowLong (window, WND_SCROLLBAR_INDEX, f->scroll_bar_actual_width);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6082
14351
fb2ce4ebc871 ubackout 1.3 and 1.4
Geoff Voelker <voelker@cs.washington.edu>
parents: 14248
diff changeset
6083 leave_crit ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6084 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6085
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6086 /* 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
6087 void
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6088 x_wm_set_icon_position (f, icon_x, icon_y)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6089 struct frame *f;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6090 int icon_x, icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6091 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6092 #if 0
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6093 Window window = FRAME_W32_WINDOW (f);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6094
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6095 f->display.x->wm_hints.flags |= IconPositionHint;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6096 f->display.x->wm_hints.icon_x = icon_x;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6097 f->display.x->wm_hints.icon_y = icon_y;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6098
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6099 XSetWMHints (FRAME_X_DISPLAY (f), window, &f->display.x->wm_hints);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6100 #endif
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6101 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6102
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6103
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6104 /***********************************************************************
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6105 Fonts
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6106 ***********************************************************************/
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6107
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6108 /* The following functions are listed here to help diff stay in step
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6109 with xterm.c. See w32fns.c for definitions.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6110
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6111 x_get_font_info (f, font_idx)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6112 x_list_fonts (f, pattern, size, maxnames)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6113
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6114 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6115
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6116 #if GLYPH_DEBUG
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6117
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6118 /* Check that FONT is valid on frame F. It is if it can be found in F's
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6119 font table. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6120
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6121 static void
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6122 x_check_font (f, font)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6123 struct frame *f;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6124 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6125 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6126 int i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6127 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6128
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6129 xassert (font != NULL);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6130
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6131 for (i = 0; i < dpyinfo->n_fonts; i++)
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6132 if (dpyinfo->font_table[i].name
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6133 && font == dpyinfo->font_table[i].font)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6134 break;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6135
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6136 xassert (i < dpyinfo->n_fonts);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6137 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6138
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6139 #endif /* GLYPH_DEBUG != 0 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6140
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6141 /* Set *W to the minimum width, *H to the minimum font height of FONT.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6142 Note: There are (broken) X fonts out there with invalid XFontStruct
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6143 min_bounds contents. For example, handa@etl.go.jp reports that
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6144 "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1" fonts
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6145 have font->min_bounds.width == 0. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6146
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6147 static INLINE void
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6148 x_font_min_bounds (font, w, h)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6149 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6150 int *w, *h;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6151 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6152 /*
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6153 * TODO: Windows does not appear to offer min bound, only
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6154 * average and maximum width, and maximum height.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6155 */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6156 *h = FONT_HEIGHT (font);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6157 *w = FONT_WIDTH (font);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6158 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6159
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6160
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6161 /* Compute the smallest character width and smallest font height over
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6162 all fonts available on frame F. Set the members smallest_char_width
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6163 and smallest_font_height in F's x_display_info structure to
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6164 the values computed. Value is non-zero if smallest_font_height or
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6165 smallest_char_width become smaller than they were before. */
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6166
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6167 int
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6168 x_compute_min_glyph_bounds (f)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6169 struct frame *f;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6170 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6171 int i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6172 struct w32_display_info *dpyinfo = FRAME_W32_DISPLAY_INFO (f);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6173 XFontStruct *font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6174 int old_width = dpyinfo->smallest_char_width;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6175 int old_height = dpyinfo->smallest_font_height;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6176
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6177 dpyinfo->smallest_font_height = 100000;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6178 dpyinfo->smallest_char_width = 100000;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6179
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6180 for (i = 0; i < dpyinfo->n_fonts; ++i)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6181 if (dpyinfo->font_table[i].name)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6182 {
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6183 struct font_info *fontp = dpyinfo->font_table + i;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6184 int w, h;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6185
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6186 font = (XFontStruct *) fontp->font;
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6187 xassert (font != (XFontStruct *) ~0);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6188 x_font_min_bounds (font, &w, &h);
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6189
35384
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6190 dpyinfo->smallest_font_height = min (dpyinfo->smallest_font_height, h);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6191 dpyinfo->smallest_char_width = min (dpyinfo->smallest_char_width, w);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6192 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6193
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6194 xassert (dpyinfo->smallest_char_width > 0
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6195 && dpyinfo->smallest_font_height > 0);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6196
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6197 return (dpyinfo->n_fonts == 1
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6198 || dpyinfo->smallest_char_width < old_width
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6199 || dpyinfo->smallest_font_height < old_height);
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6200 }
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6201
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6202 /* The following functions are listed here to help diff stay in step
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6203 with xterm.c. See w32fns.c for definitions.
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6204
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6205 x_load_font (f, fontname, size)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6206 x_query_font (f, fontname)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6207 x_find_ccl_program (fontp)
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6208
e50a7f9ce65e (x_produce_stretch_glyph): Only use Qspace when GLYPH_DEBUG is defined.
Jason Rumney <jasonr@gnu.org>
parents: 35287
diff changeset
6209 */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6210
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6211 /***********************************************************************
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6212 Initialization
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6213 ***********************************************************************/
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6214
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6215 static int w32_initialized = 0;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6216
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6217 void
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6218 w32_initialize_display_info (display_name)
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6219 Lisp_Object display_name;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6220 {
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6221 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
6222
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6223 bzero (dpyinfo, sizeof (*dpyinfo));
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6224
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6225 /* 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
6226 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
6227 w32_display_name_list);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6228 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
6229
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6230 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
6231 = (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
6232 + SCHARS (Vsystem_name)
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6233 + 2);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6234 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
6235 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
6236
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6237 /* 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
6238 with values obtained from system metrics. */
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6239 dpyinfo->resx = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6240 dpyinfo->resy = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6241 dpyinfo->height_in = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6242 dpyinfo->width_in = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6243 dpyinfo->n_planes = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6244 dpyinfo->n_cbits = 4;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6245 dpyinfo->n_fonts = 0;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6246 dpyinfo->smallest_font_height = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6247 dpyinfo->smallest_char_width = 1;
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6248
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6249 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
6250 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
6251 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
6252 dpyinfo->mouse_face_window = Qnil;
40137
5f0d7d58283b (remember_mouse_glyph): New function.
Jason Rumney <jasonr@gnu.org>
parents: 40078
diff changeset
6253 dpyinfo->mouse_face_overlay = Qnil;
43373
44e2e2c9154f (disable_mouse_highlight): Removed variable.
Kim F. Storm <storm@cua.dk>
parents: 43146
diff changeset
6254 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
6255
c73ce11bb264 2003-01-21 KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>
Jason Rumney <jasonr@gnu.org>
parents: 48888
diff changeset
6256 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
6257 /* TODO: dpyinfo->gray */
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6258
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6259 }
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6260
50038
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6261 /* 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
6262 The database is just a concatenation of C strings, finished by an additional
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6263 \0. The string are submitted to some basic normalization, so
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6264
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6265 [ *]option[ *]:[ *]value...
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6266
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6267 becomes
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6268
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6269 option:value...
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6270
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6271 but any whitespace following value is not removed. */
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6272
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6273 static char *
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6274 w32_make_rdb (xrm_option)
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6275 char *xrm_option;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6276 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6277 char *buffer = xmalloc (strlen (xrm_option) + 2);
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6278 char *current = buffer;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6279 char ch;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6280 int in_option = 1;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6281 int before_value = 0;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6282
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6283 do {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6284 ch = *xrm_option++;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6285
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6286 if (ch == '\n')
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6287 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6288 *current++ = '\0';
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6289 in_option = 1;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6290 before_value = 0;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6291 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6292 else if (ch != ' ')
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6293 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6294 *current++ = ch;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6295 if (in_option && (ch == ':'))
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6296 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6297 in_option = 0;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6298 before_value = 1;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6299 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6300 else if (before_value)
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6301 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6302 before_value = 0;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6303 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6304 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6305 else if (!(in_option || before_value))
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6306 {
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6307 *current++ = ch;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6308 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6309 } while (ch);
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6310
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6311 *current = '\0';
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6312
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6313 return buffer;
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6314 }
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6315
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6316 struct w32_display_info *
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6317 w32_term_init (display_name, xrm_option, resource_name)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6318 Lisp_Object display_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6319 char *xrm_option;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6320 char *resource_name;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6321 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6322 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6323 HDC hdc;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6324
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6325 BLOCK_INPUT;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6326
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6327 if (!w32_initialized)
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6328 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6329 w32_initialize ();
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6330 w32_initialized = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6331 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6332
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6333 w32_initialize_display_info (display_name);
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6334
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6335 dpyinfo = &one_w32_display_info;
38570
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
6336
50038
8054c23b6726 (w32_make_rdb): New function.
Juanma Barranquero <lekktu@gmail.com>
parents: 49393
diff changeset
6337 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
6338
38570
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
6339 /* Put this display on the chain. */
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
6340 dpyinfo->next = x_display_list;
9606b955465e (x_display_list): New variable.
Andrew Innes <andrewi@gnu.org>
parents: 36315
diff changeset
6341 x_display_list = dpyinfo;
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6342
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6343 hdc = GetDC (GetDesktopWindow ());
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6344
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6345 dpyinfo->height = GetDeviceCaps (hdc, VERTRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6346 dpyinfo->width = GetDeviceCaps (hdc, HORZRES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6347 dpyinfo->root_window = GetDesktopWindow ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6348 dpyinfo->n_planes = GetDeviceCaps (hdc, PLANES);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6349 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
6350 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
6351 dpyinfo->resy = GetDeviceCaps (hdc, LOGPIXELSY);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6352 dpyinfo->has_palette = GetDeviceCaps (hdc, RASTERCAPS) & RC_PALETTE;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6353 dpyinfo->image_cache = make_image_cache ();
27514
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
6354 dpyinfo->height_in = dpyinfo->height / dpyinfo->resx;
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
6355 dpyinfo->width_in = dpyinfo->width / dpyinfo->resy;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6356 ReleaseDC (GetDesktopWindow (), hdc);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6357
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6358 /* initialise palette with white and black */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6359 {
47981
74b52651467d (w32_term_init): Pass XColor to w32_define_color, not COLORREF.
Juanma Barranquero <lekktu@gmail.com>
parents: 47148
diff changeset
6360 XColor color;
27514
9625ad0c0f52 (w32_term_init): Swap resx and height_in, resy and
Jason Rumney <jasonr@gnu.org>
parents: 27406
diff changeset
6361 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
6362 w32_defined_color (0, "black", &color, 1);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6363 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6364
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6365 /* Create Fringe Bitmaps and store them for later use.
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6366
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6367 On W32, bitmaps are all unsigned short, as Windows requires
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6368 bitmap data to be Word aligned. For some reason they are
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6369 horizontally reflected compared to how they appear on X, so we
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6370 need to bitswap and convert to unsigned shorts before creating
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6371 the bitmaps. */
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6372 {
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6373 int i, j;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6374
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6375 for (i = NO_FRINGE_BITMAP + 1; i < MAX_FRINGE_BITMAPS; i++)
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6376 {
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6377 int h = fringe_bitmaps[i].height;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6378 int wd = fringe_bitmaps[i].width;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6379 unsigned short *w32bits
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6380 = (unsigned short *)alloca (h * sizeof (unsigned short));
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6381 unsigned short *wb = w32bits;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6382 unsigned char *bits = fringe_bitmaps[i].bits;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6383 for (j = 0; j < h; j++)
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6384 {
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
6385 static unsigned char swap_nibble[16]
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6386 = { 0x0, 0x8, 0x4, 0xc, /* 0000 1000 0100 1100 */
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6387 0x2, 0xa, 0x6, 0xe, /* 0010 1010 0110 1110 */
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6388 0x1, 0x9, 0x5, 0xd, /* 0001 1001 0101 1101 */
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6389 0x3, 0xb, 0x7, 0xf }; /* 0011 1011 0111 1111 */
51258
a35e5665c742 (construct_mouse_wheel): Result is a MOUSE_CLICK_EVENT. Scrolling down/up the
Juanma Barranquero <lekktu@gmail.com>
parents: 51204
diff changeset
6390
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6391 unsigned char b = *bits++;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6392 *wb++ = (unsigned short)((swap_nibble[b & 0xf]<<4)
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6393 | (swap_nibble[(b>>4) & 0xf]));
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6394 }
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6395 fringe_bmp[i] = CreateBitmap (wd, h, 1, 1, w32bits);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6396 }
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6397 }
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6398
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6399 #ifndef F_SETOWN_BUG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6400 #ifdef F_SETOWN
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6401 #ifdef F_SETOWN_SOCK_NEG
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6402 /* stdin is a socket here */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6403 fcntl (connection, F_SETOWN, -getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6404 #else /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6405 fcntl (connection, F_SETOWN, getpid ());
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6406 #endif /* ! defined (F_SETOWN_SOCK_NEG) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6407 #endif /* ! defined (F_SETOWN) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6408 #endif /* F_SETOWN_BUG */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6409
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6410 #ifdef SIGIO
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6411 if (interrupt_input)
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6412 init_sigio (connection);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6413 #endif /* ! defined (SIGIO) */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6414
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6415 UNBLOCK_INPUT;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6416
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6417 return dpyinfo;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6418 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6419
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6420 /* Get rid of display DPYINFO, assuming all frames are already gone. */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6421
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6422 void
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6423 x_delete_display (dpyinfo)
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6424 struct w32_display_info *dpyinfo;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6425 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6426 /* Discard this display from w32_display_name_list and w32_display_list.
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6427 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
6428 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
6429 && 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
6430 w32_display_name_list = XCDR (w32_display_name_list);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6431 else
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6432 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6433 Lisp_Object tail;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6434
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6435 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
6436 while (CONSP (tail) && CONSP (XCDR (tail)))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6437 {
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6438 if (EQ (XCAR (XCDR (tail)), dpyinfo->name_list_element))
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6439 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39697
diff changeset
6440 XSETCDR (tail, XCDR (XCDR (tail)));
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6441 break;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6442 }
25646
9154af188477 Use XCAR and XCDR instead of explicit member references.
Ken Raeburn <raeburn@raeburn.org>
parents: 25236
diff changeset
6443 tail = XCDR (tail);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6444 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6445 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6446
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6447 /* free palette table */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6448 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6449 struct w32_palette_entry * plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6450
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6451 plist = dpyinfo->color_list;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6452 while (plist)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6453 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6454 struct w32_palette_entry * pentry = plist;
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6455 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
6456 xfree (pentry);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6457 }
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6458 dpyinfo->color_list = NULL;
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6459 if (dpyinfo->palette)
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6460 DeleteObject(dpyinfo->palette);
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6461 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6462 xfree (dpyinfo->font_table);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6463 xfree (dpyinfo->w32_id_name);
27889
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6464
51d0b4b8fc6a (w32_display_info_for_display): Remove unused function.
Jason Rumney <jasonr@gnu.org>
parents: 27631
diff changeset
6465 /* Destroy row bitmaps. */
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6466 {
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6467 int i;
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6468
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6469 for (i = NO_FRINGE_BITMAP + 1; i < MAX_FRINGE_BITMAPS; i++)
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6470 DeleteObject (fringe_bmp[i]);
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6471 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6472 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6473
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6474 /* Set up use of W32. */
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6475
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6476 DWORD w32_msg_worker ();
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6477
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6478 void
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6479 x_flush (struct frame * f)
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6480 { /* Nothing to do */ }
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6481
50365
c0153b8fc41f Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents: 50280
diff changeset
6482 extern frame_parm_handler w32_frame_parm_handlers[];
c0153b8fc41f Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents: 50280
diff changeset
6483
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6484 static struct redisplay_interface w32_redisplay_interface =
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6485 {
50365
c0153b8fc41f Remove unnecessary extern declarations.
Kim F. Storm <storm@cua.dk>
parents: 50280
diff changeset
6486 w32_frame_parm_handlers,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6487 x_produce_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6488 x_write_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6489 x_insert_glyphs,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6490 x_clear_end_of_line,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6491 x_scroll_run,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6492 x_after_update_window_line,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6493 x_update_window_begin,
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6494 x_update_window_end,
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6495 x_cursor_to,
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6496 x_flush,
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6497 0, /* flush_display_optional */
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6498 x_clear_window_mouse_face,
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
6499 w32_get_glyph_overhangs,
50096
a1b6fe38d1f2 Remove generic fringe code.
Kim F. Storm <storm@cua.dk>
parents: 50038
diff changeset
6500 x_fix_overlapping_area,
50154
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
6501 w32_draw_fringe_bitmap,
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
6502 w32_per_char_metric,
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
6503 w32_encode_char,
10038ae9db85 Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50096
diff changeset
6504 NULL, /* w32_compute_glyph_string_overhangs */
50231
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6505 x_draw_glyph_string,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6506 w32_define_frame_cursor,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6507 w32_clear_frame_area,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6508 w32_draw_window_cursor,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6509 w32_draw_vertical_window_border,
c8ea5e4b2129 * w32term.c: Remove consolidated defines and code.
Kim F. Storm <storm@cua.dk>
parents: 50163
diff changeset
6510 w32_shift_glyphs_for_insert
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6511 };
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6512
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6513 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6514 w32_initialize ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6515 {
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6516 rif = &w32_redisplay_interface;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6517
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
6518 /* MSVC does not type K&R functions with no arguments correctly, and
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
6519 so we must explicitly cast them. */
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6520 clear_frame_hook = (void (*)(void)) x_clear_frame;
21831
6b659713b90b Forward declare hooks with full function prototypes.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21740
diff changeset
6521 ring_bell_hook = (void (*)(void)) w32_ring_bell;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6522 update_begin_hook = x_update_begin;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6523 update_end_hook = x_update_end;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
6524
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6525 read_socket_hook = w32_read_socket;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
6526
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6527 frame_up_to_date_hook = w32_frame_up_to_date;
35449
98d65e364070 (w32_ring_bell): Only support visible bell on w32
Andrew Innes <andrewi@gnu.org>
parents: 35384
diff changeset
6528
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6529 mouse_position_hook = w32_mouse_position;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6530 frame_rehighlight_hook = w32_frame_rehighlight;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6531 frame_raise_lower_hook = w32_frame_raise_lower;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6532 set_vertical_scroll_bar_hook = w32_set_vertical_scroll_bar;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6533 condemn_scroll_bars_hook = w32_condemn_scroll_bars;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6534 redeem_scroll_bar_hook = w32_redeem_scroll_bar;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6535 judge_scroll_bars_hook = w32_judge_scroll_bars;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6536
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6537 scroll_region_ok = 1; /* we'll scroll partial frames */
36002
205727d5d63c (w32_encode_char): Treat eight bit graphic and control
Jason Rumney <jasonr@gnu.org>
parents: 35984
diff changeset
6538 char_ins_del_ok = 1;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6539 line_ins_del_ok = 1; /* we'll just blt 'em */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6540 fast_clear_end_of_line = 1; /* X does this well */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6541 memory_below_frame = 0; /* we don't remember what scrolls
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6542 off the bottom */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6543 baud_rate = 19200;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6544
40384
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6545 w32_system_caret_hwnd = NULL;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6546 w32_system_caret_height = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6547 w32_system_caret_x = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6548 w32_system_caret_y = 0;
25e6d4bb5f7f (w32_system_caret_hwnd, w32_system_caret_width)
Jason Rumney <jasonr@gnu.org>
parents: 40245
diff changeset
6549
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6550 last_tool_bar_item = -1;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6551 any_help_event_p = 0;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6552
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6553 /* 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
6554 8 bit character input, standard quit char. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6555 Fset_input_mode (Qnil, Qnil, make_number (2), Qnil);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6556
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6557 /* Create the window thread - it will terminate itself or when the app terminates */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6558
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6559 init_crit ();
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6560
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6561 dwMainThreadId = GetCurrentThreadId ();
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6562 DuplicateHandle (GetCurrentProcess (), GetCurrentThread (),
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6563 GetCurrentProcess (), &hMainThread, 0, TRUE, DUPLICATE_SAME_ACCESS);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6564
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6565 /* Wait for thread to start */
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6566
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6567 {
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6568 MSG msg;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6569
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6570 PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6571
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6572 hWindowsThread = CreateThread (NULL, 0,
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6573 (LPTHREAD_START_ROUTINE) w32_msg_worker,
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
6574 0, 0, &dwWindowsThreadId);
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6575
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6576 GetMessage (&msg, NULL, WM_EMACS_DONE, WM_EMACS_DONE);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6577 }
48218
01e253345507 (w32_draw_fringe_bitmap): Remove unused local variable window.
Juanma Barranquero <lekktu@gmail.com>
parents: 48025
diff changeset
6578
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6579 /* 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
6580 focus window and active window as windowsThread. Unfortunately, the
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6581 following call to AttachThreadInput, which should do precisely what
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6582 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
6583 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
6584 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
6585 calls for us (ones that affect, or depend on, the active/focus
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6586 window state. */
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6587 #ifdef ATTACH_THREADS
16884
36babc489b0c Change all uses of win95, winnt, and win32
Geoff Voelker <voelker@cs.washington.edu>
parents: 16588
diff changeset
6588 AttachThreadInput (dwMainThreadId, dwWindowsThreadId, TRUE);
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6589 #endif
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6590
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6591 /* Dynamically link to optional system components. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6592 {
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6593 HANDLE user_lib = LoadLibrary ("user32.dll");
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6594 HANDLE gdi_lib = LoadLibrary ("gdi32.dll");
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6596 #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
6597
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6598 /* New proportional scroll bar functions. */
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6599 LOAD_PROC (user_lib, SetScrollInfo);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6600 LOAD_PROC (user_lib, GetScrollInfo);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6601 LOAD_PROC (gdi_lib, GetFontUnicodeRanges);
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6602
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6603 #undef LOAD_PROC
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6604
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6605 FreeLibrary (user_lib);
89595
804abd486fd1 (GLYPHSET, WCRANGE): Define if system headers don't.
Jason Rumney <jasonr@gnu.org>
parents: 89588
diff changeset
6606 FreeLibrary (gdi_lib);
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6607
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6608 /* If using proportional scroll bars, ensure handle is at least 5 pixels;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6609 otherwise use the fixed height. */
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6610 vertical_scroll_bar_min_handle = (pfnSetScrollInfo != NULL) ? 5 :
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6611 GetSystemMetrics (SM_CYVTHUMB);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6612
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6613 /* 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
6614 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
6615 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
6616 = GetSystemMetrics (SM_CYVSCROLL);
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6617 }
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6618 }
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6619
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6620 void
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6621 syms_of_w32term ()
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6622 {
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6623 staticpro (&w32_display_name_list);
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6624 w32_display_name_list = Qnil;
13434
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6625
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6626 staticpro (&last_mouse_scroll_bar);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6627 last_mouse_scroll_bar = Qnil;
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6628
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6629 staticpro (&Qvendor_specific_keysyms);
53ba95a88cf2 Initial revision
Geoff Voelker <voelker@cs.washington.edu>
parents:
diff changeset
6630 Qvendor_specific_keysyms = intern ("vendor-specific-keysyms");
15151
ed6ddfc0d954 (Vwindow_system): Declared.
Geoff Voelker <voelker@cs.washington.edu>
parents: 15035
diff changeset
6631
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6632 DEFVAR_INT ("w32-num-mouse-buttons",
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6633 &Vw32_num_mouse_buttons,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6634 doc: /* Number of physical mouse buttons. */);
16588
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6635 Vw32_num_mouse_buttons = Qnil;
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6636
481b7874a1e9 Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents: 16326
diff changeset
6637 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
6638 &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
6639 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
6640 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
6641 Vw32_swap_mouse_buttons = Qnil;
19713
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6642
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6643 DEFVAR_LISP ("w32-grab-focus-on-raise",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6644 &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
6645 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
6646 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
6647 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
6648 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
6649 Vw32_grab_focus_on_raise = Qt;
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6650
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6651 DEFVAR_LISP ("w32-capslock-is-shiftlock",
043ccce224fb (SIF_*): Win95 macros defined for NT.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18877
diff changeset
6652 &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
6653 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
6654 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
6655 Vw32_capslock_is_shiftlock = Qnil;
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
6656
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
6657 DEFVAR_LISP ("w32-recognize-altgr",
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
6658 &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
6659 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
6660 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
6661 interpreted normally. */);
21614
2624d8dcc73f (Vw32_recognize_altgr): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents: 21456
diff changeset
6662 Vw32_recognize_altgr = Qt;
23638
e6fb9ffee4f4 (dumpglyphs): Use FRAME_FONT for w32_fill_area.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23510
diff changeset
6663
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
6664 DEFVAR_BOOL ("w32-enable-unicode-output",
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
6665 &w32_enable_unicode_output,
40962
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6666 doc: /* Enable the use of Unicode for text output if non-nil.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6667 Unicode output may prevent some third party applications for displaying
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6668 Far-East Languages on Windows 95/98 from working properly.
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6669 NT uses Unicode internally anyway, so this flag will probably have no
f66d09d1bb2f Change doc-string comments to `new style'. [w/`doc:' keyword]. Doc fixes.
Jason Rumney <jasonr@gnu.org>
parents: 40816
diff changeset
6670 affect on NT machines. */);
23639
516fc58a7b7b (w32_enable_unicode_output): Rename from
Geoff Voelker <voelker@cs.washington.edu>
parents: 23638
diff changeset
6671 w32_enable_unicode_output = 1;
24131
34f6ec762e5e Remove codepage macros. Remove redundant BIG5 macros.
Geoff Voelker <voelker@cs.washington.edu>
parents: 23951
diff changeset
6672
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6673 DEFVAR_BOOL ("w32-use-visible-system-caret",
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6674 &w32_use_visible_system_caret,
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6675 doc: /* Flag to make the system caret visible.
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6676 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
6677 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
6678 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
6679 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
6680 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
6681 software is running as it starts up.
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6682
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6683 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
6684 the cursor have no effect. */);
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6685
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6686 /* Initialize w32_use_visible_system_caret based on whether a screen
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6687 reader is in use. */
42919
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
6688 if (!SystemParametersInfo (SPI_GETSCREENREADER, 0,
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
6689 &w32_use_visible_system_caret, 0))
2a546583564f (x_update_window_begin): Only hide caret if
Jason Rumney <jasonr@gnu.org>
parents: 42864
diff changeset
6690 w32_use_visible_system_caret = 0;
42864
c1af6a7f3dd4 (w32_system_caret_width): Remove.
Jason Rumney <jasonr@gnu.org>
parents: 42844
diff changeset
6691
34869
1d671133e618 (syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars
Gerd Moellmann <gerd@gnu.org>
parents: 34823
diff changeset
6692 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
6693 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
6694 Vx_toolkit_scroll_bars = Qt;
27402
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6695
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6696 staticpro (&last_mouse_motion_frame);
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6697 last_mouse_motion_frame = Qnil;
044fe520ab6e Complete rewrite based on xterm.c.
Jason Rumney <jasonr@gnu.org>
parents: 26088
diff changeset
6698 }